OSDN Git Service

Add PuTTY 0.61 to contrib directory.
[ffftp/ffftp.git] / contrib / putty / SETTINGS.C
diff --git a/contrib/putty/SETTINGS.C b/contrib/putty/SETTINGS.C
new file mode 100644 (file)
index 0000000..b2f3ddc
--- /dev/null
@@ -0,0 +1,1005 @@
+/*\r
+ * settings.c: read and write saved sessions. (platform-independent)\r
+ */\r
+\r
+#include <assert.h>\r
+#include <stdio.h>\r
+#include <stdlib.h>\r
+#include "putty.h"\r
+#include "storage.h"\r
+\r
+/* The cipher order given here is the default order. */\r
+static const struct keyvalwhere ciphernames[] = {\r
+    { "aes",        CIPHER_AES,             -1, -1 },\r
+    { "blowfish",   CIPHER_BLOWFISH,        -1, -1 },\r
+    { "3des",       CIPHER_3DES,            -1, -1 },\r
+    { "WARN",       CIPHER_WARN,            -1, -1 },\r
+    { "arcfour",    CIPHER_ARCFOUR,         -1, -1 },\r
+    { "des",        CIPHER_DES,             -1, -1 }\r
+};\r
+\r
+static const struct keyvalwhere kexnames[] = {\r
+    { "dh-gex-sha1",        KEX_DHGEX,      -1, -1 },\r
+    { "dh-group14-sha1",    KEX_DHGROUP14,  -1, -1 },\r
+    { "dh-group1-sha1",     KEX_DHGROUP1,   -1, -1 },\r
+    { "rsa",                KEX_RSA,        KEX_WARN, -1 },\r
+    { "WARN",               KEX_WARN,       -1, -1 }\r
+};\r
+\r
+/*\r
+ * All the terminal modes that we know about for the "TerminalModes"\r
+ * setting. (Also used by config.c for the drop-down list.)\r
+ * This is currently precisely the same as the set in ssh.c, but could\r
+ * in principle differ if other backends started to support tty modes\r
+ * (e.g., the pty backend).\r
+ */\r
+const char *const ttymodes[] = {\r
+    "INTR",    "QUIT",     "ERASE",    "KILL",     "EOF",\r
+    "EOL",     "EOL2",     "START",    "STOP",     "SUSP",\r
+    "DSUSP",   "REPRINT",  "WERASE",   "LNEXT",    "FLUSH",\r
+    "SWTCH",   "STATUS",   "DISCARD",  "IGNPAR",   "PARMRK",\r
+    "INPCK",   "ISTRIP",   "INLCR",    "IGNCR",    "ICRNL",\r
+    "IUCLC",   "IXON",     "IXANY",    "IXOFF",    "IMAXBEL",\r
+    "ISIG",    "ICANON",   "XCASE",    "ECHO",     "ECHOE",\r
+    "ECHOK",   "ECHONL",   "NOFLSH",   "TOSTOP",   "IEXTEN",\r
+    "ECHOCTL", "ECHOKE",   "PENDIN",   "OPOST",    "OLCUC",\r
+    "ONLCR",   "OCRNL",    "ONOCR",    "ONLRET",   "CS7",\r
+    "CS8",     "PARENB",   "PARODD",   NULL\r
+};\r
+\r
+/*\r
+ * Convenience functions to access the backends[] array\r
+ * (which is only present in tools that manage settings).\r
+ */\r
+\r
+Backend *backend_from_name(const char *name)\r
+{\r
+    Backend **p;\r
+    for (p = backends; *p != NULL; p++)\r
+       if (!strcmp((*p)->name, name))\r
+           return *p;\r
+    return NULL;\r
+}\r
+\r
+Backend *backend_from_proto(int proto)\r
+{\r
+    Backend **p;\r
+    for (p = backends; *p != NULL; p++)\r
+       if ((*p)->protocol == proto)\r
+           return *p;\r
+    return NULL;\r
+}\r
+\r
+int get_remote_username(Config *cfg, char *user, size_t len)\r
+{\r
+    if (*cfg->username) {\r
+       strncpy(user, cfg->username, len);\r
+       user[len-1] = '\0';\r
+    } else {\r
+       if (cfg->username_from_env) {\r
+           /* Use local username. */\r
+           char *luser = get_username();\r
+           if (luser) {\r
+               strncpy(user, luser, len);\r
+               user[len-1] = '\0';\r
+               sfree(luser);\r
+           } else {\r
+               *user = '\0';\r
+           }\r
+       } else {\r
+           *user = '\0';\r
+       }\r
+    }\r
+    return (*user != '\0');\r
+}\r
+\r
+static void gpps(void *handle, const char *name, const char *def,\r
+                char *val, int len)\r
+{\r
+    if (!read_setting_s(handle, name, val, len)) {\r
+       char *pdef;\r
+\r
+       pdef = platform_default_s(name);\r
+       if (pdef) {\r
+           strncpy(val, pdef, len);\r
+           sfree(pdef);\r
+       } else {\r
+           strncpy(val, def, len);\r
+       }\r
+\r
+       val[len - 1] = '\0';\r
+    }\r
+}\r
+\r
+/*\r
+ * gppfont and gppfile cannot have local defaults, since the very\r
+ * format of a Filename or Font is platform-dependent. So the\r
+ * platform-dependent functions MUST return some sort of value.\r
+ */\r
+static void gppfont(void *handle, const char *name, FontSpec *result)\r
+{\r
+    if (!read_setting_fontspec(handle, name, result))\r
+       *result = platform_default_fontspec(name);\r
+}\r
+static void gppfile(void *handle, const char *name, Filename *result)\r
+{\r
+    if (!read_setting_filename(handle, name, result))\r
+       *result = platform_default_filename(name);\r
+}\r
+\r
+static void gppi(void *handle, char *name, int def, int *i)\r
+{\r
+    def = platform_default_i(name, def);\r
+    *i = read_setting_i(handle, name, def);\r
+}\r
+\r
+/*\r
+ * Read a set of name-value pairs in the format we occasionally use:\r
+ *   NAME\tVALUE\0NAME\tVALUE\0\0 in memory\r
+ *   NAME=VALUE,NAME=VALUE, in storage\r
+ * `def' is in the storage format.\r
+ */\r
+static void gppmap(void *handle, char *name, char *def, char *val, int len)\r
+{\r
+    char *buf = snewn(2*len, char), *p, *q;\r
+    gpps(handle, name, def, buf, 2*len);\r
+    p = buf;\r
+    q = val;\r
+    while (*p) {\r
+       while (*p && *p != ',') {\r
+           int c = *p++;\r
+           if (c == '=')\r
+               c = '\t';\r
+           if (c == '\\')\r
+               c = *p++;\r
+           *q++ = c;\r
+       }\r
+       if (*p == ',')\r
+           p++;\r
+       *q++ = '\0';\r
+    }\r
+    *q = '\0';\r
+    sfree(buf);\r
+}\r
+\r
+/*\r
+ * Write a set of name/value pairs in the above format.\r
+ */\r
+static void wmap(void *handle, char const *key, char const *value, int len)\r
+{\r
+    char *buf = snewn(2*len, char), *p;\r
+    const char *q;\r
+    p = buf;\r
+    q = value;\r
+    while (*q) {\r
+       while (*q) {\r
+           int c = *q++;\r
+           if (c == '=' || c == ',' || c == '\\')\r
+               *p++ = '\\';\r
+           if (c == '\t')\r
+               c = '=';\r
+           *p++ = c;\r
+       }\r
+       *p++ = ',';\r
+       q++;\r
+    }\r
+    *p = '\0';\r
+    write_setting_s(handle, key, buf);\r
+    sfree(buf);\r
+}\r
+\r
+static int key2val(const struct keyvalwhere *mapping,\r
+                   int nmaps, char *key)\r
+{\r
+    int i;\r
+    for (i = 0; i < nmaps; i++)\r
+       if (!strcmp(mapping[i].s, key)) return mapping[i].v;\r
+    return -1;\r
+}\r
+\r
+static const char *val2key(const struct keyvalwhere *mapping,\r
+                           int nmaps, int val)\r
+{\r
+    int i;\r
+    for (i = 0; i < nmaps; i++)\r
+       if (mapping[i].v == val) return mapping[i].s;\r
+    return NULL;\r
+}\r
+\r
+/*\r
+ * Helper function to parse a comma-separated list of strings into\r
+ * a preference list array of values. Any missing values are added\r
+ * to the end and duplicates are weeded.\r
+ * XXX: assumes vals in 'mapping' are small +ve integers\r
+ */\r
+static void gprefs(void *sesskey, char *name, char *def,\r
+                  const struct keyvalwhere *mapping, int nvals,\r
+                  int *array)\r
+{\r
+    char commalist[256];\r
+    char *p, *q;\r
+    int i, j, n, v, pos;\r
+    unsigned long seen = 0;           /* bitmap for weeding dups etc */\r
+\r
+    /*\r
+     * Fetch the string which we'll parse as a comma-separated list.\r
+     */\r
+    gpps(sesskey, name, def, commalist, sizeof(commalist));\r
+\r
+    /*\r
+     * Go through that list and convert it into values.\r
+     */\r
+    n = 0;\r
+    p = commalist;\r
+    while (1) {\r
+        while (*p && *p == ',') p++;\r
+        if (!*p)\r
+            break;                     /* no more words */\r
+\r
+        q = p;\r
+        while (*p && *p != ',') p++;\r
+        if (*p) *p++ = '\0';\r
+\r
+        v = key2val(mapping, nvals, q);\r
+        if (v != -1 && !(seen & (1 << v))) {\r
+           seen |= (1 << v);\r
+           array[n++] = v;\r
+       }\r
+    }\r
+\r
+    /*\r
+     * Now go through 'mapping' and add values that weren't mentioned\r
+     * in the list we fetched. We may have to loop over it multiple\r
+     * times so that we add values before other values whose default\r
+     * positions depend on them.\r
+     */\r
+    while (n < nvals) {\r
+        for (i = 0; i < nvals; i++) {\r
+           assert(mapping[i].v < 32);\r
+\r
+           if (!(seen & (1 << mapping[i].v))) {\r
+                /*\r
+                 * This element needs adding. But can we add it yet?\r
+                 */\r
+                if (mapping[i].vrel != -1 && !(seen & (1 << mapping[i].vrel)))\r
+                    continue;          /* nope */\r
+\r
+                /*\r
+                 * OK, we can work out where to add this element, so\r
+                 * do so.\r
+                 */\r
+                if (mapping[i].vrel == -1) {\r
+                    pos = (mapping[i].where < 0 ? n : 0);\r
+                } else {\r
+                    for (j = 0; j < n; j++)\r
+                        if (array[j] == mapping[i].vrel)\r
+                            break;\r
+                    assert(j < n);     /* implied by (seen & (1<<vrel)) */\r
+                    pos = (mapping[i].where < 0 ? j : j+1);\r
+                }\r
+\r
+                /*\r
+                 * And add it.\r
+                 */\r
+                for (j = n-1; j >= pos; j--)\r
+                    array[j+1] = array[j];\r
+                array[pos] = mapping[i].v;\r
+                n++;\r
+            }\r
+        }\r
+    }\r
+}\r
+\r
+/* \r
+ * Write out a preference list.\r
+ */\r
+static void wprefs(void *sesskey, char *name,\r
+                  const struct keyvalwhere *mapping, int nvals,\r
+                  int *array)\r
+{\r
+    char *buf, *p;\r
+    int i, maxlen;\r
+\r
+    for (maxlen = i = 0; i < nvals; i++) {\r
+       const char *s = val2key(mapping, nvals, array[i]);\r
+       if (s) {\r
+            maxlen += 1 + strlen(s);\r
+        }\r
+    }\r
+\r
+    buf = snewn(maxlen, char);\r
+    p = buf;\r
+\r
+    for (i = 0; i < nvals; i++) {\r
+       const char *s = val2key(mapping, nvals, array[i]);\r
+       if (s) {\r
+            p += sprintf(p, "%s%s", (p > buf ? "," : ""), s);\r
+       }\r
+    }\r
+\r
+    assert(p - buf == maxlen - 1);     /* maxlen counted the NUL */\r
+\r
+    write_setting_s(sesskey, name, buf);\r
+\r
+    sfree(buf);\r
+}\r
+\r
+char *save_settings(char *section, Config * cfg)\r
+{\r
+    void *sesskey;\r
+    char *errmsg;\r
+\r
+    sesskey = open_settings_w(section, &errmsg);\r
+    if (!sesskey)\r
+       return errmsg;\r
+    save_open_settings(sesskey, cfg);\r
+    close_settings_w(sesskey);\r
+    return NULL;\r
+}\r
+\r
+void save_open_settings(void *sesskey, Config *cfg)\r
+{\r
+    int i;\r
+    char *p;\r
+\r
+    write_setting_i(sesskey, "Present", 1);\r
+    write_setting_s(sesskey, "HostName", cfg->host);\r
+    write_setting_filename(sesskey, "LogFileName", cfg->logfilename);\r
+    write_setting_i(sesskey, "LogType", cfg->logtype);\r
+    write_setting_i(sesskey, "LogFileClash", cfg->logxfovr);\r
+    write_setting_i(sesskey, "LogFlush", cfg->logflush);\r
+    write_setting_i(sesskey, "SSHLogOmitPasswords", cfg->logomitpass);\r
+    write_setting_i(sesskey, "SSHLogOmitData", cfg->logomitdata);\r
+    p = "raw";\r
+    {\r
+       const Backend *b = backend_from_proto(cfg->protocol);\r
+       if (b)\r
+           p = b->name;\r
+    }\r
+    write_setting_s(sesskey, "Protocol", p);\r
+    write_setting_i(sesskey, "PortNumber", cfg->port);\r
+    /* The CloseOnExit numbers are arranged in a different order from\r
+     * the standard FORCE_ON / FORCE_OFF / AUTO. */\r
+    write_setting_i(sesskey, "CloseOnExit", (cfg->close_on_exit+2)%3);\r
+    write_setting_i(sesskey, "WarnOnClose", !!cfg->warn_on_close);\r
+    write_setting_i(sesskey, "PingInterval", cfg->ping_interval / 60); /* minutes */\r
+    write_setting_i(sesskey, "PingIntervalSecs", cfg->ping_interval % 60);     /* seconds */\r
+    write_setting_i(sesskey, "TCPNoDelay", cfg->tcp_nodelay);\r
+    write_setting_i(sesskey, "TCPKeepalives", cfg->tcp_keepalives);\r
+    write_setting_s(sesskey, "TerminalType", cfg->termtype);\r
+    write_setting_s(sesskey, "TerminalSpeed", cfg->termspeed);\r
+    wmap(sesskey, "TerminalModes", cfg->ttymodes, lenof(cfg->ttymodes));\r
+\r
+    /* Address family selection */\r
+    write_setting_i(sesskey, "AddressFamily", cfg->addressfamily);\r
+\r
+    /* proxy settings */\r
+    write_setting_s(sesskey, "ProxyExcludeList", cfg->proxy_exclude_list);\r
+    write_setting_i(sesskey, "ProxyDNS", (cfg->proxy_dns+2)%3);\r
+    write_setting_i(sesskey, "ProxyLocalhost", cfg->even_proxy_localhost);\r
+    write_setting_i(sesskey, "ProxyMethod", cfg->proxy_type);\r
+    write_setting_s(sesskey, "ProxyHost", cfg->proxy_host);\r
+    write_setting_i(sesskey, "ProxyPort", cfg->proxy_port);\r
+    write_setting_s(sesskey, "ProxyUsername", cfg->proxy_username);\r
+    write_setting_s(sesskey, "ProxyPassword", cfg->proxy_password);\r
+    write_setting_s(sesskey, "ProxyTelnetCommand", cfg->proxy_telnet_command);\r
+    wmap(sesskey, "Environment", cfg->environmt, lenof(cfg->environmt));\r
+    write_setting_s(sesskey, "UserName", cfg->username);\r
+    write_setting_i(sesskey, "UserNameFromEnvironment", cfg->username_from_env);\r
+    write_setting_s(sesskey, "LocalUserName", cfg->localusername);\r
+    write_setting_i(sesskey, "NoPTY", cfg->nopty);\r
+    write_setting_i(sesskey, "Compression", cfg->compression);\r
+    write_setting_i(sesskey, "TryAgent", cfg->tryagent);\r
+    write_setting_i(sesskey, "AgentFwd", cfg->agentfwd);\r
+    write_setting_i(sesskey, "GssapiFwd", cfg->gssapifwd);\r
+    write_setting_i(sesskey, "ChangeUsername", cfg->change_username);\r
+    wprefs(sesskey, "Cipher", ciphernames, CIPHER_MAX,\r
+          cfg->ssh_cipherlist);\r
+    wprefs(sesskey, "KEX", kexnames, KEX_MAX, cfg->ssh_kexlist);\r
+    write_setting_i(sesskey, "RekeyTime", cfg->ssh_rekey_time);\r
+    write_setting_s(sesskey, "RekeyBytes", cfg->ssh_rekey_data);\r
+    write_setting_i(sesskey, "SshNoAuth", cfg->ssh_no_userauth);\r
+    write_setting_i(sesskey, "SshBanner", cfg->ssh_show_banner);\r
+    write_setting_i(sesskey, "AuthTIS", cfg->try_tis_auth);\r
+    write_setting_i(sesskey, "AuthKI", cfg->try_ki_auth);\r
+    write_setting_i(sesskey, "AuthGSSAPI", cfg->try_gssapi_auth);\r
+#ifndef NO_GSSAPI\r
+    wprefs(sesskey, "GSSLibs", gsslibkeywords, ngsslibs,\r
+          cfg->ssh_gsslist);\r
+    write_setting_filename(sesskey, "GSSCustom", cfg->ssh_gss_custom);\r
+#endif\r
+    write_setting_i(sesskey, "SshNoShell", cfg->ssh_no_shell);\r
+    write_setting_i(sesskey, "SshProt", cfg->sshprot);\r
+    write_setting_s(sesskey, "LogHost", cfg->loghost);\r
+    write_setting_i(sesskey, "SSH2DES", cfg->ssh2_des_cbc);\r
+    write_setting_filename(sesskey, "PublicKeyFile", cfg->keyfile);\r
+    write_setting_s(sesskey, "RemoteCommand", cfg->remote_cmd);\r
+    write_setting_i(sesskey, "RFCEnviron", cfg->rfc_environ);\r
+    write_setting_i(sesskey, "PassiveTelnet", cfg->passive_telnet);\r
+    write_setting_i(sesskey, "BackspaceIsDelete", cfg->bksp_is_delete);\r
+    write_setting_i(sesskey, "RXVTHomeEnd", cfg->rxvt_homeend);\r
+    write_setting_i(sesskey, "LinuxFunctionKeys", cfg->funky_type);\r
+    write_setting_i(sesskey, "NoApplicationKeys", cfg->no_applic_k);\r
+    write_setting_i(sesskey, "NoApplicationCursors", cfg->no_applic_c);\r
+    write_setting_i(sesskey, "NoMouseReporting", cfg->no_mouse_rep);\r
+    write_setting_i(sesskey, "NoRemoteResize", cfg->no_remote_resize);\r
+    write_setting_i(sesskey, "NoAltScreen", cfg->no_alt_screen);\r
+    write_setting_i(sesskey, "NoRemoteWinTitle", cfg->no_remote_wintitle);\r
+    write_setting_i(sesskey, "RemoteQTitleAction", cfg->remote_qtitle_action);\r
+    write_setting_i(sesskey, "NoDBackspace", cfg->no_dbackspace);\r
+    write_setting_i(sesskey, "NoRemoteCharset", cfg->no_remote_charset);\r
+    write_setting_i(sesskey, "ApplicationCursorKeys", cfg->app_cursor);\r
+    write_setting_i(sesskey, "ApplicationKeypad", cfg->app_keypad);\r
+    write_setting_i(sesskey, "NetHackKeypad", cfg->nethack_keypad);\r
+    write_setting_i(sesskey, "AltF4", cfg->alt_f4);\r
+    write_setting_i(sesskey, "AltSpace", cfg->alt_space);\r
+    write_setting_i(sesskey, "AltOnly", cfg->alt_only);\r
+    write_setting_i(sesskey, "ComposeKey", cfg->compose_key);\r
+    write_setting_i(sesskey, "CtrlAltKeys", cfg->ctrlaltkeys);\r
+    write_setting_i(sesskey, "TelnetKey", cfg->telnet_keyboard);\r
+    write_setting_i(sesskey, "TelnetRet", cfg->telnet_newline);\r
+    write_setting_i(sesskey, "LocalEcho", cfg->localecho);\r
+    write_setting_i(sesskey, "LocalEdit", cfg->localedit);\r
+    write_setting_s(sesskey, "Answerback", cfg->answerback);\r
+    write_setting_i(sesskey, "AlwaysOnTop", cfg->alwaysontop);\r
+    write_setting_i(sesskey, "FullScreenOnAltEnter", cfg->fullscreenonaltenter);\r
+    write_setting_i(sesskey, "HideMousePtr", cfg->hide_mouseptr);\r
+    write_setting_i(sesskey, "SunkenEdge", cfg->sunken_edge);\r
+    write_setting_i(sesskey, "WindowBorder", cfg->window_border);\r
+    write_setting_i(sesskey, "CurType", cfg->cursor_type);\r
+    write_setting_i(sesskey, "BlinkCur", cfg->blink_cur);\r
+    write_setting_i(sesskey, "Beep", cfg->beep);\r
+    write_setting_i(sesskey, "BeepInd", cfg->beep_ind);\r
+    write_setting_filename(sesskey, "BellWaveFile", cfg->bell_wavefile);\r
+    write_setting_i(sesskey, "BellOverload", cfg->bellovl);\r
+    write_setting_i(sesskey, "BellOverloadN", cfg->bellovl_n);\r
+    write_setting_i(sesskey, "BellOverloadT", cfg->bellovl_t\r
+#ifdef PUTTY_UNIX_H\r
+                   * 1000\r
+#endif\r
+                   );\r
+    write_setting_i(sesskey, "BellOverloadS", cfg->bellovl_s\r
+#ifdef PUTTY_UNIX_H\r
+                   * 1000\r
+#endif\r
+                   );\r
+    write_setting_i(sesskey, "ScrollbackLines", cfg->savelines);\r
+    write_setting_i(sesskey, "DECOriginMode", cfg->dec_om);\r
+    write_setting_i(sesskey, "AutoWrapMode", cfg->wrap_mode);\r
+    write_setting_i(sesskey, "LFImpliesCR", cfg->lfhascr);\r
+    write_setting_i(sesskey, "CRImpliesLF", cfg->crhaslf);\r
+    write_setting_i(sesskey, "DisableArabicShaping", cfg->arabicshaping);\r
+    write_setting_i(sesskey, "DisableBidi", cfg->bidi);\r
+    write_setting_i(sesskey, "WinNameAlways", cfg->win_name_always);\r
+    write_setting_s(sesskey, "WinTitle", cfg->wintitle);\r
+    write_setting_i(sesskey, "TermWidth", cfg->width);\r
+    write_setting_i(sesskey, "TermHeight", cfg->height);\r
+    write_setting_fontspec(sesskey, "Font", cfg->font);\r
+    write_setting_i(sesskey, "FontQuality", cfg->font_quality);\r
+    write_setting_i(sesskey, "FontVTMode", cfg->vtmode);\r
+    write_setting_i(sesskey, "UseSystemColours", cfg->system_colour);\r
+    write_setting_i(sesskey, "TryPalette", cfg->try_palette);\r
+    write_setting_i(sesskey, "ANSIColour", cfg->ansi_colour);\r
+    write_setting_i(sesskey, "Xterm256Colour", cfg->xterm_256_colour);\r
+    write_setting_i(sesskey, "BoldAsColour", cfg->bold_colour);\r
+\r
+    for (i = 0; i < 22; i++) {\r
+       char buf[20], buf2[30];\r
+       sprintf(buf, "Colour%d", i);\r
+       sprintf(buf2, "%d,%d,%d", cfg->colours[i][0],\r
+               cfg->colours[i][1], cfg->colours[i][2]);\r
+       write_setting_s(sesskey, buf, buf2);\r
+    }\r
+    write_setting_i(sesskey, "RawCNP", cfg->rawcnp);\r
+    write_setting_i(sesskey, "PasteRTF", cfg->rtf_paste);\r
+    write_setting_i(sesskey, "MouseIsXterm", cfg->mouse_is_xterm);\r
+    write_setting_i(sesskey, "RectSelect", cfg->rect_select);\r
+    write_setting_i(sesskey, "MouseOverride", cfg->mouse_override);\r
+    for (i = 0; i < 256; i += 32) {\r
+       char buf[20], buf2[256];\r
+       int j;\r
+       sprintf(buf, "Wordness%d", i);\r
+       *buf2 = '\0';\r
+       for (j = i; j < i + 32; j++) {\r
+           sprintf(buf2 + strlen(buf2), "%s%d",\r
+                   (*buf2 ? "," : ""), cfg->wordness[j]);\r
+       }\r
+       write_setting_s(sesskey, buf, buf2);\r
+    }\r
+    write_setting_s(sesskey, "LineCodePage", cfg->line_codepage);\r
+    write_setting_i(sesskey, "CJKAmbigWide", cfg->cjk_ambig_wide);\r
+    write_setting_i(sesskey, "UTF8Override", cfg->utf8_override);\r
+    write_setting_s(sesskey, "Printer", cfg->printer);\r
+    write_setting_i(sesskey, "CapsLockCyr", cfg->xlat_capslockcyr);\r
+    write_setting_i(sesskey, "ScrollBar", cfg->scrollbar);\r
+    write_setting_i(sesskey, "ScrollBarFullScreen", cfg->scrollbar_in_fullscreen);\r
+    write_setting_i(sesskey, "ScrollOnKey", cfg->scroll_on_key);\r
+    write_setting_i(sesskey, "ScrollOnDisp", cfg->scroll_on_disp);\r
+    write_setting_i(sesskey, "EraseToScrollback", cfg->erase_to_scrollback);\r
+    write_setting_i(sesskey, "LockSize", cfg->resize_action);\r
+    write_setting_i(sesskey, "BCE", cfg->bce);\r
+    write_setting_i(sesskey, "BlinkText", cfg->blinktext);\r
+    write_setting_i(sesskey, "X11Forward", cfg->x11_forward);\r
+    write_setting_s(sesskey, "X11Display", cfg->x11_display);\r
+    write_setting_i(sesskey, "X11AuthType", cfg->x11_auth);\r
+    write_setting_filename(sesskey, "X11AuthFile", cfg->xauthfile);\r
+    write_setting_i(sesskey, "LocalPortAcceptAll", cfg->lport_acceptall);\r
+    write_setting_i(sesskey, "RemotePortAcceptAll", cfg->rport_acceptall);\r
+    wmap(sesskey, "PortForwardings", cfg->portfwd, lenof(cfg->portfwd));\r
+    write_setting_i(sesskey, "BugIgnore1", 2-cfg->sshbug_ignore1);\r
+    write_setting_i(sesskey, "BugPlainPW1", 2-cfg->sshbug_plainpw1);\r
+    write_setting_i(sesskey, "BugRSA1", 2-cfg->sshbug_rsa1);\r
+    write_setting_i(sesskey, "BugIgnore2", 2-cfg->sshbug_ignore2);\r
+    write_setting_i(sesskey, "BugHMAC2", 2-cfg->sshbug_hmac2);\r
+    write_setting_i(sesskey, "BugDeriveKey2", 2-cfg->sshbug_derivekey2);\r
+    write_setting_i(sesskey, "BugRSAPad2", 2-cfg->sshbug_rsapad2);\r
+    write_setting_i(sesskey, "BugPKSessID2", 2-cfg->sshbug_pksessid2);\r
+    write_setting_i(sesskey, "BugRekey2", 2-cfg->sshbug_rekey2);\r
+    write_setting_i(sesskey, "BugMaxPkt2", 2-cfg->sshbug_maxpkt2);\r
+    write_setting_i(sesskey, "StampUtmp", cfg->stamp_utmp);\r
+    write_setting_i(sesskey, "LoginShell", cfg->login_shell);\r
+    write_setting_i(sesskey, "ScrollbarOnLeft", cfg->scrollbar_on_left);\r
+    write_setting_fontspec(sesskey, "BoldFont", cfg->boldfont);\r
+    write_setting_fontspec(sesskey, "WideFont", cfg->widefont);\r
+    write_setting_fontspec(sesskey, "WideBoldFont", cfg->wideboldfont);\r
+    write_setting_i(sesskey, "ShadowBold", cfg->shadowbold);\r
+    write_setting_i(sesskey, "ShadowBoldOffset", cfg->shadowboldoffset);\r
+    write_setting_s(sesskey, "SerialLine", cfg->serline);\r
+    write_setting_i(sesskey, "SerialSpeed", cfg->serspeed);\r
+    write_setting_i(sesskey, "SerialDataBits", cfg->serdatabits);\r
+    write_setting_i(sesskey, "SerialStopHalfbits", cfg->serstopbits);\r
+    write_setting_i(sesskey, "SerialParity", cfg->serparity);\r
+    write_setting_i(sesskey, "SerialFlowControl", cfg->serflow);\r
+    write_setting_s(sesskey, "WindowClass", cfg->winclass);\r
+}\r
+\r
+void load_settings(char *section, Config * cfg)\r
+{\r
+    void *sesskey;\r
+\r
+    sesskey = open_settings_r(section);\r
+    load_open_settings(sesskey, cfg);\r
+    close_settings_r(sesskey);\r
+\r
+    if (cfg_launchable(cfg))\r
+        add_session_to_jumplist(section);\r
+}\r
+\r
+void load_open_settings(void *sesskey, Config *cfg)\r
+{\r
+    int i;\r
+    char prot[10];\r
+\r
+    cfg->ssh_subsys = 0;              /* FIXME: load this properly */\r
+    cfg->remote_cmd_ptr = NULL;\r
+    cfg->remote_cmd_ptr2 = NULL;\r
+    cfg->ssh_nc_host[0] = '\0';\r
+\r
+    gpps(sesskey, "HostName", "", cfg->host, sizeof(cfg->host));\r
+    gppfile(sesskey, "LogFileName", &cfg->logfilename);\r
+    gppi(sesskey, "LogType", 0, &cfg->logtype);\r
+    gppi(sesskey, "LogFileClash", LGXF_ASK, &cfg->logxfovr);\r
+    gppi(sesskey, "LogFlush", 1, &cfg->logflush);\r
+    gppi(sesskey, "SSHLogOmitPasswords", 1, &cfg->logomitpass);\r
+    gppi(sesskey, "SSHLogOmitData", 0, &cfg->logomitdata);\r
+\r
+    gpps(sesskey, "Protocol", "default", prot, 10);\r
+    cfg->protocol = default_protocol;\r
+    cfg->port = default_port;\r
+    {\r
+       const Backend *b = backend_from_name(prot);\r
+       if (b) {\r
+           cfg->protocol = b->protocol;\r
+           gppi(sesskey, "PortNumber", default_port, &cfg->port);\r
+       }\r
+    }\r
+\r
+    /* Address family selection */\r
+    gppi(sesskey, "AddressFamily", ADDRTYPE_UNSPEC, &cfg->addressfamily);\r
+\r
+    /* The CloseOnExit numbers are arranged in a different order from\r
+     * the standard FORCE_ON / FORCE_OFF / AUTO. */\r
+    gppi(sesskey, "CloseOnExit", 1, &i); cfg->close_on_exit = (i+1)%3;\r
+    gppi(sesskey, "WarnOnClose", 1, &cfg->warn_on_close);\r
+    {\r
+       /* This is two values for backward compatibility with 0.50/0.51 */\r
+       int pingmin, pingsec;\r
+       gppi(sesskey, "PingInterval", 0, &pingmin);\r
+       gppi(sesskey, "PingIntervalSecs", 0, &pingsec);\r
+       cfg->ping_interval = pingmin * 60 + pingsec;\r
+    }\r
+    gppi(sesskey, "TCPNoDelay", 1, &cfg->tcp_nodelay);\r
+    gppi(sesskey, "TCPKeepalives", 0, &cfg->tcp_keepalives);\r
+    gpps(sesskey, "TerminalType", "xterm", cfg->termtype,\r
+        sizeof(cfg->termtype));\r
+    gpps(sesskey, "TerminalSpeed", "38400,38400", cfg->termspeed,\r
+        sizeof(cfg->termspeed));\r
+    {\r
+       /* This hardcodes a big set of defaults in any new saved\r
+        * sessions. Let's hope we don't change our mind. */\r
+       int i;\r
+       char *def = dupstr("");\r
+       /* Default: all set to "auto" */\r
+       for (i = 0; ttymodes[i]; i++) {\r
+           char *def2 = dupprintf("%s%s=A,", def, ttymodes[i]);\r
+           sfree(def);\r
+           def = def2;\r
+       }\r
+       gppmap(sesskey, "TerminalModes", def,\r
+              cfg->ttymodes, lenof(cfg->ttymodes));\r
+       sfree(def);\r
+    }\r
+\r
+    /* proxy settings */\r
+    gpps(sesskey, "ProxyExcludeList", "", cfg->proxy_exclude_list,\r
+        sizeof(cfg->proxy_exclude_list));\r
+    gppi(sesskey, "ProxyDNS", 1, &i); cfg->proxy_dns = (i+1)%3;\r
+    gppi(sesskey, "ProxyLocalhost", 0, &cfg->even_proxy_localhost);\r
+    gppi(sesskey, "ProxyMethod", -1, &cfg->proxy_type);\r
+    if (cfg->proxy_type == -1) {\r
+        int i;\r
+        gppi(sesskey, "ProxyType", 0, &i);\r
+        if (i == 0)\r
+            cfg->proxy_type = PROXY_NONE;\r
+        else if (i == 1)\r
+            cfg->proxy_type = PROXY_HTTP;\r
+        else if (i == 3)\r
+            cfg->proxy_type = PROXY_TELNET;\r
+        else if (i == 4)\r
+            cfg->proxy_type = PROXY_CMD;\r
+        else {\r
+            gppi(sesskey, "ProxySOCKSVersion", 5, &i);\r
+            if (i == 5)\r
+                cfg->proxy_type = PROXY_SOCKS5;\r
+            else\r
+                cfg->proxy_type = PROXY_SOCKS4;\r
+        }\r
+    }\r
+    gpps(sesskey, "ProxyHost", "proxy", cfg->proxy_host,\r
+        sizeof(cfg->proxy_host));\r
+    gppi(sesskey, "ProxyPort", 80, &cfg->proxy_port);\r
+    gpps(sesskey, "ProxyUsername", "", cfg->proxy_username,\r
+        sizeof(cfg->proxy_username));\r
+    gpps(sesskey, "ProxyPassword", "", cfg->proxy_password,\r
+        sizeof(cfg->proxy_password));\r
+    gpps(sesskey, "ProxyTelnetCommand", "connect %host %port\\n",\r
+        cfg->proxy_telnet_command, sizeof(cfg->proxy_telnet_command));\r
+    gppmap(sesskey, "Environment", "", cfg->environmt, lenof(cfg->environmt));\r
+    gpps(sesskey, "UserName", "", cfg->username, sizeof(cfg->username));\r
+    gppi(sesskey, "UserNameFromEnvironment", 0, &cfg->username_from_env);\r
+    gpps(sesskey, "LocalUserName", "", cfg->localusername,\r
+        sizeof(cfg->localusername));\r
+    gppi(sesskey, "NoPTY", 0, &cfg->nopty);\r
+    gppi(sesskey, "Compression", 0, &cfg->compression);\r
+    gppi(sesskey, "TryAgent", 1, &cfg->tryagent);\r
+    gppi(sesskey, "AgentFwd", 0, &cfg->agentfwd);\r
+    gppi(sesskey, "ChangeUsername", 0, &cfg->change_username);\r
+    gppi(sesskey, "GssapiFwd", 0, &cfg->gssapifwd);\r
+    gprefs(sesskey, "Cipher", "\0",\r
+          ciphernames, CIPHER_MAX, cfg->ssh_cipherlist);\r
+    {\r
+       /* Backward-compatibility: we used to have an option to\r
+        * disable gex under the "bugs" panel after one report of\r
+        * a server which offered it then choked, but we never got\r
+        * a server version string or any other reports. */\r
+       char *default_kexes;\r
+       gppi(sesskey, "BugDHGEx2", 0, &i); i = 2-i;\r
+       if (i == FORCE_ON)\r
+           default_kexes = "dh-group14-sha1,dh-group1-sha1,rsa,WARN,dh-gex-sha1";\r
+       else\r
+           default_kexes = "dh-gex-sha1,dh-group14-sha1,dh-group1-sha1,rsa,WARN";\r
+       gprefs(sesskey, "KEX", default_kexes,\r
+              kexnames, KEX_MAX, cfg->ssh_kexlist);\r
+    }\r
+    gppi(sesskey, "RekeyTime", 60, &cfg->ssh_rekey_time);\r
+    gpps(sesskey, "RekeyBytes", "1G", cfg->ssh_rekey_data,\r
+        sizeof(cfg->ssh_rekey_data));\r
+    gppi(sesskey, "SshProt", 2, &cfg->sshprot);\r
+    gpps(sesskey, "LogHost", "", cfg->loghost, sizeof(cfg->loghost));\r
+    gppi(sesskey, "SSH2DES", 0, &cfg->ssh2_des_cbc);\r
+    gppi(sesskey, "SshNoAuth", 0, &cfg->ssh_no_userauth);\r
+    gppi(sesskey, "SshBanner", 1, &cfg->ssh_show_banner);\r
+    gppi(sesskey, "AuthTIS", 0, &cfg->try_tis_auth);\r
+    gppi(sesskey, "AuthKI", 1, &cfg->try_ki_auth);\r
+    gppi(sesskey, "AuthGSSAPI", 1, &cfg->try_gssapi_auth);\r
+#ifndef NO_GSSAPI\r
+    gprefs(sesskey, "GSSLibs", "\0",\r
+          gsslibkeywords, ngsslibs, cfg->ssh_gsslist);\r
+    gppfile(sesskey, "GSSCustom", &cfg->ssh_gss_custom);\r
+#endif\r
+    gppi(sesskey, "SshNoShell", 0, &cfg->ssh_no_shell);\r
+    gppfile(sesskey, "PublicKeyFile", &cfg->keyfile);\r
+    gpps(sesskey, "RemoteCommand", "", cfg->remote_cmd,\r
+        sizeof(cfg->remote_cmd));\r
+    gppi(sesskey, "RFCEnviron", 0, &cfg->rfc_environ);\r
+    gppi(sesskey, "PassiveTelnet", 0, &cfg->passive_telnet);\r
+    gppi(sesskey, "BackspaceIsDelete", 1, &cfg->bksp_is_delete);\r
+    gppi(sesskey, "RXVTHomeEnd", 0, &cfg->rxvt_homeend);\r
+    gppi(sesskey, "LinuxFunctionKeys", 0, &cfg->funky_type);\r
+    gppi(sesskey, "NoApplicationKeys", 0, &cfg->no_applic_k);\r
+    gppi(sesskey, "NoApplicationCursors", 0, &cfg->no_applic_c);\r
+    gppi(sesskey, "NoMouseReporting", 0, &cfg->no_mouse_rep);\r
+    gppi(sesskey, "NoRemoteResize", 0, &cfg->no_remote_resize);\r
+    gppi(sesskey, "NoAltScreen", 0, &cfg->no_alt_screen);\r
+    gppi(sesskey, "NoRemoteWinTitle", 0, &cfg->no_remote_wintitle);\r
+    {\r
+       /* Backward compatibility */\r
+       int no_remote_qtitle;\r
+       gppi(sesskey, "NoRemoteQTitle", 1, &no_remote_qtitle);\r
+       /* We deliberately interpret the old setting of "no response" as\r
+        * "empty string". This changes the behaviour, but hopefully for\r
+        * the better; the user can always recover the old behaviour. */\r
+       gppi(sesskey, "RemoteQTitleAction",\r
+            no_remote_qtitle ? TITLE_EMPTY : TITLE_REAL,\r
+            &cfg->remote_qtitle_action);\r
+    }\r
+    gppi(sesskey, "NoDBackspace", 0, &cfg->no_dbackspace);\r
+    gppi(sesskey, "NoRemoteCharset", 0, &cfg->no_remote_charset);\r
+    gppi(sesskey, "ApplicationCursorKeys", 0, &cfg->app_cursor);\r
+    gppi(sesskey, "ApplicationKeypad", 0, &cfg->app_keypad);\r
+    gppi(sesskey, "NetHackKeypad", 0, &cfg->nethack_keypad);\r
+    gppi(sesskey, "AltF4", 1, &cfg->alt_f4);\r
+    gppi(sesskey, "AltSpace", 0, &cfg->alt_space);\r
+    gppi(sesskey, "AltOnly", 0, &cfg->alt_only);\r
+    gppi(sesskey, "ComposeKey", 0, &cfg->compose_key);\r
+    gppi(sesskey, "CtrlAltKeys", 1, &cfg->ctrlaltkeys);\r
+    gppi(sesskey, "TelnetKey", 0, &cfg->telnet_keyboard);\r
+    gppi(sesskey, "TelnetRet", 1, &cfg->telnet_newline);\r
+    gppi(sesskey, "LocalEcho", AUTO, &cfg->localecho);\r
+    gppi(sesskey, "LocalEdit", AUTO, &cfg->localedit);\r
+    gpps(sesskey, "Answerback", "PuTTY", cfg->answerback,\r
+        sizeof(cfg->answerback));\r
+    gppi(sesskey, "AlwaysOnTop", 0, &cfg->alwaysontop);\r
+    gppi(sesskey, "FullScreenOnAltEnter", 0, &cfg->fullscreenonaltenter);\r
+    gppi(sesskey, "HideMousePtr", 0, &cfg->hide_mouseptr);\r
+    gppi(sesskey, "SunkenEdge", 0, &cfg->sunken_edge);\r
+    gppi(sesskey, "WindowBorder", 1, &cfg->window_border);\r
+    gppi(sesskey, "CurType", 0, &cfg->cursor_type);\r
+    gppi(sesskey, "BlinkCur", 0, &cfg->blink_cur);\r
+    /* pedantic compiler tells me I can't use &cfg->beep as an int * :-) */\r
+    gppi(sesskey, "Beep", 1, &cfg->beep);\r
+    gppi(sesskey, "BeepInd", 0, &cfg->beep_ind);\r
+    gppfile(sesskey, "BellWaveFile", &cfg->bell_wavefile);\r
+    gppi(sesskey, "BellOverload", 1, &cfg->bellovl);\r
+    gppi(sesskey, "BellOverloadN", 5, &cfg->bellovl_n);\r
+    gppi(sesskey, "BellOverloadT", 2*TICKSPERSEC\r
+#ifdef PUTTY_UNIX_H\r
+                                  *1000\r
+#endif\r
+                                  , &i);\r
+    cfg->bellovl_t = i\r
+#ifdef PUTTY_UNIX_H\r
+                   / 1000\r
+#endif\r
+       ;\r
+    gppi(sesskey, "BellOverloadS", 5*TICKSPERSEC\r
+#ifdef PUTTY_UNIX_H\r
+                                  *1000\r
+#endif\r
+                                  , &i);\r
+    cfg->bellovl_s = i\r
+#ifdef PUTTY_UNIX_H\r
+                   / 1000\r
+#endif\r
+       ;\r
+    gppi(sesskey, "ScrollbackLines", 200, &cfg->savelines);\r
+    gppi(sesskey, "DECOriginMode", 0, &cfg->dec_om);\r
+    gppi(sesskey, "AutoWrapMode", 1, &cfg->wrap_mode);\r
+    gppi(sesskey, "LFImpliesCR", 0, &cfg->lfhascr);\r
+    gppi(sesskey, "CRImpliesLF", 0, &cfg->crhaslf);\r
+    gppi(sesskey, "DisableArabicShaping", 0, &cfg->arabicshaping);\r
+    gppi(sesskey, "DisableBidi", 0, &cfg->bidi);\r
+    gppi(sesskey, "WinNameAlways", 1, &cfg->win_name_always);\r
+    gpps(sesskey, "WinTitle", "", cfg->wintitle, sizeof(cfg->wintitle));\r
+    gppi(sesskey, "TermWidth", 80, &cfg->width);\r
+    gppi(sesskey, "TermHeight", 24, &cfg->height);\r
+    gppfont(sesskey, "Font", &cfg->font);\r
+    gppi(sesskey, "FontQuality", FQ_DEFAULT, &cfg->font_quality);\r
+    gppi(sesskey, "FontVTMode", VT_UNICODE, (int *) &cfg->vtmode);\r
+    gppi(sesskey, "UseSystemColours", 0, &cfg->system_colour);\r
+    gppi(sesskey, "TryPalette", 0, &cfg->try_palette);\r
+    gppi(sesskey, "ANSIColour", 1, &cfg->ansi_colour);\r
+    gppi(sesskey, "Xterm256Colour", 1, &cfg->xterm_256_colour);\r
+    gppi(sesskey, "BoldAsColour", 1, &cfg->bold_colour);\r
+\r
+    for (i = 0; i < 22; i++) {\r
+       static const char *const defaults[] = {\r
+           "187,187,187", "255,255,255", "0,0,0", "85,85,85", "0,0,0",\r
+           "0,255,0", "0,0,0", "85,85,85", "187,0,0", "255,85,85",\r
+           "0,187,0", "85,255,85", "187,187,0", "255,255,85", "0,0,187",\r
+           "85,85,255", "187,0,187", "255,85,255", "0,187,187",\r
+           "85,255,255", "187,187,187", "255,255,255"\r
+       };\r
+       char buf[20], buf2[30];\r
+       int c0, c1, c2;\r
+       sprintf(buf, "Colour%d", i);\r
+       gpps(sesskey, buf, defaults[i], buf2, sizeof(buf2));\r
+       if (sscanf(buf2, "%d,%d,%d", &c0, &c1, &c2) == 3) {\r
+           cfg->colours[i][0] = c0;\r
+           cfg->colours[i][1] = c1;\r
+           cfg->colours[i][2] = c2;\r
+       }\r
+    }\r
+    gppi(sesskey, "RawCNP", 0, &cfg->rawcnp);\r
+    gppi(sesskey, "PasteRTF", 0, &cfg->rtf_paste);\r
+    gppi(sesskey, "MouseIsXterm", 0, &cfg->mouse_is_xterm);\r
+    gppi(sesskey, "RectSelect", 0, &cfg->rect_select);\r
+    gppi(sesskey, "MouseOverride", 1, &cfg->mouse_override);\r
+    for (i = 0; i < 256; i += 32) {\r
+       static const char *const defaults[] = {\r
+           "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",\r
+           "0,1,2,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1,1",\r
+           "1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,2",\r
+           "1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1",\r
+           "1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1",\r
+           "1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1",\r
+           "2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,2,2,2,2,2,2,2,2",\r
+           "2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,2,2,2,2,2,2,2,2"\r
+       };\r
+       char buf[20], buf2[256], *p;\r
+       int j;\r
+       sprintf(buf, "Wordness%d", i);\r
+       gpps(sesskey, buf, defaults[i / 32], buf2, sizeof(buf2));\r
+       p = buf2;\r
+       for (j = i; j < i + 32; j++) {\r
+           char *q = p;\r
+           while (*p && *p != ',')\r
+               p++;\r
+           if (*p == ',')\r
+               *p++ = '\0';\r
+           cfg->wordness[j] = atoi(q);\r
+       }\r
+    }\r
+    /*\r
+     * The empty default for LineCodePage will be converted later\r
+     * into a plausible default for the locale.\r
+     */\r
+    gpps(sesskey, "LineCodePage", "", cfg->line_codepage,\r
+        sizeof(cfg->line_codepage));\r
+    gppi(sesskey, "CJKAmbigWide", 0, &cfg->cjk_ambig_wide);\r
+    gppi(sesskey, "UTF8Override", 1, &cfg->utf8_override);\r
+    gpps(sesskey, "Printer", "", cfg->printer, sizeof(cfg->printer));\r
+    gppi (sesskey, "CapsLockCyr", 0, &cfg->xlat_capslockcyr);\r
+    gppi(sesskey, "ScrollBar", 1, &cfg->scrollbar);\r
+    gppi(sesskey, "ScrollBarFullScreen", 0, &cfg->scrollbar_in_fullscreen);\r
+    gppi(sesskey, "ScrollOnKey", 0, &cfg->scroll_on_key);\r
+    gppi(sesskey, "ScrollOnDisp", 1, &cfg->scroll_on_disp);\r
+    gppi(sesskey, "EraseToScrollback", 1, &cfg->erase_to_scrollback);\r
+    gppi(sesskey, "LockSize", 0, &cfg->resize_action);\r
+    gppi(sesskey, "BCE", 1, &cfg->bce);\r
+    gppi(sesskey, "BlinkText", 0, &cfg->blinktext);\r
+    gppi(sesskey, "X11Forward", 0, &cfg->x11_forward);\r
+    gpps(sesskey, "X11Display", "", cfg->x11_display,\r
+        sizeof(cfg->x11_display));\r
+    gppi(sesskey, "X11AuthType", X11_MIT, &cfg->x11_auth);\r
+    gppfile(sesskey, "X11AuthFile", &cfg->xauthfile);\r
+\r
+    gppi(sesskey, "LocalPortAcceptAll", 0, &cfg->lport_acceptall);\r
+    gppi(sesskey, "RemotePortAcceptAll", 0, &cfg->rport_acceptall);\r
+    gppmap(sesskey, "PortForwardings", "", cfg->portfwd, lenof(cfg->portfwd));\r
+    gppi(sesskey, "BugIgnore1", 0, &i); cfg->sshbug_ignore1 = 2-i;\r
+    gppi(sesskey, "BugPlainPW1", 0, &i); cfg->sshbug_plainpw1 = 2-i;\r
+    gppi(sesskey, "BugRSA1", 0, &i); cfg->sshbug_rsa1 = 2-i;\r
+    gppi(sesskey, "BugIgnore2", 0, &i); cfg->sshbug_ignore2 = 2-i;\r
+    {\r
+       int i;\r
+       gppi(sesskey, "BugHMAC2", 0, &i); cfg->sshbug_hmac2 = 2-i;\r
+       if (cfg->sshbug_hmac2 == AUTO) {\r
+           gppi(sesskey, "BuggyMAC", 0, &i);\r
+           if (i == 1)\r
+               cfg->sshbug_hmac2 = FORCE_ON;\r
+       }\r
+    }\r
+    gppi(sesskey, "BugDeriveKey2", 0, &i); cfg->sshbug_derivekey2 = 2-i;\r
+    gppi(sesskey, "BugRSAPad2", 0, &i); cfg->sshbug_rsapad2 = 2-i;\r
+    gppi(sesskey, "BugPKSessID2", 0, &i); cfg->sshbug_pksessid2 = 2-i;\r
+    gppi(sesskey, "BugRekey2", 0, &i); cfg->sshbug_rekey2 = 2-i;\r
+    gppi(sesskey, "BugMaxPkt2", 0, &i); cfg->sshbug_maxpkt2 = 2-i;\r
+    cfg->ssh_simple = FALSE;\r
+    gppi(sesskey, "StampUtmp", 1, &cfg->stamp_utmp);\r
+    gppi(sesskey, "LoginShell", 1, &cfg->login_shell);\r
+    gppi(sesskey, "ScrollbarOnLeft", 0, &cfg->scrollbar_on_left);\r
+    gppi(sesskey, "ShadowBold", 0, &cfg->shadowbold);\r
+    gppfont(sesskey, "BoldFont", &cfg->boldfont);\r
+    gppfont(sesskey, "WideFont", &cfg->widefont);\r
+    gppfont(sesskey, "WideBoldFont", &cfg->wideboldfont);\r
+    gppi(sesskey, "ShadowBoldOffset", 1, &cfg->shadowboldoffset);\r
+    gpps(sesskey, "SerialLine", "", cfg->serline, sizeof(cfg->serline));\r
+    gppi(sesskey, "SerialSpeed", 9600, &cfg->serspeed);\r
+    gppi(sesskey, "SerialDataBits", 8, &cfg->serdatabits);\r
+    gppi(sesskey, "SerialStopHalfbits", 2, &cfg->serstopbits);\r
+    gppi(sesskey, "SerialParity", SER_PAR_NONE, &cfg->serparity);\r
+    gppi(sesskey, "SerialFlowControl", SER_FLOW_XONXOFF, &cfg->serflow);\r
+    gpps(sesskey, "WindowClass", "", cfg->winclass, sizeof(cfg->winclass));\r
+}\r
+\r
+void do_defaults(char *session, Config * cfg)\r
+{\r
+    load_settings(session, cfg);\r
+}\r
+\r
+static int sessioncmp(const void *av, const void *bv)\r
+{\r
+    const char *a = *(const char *const *) av;\r
+    const char *b = *(const char *const *) bv;\r
+\r
+    /*\r
+     * Alphabetical order, except that "Default Settings" is a\r
+     * special case and comes first.\r
+     */\r
+    if (!strcmp(a, "Default Settings"))\r
+       return -1;                     /* a comes first */\r
+    if (!strcmp(b, "Default Settings"))\r
+       return +1;                     /* b comes first */\r
+    /*\r
+     * FIXME: perhaps we should ignore the first & in determining\r
+     * sort order.\r
+     */\r
+    return strcmp(a, b);              /* otherwise, compare normally */\r
+}\r
+\r
+void get_sesslist(struct sesslist *list, int allocate)\r
+{\r
+    char otherbuf[2048];\r
+    int buflen, bufsize, i;\r
+    char *p, *ret;\r
+    void *handle;\r
+\r
+    if (allocate) {\r
+\r
+       buflen = bufsize = 0;\r
+       list->buffer = NULL;\r
+       if ((handle = enum_settings_start()) != NULL) {\r
+           do {\r
+               ret = enum_settings_next(handle, otherbuf, sizeof(otherbuf));\r
+               if (ret) {\r
+                   int len = strlen(otherbuf) + 1;\r
+                   if (bufsize < buflen + len) {\r
+                       bufsize = buflen + len + 2048;\r
+                       list->buffer = sresize(list->buffer, bufsize, char);\r
+                   }\r
+                   strcpy(list->buffer + buflen, otherbuf);\r
+                   buflen += strlen(list->buffer + buflen) + 1;\r
+               }\r
+           } while (ret);\r
+           enum_settings_finish(handle);\r
+       }\r
+       list->buffer = sresize(list->buffer, buflen + 1, char);\r
+       list->buffer[buflen] = '\0';\r
+\r
+       /*\r
+        * Now set up the list of sessions. Note that "Default\r
+        * Settings" must always be claimed to exist, even if it\r
+        * doesn't really.\r
+        */\r
+\r
+       p = list->buffer;\r
+       list->nsessions = 1;           /* "Default Settings" counts as one */\r
+       while (*p) {\r
+           if (strcmp(p, "Default Settings"))\r
+               list->nsessions++;\r
+           while (*p)\r
+               p++;\r
+           p++;\r
+       }\r
+\r
+       list->sessions = snewn(list->nsessions + 1, char *);\r
+       list->sessions[0] = "Default Settings";\r
+       p = list->buffer;\r
+       i = 1;\r
+       while (*p) {\r
+           if (strcmp(p, "Default Settings"))\r
+               list->sessions[i++] = p;\r
+           while (*p)\r
+               p++;\r
+           p++;\r
+       }\r
+\r
+       qsort(list->sessions, i, sizeof(char *), sessioncmp);\r
+    } else {\r
+       sfree(list->buffer);\r
+       sfree(list->sessions);\r
+       list->buffer = NULL;\r
+       list->sessions = NULL;\r
+    }\r
+}\r