Develop and Download Open Source Software

Tera Term

Browse Subversion Repository

/[ttssh2]/trunk/teraterm/ttpset/ttset.c

Annotation of /trunk/teraterm/ttpset/ttset.c

Parent Directory Parent Directory | Revision Log Revision Log

Revision 2496 - (hide annotations) (download) (as text)
Fri May 2 15:21:14 2008 UTC (15 years, 11 months ago) by doda
Original Path: teraterm/trunk/ttpset/ttset.c
File MIME type: text/x-csrc
File size: 82542 byte(s) 
・インデントを調整
・Unicode Box DrawingsからDEC特殊文字への変換を制御する設定を追加。
# 漏れた…
1 maya 2476 /* Tera Term
2     Copyright(C) 1994-1998 T. Teranishi
3     All rights reserved. */
4     /* IPv6 modification is Copyright(C) 2000 Jun-ya kato <kato@win6.jp> */
5    
6     /* TTSET.DLL, setup file routines*/
7     #ifndef NO_INET6
8     #include <winsock2.h>
9     #include <ws2tcpip.h>
10     #endif /* NO_INET6 */
11     #include "teraterm.h"
12     #include "tttypes.h"
13     #include <stdio.h>
14     #include <string.h>
15     #include <direct.h>
16     #include "ttlib.h"
17    
18     #define Section "Tera Term"
19    
20     static PCHAR far TermList[] =
21     { "VT100", "VT100J", "VT101", "VT102", "VT102J", "VT220J", "VT282",
22     "VT320", "VT382", NULL };
23     // expansion (2005.11.30 yutaka)
24     static PCHAR BaudList[] =
25     { "110", "300", "600", "1200", "2400", "4800", "9600",
26     "14400", "19200", "38400", "57600", "115200",
27     "230400", "460800", "921600", NULL
28     };
29    
30     static PCHAR far RussList[] =
31     { "Windows", "KOI8-R", "CP-866", "ISO-8859-5", NULL };
32     static PCHAR far RussList2[] = { "Windows", "KOI8-R", NULL };
33    
34     WORD str2id(PCHAR far * List, PCHAR str, WORD DefId)
35     {
36     WORD i;
37     i = 0;
38     while ((List[i] != NULL) && (_stricmp(List[i], str) != 0))
39     i++;
40     if (List[i] == NULL)
41     i = DefId;
42     else
43     i++;
44    
45     return i;
46     }
47    
48     void id2str(PCHAR far * List, WORD Id, WORD DefId, PCHAR str, int destlen)
49     {
50     int i;
51    
52     if (Id == 0)
53     i = DefId - 1;
54     else {
55     i = 0;
56     while ((List[i] != NULL) && (i < Id - 1))
57     i++;
58     if (List[i] == NULL)
59     i = DefId - 1;
60     }
61     strncpy_s(str, destlen, List[i], _TRUNCATE);
62     }
63    
64     WORD GetOnOff(PCHAR Sect, PCHAR Key, PCHAR FName, BOOL Default)
65     {
66     char Temp[4];
67     GetPrivateProfileString(Sect, Key, "", Temp, sizeof(Temp), FName);
68     if (Default) {
69     if (_stricmp(Temp, "off") == 0)
70     return 0;
71     else
72     return 1;
73     }
74     else {
75     if (_stricmp(Temp, "on") == 0)
76     return 1;
77     else
78     return 0;
79     }
80     }
81    
82     void WriteOnOff(PCHAR Sect, PCHAR Key, PCHAR FName, WORD Flag)
83     {
84     char Temp[4];
85    
86     if (Flag != 0)
87     strncpy_s(Temp, sizeof(Temp), "on", _TRUNCATE);
88     else
89     strncpy_s(Temp, sizeof(Temp), "off", _TRUNCATE);
90     WritePrivateProfileString(Sect, Key, Temp, FName);
91     }
92    
93     void WriteInt(PCHAR Sect, PCHAR Key, PCHAR FName, int i)
94     {
95     char Temp[15];
96     _snprintf_s(Temp, sizeof(Temp), _TRUNCATE, "%d", i);
97     WritePrivateProfileString(Sect, Key, Temp, FName);
98     }
99    
100     void WriteUint(PCHAR Sect, PCHAR Key, PCHAR FName, UINT i)
101     {
102     char Temp[15];
103     _snprintf_s(Temp, sizeof(Temp), _TRUNCATE, "%u", i);
104     WritePrivateProfileString(Sect, Key, Temp, FName);
105     }
106    
107     void WriteInt2(PCHAR Sect, PCHAR Key, PCHAR FName, int i1, int i2)
108     {
109     char Temp[32];
110     _snprintf_s(Temp, sizeof(Temp), _TRUNCATE, "%d,%d", i1, i2);
111     WritePrivateProfileString(Sect, Key, Temp, FName);
112     }
113    
114     void WriteInt4(PCHAR Sect, PCHAR Key, PCHAR FName,
115     int i1, int i2, int i3, int i4)
116     {
117     char Temp[64];
118     _snprintf_s(Temp, sizeof(Temp), _TRUNCATE, "%d,%d,%d,%d",
119     i1, i2, i3, i4);
120     WritePrivateProfileString(Sect, Key, Temp, FName);
121     }
122    
123     void WriteInt6(PCHAR Sect, PCHAR Key, PCHAR FName,
124     int i1, int i2, int i3, int i4, int i5, int i6)
125     {
126     char Temp[96];
127     _snprintf_s(Temp, sizeof(Temp), _TRUNCATE, "%d,%d,%d,%d,%d,%d",
128     i1, i2,i3, i4, i5, i6);
129     WritePrivateProfileString(Sect, Key, Temp, FName);
130     }
131    
132     void WriteFont(PCHAR Sect, PCHAR Key, PCHAR FName,
133     PCHAR Name, int x, int y, int charset)
134     {
135     char Temp[80];
136     if (Name[0] != 0)
137     _snprintf_s(Temp, sizeof(Temp), _TRUNCATE, "%s,%d,%d,%d",
138     Name, x, y, charset);
139     else
140     Temp[0] = 0;
141     WritePrivateProfileString(Sect, Key, Temp, FName);
142     }
143    
144     void FAR PASCAL ReadIniFile(PCHAR FName, PTTSet ts)
145     {
146     int i;
147     HDC TmpDC;
148     char Temp[MAXPATHLEN];
149    
150     ts->Minimize = 0;
151     ts->HideWindow = 0;
152     ts->LogFlag = 0; // Log flags
153     ts->FTFlag = 0; // File transfer flags
154     ts->MenuFlag = 0; // Menu flags
155     ts->TermFlag = 0; // Terminal flag
156     ts->ColorFlag = 0; // ANSI color flags
157     ts->PortFlag = 0; // Port flags
158     ts->TelPort = 23;
159    
160     /* Version number */
161     /* GetPrivateProfileString(Section,"Version","",
162     Temp,sizeof(Temp),FName); */
163    
164     /* Language */
165     GetPrivateProfileString(Section, "Language", "",
166     Temp, sizeof(Temp), FName);
167     if (_stricmp(Temp, "Japanese") == 0)
168     ts->Language = IdJapanese;
169     else if (_stricmp(Temp, "Russian") == 0)
170     ts->Language = IdRussian;
171     else if (_stricmp(Temp, "English") == 0)
172     ts->Language = IdEnglish;
173     else {
174     switch (PRIMARYLANGID(GetSystemDefaultLangID())) {
175     case LANG_JAPANESE:
176     ts->Language = IdJapanese;
177     break;
178     case LANG_RUSSIAN:
179     ts->Language = IdRussian;
180     break;
181     default:
182     ts->Language = IdEnglish;
183     }
184     }
185    
186     /* Port type */
187     GetPrivateProfileString(Section, "Port", "",
188     Temp, sizeof(Temp), FName);
189     if (_stricmp(Temp, "tcpip") == 0)
190     ts->PortType = IdTCPIP;
191     else if (_stricmp(Temp, "serial") == 0)
192     ts->PortType = IdSerial;
193     else {
194     ts->PortType = IdTCPIP;
195     }
196    
197     /* VT win position */
198     GetPrivateProfileString(Section, "VTPos", "-2147483648,-2147483648", Temp, sizeof(Temp), FName); /* default: random position */
199     GetNthNum(Temp, 1, (int far *) (&ts->VTPos.x));
200     GetNthNum(Temp, 2, (int far *) (&ts->VTPos.y));
201    
202     /* TEK win position */
203     GetPrivateProfileString(Section, "TEKPos", "-2147483648,-2147483648", Temp, sizeof(Temp), FName); /* default: random position */
204     GetNthNum(Temp, 1, (int far *) &(ts->TEKPos.x));
205     GetNthNum(Temp, 2, (int far *) &(ts->TEKPos.y));
206    
207     /* Save VT Window position */
208     ts->SaveVTWinPos = GetOnOff(Section, "SaveVTWinPos", FName, FALSE);
209    
210     /* VT terminal size */
211     GetPrivateProfileString(Section, "TerminalSize", "80,24",
212     Temp, sizeof(Temp), FName);
213     GetNthNum(Temp, 1, &ts->TerminalWidth);
214     GetNthNum(Temp, 2, &ts->TerminalHeight);
215     if (ts->TerminalWidth < 0)
216     ts->TerminalWidth = 1;
217     if (ts->TerminalHeight < 0)
218     ts->TerminalHeight = 1;
219    
220     /* Terminal size = Window size */
221     ts->TermIsWin = GetOnOff(Section, "TermIsWin", FName, FALSE);
222    
223     /* Auto window resize flag */
224     ts->AutoWinResize = GetOnOff(Section, "AutoWinResize", FName, FALSE);
225    
226     /* CR Receive */
227     GetPrivateProfileString(Section, "CRReceive", "",
228     Temp, sizeof(Temp), FName);
229     if (_stricmp(Temp, "CRLF") == 0) {
230     ts->CRReceive = IdCRLF;
231     }
232     else if (_stricmp(Temp, "LF") == 0) {
233     ts->CRReceive = IdLF;
234     }
235     else {
236     ts->CRReceive = IdCR;
237     }
238     /* CR Send */
239     GetPrivateProfileString(Section, "CRSend", "",
240     Temp, sizeof(Temp), FName);
241     if (_stricmp(Temp, "CRLF") == 0)
242     ts->CRSend = IdCRLF;
243     else
244     ts->CRSend = IdCR;
245 maya 2482 ts->CRSend_ini = ts->CRSend;
246 maya 2476
247     /* Local echo */
248     ts->LocalEcho = GetOnOff(Section, "LocalEcho", FName, FALSE);
249 maya 2482 ts->LocalEcho_ini = ts->LocalEcho;
250 maya 2476
251     /* Answerback */
252     GetPrivateProfileString(Section, "Answerback", "", Temp,
253     sizeof(Temp), FName);
254     ts->AnswerbackLen =
255     Hex2Str(Temp, ts->Answerback, sizeof(ts->Answerback));
256    
257     /* Kanji Code (receive) */
258     GetPrivateProfileString(Section, "KanjiReceive", "",
259     Temp, sizeof(Temp), FName);
260     if (_stricmp(Temp, "EUC") == 0)
261     ts->KanjiCode = IdEUC;
262     else if (_stricmp(Temp, "JIS") == 0)
263     ts->KanjiCode = IdJIS;
264     else if (_stricmp(Temp, "UTF-8") == 0)
265     ts->KanjiCode = IdUTF8;
266     else if (_stricmp(Temp, "UTF-8m") == 0)
267     ts->KanjiCode = IdUTF8m;
268     else
269     ts->KanjiCode = IdSJIS;
270    
271     /* Katakana (receive) */
272     GetPrivateProfileString(Section, "KatakanaReceive", "",
273     Temp, sizeof(Temp), FName);
274     if (_stricmp(Temp, "7") == 0)
275     ts->JIS7Katakana = 1;
276     else
277     ts->JIS7Katakana = 0;
278    
279     /* Kanji Code (transmit) */
280     GetPrivateProfileString(Section, "KanjiSend", "",
281     Temp, sizeof(Temp), FName);
282     if (_stricmp(Temp, "EUC") == 0)
283     ts->KanjiCodeSend = IdEUC;
284     else if (_stricmp(Temp, "JIS") == 0)
285     ts->KanjiCodeSend = IdJIS;
286     else if (_stricmp(Temp, "UTF-8") == 0)
287     ts->KanjiCodeSend = IdUTF8;
288     else
289     ts->KanjiCodeSend = IdSJIS;
290    
291     /* Katakana (receive) */
292     GetPrivateProfileString(Section, "KatakanaSend", "",
293     Temp, sizeof(Temp), FName);
294     if (_stricmp(Temp, "7") == 0)
295     ts->JIS7KatakanaSend = 1;
296     else
297     ts->JIS7KatakanaSend = 0;
298    
299     /* KanjiIn */
300     GetPrivateProfileString(Section, "KanjiIn", "",
301     Temp, sizeof(Temp), FName);
302     if (_stricmp(Temp, "@") == 0)
303     ts->KanjiIn = IdKanjiInA;
304     else
305     ts->KanjiIn = IdKanjiInB;
306    
307     /* KanjiOut */
308     GetPrivateProfileString(Section, "KanjiOut", "",
309     Temp, sizeof(Temp), FName);
310     if (_stricmp(Temp, "B") == 0)
311     ts->KanjiOut = IdKanjiOutB;
312     else if (_stricmp(Temp, "H") == 0)
313     ts->KanjiOut = IdKanjiOutH;
314     else
315     ts->KanjiOut = IdKanjiOutJ;
316    
317     /* Auto Win Switch VT<->TEK */
318     ts->AutoWinSwitch = GetOnOff(Section, "AutoWinSwitch", FName, FALSE);
319    
320     /* Terminal ID */
321     GetPrivateProfileString(Section, "TerminalID", "",
322     Temp, sizeof(Temp), FName);
323     ts->TerminalID = str2id(TermList, Temp, IdVT100);
324    
325     /* Russian character set (host) */
326     GetPrivateProfileString(Section, "RussHost", "",
327     Temp, sizeof(Temp), FName);
328     ts->RussHost = str2id(RussList, Temp, IdKOI8);
329    
330     /* Russian character set (client) */
331     GetPrivateProfileString(Section, "RussClient", "",
332     Temp, sizeof(Temp), FName);
333     ts->RussClient = str2id(RussList, Temp, IdWindows);
334    
335     /* Title String */
336     GetPrivateProfileString(Section, "Title", "Tera Term",
337     ts->Title, sizeof(ts->Title), FName);
338    
339     /* Cursor shape */
340     GetPrivateProfileString(Section, "CursorShape", "",
341     Temp, sizeof(Temp), FName);
342     if (_stricmp(Temp, "vertical") == 0)
343     ts->CursorShape = IdVCur;
344     else if (_stricmp(Temp, "horizontal") == 0)
345     ts->CursorShape = IdHCur;
346     else
347     ts->CursorShape = IdBlkCur;
348    
349     /* Hide title */
350     ts->HideTitle = GetOnOff(Section, "HideTitle", FName, FALSE);
351    
352     /* Popup menu */
353     ts->PopupMenu = GetOnOff(Section, "PopupMenu", FName, FALSE);
354    
355     /* PC-Style bold color mapping */
356     ts->ColorFlag |=
357     CF_PCBOLD16 * GetOnOff(Section, "PcBoldColor", FName, FALSE);
358    
359     /* aixterm style 16 colors mode */
360     ts->ColorFlag |=
361     CF_AIXTERM16 * GetOnOff(Section, "Aixterm16Color", FName, FALSE);
362    
363     /* xterm style 256 colors mode */
364     ts->ColorFlag |=
365     CF_XTERM256 * GetOnOff(Section, "Xterm256Color", FName, TRUE);
366    
367     /* Enable scroll buffer */
368     ts->EnableScrollBuff =
369     GetOnOff(Section, "EnableScrollBuff", FName, TRUE);
370    
371     /* Scroll buffer size */
372     ts->ScrollBuffSize =
373     GetPrivateProfileInt(Section, "ScrollBuffSize", 100, FName);
374    
375     /* VT Color */
376     GetPrivateProfileString(Section, "VTColor", "0,0,0,255,255,255",
377     Temp, sizeof(Temp), FName);
378     for (i = 0; i <= 5; i++)
379     GetNthNum(Temp, i + 1, (int far *) &(ts->TmpColor[0][i]));
380     for (i = 0; i <= 1; i++)
381     ts->VTColor[i] = RGB((BYTE) ts->TmpColor[0][i * 3],
382     (BYTE) ts->TmpColor[0][i * 3 + 1],
383     (BYTE) ts->TmpColor[0][i * 3 + 2]);
384    
385     /* VT Bold Color */
386     GetPrivateProfileString(Section, "VTBoldColor", "0,0,255,255,255,255",
387     Temp, sizeof(Temp), FName);
388     for (i = 0; i <= 5; i++)
389     GetNthNum(Temp, i + 1, (int far *) &(ts->TmpColor[0][i]));
390     for (i = 0; i <= 1; i++)
391     ts->VTBoldColor[i] = RGB((BYTE) ts->TmpColor[0][i * 3],
392     (BYTE) ts->TmpColor[0][i * 3 + 1],
393     (BYTE) ts->TmpColor[0][i * 3 + 2]);
394    
395     /* VT Blink Color */
396     GetPrivateProfileString(Section, "VTBlinkColor", "255,0,0,255,255,255",
397     Temp, sizeof(Temp), FName);
398     for (i = 0; i <= 5; i++)
399     GetNthNum(Temp, i + 1, (int far *) &(ts->TmpColor[0][i]));
400     for (i = 0; i <= 1; i++)
401     ts->VTBlinkColor[i] = RGB((BYTE) ts->TmpColor[0][i * 3],
402     (BYTE) ts->TmpColor[0][i * 3 + 1],
403     (BYTE) ts->TmpColor[0][i * 3 + 2]);
404    
405     /* begin - ishizaki */
406     ts->EnableClickableUrl =
407     GetOnOff(Section, "EnableClickableUrl", FName, FALSE);
408    
409     /* URL Color */
410     GetPrivateProfileString(Section, "URLColor", "0,255,0,255,255,255",
411     Temp, sizeof(Temp), FName);
412     for (i = 0; i <= 5; i++)
413     GetNthNum(Temp, i + 1, (int far *) &(ts->TmpColor[0][i]));
414     for (i = 0; i <= 1; i++)
415     ts->URLColor[i] = RGB((BYTE) ts->TmpColor[0][i * 3],
416     (BYTE) ts->TmpColor[0][i * 3 + 1],
417     (BYTE) ts->TmpColor[0][i * 3 + 2]);
418     /* end - ishizaki */
419    
420     /* TEK Color */
421     GetPrivateProfileString(Section, "TEKColor", "0,0,0,255,255,255",
422     Temp, sizeof(Temp), FName);
423     for (i = 0; i <= 5; i++)
424     GetNthNum(Temp, i + 1, (int far *) &(ts->TmpColor[0][i]));
425     for (i = 0; i <= 1; i++)
426     ts->TEKColor[i] = RGB((BYTE) ts->TmpColor[0][i * 3],
427     (BYTE) ts->TmpColor[0][i * 3 + 1],
428     (BYTE) ts->TmpColor[0][i * 3 + 2]);
429    
430     #ifndef NO_ANSI_COLOR_EXTENSION
431     /* ANSI color definition (in the case FullColor=on) -- special option
432     o UseTextColor should be off, or the background and foreground color of
433     VTColor are assigned to color-number 0 and 7 respectively, even if
434     they are specified in ANSIColor.
435     o ANSIColor is a set of 4 values that are color-number(0--15),
436     red-value(0--255), green-value(0--255) and blue-value(0--255). */
437     GetPrivateProfileString(Section, "ANSIColor",
438     " 0, 0, 0, 0,"
439     " 1,255, 0, 0,"
440     " 2, 0,255, 0,"
441     " 3,255,255, 0,"
442     " 4, 0, 0,255,"
443     " 5,255, 0,255,"
444     " 6, 0,255,255,"
445     " 7,255,255,255,"
446     " 8,128,128,128,"
447     " 9,128, 0, 0,"
448     "10, 0,128, 0,"
449     "11,128,128, 0,"
450     "12, 0, 0,128,"
451     "13,128, 0,128,"
452     "14, 0,128,128,"
453     "15,192,192,192", Temp, sizeof(Temp), FName);
454     {
455     char *t;
456     int n = 1;
457     for (t = Temp; *t; t++)
458     if (*t == ',')
459     n++;
460     n /= 4;
461     for (i = 0; i <= n; i++) {
462     int colorid, r, g, b;
463     GetNthNum(Temp, i * 4 + 1, (int far *) &colorid);
464     GetNthNum(Temp, i * 4 + 2, (int far *) &r);
465     GetNthNum(Temp, i * 4 + 3, (int far *) &g);
466     GetNthNum(Temp, i * 4 + 4, (int far *) &b);
467     ts->ANSIColor[colorid & 15] =
468     RGB((BYTE) r, (BYTE) g, (BYTE) b);
469     }
470     }
471 doda 2496 #endif /* NO_ANSI_COLOR_EXTENSION */
472 maya 2476
473     TmpDC = GetDC(0); /* Get screen device context */
474     for (i = 0; i <= 1; i++)
475     ts->VTColor[i] = GetNearestColor(TmpDC, ts->VTColor[i]);
476     for (i = 0; i <= 1; i++)
477     ts->VTBoldColor[i] = GetNearestColor(TmpDC, ts->VTBoldColor[i]);
478     for (i = 0; i <= 1; i++)
479     ts->VTBlinkColor[i] = GetNearestColor(TmpDC, ts->VTBlinkColor[i]);
480     for (i = 0; i <= 1; i++)
481     ts->TEKColor[i] = GetNearestColor(TmpDC, ts->TEKColor[i]);
482     /* begin - ishizaki */
483     for (i = 0; i <= 1; i++)
484     ts->URLColor[i] = GetNearestColor(TmpDC, ts->URLColor[i]);
485     /* end - ishizaki */
486     #ifndef NO_ANSI_COLOR_EXTENSION
487     for (i = 0; i < 16; i++)
488     ts->ANSIColor[i] = GetNearestColor(TmpDC, ts->ANSIColor[i]);
489 doda 2496 #endif /* NO_ANSI_COLOR_EXTENSION */
490 maya 2476 ReleaseDC(0, TmpDC);
491    
492     /* TEK color emulation */
493     ts->TEKColorEmu = GetOnOff(Section, "TEKColorEmulation", FName, FALSE);
494    
495     /* VT Font */
496     GetPrivateProfileString(Section, "VTFont", "Terminal,0,-13,1",
497     Temp, sizeof(Temp), FName);
498     GetNthString(Temp, 1, sizeof(ts->VTFont), ts->VTFont);
499     GetNthNum(Temp, 2, (int far *) &(ts->VTFontSize.x));
500     GetNthNum(Temp, 3, (int far *) &(ts->VTFontSize.y));
501     GetNthNum(Temp, 4, &(ts->VTFontCharSet));
502    
503     /* Bold font flag */
504     ts->EnableBold = GetOnOff(Section, "EnableBold", FName, TRUE);
505    
506     /* Russian character set (font) */
507     GetPrivateProfileString(Section, "RussFont", "",
508     Temp, sizeof(Temp), FName);
509     ts->RussFont = str2id(RussList, Temp, IdWindows);
510    
511     /* TEK Font */
512     GetPrivateProfileString(Section, "TEKFont", "Courier,0,-13,0",
513     Temp, sizeof(Temp), FName);
514     GetNthString(Temp, 1, sizeof(ts->TEKFont), ts->TEKFont);
515     GetNthNum(Temp, 2, (int far *) &(ts->TEKFontSize.x));
516     GetNthNum(Temp, 3, (int far *) &(ts->TEKFontSize.y));
517     GetNthNum(Temp, 4, &(ts->TEKFontCharSet));
518    
519     /* BS key */
520     GetPrivateProfileString(Section, "BSKey", "",
521     Temp, sizeof(Temp), FName);
522     if (_stricmp(Temp, "DEL") == 0)
523     ts->BSKey = IdDEL;
524     else
525     ts->BSKey = IdBS;
526     /* Delete key */
527     ts->DelKey = GetOnOff(Section, "DeleteKey", FName, FALSE);
528    
529     /* Meta Key */
530     ts->MetaKey = GetOnOff(Section, "MetaKey", FName, FALSE);
531    
532     /* Application Keypad */
533 doda 2496 ts->DisableAppKeypad =
534     GetOnOff(Section, "DisableAppKeypad", FName, FALSE);
535 maya 2476
536     /* Application Cursor */
537 doda 2496 ts->DisableAppCursor =
538     GetOnOff(Section, "DisableAppCursor", FName, FALSE);
539 maya 2476
540     /* Russian keyboard type */
541     GetPrivateProfileString(Section, "RussKeyb", "",
542     Temp, sizeof(Temp), FName);
543     ts->RussKeyb = str2id(RussList2, Temp, IdWindows);
544    
545     /* Serial port ID */
546     ts->ComPort = GetPrivateProfileInt(Section, "ComPort", 1, FName);
547    
548     /* Baud rate */
549     GetPrivateProfileString(Section, "BaudRate", "9600",
550     Temp, sizeof(Temp), FName);
551     ts->Baud = str2id(BaudList, Temp, IdBaud9600);
552    
553     /* Parity */
554     GetPrivateProfileString(Section, "Parity", "",
555     Temp, sizeof(Temp), FName);
556     if (_stricmp(Temp, "even") == 0)
557     ts->Parity = IdParityEven;
558     else if (_stricmp(Temp, "odd") == 0)
559     ts->Parity = IdParityOdd;
560     else
561     ts->Parity = IdParityNone;
562    
563     /* Data bit */
564     GetPrivateProfileString(Section, "DataBit", "",
565     Temp, sizeof(Temp), FName);
566     if (_stricmp(Temp, "7") == 0)
567     ts->DataBit = IdDataBit7;
568     else
569     ts->DataBit = IdDataBit8;
570    
571     /* Stop bit */
572     GetPrivateProfileString(Section, "StopBit", "",
573     Temp, sizeof(Temp), FName);
574     if (_stricmp(Temp, "2") == 0)
575     ts->StopBit = IdStopBit2;
576     else
577     ts->StopBit = IdStopBit1;
578    
579     /* Flow control */
580     GetPrivateProfileString(Section, "FlowCtrl", "",
581     Temp, sizeof(Temp), FName);
582     if (_stricmp(Temp, "x") == 0)
583     ts->Flow = IdFlowX;
584     else if (_stricmp(Temp, "hard") == 0)
585     ts->Flow = IdFlowHard;
586     else
587     ts->Flow = IdFlowNone;
588    
589     /* Delay per character */
590     ts->DelayPerChar =
591     GetPrivateProfileInt(Section, "DelayPerChar", 0, FName);
592    
593     /* Delay per line */
594     ts->DelayPerLine =
595     GetPrivateProfileInt(Section, "DelayPerLine", 0, FName);
596    
597     /* Telnet flag */
598     ts->Telnet = GetOnOff(Section, "Telnet", FName, TRUE);
599    
600     /* Telnet terminal type */
601     GetPrivateProfileString(Section, "TermType", "xterm", ts->TermType,
602 doda 2496 sizeof(ts->TermType), FName);
603 maya 2476
604     /* TCP port num */
605     ts->TCPPort =
606     GetPrivateProfileInt(Section, "TCPPort", ts->TelPort, FName);
607    
608     /* Auto window close flag */
609     ts->AutoWinClose = GetOnOff(Section, "AutoWinClose", FName, TRUE);
610    
611     /* History list */
612     ts->HistoryList = GetOnOff(Section, "HistoryList", FName, FALSE);
613    
614     /* File transfer binary flag */
615     ts->TransBin = GetOnOff(Section, "TransBin", FName, FALSE);
616    
617     /* Log append */
618     ts->Append = GetOnOff(Section, "LogAppend", FName, FALSE);
619    
620     /* Log plain text (2005.5.7 yutaka) */
621     ts->LogTypePlainText =
622     GetOnOff(Section, "LogTypePlainText", FName, FALSE);
623    
624     /* Log with timestamp (2006.7.23 maya) */
625     ts->LogTimestamp = GetOnOff(Section, "LogTimestamp", FName, FALSE);
626    
627     /* Log without transfer dialog */
628     ts->LogHideDialog = GetOnOff(Section, "LogHideDialog", FName, FALSE);
629    
630     /* Default Log file name (2006.8.28 maya) */
631     GetPrivateProfileString(Section, "LogDefaultName", "teraterm.log",
632     ts->LogDefaultName, sizeof(ts->LogDefaultName),
633     FName);
634    
635     /* Default Log file path (2007.5.30 maya) */
636     GetPrivateProfileString(Section, "LogDefaultPath", "",
637     ts->LogDefaultPath, sizeof(ts->LogDefaultPath),
638     FName);
639    
640     /* Auto start logging (2007.5.31 maya) */
641     ts->LogAutoStart = GetOnOff(Section, "LogAutoStart", FName, FALSE);
642    
643     /* XMODEM option */
644     GetPrivateProfileString(Section, "XmodemOpt", "",
645     Temp, sizeof(Temp), FName);
646     if (_stricmp(Temp, "crc") == 0)
647     ts->XmodemOpt = XoptCRC;
648     else if (_stricmp(Temp, "1k") == 0)
649     ts->XmodemOpt = Xopt1K;
650     else
651     ts->XmodemOpt = XoptCheck;
652    
653     /* XMODEM binary file */
654     ts->XmodemBin = GetOnOff(Section, "XmodemBin", FName, TRUE);
655    
656     /* XMODEM ���M�R�}���h (2007.12.21 yutaka) */
657 yutakapon 2478 GetPrivateProfileString(Section, "XModemRcvCommand", "",
658 doda 2496 ts->XModemRcvCommand,
659     sizeof(ts->XModemRcvCommand), FName);
660 maya 2476
661     /* Default directory for file transfer */
662     GetPrivateProfileString(Section, "FileDir", "",
663     ts->FileDir, sizeof(ts->FileDir), FName);
664     if (strlen(ts->FileDir) == 0)
665     strncpy_s(ts->FileDir, sizeof(ts->FileDir), ts->HomeDir, _TRUNCATE);
666     else {
667     _getcwd(Temp, sizeof(Temp));
668     if (_chdir(ts->FileDir) != 0)
669     strncpy_s(ts->FileDir, sizeof(ts->FileDir), ts->HomeDir, _TRUNCATE);
670     _chdir(Temp);
671     }
672    
673     /* filter on file send (2007.6.5 maya) */
674     GetPrivateProfileString(Section, "FileSendFilter", "",
675     ts->FileSendFilter, sizeof(ts->FileSendFilter),
676     FName);
677    
678     /*--------------------------------------------------*/
679     /* 8 bit control code flag -- special option */
680     ts->TermFlag |=
681     TF_ACCEPT8BITCTRL *
682     GetOnOff(Section, "Accept8BitCtrl", FName, TRUE);
683    
684     /* Wrong sequence flag -- special option */
685     ts->TermFlag |=
686     TF_ALLOWWRONGSEQUENCE *
687     GetOnOff(Section, "AllowWrongSequence", FName, FALSE);
688    
689     if (((ts->TermFlag & TF_ALLOWWRONGSEQUENCE) == 0) &&
690     (ts->KanjiOut == IdKanjiOutH))
691     ts->KanjiOut = IdKanjiOutJ;
692    
693     // Auto file renaming --- special option
694     ts->FTFlag |=
695     FT_RENAME * GetOnOff(Section, "AutoFileRename", FName, FALSE);
696    
697     // Auto invoking (character set->G0->GL) --- special option
698     ts->TermFlag |=
699     TF_AUTOINVOKE * GetOnOff(Section, "AutoInvoke", FName, FALSE);
700    
701     // Auto text copy --- special option
702     ts->AutoTextCopy = GetOnOff(Section, "AutoTextCopy", FName, TRUE);
703    
704     /* Back wrap -- special option */
705     ts->TermFlag |=
706     TF_BACKWRAP * GetOnOff(Section, "BackWrap", FName, FALSE);
707    
708     /* Beep type -- special option */
709     ts->Beep = GetOnOff(Section, "Beep", FName, TRUE);
710    
711     /* Beep on connection & disconnection -- special option */
712     ts->PortFlag |=
713     PF_BEEPONCONNECT * GetOnOff(Section, "BeepOnConnect", FName,
714 doda 2496 FALSE);
715 maya 2476
716     /* Auto B-Plus activation -- special option */
717     ts->FTFlag |= FT_BPAUTO * GetOnOff(Section, "BPAuto", FName, FALSE);
718     if ((ts->FTFlag & FT_BPAUTO) != 0) { /* Answerback */
719     strncpy_s(ts->Answerback, sizeof(ts->Answerback), "\020++\0200",
720     _TRUNCATE);
721     ts->AnswerbackLen = 5;
722     }
723    
724     /* B-Plus ESCCTL flag -- special option */
725     ts->FTFlag |=
726     FT_BPESCCTL * GetOnOff(Section, "BPEscCtl", FName, FALSE);
727    
728     /* B-Plus log -- special option */
729     ts->LogFlag |= LOG_BP * GetOnOff(Section, "BPLog", FName, FALSE);
730    
731     /* Clear serial port buffer when port opening -- special option */
732 doda 2496 ts->ClearComBuffOnOpen =
733     GetOnOff(Section, "ClearComBuffOnOpen", FName, TRUE);
734 maya 2476
735     /* Confirm disconnection -- special option */
736     ts->PortFlag |=
737 doda 2496 PF_CONFIRMDISCONN * GetOnOff(Section, "ConfirmDisconnect",
738     FName, TRUE);
739 maya 2476
740     /* Ctrl code in Kanji -- special option */
741     ts->TermFlag |=
742     TF_CTRLINKANJI * GetOnOff(Section, "CtrlInKanji", FName, TRUE);
743    
744     /* Debug flag -- special option */
745     ts->Debug = GetOnOff(Section, "Debug", FName, FALSE);
746    
747     /* Delimiter list -- special option */
748     GetPrivateProfileString(Section, "DelimList",
749     "$20!\"#$24%&\'()*+,-./:;<=>?@[\\]^`{|}~",
750     Temp, sizeof(Temp), FName);
751     Hex2Str(Temp, ts->DelimList, sizeof(ts->DelimList));
752    
753     /* regard DBCS characters as delimiters -- special option */
754     ts->DelimDBCS = GetOnOff(Section, "DelimDBCS", FName, TRUE);
755    
756     // Enable popup menu -- special option
757     if (GetOnOff(Section, "EnablePopupMenu", FName, TRUE) == 0)
758     ts->MenuFlag |= MF_NOPOPUP;
759    
760     // Enable "Show menu" -- special option
761     if (GetOnOff(Section, "EnableShowMenu", FName, TRUE) == 0)
762     ts->MenuFlag |= MF_NOSHOWMENU;
763    
764     // Enable the status line -- special option
765     ts->TermFlag |=
766     TF_ENABLESLINE * GetOnOff(Section, "EnableStatusLine", FName, TRUE);
767    
768     // fixed JIS --- special
769     ts->TermFlag |=
770     TF_FIXEDJIS * GetOnOff(Section, "FixedJIS", FName, FALSE);
771    
772     /* IME Flag -- special option */
773     ts->UseIME = GetOnOff(Section, "IME", FName, TRUE);
774    
775     /* IME-inline Flag -- special option */
776     ts->IMEInline = GetOnOff(Section, "IMEInline", FName, TRUE);
777    
778     /* Kermit log -- special option */
779     ts->LogFlag |= LOG_KMT * GetOnOff(Section, "KmtLog", FName, FALSE);
780    
781     // Enable language selection -- special option
782     if (GetOnOff(Section, "LanguageSelection", FName, TRUE) == 0)
783     ts->MenuFlag |= MF_NOLANGUAGE;
784    
785     /* Maximum scroll buffer size -- special option */
786     ts->ScrollBuffMax =
787     GetPrivateProfileInt(Section, "MaxBuffSize", 10000, FName);
788     if (ts->ScrollBuffMax < 24)
789     ts->ScrollBuffMax = 10000;
790    
791     /* Max com port number -- special option */
792     ts->MaxComPort = GetPrivateProfileInt(Section, "MaxComPort", 4, FName);
793     if (ts->MaxComPort < 4)
794     ts->MaxComPort = 4;
795     // COM16����99���g�� (2005.11.30 yutaka)
796     // 99����200���g�� (2007.7.23 maya)
797     if (ts->MaxComPort > MAXCOMPORT)
798     ts->MaxComPort = MAXCOMPORT;
799     if ((ts->ComPort < 1) || (ts->ComPort > ts->MaxComPort))
800     ts->ComPort = 1;
801    
802     /* Non-blinking cursor -- special option */
803     ts->NonblinkingCursor =
804     GetOnOff(Section, "NonblinkingCursor", FName, FALSE);
805    
806     // �t�H�[�J�X���������|���S���J�[�\�� (2008.1.24 yutaka)
807     ts->KillFocusCursor =
808     GetOnOff(Section, "KillFocusCursor", FName, TRUE);
809    
810     /* Delay for pass-thru printing activation */
811     /* -- special option */
812     ts->PassThruDelay =
813     GetPrivateProfileInt(Section, "PassThruDelay", 3, FName);
814    
815     /* Printer port for pass-thru printing */
816     /* -- special option */
817     GetPrivateProfileString(Section, "PassThruPort", "",
818 doda 2496 ts->PrnDev, sizeof(ts->PrnDev), FName);
819 maya 2476
820     /* Printer Font --- special option */
821     GetPrivateProfileString(Section, "PrnFont", "",
822     Temp, sizeof(Temp), FName);
823     if (strlen(Temp) == 0) {
824     ts->PrnFont[0] = 0;
825     ts->PrnFontSize.x = 0;
826     ts->PrnFontSize.y = 0;
827     ts->PrnFontCharSet = 0;
828     }
829     else {
830     GetNthString(Temp, 1, sizeof(ts->PrnFont), ts->PrnFont);
831     GetNthNum(Temp, 2, (int far *) &(ts->PrnFontSize.x));
832     GetNthNum(Temp, 3, (int far *) &(ts->PrnFontSize.y));
833     GetNthNum(Temp, 4, &(ts->PrnFontCharSet));
834     }
835    
836     // Page margins (left, right, top, bottom) for printing
837     // -- special option
838     GetPrivateProfileString(Section, "PrnMargin", "50,50,50,50",
839     Temp, sizeof(Temp), FName);
840     for (i = 0; i <= 3; i++)
841     GetNthNum(Temp, 1 + i, &ts->PrnMargin[i]);
842    
843     /* Quick-VAN log -- special option */
844     ts->LogFlag |= LOG_QV * GetOnOff(Section, "QVLog", FName, FALSE);
845    
846     /* Quick-VAN window size -- special */
847     ts->QVWinSize = GetPrivateProfileInt(Section, "QVWinSize", 8, FName);
848    
849     /* Russian character set (print) -- special option */
850     GetPrivateProfileString(Section, "RussPrint", "",
851     Temp, sizeof(Temp), FName);
852     ts->RussPrint = str2id(RussList, Temp, IdWindows);
853    
854     /* Scroll threshold -- special option */
855     ts->ScrollThreshold =
856     GetPrivateProfileInt(Section, "ScrollThreshold", 12, FName);
857    
858     ts->MouseWheelScrollLine =
859     GetPrivateProfileInt(Section, "MouseWheelScrollLine", 3, FName);
860    
861     // Select on activate -- special option
862     ts->SelOnActive = GetOnOff(Section, "SelectOnActivate", FName, TRUE);
863    
864     /* Send 8bit control sequence -- special option */
865     ts->Send8BitCtrl = GetOnOff(Section, "Send8BitCtrl", FName, FALSE);
866    
867     /* Startup macro -- special option */
868     GetPrivateProfileString(Section, "StartupMacro", "",
869     ts->MacroFN, sizeof(ts->MacroFN), FName);
870    
871     /* TEK GIN Mouse keycode -- special option */
872     ts->GINMouseCode =
873     GetPrivateProfileInt(Section, "TEKGINMouseCode", 32, FName);
874    
875     /* Telnet Auto Detect -- special option */
876     ts->TelAutoDetect = GetOnOff(Section, "TelAutoDetect", FName, TRUE);
877    
878     /* Telnet binary flag -- special option */
879     ts->TelBin = GetOnOff(Section, "TelBin", FName, FALSE);
880    
881     /* Telnet Echo flag -- special option */
882     ts->TelEcho = GetOnOff(Section, "TelEcho", FName, FALSE);
883    
884     /* Telnet log -- special option */
885     ts->LogFlag |= LOG_TEL * GetOnOff(Section, "TelLog", FName, FALSE);
886    
887     /* TCP port num for telnet -- special option */
888     ts->TelPort = GetPrivateProfileInt(Section, "TelPort", 23, FName);
889    
890     /* Telnet keep-alive packet(NOP command) interval -- special option */
891     ts->TelKeepAliveInterval =
892     GetPrivateProfileInt(Section, "TelKeepAliveInterval", 300, FName);
893    
894     /* Max number of broadcast commad history */
895     ts->MaxBroadcatHistory =
896     GetPrivateProfileInt(Section, "MaxBroadcatHistory", 99, FName);
897    
898     /* Local echo for non-telnet */
899     ts->TCPLocalEcho = GetOnOff(Section, "TCPLocalEcho", FName, FALSE);
900    
901     /* "new-line (transmit)" option for non-telnet -- special option */
902     GetPrivateProfileString(Section, "TCPCRSend", "",
903     Temp, sizeof(Temp), FName);
904     if (_stricmp(Temp, "CR") == 0)
905     ts->TCPCRSend = IdCR;
906     else if (_stricmp(Temp, "CRLF") == 0)
907     ts->TCPCRSend = IdCRLF;
908     else
909     ts->TCPCRSend = 0; // disabled
910    
911     /* Use text (background) color for "white (black)"
912     --- special option */
913     ts->ColorFlag |=
914     CF_USETEXTCOLOR * GetOnOff(Section, "UseTextColor", FName, FALSE);
915    
916     /* Title format -- special option */
917     ts->TitleFormat =
918     GetPrivateProfileInt(Section, "TitleFormat", 5, FName);
919    
920     /* VT Compatible Tab -- special option */
921     ts->VTCompatTab = GetOnOff(Section, "VTCompatTab", FName, FALSE);
922    
923     /* VT Font space --- special option */
924     GetPrivateProfileString(Section, "VTFontSpace", "0,0,0,0",
925     Temp, sizeof(Temp), FName);
926     GetNthNum(Temp, 1, &ts->FontDX);
927     GetNthNum(Temp, 2, &ts->FontDW);
928     GetNthNum(Temp, 3, &ts->FontDY);
929     GetNthNum(Temp, 4, &ts->FontDH);
930     if (ts->FontDX < 0)
931     ts->FontDX = 0;
932     if (ts->FontDW < 0)
933     ts->FontDW = 0;
934     ts->FontDW = ts->FontDW + ts->FontDX;
935     if (ts->FontDY < 0)
936     ts->FontDY = 0;
937     if (ts->FontDH < 0)
938     ts->FontDH = 0;
939     ts->FontDH = ts->FontDH + ts->FontDY;
940    
941     // VT-print scaling factors (pixels per inch) --- special option
942     GetPrivateProfileString(Section, "VTPPI", "0,0",
943     Temp, sizeof(Temp), FName);
944     GetNthNum(Temp, 1, (int far *) &ts->VTPPI.x);
945     GetNthNum(Temp, 2, (int far *) &ts->VTPPI.y);
946    
947     // TEK-print scaling factors (pixels per inch) --- special option
948     GetPrivateProfileString(Section, "TEKPPI", "0,0",
949     Temp, sizeof(Temp), FName);
950     GetNthNum(Temp, 1, (int far *) &ts->TEKPPI.x);
951     GetNthNum(Temp, 2, (int far *) &ts->TEKPPI.y);
952    
953     // Show "Window" menu -- special option
954     ts->MenuFlag |=
955     MF_SHOWWINMENU * GetOnOff(Section, "WindowMenu", FName, TRUE);
956    
957     /* XMODEM log -- special option */
958     ts->LogFlag |= LOG_X * GetOnOff(Section, "XmodemLog", FName, FALSE);
959    
960     /* Auto ZMODEM activation -- special option */
961     ts->FTFlag |= FT_ZAUTO * GetOnOff(Section, "ZmodemAuto", FName, FALSE);
962    
963     /* ZMODEM data subpacket length for sending -- special */
964     ts->ZmodemDataLen =
965     GetPrivateProfileInt(Section, "ZmodemDataLen", 1024, FName);
966     /* ZMODEM window size for sending -- special */
967     ts->ZmodemWinSize =
968     GetPrivateProfileInt(Section, "ZmodemWinSize", 32767, FName);
969    
970     /* ZMODEM ESCCTL flag -- special option */
971     ts->FTFlag |=
972     FT_ZESCCTL * GetOnOff(Section, "ZmodemEscCtl", FName, FALSE);
973    
974     /* ZMODEM log -- special option */
975     ts->LogFlag |= LOG_Z * GetOnOff(Section, "ZmodemLog", FName, FALSE);
976    
977     /* ZMODEM ���M�R�}���h (2007.12.21 yutaka) */
978     GetPrivateProfileString(Section, "ZModemRcvCommand", "rz",
979     ts->ZModemRcvCommand, sizeof(ts->ZModemRcvCommand), FName);
980    
981     #ifndef NO_COPYLINE_FIX
982    
983     /* Enable continued-line copy -- special option */
984     ts->EnableContinuedLineCopy =
985     GetOnOff(Section, "EnableContinuedLineCopy", FName, FALSE);
986     #endif /* NO_COPYLINE_FIX */
987    
988     ts->DisablePasteMouseRButton =
989     GetOnOff(Section, "DisablePasteMouseRButton", FName, FALSE);
990    
991     // added DisablePasteMouseMButton (2008.3.2 maya)
992     ts->DisablePasteMouseMButton =
993     GetOnOff(Section, "DisablePasteMouseMButton", FName, TRUE);
994    
995     // added ConfirmPasteMouseRButton (2007.3.17 maya)
996     ts->ConfirmPasteMouseRButton =
997     GetOnOff(Section, "ConfirmPasteMouseRButton", FName, FALSE);
998    
999     // added ConfirmChangePaste (2008.2.3 yutaka)
1000     ts->ConfirmChangePaste =
1001     GetOnOff(Section, "ConfirmChangePaste", FName, FALSE);
1002    
1003     // added SelectOnlyByLButton (2007.11.20 maya)
1004     ts->SelectOnlyByLButton =
1005     GetOnOff(Section, "SelectOnlyByLButton", FName, TRUE);
1006    
1007     // added DisableAcceleratorSendBreak (2007.3.17 maya)
1008     ts->DisableAcceleratorSendBreak =
1009     GetOnOff(Section, "DisableAcceleratorSendBreak", FName, FALSE);
1010    
1011     // WinSock connecting timeout value (2007.1.11 yutaka)
1012     ts->ConnectingTimeout =
1013     GetPrivateProfileInt(Section, "ConnectingTimeout", 0, FName);
1014    
1015     // mouse cursor
1016     GetPrivateProfileString(Section, "MouseCursor", "IBEAM",
1017     Temp, sizeof(Temp), FName);
1018     strncpy_s(ts->MouseCursorName, sizeof(ts->MouseCursorName), Temp,
1019     _TRUNCATE);
1020    
1021     // Translucent window
1022     ts->AlphaBlend =
1023     GetPrivateProfileInt(Section, "AlphaBlend ", 255, FName);
1024     ts->AlphaBlend = max(0, ts->AlphaBlend);
1025     ts->AlphaBlend = min(255, ts->AlphaBlend);
1026    
1027     // Cygwin install path
1028     GetPrivateProfileString(Section, "CygwinDirectory ", "c:\\cygwin",
1029     Temp, sizeof(Temp), FName);
1030     strncpy_s(ts->CygwinDirectory, sizeof(ts->CygwinDirectory), Temp,
1031 doda 2496 _TRUNCATE);
1032 maya 2476
1033     // Viewlog Editor path
1034     GetPrivateProfileString(Section, "ViewlogEditor ", "notepad.exe",
1035     Temp, sizeof(Temp), FName);
1036     strncpy_s(ts->ViewlogEditor, sizeof(ts->ViewlogEditor), Temp,
1037 doda 2496 _TRUNCATE);
1038 maya 2476
1039     // Locale for UTF-8
1040     GetPrivateProfileString(Section, "Locale ", DEFAULT_LOCALE,
1041     Temp, sizeof(Temp), FName);
1042     strncpy_s(ts->Locale, sizeof(ts->Locale), Temp, _TRUNCATE);
1043    
1044     // CodePage
1045     ts->CodePage =
1046     GetPrivateProfileInt(Section, "CodePage ", DEFAULT_CODEPAGE,
1047     FName);
1048    
1049     // UI language message file
1050     GetPrivateProfileString(Section, "UILanguageFile", "lang\\Default.lng",
1051     Temp, sizeof(Temp), FName);
1052     {
1053     char CurDir[MAX_PATH];
1054    
1055     // �t���p�X�������O������������������������������
1056     strncpy_s(ts->UILanguageFile_ini, sizeof(ts->UILanguageFile_ini), Temp, _TRUNCATE);
1057    
1058     GetCurrentDirectory(sizeof(CurDir), CurDir);
1059     SetCurrentDirectory(ts->HomeDir);
1060     _fullpath(ts->UILanguageFile, Temp, sizeof(ts->UILanguageFile));
1061     SetCurrentDirectory(CurDir);
1062     }
1063    
1064     // Broadcast Command History (2007.3.3 maya)
1065     ts->BroadcastCommandHistory =
1066     GetOnOff(Section, "BroadcastCommandHistory", FName, FALSE);
1067    
1068     // 337: 2007/03/20 Accept Broadcast
1069     ts->AcceptBroadcast =
1070     GetOnOff(Section, "AcceptBroadcast", FName, TRUE);
1071    
1072     // Confirm send a file when drag and drop (2007.12.28 maya)
1073     ts->ConfirmFileDragAndDrop =
1074     GetOnOff(Section, "ConfirmFileDragAndDrop", FName, TRUE);
1075    
1076     // Translate mouse wheel to cursor key when application cursor mode
1077     ts->TranslateWheelToCursor =
1078     GetOnOff(Section, "TranslateWheelToCursor", FName, TRUE);
1079    
1080     // Display "New Connection" dialog on startup (2008.1.18 maya)
1081     ts->HostDialogOnStartup =
1082     GetOnOff(Section, "HostDialogOnStartup", FName, TRUE);
1083    
1084     // Mouse event tracking
1085     ts->MouseEventTracking =
1086     GetOnOff(Section, "MouseEventTracking", FName, TRUE);
1087    
1088     // Maximized bug tweak
1089     ts->MaximizedBugTweak =
1090     GetOnOff(Section, "MaximizedBugTweak", FName, TRUE);
1091    
1092 doda 2496 // Convert UTF-8 BoxDrawing to DEC Special characters
1093     ts->UTF8BoxDrawing =
1094     GetOnOff(Section, "UTF8BoxDrawing", FName, TRUE);
1095    
1096 maya 2476 #ifdef USE_NORMAL_BGCOLOR
1097     // UseNormalBGColor
1098     ts->UseNormalBGColor =
1099     GetOnOff(Section, "UseNormalBGColor", FName, FALSE);
1100     // 2006/03/11 by 337
1101     if (ts->UseNormalBGColor) {
1102     ts->VTBoldColor[1] =
1103     ts->VTBlinkColor[1] = ts->URLColor[1] = ts->VTColor[1];
1104     }
1105     #endif
1106     }
1107    
1108     void FAR PASCAL WriteIniFile(PCHAR FName, PTTSet ts)
1109     {
1110     int i;
1111     char Temp[MAXPATHLEN];
1112     char buf[20];
1113    
1114     /* version */
1115     WritePrivateProfileString(Section, "Version", "2.3", FName);
1116    
1117     /* Language */
1118     if (ts->Language == IdJapanese)
1119     strncpy_s(Temp, sizeof(Temp), "Japanese", _TRUNCATE);
1120     else if (ts->Language == IdRussian)
1121     strncpy_s(Temp, sizeof(Temp), "Russian", _TRUNCATE);
1122     else
1123     strncpy_s(Temp, sizeof(Temp), "English", _TRUNCATE);
1124     WritePrivateProfileString(Section, "Language", Temp, FName);
1125    
1126     /* Port type */
1127     if (ts->PortType == IdSerial)
1128     strncpy_s(Temp, sizeof(Temp), "serial", _TRUNCATE);
1129     else /* IdFile -> IdTCPIP */
1130     strncpy_s(Temp, sizeof(Temp), "tcpip", _TRUNCATE);
1131    
1132     WritePrivateProfileString(Section, "Port", Temp, FName);
1133    
1134     /* Save win position */
1135     if (ts->SaveVTWinPos) {
1136     /* VT win position */
1137     WriteInt2(Section, "VTPos", FName, ts->VTPos.x, ts->VTPos.y);
1138     }
1139    
1140     /* VT terminal size */
1141     WriteInt2(Section, "TerminalSize", FName,
1142     ts->TerminalWidth, ts->TerminalHeight);
1143    
1144     /* Terminal size = Window size */
1145     WriteOnOff(Section, "TermIsWin", FName, ts->TermIsWin);
1146    
1147     /* Auto window resize flag */
1148     WriteOnOff(Section, "AutoWinResize", FName, ts->AutoWinResize);
1149    
1150     /* CR Receive */
1151     if (ts->CRReceive == IdCRLF) {
1152     strncpy_s(Temp, sizeof(Temp), "CRLF", _TRUNCATE);
1153     }
1154     else if (ts->CRReceive == IdLF) {
1155     strncpy_s(Temp, sizeof(Temp), "LF", _TRUNCATE);
1156     }
1157     else {
1158     strncpy_s(Temp, sizeof(Temp), "CR", _TRUNCATE);
1159     }
1160     WritePrivateProfileString(Section, "CRReceive", Temp, FName);
1161    
1162     /* CR Send */
1163     if (ts->CRSend == IdCRLF)
1164     strncpy_s(Temp, sizeof(Temp), "CRLF", _TRUNCATE);
1165     else
1166     strncpy_s(Temp, sizeof(Temp), "CR", _TRUNCATE);
1167     WritePrivateProfileString(Section, "CRSend", Temp, FName);
1168    
1169     /* Local echo */
1170     WriteOnOff(Section, "LocalEcho", FName, ts->LocalEcho);
1171    
1172     /* Answerback */
1173     if ((ts->FTFlag & FT_BPAUTO) == 0) {
1174     Str2Hex(ts->Answerback, Temp, ts->AnswerbackLen,
1175     sizeof(Temp) - 1, TRUE);
1176     WritePrivateProfileString(Section, "Answerback", Temp, FName);
1177     }
1178    
1179     /* Kanji Code (receive) */
1180     switch (ts->KanjiCode) {
1181     case IdEUC:
1182     strncpy_s(Temp, sizeof(Temp), "EUC", _TRUNCATE);
1183     break;
1184     case IdJIS:
1185     strncpy_s(Temp, sizeof(Temp), "JIS", _TRUNCATE);
1186     break;
1187     case IdUTF8:
1188     strncpy_s(Temp, sizeof(Temp), "UTF-8", _TRUNCATE);
1189     break;
1190     case IdUTF8m:
1191     strncpy_s(Temp, sizeof(Temp), "UTF-8m", _TRUNCATE);
1192     break;
1193     default:
1194     strncpy_s(Temp, sizeof(Temp), "SJIS", _TRUNCATE);
1195     }
1196     WritePrivateProfileString(Section, "KanjiReceive", Temp, FName);
1197    
1198     /* Katakana (receive) */
1199     if (ts->JIS7Katakana == 1)
1200     strncpy_s(Temp, sizeof(Temp), "7", _TRUNCATE);
1201     else
1202     strncpy_s(Temp, sizeof(Temp), "8", _TRUNCATE);
1203    
1204     WritePrivateProfileString(Section, "KatakanaReceive", Temp, FName);
1205    
1206     /* Kanji Code (transmit) */
1207     switch (ts->KanjiCodeSend) {
1208     case IdEUC:
1209     strncpy_s(Temp, sizeof(Temp), "EUC", _TRUNCATE);
1210     break;
1211     case IdJIS:
1212     strncpy_s(Temp, sizeof(Temp), "JIS", _TRUNCATE);
1213     break;
1214     case IdUTF8:
1215     strncpy_s(Temp, sizeof(Temp), "UTF-8", _TRUNCATE);
1216     break;
1217     default:
1218     strncpy_s(Temp, sizeof(Temp), "SJIS", _TRUNCATE);
1219     }
1220     WritePrivateProfileString(Section, "KanjiSend", Temp, FName);
1221    
1222     /* Katakana (transmit) */
1223     if (ts->JIS7KatakanaSend == 1)
1224     strncpy_s(Temp, sizeof(Temp), "7", _TRUNCATE);
1225     else
1226     strncpy_s(Temp, sizeof(Temp), "8", _TRUNCATE);
1227    
1228     WritePrivateProfileString(Section, "KatakanaSend", Temp, FName);
1229    
1230     /* KanjiIn */
1231     if (ts->KanjiIn == IdKanjiInA)
1232     strncpy_s(Temp, sizeof(Temp), "@", _TRUNCATE);
1233     else
1234     strncpy_s(Temp, sizeof(Temp), "B", _TRUNCATE);
1235    
1236     WritePrivateProfileString(Section, "KanjiIn", Temp, FName);
1237    
1238     /* KanjiOut */
1239     switch (ts->KanjiOut) {
1240     case IdKanjiOutB:
1241     strncpy_s(Temp, sizeof(Temp), "B", _TRUNCATE);
1242     break;
1243     case IdKanjiOutH:
1244     strncpy_s(Temp, sizeof(Temp), "H", _TRUNCATE);
1245     break;
1246     default:
1247     strncpy_s(Temp, sizeof(Temp), "J", _TRUNCATE);
1248     }
1249     WritePrivateProfileString(Section, "KanjiOut", Temp, FName);
1250    
1251     // new configuration
1252     WriteInt(Section, "ConnectingTimeout", FName, ts->ConnectingTimeout);
1253    
1254     WriteOnOff(Section, "DisablePasteMouseRButton", FName,
1255     ts->DisablePasteMouseRButton);
1256    
1257     // added DisablePasteMouseMButton (2008.3.2 maya)
1258     WriteOnOff(Section, "DisablePasteMouseMButton", FName,
1259     ts->DisablePasteMouseMButton);
1260    
1261     // added ConfirmPasteMouseRButton (2007.3.17 maya)
1262     WriteOnOff(Section, "ConfirmPasteMouseRButton", FName,
1263     ts->ConfirmPasteMouseRButton);
1264    
1265     // added ConfirmChangePaste
1266     WriteOnOff(Section, "ConfirmChangePaste", FName,
1267 doda 2496 ts->ConfirmChangePaste);
1268 maya 2476
1269     // added SelectOnlyByLButton (2007.11.20 maya)
1270     WriteOnOff(Section, "SelectOnlyByLButton", FName,
1271     ts->SelectOnlyByLButton);
1272     // added DisableAcceleratorSendBreak (2007.3.17 maya)
1273     WriteOnOff(Section, "DisableAcceleratorSendBreak", FName,
1274     ts->DisableAcceleratorSendBreak);
1275     WriteOnOff(Section, "EnableContinuedLineCopy", FName,
1276     ts->EnableContinuedLineCopy);
1277     WritePrivateProfileString(Section, "MouseCursor", ts->MouseCursorName,
1278     FName);
1279     _snprintf_s(Temp, sizeof(Temp), _TRUNCATE, "%d", ts->AlphaBlend);
1280     WritePrivateProfileString(Section, "AlphaBlend", Temp, FName);
1281     WritePrivateProfileString(Section, "CygwinDirectory",
1282     ts->CygwinDirectory, FName);
1283     WritePrivateProfileString(Section, "ViewlogEditor", ts->ViewlogEditor,
1284     FName);
1285     WritePrivateProfileString(Section, "Locale", ts->Locale, FName);
1286     _snprintf_s(Temp, sizeof(Temp), _TRUNCATE, "%d", ts->CodePage);
1287     WritePrivateProfileString(Section, "CodePage", Temp, FName);
1288    
1289     // ANSI color(2004.9.5 yutaka)
1290     Temp[0] = '\0';
1291     for (i = 0; i < 15; i++) {
1292     _snprintf_s(buf, sizeof(buf), _TRUNCATE, "%d,%d,%d,%d, ",
1293     i,
1294     GetRValue(ts->ANSIColor[i]),
1295     GetGValue(ts->ANSIColor[i]),
1296     GetBValue(ts->ANSIColor[i])
1297     );
1298     strncat_s(Temp, sizeof(Temp), buf, _TRUNCATE);
1299     }
1300     i = 15;
1301     _snprintf_s(buf, sizeof(buf), _TRUNCATE, "%d,%d,%d,%d",
1302     i,
1303     GetRValue(ts->ANSIColor[i]),
1304     GetGValue(ts->ANSIColor[i]),
1305     GetBValue(ts->ANSIColor[i])
1306     );
1307     strncat_s(Temp, sizeof(Temp), buf, _TRUNCATE);
1308     WritePrivateProfileString(Section, "ANSIColor", Temp, FName);
1309    
1310     /* AutoWinChange VT<->TEK */
1311     WriteOnOff(Section, "AutoWinSwitch", FName, ts->AutoWinSwitch);
1312    
1313     /* Terminal ID */
1314     id2str(TermList, ts->TerminalID, IdVT100, Temp, sizeof(Temp));
1315     WritePrivateProfileString(Section, "TerminalID", Temp, FName);
1316    
1317     /* Russian character set (host) */
1318     id2str(RussList, ts->RussHost, IdKOI8, Temp, sizeof(Temp));
1319     WritePrivateProfileString(Section, "RussHost", Temp, FName);
1320    
1321     /* Russian character set (client) */
1322     id2str(RussList, ts->RussClient, IdWindows, Temp, sizeof(Temp));
1323     WritePrivateProfileString(Section, "RussClient", Temp, FName);
1324    
1325     /* Title text */
1326     WritePrivateProfileString(Section, "Title", ts->Title, FName);
1327    
1328     /* Cursor shape */
1329     switch (ts->CursorShape) {
1330     case IdVCur:
1331     strncpy_s(Temp, sizeof(Temp), "vertical", _TRUNCATE);
1332     break;
1333     case IdHCur:
1334     strncpy_s(Temp, sizeof(Temp), "horizontal", _TRUNCATE);
1335     break;
1336     default:
1337     strncpy_s(Temp, sizeof(Temp), "block", _TRUNCATE);
1338     }
1339     WritePrivateProfileString(Section, "CursorShape", Temp, FName);
1340    
1341     /* Hide title */
1342     WriteOnOff(Section, "HideTitle", FName, ts->HideTitle);
1343    
1344     /* Popup menu */
1345     WriteOnOff(Section, "PopupMenu", FName, ts->PopupMenu);
1346    
1347     /* PC-Style bold color mapping */
1348     WriteOnOff(Section, "PcBoldColor", FName,
1349     (WORD) (ts->ColorFlag & CF_PCBOLD16));
1350    
1351     /* aixterm 16 colors mode */
1352     WriteOnOff(Section, "Aixterm16Color", FName,
1353     (WORD) (ts->ColorFlag & CF_AIXTERM16));
1354    
1355     /* xterm 256 colors mode */
1356     WriteOnOff(Section, "Xterm256Color", FName,
1357     (WORD) (ts->ColorFlag & CF_XTERM256));
1358    
1359     /* Enable scroll buffer */
1360     WriteOnOff(Section, "EnableScrollBuff", FName, ts->EnableScrollBuff);
1361    
1362     /* Scroll buffer size */
1363     WriteInt(Section, "ScrollBuffSize", FName, ts->ScrollBuffSize);
1364    
1365     /* VT Color */
1366     for (i = 0; i <= 1; i++) {
1367     ts->TmpColor[0][i * 3] = GetRValue(ts->VTColor[i]);
1368     ts->TmpColor[0][i * 3 + 1] = GetGValue(ts->VTColor[i]);
1369     ts->TmpColor[0][i * 3 + 2] = GetBValue(ts->VTColor[i]);
1370     }
1371     WriteInt6(Section, "VTColor", FName,
1372 doda 2496 ts->TmpColor[0][0], ts->TmpColor[0][1], ts->TmpColor[0][2],
1373     ts->TmpColor[0][3], ts->TmpColor[0][4], ts->TmpColor[0][5]);
1374 maya 2476
1375     /* VT bold color */
1376     for (i = 0; i <= 1; i++) {
1377     ts->TmpColor[0][i * 3] = GetRValue(ts->VTBoldColor[i]);
1378     ts->TmpColor[0][i * 3 + 1] = GetGValue(ts->VTBoldColor[i]);
1379     ts->TmpColor[0][i * 3 + 2] = GetBValue(ts->VTBoldColor[i]);
1380     }
1381     WriteInt6(Section, "VTBoldColor", FName,
1382 doda 2496 ts->TmpColor[0][0], ts->TmpColor[0][1], ts->TmpColor[0][2],
1383     ts->TmpColor[0][3], ts->TmpColor[0][4], ts->TmpColor[0][5]);
1384 maya 2476
1385     /* VT blink color */
1386     for (i = 0; i <= 1; i++) {
1387     ts->TmpColor[0][i * 3] = GetRValue(ts->VTBlinkColor[i]);
1388     ts->TmpColor[0][i * 3 + 1] = GetGValue(ts->VTBlinkColor[i]);
1389     ts->TmpColor[0][i * 3 + 2] = GetBValue(ts->VTBlinkColor[i]);
1390     }
1391     WriteInt6(Section, "VTBlinkColor", FName,
1392 doda 2496 ts->TmpColor[0][0], ts->TmpColor[0][1], ts->TmpColor[0][2],
1393     ts->TmpColor[0][3], ts->TmpColor[0][4], ts->TmpColor[0][5]);
1394 maya 2476
1395     /* start - ishizaki */
1396     WriteOnOff(Section, "EnableClickableUrl", FName,
1397 doda 2496 ts->EnableClickableUrl);
1398 maya 2476
1399     /* URL color */
1400     for (i = 0; i <= 1; i++) {
1401     ts->TmpColor[0][i * 3] = GetRValue(ts->URLColor[i]);
1402     ts->TmpColor[0][i * 3 + 1] = GetGValue(ts->URLColor[i]);
1403     ts->TmpColor[0][i * 3 + 2] = GetBValue(ts->URLColor[i]);
1404     }
1405     WriteInt6(Section, "URLColor", FName,
1406 doda 2496 ts->TmpColor[0][0], ts->TmpColor[0][1], ts->TmpColor[0][2],
1407     ts->TmpColor[0][3], ts->TmpColor[0][4], ts->TmpColor[0][5]);
1408 maya 2476 /* end - ishizaki */
1409    
1410     /* TEK Color */
1411     for (i = 0; i <= 1; i++) {
1412     ts->TmpColor[0][i * 3] = GetRValue(ts->TEKColor[i]);
1413     ts->TmpColor[0][i * 3 + 1] = GetGValue(ts->TEKColor[i]);
1414     ts->TmpColor[0][i * 3 + 2] = GetBValue(ts->TEKColor[i]);
1415     }
1416     WriteInt6(Section, "TEKColor", FName,
1417     ts->TmpColor[0][0], ts->TmpColor[0][1], ts->TmpColor[0][2],
1418 doda 2496 ts->TmpColor[0][3], ts->TmpColor[0][4], ts->TmpColor[0][5]);
1419 maya 2476
1420     /* TEK color emulation */
1421     WriteOnOff(Section, "TEKColorEmulation", FName, ts->TEKColorEmu);
1422    
1423     /* VT Font */
1424     WriteFont(Section, "VTFont", FName,
1425     ts->VTFont, ts->VTFontSize.x, ts->VTFontSize.y,
1426     ts->VTFontCharSet);
1427    
1428     /* Enable bold font flag */
1429     WriteOnOff(Section, "EnableBold", FName, ts->EnableBold);
1430    
1431     /* Russian character set (font) */
1432     id2str(RussList, ts->RussFont, IdWindows, Temp, sizeof(Temp));
1433     WritePrivateProfileString(Section, "RussFont", Temp, FName);
1434    
1435     /* TEK Font */
1436     WriteFont(Section, "TEKFont", FName,
1437     ts->TEKFont, ts->TEKFontSize.x, ts->TEKFontSize.y,
1438     ts->TEKFontCharSet);
1439    
1440     /* BS key */
1441     if (ts->BSKey == IdDEL)
1442     strncpy_s(Temp, sizeof(Temp), "DEL", _TRUNCATE);
1443     else
1444     strncpy_s(Temp, sizeof(Temp), "BS", _TRUNCATE);
1445     WritePrivateProfileString(Section, "BSKey", Temp, FName);
1446    
1447     /* Delete key */
1448     WriteOnOff(Section, "DeleteKey", FName, ts->DelKey);
1449    
1450     /* Meta key */
1451     WriteOnOff(Section, "MetaKey", FName, ts->MetaKey);
1452    
1453     /* Application Keypad */
1454     WriteOnOff(Section, "DisableAppKeypad", FName, ts->DisableAppKeypad);
1455    
1456     /* Application Cursor */
1457     WriteOnOff(Section, "DisableAppCursor", FName, ts->DisableAppCursor);
1458    
1459     /* Russian keyboard type */
1460     id2str(RussList2, ts->RussKeyb, IdWindows, Temp, sizeof(Temp));
1461     WritePrivateProfileString(Section, "RussKeyb", Temp, FName);
1462    
1463     /* Serial port ID */
1464     _snprintf_s(Temp, sizeof(Temp), _TRUNCATE, "%d", ts->ComPort);
1465     WritePrivateProfileString(Section, "ComPort", Temp, FName);
1466    
1467     /* Baud rate */
1468     id2str(BaudList, ts->Baud, IdBaud9600, Temp, sizeof(Temp));
1469     WritePrivateProfileString(Section, "BaudRate", Temp, FName);
1470    
1471     /* Parity */
1472     switch (ts->Parity) {
1473     case IdParityEven:
1474     strncpy_s(Temp, sizeof(Temp), "even", _TRUNCATE);
1475     break;
1476     case IdParityOdd:
1477     strncpy_s(Temp, sizeof(Temp), "odd", _TRUNCATE);
1478     break;
1479     default:
1480     strncpy_s(Temp, sizeof(Temp), "none", _TRUNCATE);
1481     }
1482     WritePrivateProfileString(Section, "Parity", Temp, FName);
1483    
1484     /* Data bit */
1485     if (ts->DataBit == IdDataBit7)
1486     strncpy_s(Temp, sizeof(Temp), "7", _TRUNCATE);
1487     else
1488     strncpy_s(Temp, sizeof(Temp), "8", _TRUNCATE);
1489    
1490     WritePrivateProfileString(Section, "DataBit", Temp, FName);
1491    
1492     /* Stop bit */
1493     if (ts->StopBit == IdStopBit2)
1494     strncpy_s(Temp, sizeof(Temp), "2", _TRUNCATE);
1495     else
1496     strncpy_s(Temp, sizeof(Temp), "1", _TRUNCATE);
1497    
1498     WritePrivateProfileString(Section, "StopBit", Temp, FName);
1499    
1500     /* Flow control */
1501     switch (ts->Flow) {
1502     case IdFlowX:
1503     strncpy_s(Temp, sizeof(Temp), "x", _TRUNCATE);
1504     break;
1505     case IdFlowHard:
1506     strncpy_s(Temp, sizeof(Temp), "hard", _TRUNCATE);
1507     break;
1508     default:
1509     strncpy_s(Temp, sizeof(Temp), "none", _TRUNCATE);
1510     }
1511     WritePrivateProfileString(Section, "FlowCtrl", Temp, FName);
1512    
1513     /* Delay per character */
1514     WriteInt(Section, "DelayPerChar", FName, ts->DelayPerChar);
1515    
1516     /* Delay per line */
1517     WriteInt(Section, "DelayPerLine", FName, ts->DelayPerLine);
1518    
1519     /* Telnet flag */
1520     WriteOnOff(Section, "Telnet", FName, ts->Telnet);
1521    
1522     /* Telnet terminal type */
1523     WritePrivateProfileString(Section, "TermType", ts->TermType, FName);
1524    
1525     /* TCP port num for non-telnet */
1526     WriteUint(Section, "TCPPort", FName, ts->TCPPort);
1527    
1528     /* Auto close flag */
1529     WriteOnOff(Section, "AutoWinClose", FName, ts->AutoWinClose);
1530    
1531     /* History list */
1532     WriteOnOff(Section, "Historylist", FName, ts->HistoryList);
1533    
1534     /* File transfer binary flag */
1535     WriteOnOff(Section, "TransBin", FName, ts->TransBin);
1536    
1537     /* Log append */
1538     WriteOnOff(Section, "LogAppend", FName, ts->Append);
1539    
1540     /* File transfer binary flag */
1541     WriteOnOff(Section, "LogTypePlainText", FName, ts->LogTypePlainText);
1542    
1543     /* Log with timestamp (2006.7.23 maya) */
1544     WriteOnOff(Section, "LogTimestamp", FName, ts->LogTimestamp);
1545    
1546     /* Log without transfer dialog */
1547     WriteOnOff(Section, "LogHideDialog", FName, ts->LogHideDialog);
1548    
1549     /* Default Log file name (2006.8.28 maya) */
1550     WritePrivateProfileString(Section, "LogDefaultName",
1551 doda 2496 ts->LogDefaultName, FName);
1552 maya 2476
1553     /* Default Log file path (2007.5.30 maya) */
1554     WritePrivateProfileString(Section, "LogDefaultPath",
1555 doda 2496 ts->LogDefaultPath, FName);
1556 maya 2476
1557     /* Auto start logging (2007.5.31 maya) */
1558     WriteOnOff(Section, "LogAutoStart", FName, ts->LogAutoStart);
1559    
1560     /* XMODEM option */
1561     switch (ts->XmodemOpt) {
1562     case XoptCRC:
1563     strncpy_s(Temp, sizeof(Temp), "crc", _TRUNCATE);
1564     break;
1565     case Xopt1K:
1566     strncpy_s(Temp, sizeof(Temp), "1k", _TRUNCATE);
1567     break;
1568     default:
1569     strncpy_s(Temp, sizeof(Temp), "checksum", _TRUNCATE);
1570     }
1571     WritePrivateProfileString(Section, "XmodemOpt", Temp, FName);
1572    
1573     /* XMODEM binary flag */
1574     WriteOnOff(Section, "XmodemBin", FName, ts->XmodemBin);
1575    
1576     /* XMODEM ���M�R�}���h (2007.12.21 yutaka) */
1577 doda 2496 WritePrivateProfileString(Section, "XmodemRcvCommand",
1578     ts->XModemRcvCommand, FName);
1579 maya 2476
1580     /* Default directory for file transfer */
1581     WritePrivateProfileString(Section, "FileDir", ts->FileDir, FName);
1582    
1583     /* filter on file send (2007.6.5 maya) */
1584     WritePrivateProfileString(Section, "FileSendFilter",
1585 doda 2496 ts->FileSendFilter, FName);
1586 maya 2476
1587     /*------------------------------------------------------------------*/
1588     /* 8 bit control code flag -- special option */
1589     WriteOnOff(Section, "Accept8BitCtrl", FName,
1590 doda 2496 (WORD) (ts->TermFlag & TF_ACCEPT8BITCTRL));
1591 maya 2476
1592     /* Wrong sequence flag -- special option */
1593     WriteOnOff(Section, "AllowWrongSequence", FName,
1594 doda 2496 (WORD) (ts->TermFlag & TF_ALLOWWRONGSEQUENCE));
1595 maya 2476
1596     /* Auto file renaming --- special option */
1597     WriteOnOff(Section, "AutoFileRename", FName,
1598 doda 2496 (WORD) (ts->FTFlag & FT_RENAME));
1599 maya 2476
1600     /* Auto text copy --- special option */
1601     WriteOnOff(Section, "AutoTextCopy", FName, ts->AutoTextCopy);
1602    
1603     /* Back wrap -- special option */
1604     WriteOnOff(Section, "BackWrap", FName,
1605     (WORD) (ts->TermFlag & TF_BACKWRAP));
1606    
1607     /* Beep type -- special option */
1608     WriteOnOff(Section, "Beep", FName, ts->Beep);
1609    
1610     /* Beep on connection & disconnection -- special option */
1611     WriteOnOff(Section, "BeepOnConnect", FName,
1612     (WORD) (ts->PortFlag & PF_BEEPONCONNECT));
1613    
1614     /* Auto B-Plus activation -- special option */
1615     WriteOnOff(Section, "BPAuto", FName, (WORD) (ts->FTFlag & FT_BPAUTO));
1616    
1617     /* B-Plus ESCCTL flag -- special option */
1618     WriteOnOff(Section, "BPEscCtl", FName,
1619     (WORD) (ts->FTFlag & FT_BPESCCTL));
1620    
1621     /* B-Plus log -- special option */
1622     WriteOnOff(Section, "BPLog", FName, (WORD) (ts->LogFlag & LOG_BP));
1623    
1624     /* Clear serial port buffer when port opening -- special option */
1625     WriteOnOff(Section, "ClearComBuffOnOpen", FName, ts->ClearComBuffOnOpen);
1626    
1627     /* Confirm disconnection -- special option */
1628     WriteOnOff(Section, "ConfirmDisconnect", FName,
1629     (WORD) (ts->PortFlag & PF_CONFIRMDISCONN));
1630    
1631     /* Ctrl code in Kanji -- special option */
1632     WriteOnOff(Section, "CtrlInKanji", FName,
1633     (WORD) (ts->TermFlag & TF_CTRLINKANJI));
1634    
1635     /* Debug flag -- special option */
1636     WriteOnOff(Section, "Debug", FName, ts->Debug);
1637    
1638     /* Delimiter list -- special option */
1639     Str2Hex(ts->DelimList, Temp, strlen(ts->DelimList),
1640     sizeof(Temp) - 1, TRUE);
1641     WritePrivateProfileString(Section, "DelimList", Temp, FName);
1642    
1643     /* regard DBCS characters as delimiters -- special option */
1644     WriteOnOff(Section, "DelimDBCS", FName, ts->DelimDBCS);
1645    
1646     // Enable popup menu -- special option
1647     if ((ts->MenuFlag & MF_NOPOPUP) == 0)
1648     WriteOnOff(Section, "EnablePopupMenu", FName, 1);
1649     else
1650     WriteOnOff(Section, "EnablePopupMenu", FName, 0);
1651    
1652     // Enable "Show menu" -- special option
1653     if ((ts->MenuFlag & MF_NOSHOWMENU) == 0)
1654     WriteOnOff(Section, "EnableShowMenu", FName, 1);
1655     else
1656     WriteOnOff(Section, "EnableShowMenu", FName, 0);
1657    
1658     /* Enable the status line -- special option */
1659     WriteOnOff(Section, "EnableStatusLine", FName,
1660     (WORD) (ts->TermFlag & TF_ENABLESLINE));
1661    
1662     /* IME Flag -- special option */
1663     WriteOnOff(Section, "IME", FName, ts->UseIME);
1664    
1665     /* IME-inline Flag -- special option */
1666     WriteOnOff(Section, "IMEInline", FName, ts->IMEInline);
1667    
1668     /* Kermit log -- special option */
1669     WriteOnOff(Section, "KmtLog", FName, (WORD) (ts->LogFlag & LOG_KMT));
1670    
1671     // Enable language selection -- special option
1672     if ((ts->MenuFlag & MF_NOLANGUAGE) == 0)
1673     WriteOnOff(Section, "LanguageSelection", FName, 1);
1674     else
1675     WriteOnOff(Section, "LanguageSelection", FName, 0);
1676    
1677     /* Maximum scroll buffer size -- special option */
1678     WriteInt(Section, "MaxBuffSize", FName, ts->ScrollBuffMax);
1679    
1680     /* Max com port number -- special option */
1681     WriteInt(Section, "MaxComPort", FName, ts->MaxComPort);
1682    
1683     /* Non-blinking cursor -- special option */
1684     WriteOnOff(Section, "NonblinkingCursor", FName, ts->NonblinkingCursor);
1685    
1686     WriteOnOff(Section, "KillFocusCursor", FName, ts->KillFocusCursor);
1687    
1688     /* Delay for pass-thru printing activation */
1689     /* -- special option */
1690     WriteUint(Section, "PassThruDelay", FName, ts->PassThruDelay);
1691    
1692     /* Printer port for pass-thru printing */
1693     /* -- special option */
1694     WritePrivateProfileString(Section, "PassThruPort", ts->PrnDev, FName);
1695    
1696     /* Printer Font --- special option */
1697     WriteFont(Section, "PrnFont", FName,
1698     ts->PrnFont, ts->PrnFontSize.x, ts->PrnFontSize.y,
1699     ts->PrnFontCharSet);
1700    
1701     // Page margins (left, right, top, bottom) for printing
1702     // -- special option
1703     WriteInt4(Section, "PrnMargin", FName,
1704     ts->PrnMargin[0], ts->PrnMargin[1],
1705     ts->PrnMargin[2], ts->PrnMargin[3]);
1706    
1707     /* Quick-VAN log -- special option */
1708     WriteOnOff(Section, "QVLog", FName, (WORD) (ts->LogFlag & LOG_QV));
1709    
1710     /* Quick-VAN window size -- special */
1711     WriteInt(Section, "QVWinSize", FName, ts->QVWinSize);
1712    
1713     /* Russian character set (print) -- special option */
1714     id2str(RussList, ts->RussPrint, IdWindows, Temp, sizeof(Temp));
1715     WritePrivateProfileString(Section, "RussPrint", Temp, FName);
1716    
1717     /* Scroll threshold -- special option */
1718     WriteInt(Section, "ScrollThreshold", FName, ts->ScrollThreshold);
1719    
1720     WriteInt(Section, "MouseWheelScrollLine", FName, ts->MouseWheelScrollLine);
1721    
1722     // Select on activate -- special option
1723     WriteOnOff(Section, "SelectOnActivate", FName, ts->SelOnActive);
1724    
1725     /* Send 8bit control sequence -- special option */
1726     WriteOnOff(Section, "Send8BitCtrl", FName, ts->Send8BitCtrl);
1727    
1728     /* Startup macro -- special option */
1729     WritePrivateProfileString(Section, "StartupMacro", ts->MacroFN, FName);
1730    
1731     /* TEK GIN Mouse keycode -- special option */
1732     WriteInt(Section, "TEKGINMouseCode", FName, ts->GINMouseCode);
1733    
1734     /* Telnet Auto Detect -- special option */
1735     WriteOnOff(Section, "TelAutoDetect", FName, ts->TelAutoDetect);
1736    
1737     /* Telnet binary flag -- special option */
1738     WriteOnOff(Section, "TelBin", FName, ts->TelBin);
1739    
1740     /* Telnet Echo flag -- special option */
1741     WriteOnOff(Section, "TelEcho", FName, ts->TelEcho);
1742    
1743     /* Telnet log -- special option */
1744     WriteOnOff(Section, "TelLog", FName, (WORD) (ts->LogFlag & LOG_TEL));
1745    
1746     /* TCP port num for telnet -- special option */
1747     WriteUint(Section, "TelPort", FName, ts->TelPort);
1748    
1749     /* Telnet keep-alive packet(NOP command) interval -- special option */
1750     WriteUint(Section, "TelKeepAliveInterval", FName,
1751     ts->TelKeepAliveInterval);
1752    
1753     /* Max number of broadcast commad history */
1754     WriteUint(Section, "MaxBroadcatHistory", FName,
1755     ts->MaxBroadcatHistory);
1756    
1757     /* Local echo for non-telnet */
1758     WriteOnOff(Section, "TCPLocalEcho", FName, ts->TCPLocalEcho);
1759    
1760     /* "new-line (transmit)" option for non-telnet -- special option */
1761     if (ts->TCPCRSend == IdCRLF)
1762     strncpy_s(Temp, sizeof(Temp), "CRLF", _TRUNCATE);
1763     else if (ts->TCPCRSend == IdCR)
1764     strncpy_s(Temp, sizeof(Temp), "CR", _TRUNCATE);
1765     else
1766     Temp[0] = 0;
1767     WritePrivateProfileString(Section, "TCPCRSend", Temp, FName);
1768    
1769     /* Use text (background) color for "white (black)"
1770     --- special option */
1771     WriteOnOff(Section, "UseTextColor", FName,
1772     (WORD) (ts->ColorFlag & CF_USETEXTCOLOR));
1773    
1774     /* Title format -- special option */
1775     WriteUint(Section, "TitleFormat", FName, ts->TitleFormat);
1776    
1777     /* VT Compatible Tab -- special option */
1778     WriteOnOff(Section, "VTCompatTab", FName, ts->VTCompatTab);
1779    
1780     /* VT Font space --- special option */
1781     WriteInt4(Section, "VTFontSpace", FName,
1782     ts->FontDX, ts->FontDW - ts->FontDX,
1783     ts->FontDY, ts->FontDH - ts->FontDY);
1784    
1785     // VT-print scaling factors (pixels per inch) --- special option
1786     WriteInt2(Section, "VTPPI", FName, ts->VTPPI.x, ts->VTPPI.y);
1787    
1788     // TEK-print scaling factors (pixels per inch) --- special option
1789     WriteInt2(Section, "TEKPPI", FName, ts->TEKPPI.x, ts->TEKPPI.y);
1790    
1791     // Show "Window" menu -- special option
1792     WriteOnOff(Section, "WindowMenu", FName,
1793     (WORD) (ts->MenuFlag & MF_SHOWWINMENU));
1794    
1795     /* XMODEM log -- special option */
1796     WriteOnOff(Section, "XmodemLog", FName, (WORD) (ts->LogFlag & LOG_X));
1797    
1798     /* Auto ZMODEM activation -- special option */
1799     WriteOnOff(Section, "ZmodemAuto", FName,
1800     (WORD) (ts->FTFlag & FT_ZAUTO));
1801    
1802     /* ZMODEM data subpacket length for sending -- special */
1803     WriteInt(Section, "ZmodemDataLen", FName, ts->ZmodemDataLen);
1804     /* ZMODEM window size for sending -- special */
1805     WriteInt(Section, "ZmodemWinSize", FName, ts->ZmodemWinSize);
1806    
1807     /* ZMODEM ESCCTL flag -- special option */
1808     WriteOnOff(Section, "ZmodemEscCtl", FName,
1809     (WORD) (ts->FTFlag & FT_ZESCCTL));
1810    
1811     /* ZMODEM log -- special option */
1812     WriteOnOff(Section, "ZmodemLog", FName, (WORD) (ts->LogFlag & LOG_Z));
1813    
1814     /* ZMODEM ���M�R�}���h (2007.12.21 yutaka) */
1815     WritePrivateProfileString(Section, "ZmodemRcvCommand", ts->ZModemRcvCommand, FName);
1816    
1817     /* update file */
1818     WritePrivateProfileString(NULL, NULL, NULL, FName);
1819    
1820     // Eterm lookfeel alphablend (2005.4.24 yutaka)
1821     #define ETERM_SECTION "BG"
1822     WriteOnOff(ETERM_SECTION, "BGEnable", FName,
1823     ts->EtermLookfeel.BGEnable);
1824     WriteOnOff(ETERM_SECTION, "BGUseAlphaBlendAPI", FName,
1825     ts->EtermLookfeel.BGUseAlphaBlendAPI);
1826     WritePrivateProfileString(ETERM_SECTION, "BGSPIPath",
1827     ts->EtermLookfeel.BGSPIPath, FName);
1828     WriteOnOff(ETERM_SECTION, "BGFastSizeMove", FName,
1829     ts->EtermLookfeel.BGFastSizeMove);
1830     WriteOnOff(ETERM_SECTION, "BGFlickerlessMove", FName,
1831     ts->EtermLookfeel.BGNoCopyBits);
1832     WriteOnOff(ETERM_SECTION, "BGNoFrame", FName,
1833     ts->EtermLookfeel.BGNoFrame);
1834     WritePrivateProfileString(ETERM_SECTION, "BGThemeFile",
1835     ts->EtermLookfeel.BGThemeFile, FName);
1836    
1837     #ifdef USE_NORMAL_BGCOLOR
1838     // UseNormalBGColor
1839     WriteOnOff(Section, "UseNormalBGColor", FName, ts->UseNormalBGColor);
1840     #endif
1841    
1842     // UI language message file
1843     WritePrivateProfileString(Section, "UILanguageFile",
1844     ts->UILanguageFile_ini, FName);
1845    
1846     // Broadcast Command History (2007.3.3 maya)
1847     WriteOnOff(Section, "BroadcastCommandHistory", FName,
1848     ts->BroadcastCommandHistory);
1849    
1850     // 337: 2007/03/20 Accept Broadcast
1851     WriteOnOff(Section, "AcceptBroadcast", FName, ts->AcceptBroadcast);
1852    
1853     // Confirm send a file when drag and drop (2007.12.28 maya)
1854     WriteOnOff(Section, "ConfirmFileDragAndDrop", FName,
1855     ts->ConfirmFileDragAndDrop);
1856    
1857     // Translate mouse wheel to cursor key when application cursor mode
1858     WriteOnOff(Section, "TranslateWheelToCursor", FName,
1859     ts->TranslateWheelToCursor);
1860    
1861     // Display "New Connection" dialog on startup (2008.1.18 maya)
1862     WriteOnOff(Section, "HostDialogOnStartup", FName,
1863     ts->HostDialogOnStartup);
1864    
1865     // Mouse event tracking
1866     WriteOnOff(Section, "MouseEventTracking", FName,
1867     ts->MouseEventTracking);
1868    
1869     // Maximized bug tweak
1870 doda 2496 WriteOnOff(Section, "MaximizedBugTweak", FName, ts->MaximizedBugTweak);
1871    
1872     // Convert UTF-8 BoxDrawing to DEC Special characters
1873     WriteOnOff(Section, "UTF8BoxDrawing", FName, ts->UTF8BoxDrawing);
1874 maya 2476 }
1875    
1876     #define VTEditor "VT editor keypad"
1877     #define VTNumeric "VT numeric keypad"
1878     #define VTFunction "VT function keys"
1879     #define XFunction "X function keys"
1880     #define ShortCut "Shortcut keys"
1881    
1882     void GetInt(PKeyMap KeyMap, int KeyId, PCHAR Sect, PCHAR Key, PCHAR FName)
1883     {
1884     char Temp[11];
1885     WORD Num;
1886    
1887     GetPrivateProfileString(Sect, Key, "", Temp, sizeof(Temp), FName);
1888     if (Temp[0] == 0)
1889     Num = 0xFFFF;
1890     else if (_stricmp(Temp, "off") == 0)
1891     Num = 0xFFFF;
1892     else if (sscanf(Temp, "%d", &Num) != 1)
1893     Num = 0xFFFF;
1894    
1895     KeyMap->Map[KeyId - 1] = Num;
1896     }
1897    
1898     void FAR PASCAL ReadKeyboardCnf
1899     (PCHAR FName, PKeyMap KeyMap, BOOL ShowWarning) {
1900     int i, j, Ptr;
1901     char EntName[7];
1902     char TempStr[221];
1903     char KStr[201];
1904    
1905     // clear key map
1906     for (i = 0; i <= IdKeyMax - 1; i++)
1907     KeyMap->Map[i] = 0xFFFF;
1908     for (i = 0; i <= NumOfUserKey - 1; i++) {
1909     KeyMap->UserKeyPtr[i] = 0;
1910     KeyMap->UserKeyLen[i] = 0;
1911     }
1912    
1913     // VT editor keypad
1914     GetInt(KeyMap, IdUp, VTEditor, "Up", FName);
1915    
1916     GetInt(KeyMap, IdDown, VTEditor, "Down", FName);
1917    
1918     GetInt(KeyMap, IdRight, VTEditor, "Right", FName);
1919    
1920     GetInt(KeyMap, IdLeft, VTEditor, "Left", FName);
1921    
1922     GetInt(KeyMap, IdFind, VTEditor, "Find", FName);
1923    
1924     GetInt(KeyMap, IdInsert, VTEditor, "Insert", FName);
1925    
1926     GetInt(KeyMap, IdRemove, VTEditor, "Remove", FName);
1927    
1928     GetInt(KeyMap, IdSelect, VTEditor, "Select", FName);
1929    
1930     GetInt(KeyMap, IdPrev, VTEditor, "Prev", FName);
1931    
1932     GetInt(KeyMap, IdNext, VTEditor, "Next", FName);
1933    
1934     // VT numeric keypad
1935     GetInt(KeyMap, Id0, VTNumeric, "Num0", FName);
1936    
1937     GetInt(KeyMap, Id1, VTNumeric, "Num1", FName);
1938    
1939     GetInt(KeyMap, Id2, VTNumeric, "Num2", FName);
1940    
1941     GetInt(KeyMap, Id3, VTNumeric, "Num3", FName);
1942    
1943     GetInt(KeyMap, Id4, VTNumeric, "Num4", FName);
1944    
1945     GetInt(KeyMap, Id5, VTNumeric, "Num5", FName);
1946    
1947     GetInt(KeyMap, Id6, VTNumeric, "Num6", FName);
1948    
1949     GetInt(KeyMap, Id7, VTNumeric, "Num7", FName);
1950    
1951     GetInt(KeyMap, Id8, VTNumeric, "Num8", FName);
1952    
1953     GetInt(KeyMap, Id9, VTNumeric, "Num9", FName);
1954    
1955     GetInt(KeyMap, IdMinus, VTNumeric, "NumMinus", FName);
1956    
1957     GetInt(KeyMap, IdComma, VTNumeric, "NumComma", FName);
1958    
1959     GetInt(KeyMap, IdPeriod, VTNumeric, "NumPeriod", FName);
1960    
1961     GetInt(KeyMap, IdEnter, VTNumeric, "NumEnter", FName);
1962    
1963     GetInt(KeyMap, IdSlash, VTNumeric, "NumSlash", FName);
1964    
1965     GetInt(KeyMap, IdAsterisk, VTNumeric, "NumAsterisk", FName);
1966    
1967     GetInt(KeyMap, IdPlus, VTNumeric, "NumPlus", FName);
1968    
1969     GetInt(KeyMap, IdPF1, VTNumeric, "PF1", FName);
1970    
1971     GetInt(KeyMap, IdPF2, VTNumeric, "PF2", FName);
1972    
1973     GetInt(KeyMap, IdPF3, VTNumeric, "PF3", FName);
1974    
1975     GetInt(KeyMap, IdPF4, VTNumeric, "PF4", FName);
1976    
1977     // VT function keys
1978     GetInt(KeyMap, IdHold, VTFunction, "Hold", FName);
1979    
1980     GetInt(KeyMap, IdPrint, VTFunction, "Print", FName);
1981    
1982     GetInt(KeyMap, IdBreak, VTFunction, "Break", FName);
1983    
1984     GetInt(KeyMap, IdF6, VTFunction, "F6", FName);
1985    
1986     GetInt(KeyMap, IdF7, VTFunction, "F7", FName);
1987    
1988     GetInt(KeyMap, IdF8, VTFunction, "F8", FName);
1989    
1990     GetInt(KeyMap, IdF9, VTFunction, "F9", FName);
1991    
1992     GetInt(KeyMap, IdF10, VTFunction, "F10", FName);
1993    
1994     GetInt(KeyMap, IdF11, VTFunction, "F11", FName);
1995    
1996     GetInt(KeyMap, IdF12, VTFunction, "F12", FName);
1997    
1998     GetInt(KeyMap, IdF13, VTFunction, "F13", FName);
1999    
2000     GetInt(KeyMap, IdF14, VTFunction, "F14", FName);
2001    
2002     GetInt(KeyMap, IdHelp, VTFunction, "Help", FName);
2003    
2004     GetInt(KeyMap, IdDo, VTFunction, "Do", FName);
2005    
2006     GetInt(KeyMap, IdF17, VTFunction, "F17", FName);
2007    
2008     GetInt(KeyMap, IdF18, VTFunction, "F18", FName);
2009    
2010     GetInt(KeyMap, IdF19, VTFunction, "F19", FName);
2011    
2012     GetInt(KeyMap, IdF20, VTFunction, "F20", FName);
2013    
2014     // UDK
2015     GetInt(KeyMap, IdUDK6, VTFunction, "UDK6", FName);
2016    
2017     GetInt(KeyMap, IdUDK7, VTFunction, "UDK7", FName);
2018    
2019     GetInt(KeyMap, IdUDK8, VTFunction, "UDK8", FName);
2020    
2021     GetInt(KeyMap, IdUDK9, VTFunction, "UDK9", FName);
2022    
2023     GetInt(KeyMap, IdUDK10, VTFunction, "UDK10", FName);
2024    
2025     GetInt(KeyMap, IdUDK11, VTFunction, "UDK11", FName);
2026    
2027     GetInt(KeyMap, IdUDK12, VTFunction, "UDK12", FName);
2028    
2029     GetInt(KeyMap, IdUDK13, VTFunction, "UDK13", FName);
2030    
2031     GetInt(KeyMap, IdUDK14, VTFunction, "UDK14", FName);
2032    
2033     GetInt(KeyMap, IdUDK15, VTFunction, "UDK15", FName);
2034    
2035     GetInt(KeyMap, IdUDK16, VTFunction, "UDK16", FName);
2036    
2037     GetInt(KeyMap, IdUDK17, VTFunction, "UDK17", FName);
2038    
2039     GetInt(KeyMap, IdUDK18, VTFunction, "UDK18", FName);
2040    
2041     GetInt(KeyMap, IdUDK19, VTFunction, "UDK19", FName);
2042    
2043     GetInt(KeyMap, IdUDK20, VTFunction, "UDK20", FName);
2044    
2045     // XTERM function keys
2046     GetInt(KeyMap, IdXF1, XFunction, "XF1", FName);
2047    
2048     GetInt(KeyMap, IdXF2, XFunction, "XF2", FName);
2049    
2050     GetInt(KeyMap, IdXF3, XFunction, "XF3", FName);
2051    
2052     GetInt(KeyMap, IdXF4, XFunction, "XF4", FName);
2053    
2054     GetInt(KeyMap, IdXF5, XFunction, "XF5", FName);
2055    
2056     // accelerator keys
2057     GetInt(KeyMap, IdCmdEditCopy, ShortCut, "EditCopy", FName);
2058    
2059     GetInt(KeyMap, IdCmdEditPaste, ShortCut, "EditPaste", FName);
2060    
2061     GetInt(KeyMap, IdCmdEditPasteCR, ShortCut, "EditPasteCR", FName);
2062    
2063     GetInt(KeyMap, IdCmdEditCLS, ShortCut, "EditCLS", FName);
2064    
2065     GetInt(KeyMap, IdCmdEditCLB, ShortCut, "EditCLB", FName);
2066    
2067     GetInt(KeyMap, IdCmdCtrlOpenTEK, ShortCut, "ControlOpenTEK", FName);
2068    
2069     GetInt(KeyMap, IdCmdCtrlCloseTEK, ShortCut, "ControlCloseTEK", FName);
2070    
2071     GetInt(KeyMap, IdCmdLineUp, ShortCut, "LineUp", FName);
2072    
2073     GetInt(KeyMap, IdCmdLineDown, ShortCut, "LineDown", FName);
2074    
2075     GetInt(KeyMap, IdCmdPageUp, ShortCut, "PageUp", FName);
2076    
2077     GetInt(KeyMap, IdCmdPageDown, ShortCut, "PageDown", FName);
2078    
2079     GetInt(KeyMap, IdCmdBuffTop, ShortCut, "BuffTop", FName);
2080    
2081     GetInt(KeyMap, IdCmdBuffBottom, ShortCut, "BuffBottom", FName);
2082    
2083     GetInt(KeyMap, IdCmdNextWin, ShortCut, "NextWin", FName);
2084    
2085     GetInt(KeyMap, IdCmdPrevWin, ShortCut, "PrevWin", FName);
2086    
2087     GetInt(KeyMap, IdCmdLocalEcho, ShortCut, "LocalEcho", FName);
2088    
2089 doda 2479 GetInt(KeyMap, IdScrollLock, ShortCut, "ScrollLock", FName);
2090    
2091 maya 2476 /* user keys */
2092    
2093     Ptr = 0;
2094    
2095     strncpy_s(EntName, sizeof(EntName), "User", _TRUNCATE);
2096     i = IdUser1;
2097     do {
2098     uint2str(i - IdUser1 + 1, &EntName[4], sizeof(EntName) - 4, 2);
2099     GetPrivateProfileString("User keys", EntName, "",
2100     TempStr, sizeof(TempStr), FName);
2101     if (strlen(TempStr) > 0) {
2102     /* scan code */
2103     GetNthString(TempStr, 1, sizeof(KStr), KStr);
2104     if (_stricmp(KStr, "off") == 0)
2105     KeyMap->Map[i - 1] = 0xFFFF;
2106     else {
2107     GetNthNum(TempStr, 1, &j);
2108     KeyMap->Map[i - 1] = (WORD) j;
2109     }
2110     /* conversion flag */
2111     GetNthNum(TempStr, 2, &j);
2112     KeyMap->UserKeyType[i - IdUser1] = (BYTE) j;
2113     /* key string */
2114     /* GetNthString(TempStr,3,sizeof(KStr),KStr); */
2115     KeyMap->UserKeyPtr[i - IdUser1] = Ptr;
2116     /* KeyMap->UserKeyLen[i-IdUser1] =
2117     Hex2Str(KStr,&(KeyMap->UserKeyStr[Ptr]),KeyStrMax-Ptr+1);
2118     */
2119     GetNthString(TempStr, 3, KeyStrMax - Ptr + 1,
2120     &(KeyMap->UserKeyStr[Ptr]));
2121     KeyMap->UserKeyLen[i - IdUser1] =
2122     strlen(&(KeyMap->UserKeyStr[Ptr]));
2123     Ptr = Ptr + KeyMap->UserKeyLen[i - IdUser1];
2124     }
2125    
2126     i++;
2127     }
2128     while ((i <= IdKeyMax) && (strlen(TempStr) > 0) && (Ptr <= KeyStrMax));
2129    
2130     for (j = 1; j <= IdKeyMax - 1; j++)
2131     if (KeyMap->Map[j] != 0xFFFF)
2132     for (i = 0; i <= j - 1; i++)
2133     if (KeyMap->Map[i] == KeyMap->Map[j]) {
2134     if (ShowWarning) {
2135     _snprintf_s(TempStr, sizeof(TempStr), _TRUNCATE,
2136     "Keycode %d is used more than once",
2137     KeyMap->Map[j]);
2138     MessageBox(0, TempStr,
2139     "Tera Term: Error in keyboard setup file",
2140     MB_ICONEXCLAMATION);
2141     }
2142     KeyMap->Map[i] = 0xFFFF;
2143     }
2144     }
2145    
2146     void FAR PASCAL CopySerialList(PCHAR IniSrc, PCHAR IniDest, PCHAR section,
2147     PCHAR key)
2148     {
2149     int i;
2150     char EntName[10];
2151     char TempHost[HostNameMaxLength + 1];
2152    
2153     if (_stricmp(IniSrc, IniDest) == 0)
2154     return;
2155    
2156     WritePrivateProfileString(section, NULL, NULL, IniDest);
2157     strncpy_s(EntName, sizeof(EntName) - 2, key, _TRUNCATE);
2158    
2159     i = 1;
2160     do {
2161     uint2str(i, &EntName[strlen(key)],
2162     sizeof(EntName) - strlen(key), 2);
2163    
2164     /* Get one hostname from file IniSrc */
2165     GetPrivateProfileString(section, EntName, "",
2166     TempHost, sizeof(TempHost), IniSrc);
2167     /* Copy it to the file IniDest */
2168     if (strlen(TempHost) > 0)
2169     WritePrivateProfileString(section, EntName, TempHost, IniDest);
2170     i++;
2171     }
2172     while ((i <= 99) && (strlen(TempHost) > 0));
2173    
2174     /* update file */
2175     WritePrivateProfileString(NULL, NULL, NULL, IniDest);
2176     }
2177    
2178     void FAR PASCAL AddValueToList(PCHAR FName, PCHAR Host, PCHAR section,
2179     PCHAR key)
2180     {
2181     HANDLE MemH;
2182     PCHAR MemP;
2183     char EntName[10];
2184     int i, j, Len;
2185     BOOL Update;
2186    
2187     if ((FName[0] == 0) || (Host[0] == 0))
2188     return;
2189     MemH = GlobalAlloc(GHND, (HostNameMaxLength + 1) * 99);
2190     if (MemH == NULL)
2191     return;
2192     MemP = GlobalLock(MemH);
2193     if (MemP != NULL) {
2194     strncpy_s(MemP, (HostNameMaxLength + 1) * 99, Host, _TRUNCATE);
2195     j = strlen(Host) + 1;
2196     strncpy_s(EntName, sizeof(EntName), key, _TRUNCATE);
2197     i = 1;
2198     Update = TRUE;
2199     do {
2200     uint2str(i, &EntName[strlen(key)],
2201     sizeof(EntName) - strlen(key), 2);
2202    
2203     /* Get a hostname */
2204     GetPrivateProfileString(section, EntName, "",
2205     &MemP[j], HostNameMaxLength + 1,
2206     FName);
2207     Len = strlen(&MemP[j]);
2208     if (_stricmp(&MemP[j], Host) == 0) {
2209     if (i == 1)
2210     Update = FALSE;
2211     }
2212     else
2213     j = j + Len + 1;
2214     i++;
2215     } while ((i <= 99) && (Len != 0) && Update);
2216    
2217     if (Update) {
2218     WritePrivateProfileString(section, NULL, NULL, FName);
2219    
2220     j = 0;
2221     i = 1;
2222     do {
2223     uint2str(i, &EntName[strlen(key)],
2224     sizeof(EntName) - strlen(key), 2);
2225    
2226     if (MemP[j] != 0)
2227     WritePrivateProfileString(section, EntName, &MemP[j],
2228     FName);
2229     j = j + strlen(&MemP[j]) + 1;
2230     i++;
2231     } while ((i <= 99) && (MemP[j] != 0));
2232     /* update file */
2233     WritePrivateProfileString(NULL, NULL, NULL, FName);
2234     }
2235     GlobalUnlock(MemH);
2236     }
2237     GlobalFree(MemH);
2238     }
2239    
2240     /* copy hostlist from source IniFile to dest IniFile */
2241     void FAR PASCAL CopyHostList(PCHAR IniSrc, PCHAR IniDest)
2242     {
2243     CopySerialList(IniSrc, IniDest, "Hosts", "Host");
2244     }
2245    
2246     void FAR PASCAL AddHostToList(PCHAR FName, PCHAR Host)
2247     {
2248     AddValueToList(FName, Host, "Hosts", "Host");
2249     }
2250    
2251     BOOL NextParam(PCHAR Param, int *i, PCHAR Temp, int Size)
2252     {
2253     int j;
2254     char c;
2255     BOOL Quoted;
2256    
2257     if ((unsigned int) (*i) >= strlen(Param))
2258     return FALSE;
2259     j = 0;
2260    
2261     while (Param[*i] == ' ')
2262     (*i)++;
2263    
2264     Quoted = FALSE;
2265     c = Param[*i];
2266     (*i)++;
2267     while ((c != 0) && (Quoted || (c != ' ')) &&
2268     (Quoted || (c != ';')) && (j < Size - 1)) {
2269     if (c == '"')
2270     Quoted = !Quoted;
2271     Temp[j] = c;
2272     j++;
2273     c = Param[*i];
2274     (*i)++;
2275     }
2276     if (!Quoted && (c == ';'))
2277     (*i)--;
2278    
2279     Temp[j] = 0;
2280     return (strlen(Temp) > 0);
2281     }
2282    
2283     void Dequote(PCHAR Source, PCHAR Dest)
2284     {
2285     int i, j;
2286     char q, c;
2287    
2288     Dest[0] = 0;
2289     if (Source[0] == 0)
2290     return;