]> asedeno.scripts.mit.edu Git - PuTTY.git/blob - settings.c
Reintroduce Cyrillic Caps Lock mode, which was in 0.51 but got
[PuTTY.git] / settings.c
1 /*
2  * settings.c: read and write saved sessions.
3  */
4
5 #include <windows.h>
6 #include <stdio.h>
7 #include <stdlib.h>
8 #include "putty.h"
9 #include "storage.h"
10
11 /*
12  * Tables of string <-> enum value mappings
13  */
14 struct keyval { char *s; int v; };
15
16 static const struct keyval ciphernames[] = {
17     { "aes",        CIPHER_AES },
18     { "blowfish",   CIPHER_BLOWFISH },
19     { "3des",       CIPHER_3DES },
20     { "WARN",       CIPHER_WARN },
21     { "des",        CIPHER_DES }
22 };
23
24 static void gpps(void *handle, char *name, char *def, char *val, int len)
25 {
26     if (!read_setting_s(handle, name, val, len)) {
27         strncpy(val, def, len);
28         val[len - 1] = '\0';
29     }
30 }
31
32 static void gppi(void *handle, char *name, int def, int *i)
33 {
34     *i = read_setting_i(handle, name, def);
35 }
36
37 static int key2val(const struct keyval *mapping, int nmaps, char *key)
38 {
39     int i;
40     for (i = 0; i < nmaps; i++)
41         if (!strcmp(mapping[i].s, key)) return mapping[i].v;
42     return -1;
43 }
44
45 static const char *val2key(const struct keyval *mapping, int nmaps, int val)
46 {
47     int i;
48     for (i = 0; i < nmaps; i++)
49         if (mapping[i].v == val) return mapping[i].s;
50     return NULL;
51 }
52
53 /*
54  * Helper function to parse a comma-separated list of strings into
55  * a preference list array of values. Any missing values are added
56  * to the end and duplicates are weeded.
57  * XXX: assumes vals in 'mapping' are small +ve integers
58  */
59 static void gprefs(void *sesskey, char *name, char *def,
60                    const struct keyval *mapping, int nvals,
61                    int *array)
62 {
63     char commalist[80];
64     int n;
65     unsigned long seen = 0;            /* bitmap for weeding dups etc */
66     gpps(sesskey, name, def, commalist, sizeof(commalist));
67
68     /* Grotty parsing of commalist. */
69     n = 0;
70     do {
71         int v;
72         char *key;
73         key = strtok(n==0 ? commalist : NULL, ","); /* sorry */
74         if (!key) break;
75         if (((v = key2val(mapping, nvals, key)) != -1) &&
76             !(seen & 1<<v)) {
77             array[n] = v;
78             n++;
79             seen |= 1<<v;
80         }
81     } while (n < nvals);
82     /* Add any missing values (backward compatibility ect). */
83     {
84         int i;
85         for (i = 0; i < nvals; i++) {
86             if (!(seen & 1<<mapping[i].v)) {
87                 array[n] = mapping[i].v;
88                 n++;
89             }
90         }
91     }
92 }
93
94 /* 
95  * Write out a preference list.
96  */
97 static void wprefs(void *sesskey, char *name,
98                    const struct keyval *mapping, int nvals,
99                    int *array)
100 {
101     char buf[80] = "";  /* XXX assumed big enough */
102     int l = sizeof(buf)-1, i;
103     buf[l] = '\0';
104     for (i = 0; l > 0 && i < nvals; i++) {
105         const char *s = val2key(mapping, nvals, array[i]);
106         if (s) {
107             int sl = strlen(s);
108             if (i > 0) {
109                 strncat(buf, ",", l);
110                 l--;
111             }
112             strncat(buf, s, l);
113             l -= sl;
114         }
115     }
116     write_setting_s(sesskey, name, buf);
117 }
118
119 void save_settings(char *section, int do_host, Config * cfg)
120 {
121     int i;
122     char *p;
123     void *sesskey;
124
125     sesskey = open_settings_w(section);
126     if (!sesskey)
127         return;
128
129     write_setting_i(sesskey, "Present", 1);
130     if (do_host) {
131         write_setting_s(sesskey, "HostName", cfg->host);
132         write_setting_s(sesskey, "LogFileName", cfg->logfilename);
133         write_setting_i(sesskey, "LogType", cfg->logtype);
134         write_setting_i(sesskey, "LogFileClash", cfg->logxfovr);
135     }
136     p = "raw";
137     for (i = 0; backends[i].name != NULL; i++)
138         if (backends[i].protocol == cfg->protocol) {
139             p = backends[i].name;
140             break;
141         }
142     write_setting_s(sesskey, "Protocol", p);
143     write_setting_i(sesskey, "PortNumber", cfg->port);
144     write_setting_i(sesskey, "CloseOnExit", cfg->close_on_exit);
145     write_setting_i(sesskey, "WarnOnClose", !!cfg->warn_on_close);
146     write_setting_i(sesskey, "PingInterval", cfg->ping_interval / 60);  /* minutes */
147     write_setting_i(sesskey, "PingIntervalSecs", cfg->ping_interval % 60);      /* seconds */
148     write_setting_s(sesskey, "TerminalType", cfg->termtype);
149     write_setting_s(sesskey, "TerminalSpeed", cfg->termspeed);
150     {
151         char buf[2 * sizeof(cfg->environmt)], *p, *q;
152         p = buf;
153         q = cfg->environmt;
154         while (*q) {
155             while (*q) {
156                 int c = *q++;
157                 if (c == '=' || c == ',' || c == '\\')
158                     *p++ = '\\';
159                 if (c == '\t')
160                     c = '=';
161                 *p++ = c;
162             }
163             *p++ = ',';
164             q++;
165         }
166         *p = '\0';
167         write_setting_s(sesskey, "Environment", buf);
168     }
169     write_setting_s(sesskey, "UserName", cfg->username);
170     write_setting_s(sesskey, "LocalUserName", cfg->localusername);
171     write_setting_i(sesskey, "NoPTY", cfg->nopty);
172     write_setting_i(sesskey, "Compression", cfg->compression);
173     write_setting_i(sesskey, "AgentFwd", cfg->agentfwd);
174     wprefs(sesskey, "Cipher", ciphernames, CIPHER_MAX,
175            cfg->ssh_cipherlist);
176     write_setting_i(sesskey, "AuthTIS", cfg->try_tis_auth);
177     write_setting_i(sesskey, "SshProt", cfg->sshprot);
178     write_setting_i(sesskey, "BuggyMAC", cfg->buggymac);
179     write_setting_s(sesskey, "PublicKeyFile", cfg->keyfile);
180     write_setting_s(sesskey, "RemoteCommand", cfg->remote_cmd);
181     write_setting_i(sesskey, "RFCEnviron", cfg->rfc_environ);
182     write_setting_i(sesskey, "PassiveTelnet", cfg->passive_telnet);
183     write_setting_i(sesskey, "BackspaceIsDelete", cfg->bksp_is_delete);
184     write_setting_i(sesskey, "RXVTHomeEnd", cfg->rxvt_homeend);
185     write_setting_i(sesskey, "LinuxFunctionKeys", cfg->funky_type);
186     write_setting_i(sesskey, "NoApplicationKeys", cfg->no_applic_k);
187     write_setting_i(sesskey, "NoApplicationCursors", cfg->no_applic_c);
188     write_setting_i(sesskey, "ApplicationCursorKeys", cfg->app_cursor);
189     write_setting_i(sesskey, "ApplicationKeypad", cfg->app_keypad);
190     write_setting_i(sesskey, "NetHackKeypad", cfg->nethack_keypad);
191     write_setting_i(sesskey, "AltF4", cfg->alt_f4);
192     write_setting_i(sesskey, "AltSpace", cfg->alt_space);
193     write_setting_i(sesskey, "AltOnly", cfg->alt_only);
194     write_setting_i(sesskey, "ComposeKey", cfg->compose_key);
195     write_setting_i(sesskey, "CtrlAltKeys", cfg->ctrlaltkeys);
196     write_setting_i(sesskey, "TelnetKey", cfg->telnet_keyboard);
197     write_setting_i(sesskey, "LocalEcho", cfg->localecho);
198     write_setting_i(sesskey, "LocalEdit", cfg->localedit);
199     write_setting_s(sesskey, "Answerback", cfg->answerback);
200     write_setting_i(sesskey, "AlwaysOnTop", cfg->alwaysontop);
201     write_setting_i(sesskey, "FullScreenOnAltEnter", cfg->fullscreenonaltenter);
202     write_setting_i(sesskey, "HideMousePtr", cfg->hide_mouseptr);
203     write_setting_i(sesskey, "SunkenEdge", cfg->sunken_edge);
204     write_setting_i(sesskey, "WindowBorder", cfg->window_border);
205     write_setting_i(sesskey, "CurType", cfg->cursor_type);
206     write_setting_i(sesskey, "BlinkCur", cfg->blink_cur);
207     write_setting_i(sesskey, "Beep", cfg->beep);
208     write_setting_i(sesskey, "BeepInd", cfg->beep_ind);
209     write_setting_s(sesskey, "BellWaveFile", cfg->bell_wavefile);
210     write_setting_i(sesskey, "BellOverload", cfg->bellovl);
211     write_setting_i(sesskey, "BellOverloadN", cfg->bellovl_n);
212     write_setting_i(sesskey, "BellOverloadT", cfg->bellovl_t);
213     write_setting_i(sesskey, "BellOverloadS", cfg->bellovl_s);
214     write_setting_i(sesskey, "ScrollbackLines", cfg->savelines);
215     write_setting_i(sesskey, "DECOriginMode", cfg->dec_om);
216     write_setting_i(sesskey, "AutoWrapMode", cfg->wrap_mode);
217     write_setting_i(sesskey, "LFImpliesCR", cfg->lfhascr);
218     write_setting_i(sesskey, "WinNameAlways", cfg->win_name_always);
219     write_setting_s(sesskey, "WinTitle", cfg->wintitle);
220     write_setting_i(sesskey, "TermWidth", cfg->width);
221     write_setting_i(sesskey, "TermHeight", cfg->height);
222     write_setting_s(sesskey, "Font", cfg->font);
223     write_setting_i(sesskey, "FontIsBold", cfg->fontisbold);
224     write_setting_i(sesskey, "FontCharSet", cfg->fontcharset);
225     write_setting_i(sesskey, "FontHeight", cfg->fontheight);
226     write_setting_i(sesskey, "FontVTMode", cfg->vtmode);
227     write_setting_i(sesskey, "TryPalette", cfg->try_palette);
228     write_setting_i(sesskey, "BoldAsColour", cfg->bold_colour);
229     for (i = 0; i < 22; i++) {
230         char buf[20], buf2[30];
231         sprintf(buf, "Colour%d", i);
232         sprintf(buf2, "%d,%d,%d", cfg->colours[i][0],
233                 cfg->colours[i][1], cfg->colours[i][2]);
234         write_setting_s(sesskey, buf, buf2);
235     }
236     write_setting_i(sesskey, "RawCNP", cfg->rawcnp);
237     write_setting_i(sesskey, "MouseIsXterm", cfg->mouse_is_xterm);
238     write_setting_i(sesskey, "MouseOverride", cfg->mouse_override);
239     for (i = 0; i < 256; i += 32) {
240         char buf[20], buf2[256];
241         int j;
242         sprintf(buf, "Wordness%d", i);
243         *buf2 = '\0';
244         for (j = i; j < i + 32; j++) {
245             sprintf(buf2 + strlen(buf2), "%s%d",
246                     (*buf2 ? "," : ""), cfg->wordness[j]);
247         }
248         write_setting_s(sesskey, buf, buf2);
249     }
250     write_setting_s(sesskey, "LineCodePage", cfg->line_codepage);
251     write_setting_i(sesskey, "CapsLockCyr", cfg->xlat_capslockcyr);
252     write_setting_i(sesskey, "ScrollBar", cfg->scrollbar);
253     write_setting_i(sesskey, "ScrollOnKey", cfg->scroll_on_key);
254     write_setting_i(sesskey, "ScrollOnDisp", cfg->scroll_on_disp);
255     write_setting_i(sesskey, "LockSize", cfg->locksize);
256     write_setting_i(sesskey, "LockFont", cfg->lockfont);
257     write_setting_i(sesskey, "BCE", cfg->bce);
258     write_setting_i(sesskey, "BlinkText", cfg->blinktext);
259     write_setting_i(sesskey, "X11Forward", cfg->x11_forward);
260     write_setting_s(sesskey, "X11Display", cfg->x11_display);
261     write_setting_i(sesskey, "LocalPortAcceptAll", cfg->lport_acceptall);
262     {
263         char buf[2 * sizeof(cfg->portfwd)], *p, *q;
264         p = buf;
265         q = cfg->portfwd;
266         while (*q) {
267             while (*q) {
268                 int c = *q++;
269                 if (c == '=' || c == ',' || c == '\\')
270                     *p++ = '\\';
271                 if (c == '\t')
272                     c = '=';
273                 *p++ = c;
274             }
275             *p++ = ',';
276             q++;
277         }
278         *p = '\0';
279         write_setting_s(sesskey, "PortForwardings", buf);
280     }
281
282     close_settings_w(sesskey);
283 }
284
285 void load_settings(char *section, int do_host, Config * cfg)
286 {
287     int i;
288     char prot[10];
289     void *sesskey;
290
291     sesskey = open_settings_r(section);
292
293     cfg->ssh_subsys = 0;               /* FIXME: load this properly */
294     cfg->remote_cmd_ptr = cfg->remote_cmd;
295     cfg->remote_cmd_ptr2 = NULL;
296
297     gpps(sesskey, "HostName", "", cfg->host, sizeof(cfg->host));
298     gpps(sesskey, "LogFileName", "putty.log",
299          cfg->logfilename, sizeof(cfg->logfilename));
300     gppi(sesskey, "LogType", 0, &cfg->logtype);
301     gppi(sesskey, "LogFileClash", LGXF_ASK, &cfg->logxfovr);
302
303     gpps(sesskey, "Protocol", "default", prot, 10);
304     cfg->protocol = default_protocol;
305     cfg->port = default_port;
306     for (i = 0; backends[i].name != NULL; i++)
307         if (!strcmp(prot, backends[i].name)) {
308             cfg->protocol = backends[i].protocol;
309             gppi(sesskey, "PortNumber", default_port, &cfg->port);
310             break;
311         }
312
313     gppi(sesskey, "CloseOnExit", COE_NORMAL, &cfg->close_on_exit);
314     gppi(sesskey, "WarnOnClose", 1, &cfg->warn_on_close);
315     {
316         /* This is two values for backward compatibility with 0.50/0.51 */
317         int pingmin, pingsec;
318         gppi(sesskey, "PingInterval", 0, &pingmin);
319         gppi(sesskey, "PingIntervalSecs", 0, &pingsec);
320         cfg->ping_interval = pingmin * 60 + pingsec;
321     }
322     gpps(sesskey, "TerminalType", "xterm", cfg->termtype,
323          sizeof(cfg->termtype));
324     gpps(sesskey, "TerminalSpeed", "38400,38400", cfg->termspeed,
325          sizeof(cfg->termspeed));
326     {
327         char buf[2 * sizeof(cfg->environmt)], *p, *q;
328         gpps(sesskey, "Environment", "", buf, sizeof(buf));
329         p = buf;
330         q = cfg->environmt;
331         while (*p) {
332             while (*p && *p != ',') {
333                 int c = *p++;
334                 if (c == '=')
335                     c = '\t';
336                 if (c == '\\')
337                     c = *p++;
338                 *q++ = c;
339             }
340             if (*p == ',')
341                 p++;
342             *q++ = '\0';
343         }
344         *q = '\0';
345     }
346     gpps(sesskey, "UserName", "", cfg->username, sizeof(cfg->username));
347     gpps(sesskey, "LocalUserName", "", cfg->localusername,
348          sizeof(cfg->localusername));
349     gppi(sesskey, "NoPTY", 0, &cfg->nopty);
350     gppi(sesskey, "Compression", 0, &cfg->compression);
351     gppi(sesskey, "AgentFwd", 0, &cfg->agentfwd);
352     gprefs(sesskey, "Cipher", "\0",
353            ciphernames, CIPHER_MAX, cfg->ssh_cipherlist);
354     gppi(sesskey, "SshProt", 1, &cfg->sshprot);
355     gppi(sesskey, "BuggyMAC", 0, &cfg->buggymac);
356     gppi(sesskey, "AuthTIS", 0, &cfg->try_tis_auth);
357     gpps(sesskey, "PublicKeyFile", "", cfg->keyfile, sizeof(cfg->keyfile));
358     gpps(sesskey, "RemoteCommand", "", cfg->remote_cmd,
359          sizeof(cfg->remote_cmd));
360     gppi(sesskey, "RFCEnviron", 0, &cfg->rfc_environ);
361     gppi(sesskey, "PassiveTelnet", 0, &cfg->passive_telnet);
362     gppi(sesskey, "BackspaceIsDelete", 1, &cfg->bksp_is_delete);
363     gppi(sesskey, "RXVTHomeEnd", 0, &cfg->rxvt_homeend);
364     gppi(sesskey, "LinuxFunctionKeys", 0, &cfg->funky_type);
365     gppi(sesskey, "NoApplicationKeys", 0, &cfg->no_applic_k);
366     gppi(sesskey, "NoApplicationCursors", 0, &cfg->no_applic_c);
367     gppi(sesskey, "ApplicationCursorKeys", 0, &cfg->app_cursor);
368     gppi(sesskey, "ApplicationKeypad", 0, &cfg->app_keypad);
369     gppi(sesskey, "NetHackKeypad", 0, &cfg->nethack_keypad);
370     gppi(sesskey, "AltF4", 1, &cfg->alt_f4);
371     gppi(sesskey, "AltSpace", 0, &cfg->alt_space);
372     gppi(sesskey, "AltOnly", 0, &cfg->alt_only);
373     gppi(sesskey, "ComposeKey", 0, &cfg->compose_key);
374     gppi(sesskey, "CtrlAltKeys", 1, &cfg->ctrlaltkeys);
375     gppi(sesskey, "TelnetKey", 0, &cfg->telnet_keyboard);
376     gppi(sesskey, "LocalEcho", LD_BACKEND, &cfg->localecho);
377     gppi(sesskey, "LocalEdit", LD_BACKEND, &cfg->localedit);
378     gpps(sesskey, "Answerback", "PuTTY", cfg->answerback,
379          sizeof(cfg->answerback));
380     gppi(sesskey, "AlwaysOnTop", 0, &cfg->alwaysontop);
381     gppi(sesskey, "FullScreenOnAltEnter", 0, &cfg->fullscreenonaltenter);
382     gppi(sesskey, "HideMousePtr", 0, &cfg->hide_mouseptr);
383     gppi(sesskey, "SunkenEdge", 0, &cfg->sunken_edge);
384     gppi(sesskey, "WindowBorder", 1, &cfg->window_border);
385     gppi(sesskey, "CurType", 0, &cfg->cursor_type);
386     gppi(sesskey, "BlinkCur", 0, &cfg->blink_cur);
387     /* pedantic compiler tells me I can't use &cfg->beep as an int * :-) */
388     gppi(sesskey, "Beep", 1, &i); cfg->beep = i;
389     gppi(sesskey, "BeepInd", 0, &i); cfg->beep_ind = i;
390     gpps(sesskey, "BellWaveFile", "", cfg->bell_wavefile,
391          sizeof(cfg->bell_wavefile));
392     gppi(sesskey, "BellOverload", 1, &cfg->bellovl);
393     gppi(sesskey, "BellOverloadN", 5, &cfg->bellovl_n);
394     gppi(sesskey, "BellOverloadT", 2000, &cfg->bellovl_t);
395     gppi(sesskey, "BellOverloadS", 5000, &cfg->bellovl_s);
396     gppi(sesskey, "ScrollbackLines", 200, &cfg->savelines);
397     gppi(sesskey, "DECOriginMode", 0, &cfg->dec_om);
398     gppi(sesskey, "AutoWrapMode", 1, &cfg->wrap_mode);
399     gppi(sesskey, "LFImpliesCR", 0, &cfg->lfhascr);
400     gppi(sesskey, "WinNameAlways", 0, &cfg->win_name_always);
401     gpps(sesskey, "WinTitle", "", cfg->wintitle, sizeof(cfg->wintitle));
402     gppi(sesskey, "TermWidth", 80, &cfg->width);
403     gppi(sesskey, "TermHeight", 24, &cfg->height);
404     gpps(sesskey, "Font", "Courier New", cfg->font, sizeof(cfg->font));
405     gppi(sesskey, "FontIsBold", 0, &cfg->fontisbold);
406     gppi(sesskey, "FontCharSet", ANSI_CHARSET, &cfg->fontcharset);
407     gppi(sesskey, "FontHeight", 10, &cfg->fontheight);
408     if (cfg->fontheight < 0) {
409         int oldh, newh;
410         HDC hdc = GetDC(NULL);
411         int logpix = GetDeviceCaps(hdc, LOGPIXELSY);
412         ReleaseDC(NULL, hdc);
413
414         oldh = -cfg->fontheight;
415         newh = MulDiv(oldh, 72, logpix) + 1;
416         if (MulDiv(newh, logpix, 72) > oldh)
417             newh--;
418         cfg->fontheight = newh;
419     }
420     gppi(sesskey, "FontVTMode", VT_UNICODE, (int *) &cfg->vtmode);
421     gppi(sesskey, "TryPalette", 0, &cfg->try_palette);
422     gppi(sesskey, "BoldAsColour", 1, &cfg->bold_colour);
423     for (i = 0; i < 22; i++) {
424         static char *defaults[] = {
425             "187,187,187", "255,255,255", "0,0,0", "85,85,85", "0,0,0",
426             "0,255,0", "0,0,0", "85,85,85", "187,0,0", "255,85,85",
427             "0,187,0", "85,255,85", "187,187,0", "255,255,85", "0,0,187",
428             "85,85,255", "187,0,187", "255,85,255", "0,187,187",
429             "85,255,255", "187,187,187", "255,255,255"
430         };
431         char buf[20], buf2[30];
432         int c0, c1, c2;
433         sprintf(buf, "Colour%d", i);
434         gpps(sesskey, buf, defaults[i], buf2, sizeof(buf2));
435         if (sscanf(buf2, "%d,%d,%d", &c0, &c1, &c2) == 3) {
436             cfg->colours[i][0] = c0;
437             cfg->colours[i][1] = c1;
438             cfg->colours[i][2] = c2;
439         }
440     }
441     gppi(sesskey, "RawCNP", 0, &cfg->rawcnp);
442     gppi(sesskey, "MouseIsXterm", 0, &cfg->mouse_is_xterm);
443     gppi(sesskey, "MouseOverride", 1, &cfg->mouse_override);
444     for (i = 0; i < 256; i += 32) {
445         static char *defaults[] = {
446             "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",
447             "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",
448             "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",
449             "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",
450             "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",
451             "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",
452             "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",
453             "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"
454         };
455         char buf[20], buf2[256], *p;
456         int j;
457         sprintf(buf, "Wordness%d", i);
458         gpps(sesskey, buf, defaults[i / 32], buf2, sizeof(buf2));
459         p = buf2;
460         for (j = i; j < i + 32; j++) {
461             char *q = p;
462             while (*p && *p != ',')
463                 p++;
464             if (*p == ',')
465                 *p++ = '\0';
466             cfg->wordness[j] = atoi(q);
467         }
468     }
469     /*
470      * The empty default for LineCodePage will be converted later
471      * into a plausible default for the locale.
472      */
473     gpps(sesskey, "LineCodePage", "", cfg->line_codepage,
474          sizeof(cfg->line_codepage));
475     gppi (sesskey, "CapsLockCyr", 0, &cfg->xlat_capslockcyr);
476     gppi(sesskey, "ScrollBar", 1, &cfg->scrollbar);
477     gppi(sesskey, "ScrollOnKey", 0, &cfg->scroll_on_key);
478     gppi(sesskey, "ScrollOnDisp", 1, &cfg->scroll_on_disp);
479     gppi(sesskey, "LockSize", 0, &cfg->locksize);
480     gppi(sesskey, "LockFont", cfg->locksize, &cfg->lockfont);
481     gppi(sesskey, "BCE", 0, &cfg->bce);
482     gppi(sesskey, "BlinkText", 0, &cfg->blinktext);
483     gppi(sesskey, "X11Forward", 0, &cfg->x11_forward);
484     gpps(sesskey, "X11Display", "localhost:0", cfg->x11_display,
485          sizeof(cfg->x11_display));
486
487     gppi(sesskey, "LocalPortAcceptAll", 0, &cfg->lport_acceptall);
488     {
489         char buf[2 * sizeof(cfg->portfwd)], *p, *q;
490         gpps(sesskey, "PortForwardings", "", buf, sizeof(buf));
491         p = buf;
492         q = cfg->portfwd;
493         while (*p) {
494             while (*p && *p != ',') {
495                 int c = *p++;
496                 if (c == '=')
497                     c = '\t';
498                 if (c == '\\')
499                     c = *p++;
500                 *q++ = c;
501             }
502             if (*p == ',')
503                 p++;
504             *q++ = '\0';
505         }
506         *q = '\0';
507     }
508
509     close_settings_r(sesskey);
510 }
511
512 void do_defaults(char *session, Config * cfg)
513 {
514     if (session)
515         load_settings(session, TRUE, cfg);
516     else
517         load_settings("Default Settings", FALSE, cfg);
518 }
519
520 static int sessioncmp(const void *av, const void *bv)
521 {
522     const char *a = *(const char *const *) av;
523     const char *b = *(const char *const *) bv;
524
525     /*
526      * Alphabetical order, except that "Default Settings" is a
527      * special case and comes first.
528      */
529     if (!strcmp(a, "Default Settings"))
530         return -1;                     /* a comes first */
531     if (!strcmp(b, "Default Settings"))
532         return +1;                     /* b comes first */
533     return strcmp(a, b);               /* otherwise, compare normally */
534 }
535
536 void get_sesslist(int allocate)
537 {
538     static char otherbuf[2048];
539     static char *buffer;
540     int buflen, bufsize, i;
541     char *p, *ret;
542     void *handle;
543
544     if (allocate) {
545
546         if ((handle = enum_settings_start()) == NULL)
547             return;
548
549         buflen = bufsize = 0;
550         buffer = NULL;
551         do {
552             ret = enum_settings_next(handle, otherbuf, sizeof(otherbuf));
553             if (ret) {
554                 int len = strlen(otherbuf) + 1;
555                 if (bufsize < buflen + len) {
556                     bufsize = buflen + len + 2048;
557                     buffer = srealloc(buffer, bufsize);
558                 }
559                 strcpy(buffer + buflen, otherbuf);
560                 buflen += strlen(buffer + buflen) + 1;
561             }
562         } while (ret);
563         enum_settings_finish(handle);
564         buffer = srealloc(buffer, buflen + 1);
565         buffer[buflen] = '\0';
566
567         /*
568          * Now set up the list of sessions. Note that "Default
569          * Settings" must always be claimed to exist, even if it
570          * doesn't really.
571          */
572
573         p = buffer;
574         nsessions = 1;                 /* "Default Settings" counts as one */
575         while (*p) {
576             if (strcmp(p, "Default Settings"))
577                 nsessions++;
578             while (*p)
579                 p++;
580             p++;
581         }
582
583         sessions = smalloc((nsessions + 1) * sizeof(char *));
584         sessions[0] = "Default Settings";
585         p = buffer;
586         i = 1;
587         while (*p) {
588             if (strcmp(p, "Default Settings"))
589                 sessions[i++] = p;
590             while (*p)
591                 p++;
592             p++;
593         }
594
595         qsort(sessions, i, sizeof(char *), sessioncmp);
596     } else {
597         sfree(buffer);
598         sfree(sessions);
599     }
600 }