![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ckuxla.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / e / bin / cku179|
Return to ckuxla.c CVS log | Up to [MW Coherent from dump] / coherent / e / bin / cku179 |
1.1 root 1: #ifndef NOCSETS
2: char *xlav = "Character Set Translation 5A(012), 21 Jan 92";
3:
4: /* C K U X L A */
5:
6: /* C-Kermit tables and functions supporting character set translation. */
7: /*
8: Author: Frank da Cruz ([email protected], [email protected]),
9: Columbia University Center for Computing Activities.
10: Copyright (C) 1989, 1992, Trustees of Columbia University in the City of New
11: York. Permission is granted to any individual or institution to use, copy, or
12: redistribute this software so long as it is not sold for profit, provided
13: this copyright notice is retained.
14: */
15:
16: /*
17: CAVEAT PROGRAMMOR: The mechanism used here turns out to be somewhat
18: inflexible and maybe a little dangerous. It is designed for Kermit's
19: character-at-a-time processing during protocol operations. Elaborate
20: kludges are used for translating one character into two (like stuffing an
21: extra character into the input stream), or two into one, or two into two.
22:
23: The whole translation business needs to be redesigned to be string-oriented
24: rather than character oriented, so (a) we can have more flexible
25: translations, and (b) we don't have to be concerned about which input stream
26: we are using. The current mechanism is also quite inappropriate
27: for multibyte character sets and for flexible user-defined translations.
28:
29: And finally, as this module grows to include different families of character
30: sets, it has become evident that the method for adding character sets, and
31: families of them, conditionally is incredibly cumbersome and error-prone,
32: and will only get worse. What is needed is a special preprocessor to assign
33: values to symbols based on whether certain other symbols are defined or not.
34: */
35: #include "ckcdeb.h" /* Includes... */
36: #include "ckcker.h"
37: #include "ckucmd.h"
38: #include "ckcxla.h"
39:
40: /* Character set translation data and functions */
41:
42: extern int zincnt; /* File i/o macros and variables */
43: extern char *zinptr;
44: extern int zoutcnt;
45: extern char *zoutptr;
46:
47: int tslevel = TS_L0; /* Transfer syntax level (0,1,2) */
48: int tcharset = TC_TRANSP; /* Transfer syntax character set */
49: int fcharset = FC_USASCII; /* Local file character set */
50: int tcsr = FC_USASCII; /* Remote terminal character set */
51: int tcsl = FC_USASCII; /* Local terminal character set */
52: int language = L_USASCII; /* Language */
53:
54: _PROTOTYP( CHAR xnel1, (CHAR c) ); /* NeXT to Latin-1 */
55: _PROTOTYP( CHAR xl143, (CHAR c) ); /* Latin-1 to IBM CP437 */
56: _PROTOTYP( CHAR xl1as, (CHAR c) ); /* Latin-1 to US ASCII */
57: _PROTOTYP( CHAR zl1as, (CHAR c) ); /* Latin-1 to US ASCII */
58: _PROTOTYP( CHAR xassk, (CHAR c) ); /* ASCII to Short KOI */
59: _PROTOTYP( CHAR xskcy, (CHAR c) ); /* Short KOI to Latin/Cyrillic */
60:
61: /* Transfer character-set info */
62:
63: struct csinfo tcsinfo[] = {
64: /* Name size code designator alphabet */
65: "Transparent text", 256, TC_TRANSP, "", AL_UNK, /* 0 */
66: "US ASCII 7-bit text", 128, TC_USASCII, "", AL_ROMAN, /* 1 */
67: "Latin-1 ISO 8859-1 text", 256, TC_1LATIN, "I6/100", AL_ROMAN /* 2 */
68: #ifdef CYRILLIC
69: , "Latin/Cyrillic ISO 8859-5 text",256,TC_CYRILL,"I6/144",AL_CYRIL /* 3 */
70: #endif /* CYRILLIC */
71: #ifdef KANJI
72: , "Japanese EUC (JAE)", 16384, TC_JEUC, "I14/87E", AL_JAPAN /* 4 */
73: #endif /* KANJI */
74: };
75: int ntcsets = (sizeof(tcsinfo) / sizeof(struct csinfo));
76:
77: struct keytab tcstab[] = { /* Keyword table for */
78: "ascii", TC_USASCII, 0, /* SET TRANSFER CHARACTER-SET */
79: #ifdef CYRILLIC
80: "cyrillic-iso", TC_CYRILL, 0,
81: #endif /* CYRILLIC */
82: #ifdef KANJI
83: "japanese-euc", TC_JEUC, 0,
84: #endif /* KANJI */
85: "latin1-iso", TC_1LATIN, 0,
86: "transparent", TC_TRANSP, 0
87: };
88: int ntcs = (sizeof(tcstab) / sizeof(struct keytab));
89:
90:
91: /* Grrr... Had to back off on moving this to ckuxla.h because that file */
92: /* is included by more than one module, so link complains about multiple */
93: /* definitions of _fcsinfo, _fcstab, etc. */
94:
95: /* File character set information structure, indexed by character set code, */
96: /* as defined in ckuxla.h. This table must be in order of file character */
97: /* set number! */
98:
99: struct csinfo fcsinfo[] = { /* File character set information... */
100: /* Descriptive Name Size Designator */
101: "US ASCII", 128, FC_USASCII, NULL, AL_ROMAN,
102: "British/UK NRC ISO-646", 128, FC_UKASCII, NULL, AL_ROMAN,
103: "Dutch NRC ISO-646", 128, FC_DUASCII, NULL, AL_ROMAN,
104: "Finnish NRC ISO-646", 128, FC_FIASCII, NULL, AL_ROMAN,
105: "French NRC ISO-646", 128, FC_FRASCII, NULL, AL_ROMAN,
106: "French-Canadian NRC ISO-646", 128, FC_FCASCII, NULL, AL_ROMAN,
107: "German NRC ISO-646", 128, FC_GEASCII, NULL, AL_ROMAN,
108: "Hungarian NRC ISO-646", 128, FC_HUASCII, NULL, AL_ROMAN,
109: "Italian NRC ISO-646", 128, FC_ITASCII, NULL, AL_ROMAN,
110: "Norwegian/Danish NRC ISO-646", 128, FC_NOASCII, NULL, AL_ROMAN,
111: "Portuguese NRC ISO-646", 128, FC_POASCII, NULL, AL_ROMAN,
112: "Spanish NRC ISO-646", 128, FC_SPASCII, NULL, AL_ROMAN,
113: "Swedish NRC ISO-646", 128, FC_SWASCII, NULL, AL_ROMAN,
114: "Swiss NRC ISO-646", 128, FC_CHASCII, NULL, AL_ROMAN,
115: "ISO Latin-1", 256, FC_1LATIN, NULL, AL_ROMAN,
116: "DEC Multinational", 256, FC_DECMCS, NULL, AL_ROMAN,
117: "NeXT Multinational", 256, FC_NEXT, NULL, AL_ROMAN,
118: "IBM Code Page 437", 256, FC_CP437, NULL, AL_ROMAN,
119: "IBM Code Page 850", 256, FC_CP850, NULL, AL_ROMAN,
120: "Apple Quickdraw", 256, FC_APPQD, NULL, AL_ROMAN,
121: "Data General Multinational", 256, FC_DGMCS, NULL, AL_ROMAN
122: #ifdef CYRILLIC
123: , "ISO Latin/Cyrillic", 256, FC_CYRILL, NULL, AL_CYRIL,
124: "CP866 Cyrillic", 256, FC_CP866, NULL, AL_CYRIL,
125: "Short KOI", 128, FC_KOI7, NULL, AL_CYRIL,
126: "Old KOI-8 Cyrillic", 256, FC_KOI8, NULL, AL_CYRIL
127: #endif /* CYRILLIC */
128: #ifdef KANJI
129: , "Japanese JIS7", 256, FC_JIS7, NULL, AL_JAPAN,
130: "Japanese Shift JIS", 16384, FC_SHJIS, NULL, AL_JAPAN,
131: "Japanese EUC", 16384, FC_JEUC, NULL, AL_JAPAN,
132: "Japanese DEC Kanji", 16384, FC_JDEC, NULL, AL_JAPAN
133: #endif /* KANJI */
134: };
135:
136: /* Local file character sets */
137: /* Includes 7-bit National Replacement Character Sets of ISO 646 */
138: /* Plus ISO Latin-1, DEC Multinational Character Set (MCS), NeXT char set */
139:
140: struct keytab fcstab[] = { /* Keyword table for 'set file character-set' */
141:
142: /*
143: IMPORTANT: This table is replicated below as ttcstab (terminal character
144: set table). The only difference is the addition of TRANSPARENT.
145: If you make changes to this table, also change ttcstab.
146: */
147:
148: /* Keyword Value Flags */
149: "apple-quickdraw", FC_APPQD, 0, /* Apple Quickdraw */
150: "ascii", FC_USASCII, 0, /* ASCII */
151: "british", FC_UKASCII, 0, /* British NRC */
152: "canadian-french", FC_FCASCII, 0, /* French Canadian NRC */
153: "cp437", FC_CP437, 0, /* IBM CP437 */
154: "cp850", FC_CP850, 0, /* IBM CP850 */
155: #ifdef CYRILLIC
156: "cp866-cyrillic", FC_CP866, 0, /* CP866 Cyrillic */
157: "cyrillic-iso", FC_CYRILL, 0, /* ISO Latin/Cyrillic Alphabet */
158: #endif /* CYRILLIC */
159: "danish", FC_NOASCII, 0, /* Norwegian and Danish NRC */
160: "dec-multinational", FC_DECMCS, 0, /* DEC multinational character set */
161: "dg-multinational", FC_DGMCS, 0, /* Data General multinational */
162: #ifdef KANJI
163: "dec-kanji", FC_JDEC, 0, /* Japanese DEC Kanji */
164: #endif /* KANJI */
165: "dutch", FC_DUASCII, 0, /* Dutch NRC */
166: "finnish", FC_FIASCII, 0, /* Finnish NRC */
167: "french", FC_FRASCII, 0, /* French NRC */
168: "fr-canadian", FC_FCASCII, CM_INV, /* French Canadian NRC */
169: "german", FC_GEASCII, 0, /* German NRC */
170: "hungarian", FC_HUASCII, 0, /* Hungarian NRC */
171: "italian", FC_ITASCII, 0, /* Italian NRC */
172: #ifdef KANJI
173: "japanese-euc", FC_JEUC, 0, /* Japanese EUC */
174: "jis7-kanji", FC_JIS7, 0, /* Japanese JIS7 7bit code */
175: #endif /* KANJI */
176: #ifdef CYRILLIC
177: "koi8-cyrillic", FC_KOI8, 0, /* Old KOI-8 Cyrillic */
178: #endif /* CYRILLIC */
179: "latin1-iso", FC_1LATIN, 0, /* ISO Latin Alphabet 1 */
180: "next-multinational", FC_NEXT, 0, /* NeXT workstation */
181: "norwegian", FC_NOASCII, 0, /* Norwegian and Danish NRC */
182: "portuguese", FC_POASCII, 0, /* Portuguese NRC */
183: #ifdef KANJI
184: "shift-jis-kanji", FC_SHJIS, 0, /* Japanese Kanji Shift-JIS */
185: #endif /* KANJI */
186: #ifdef CYRILLIC
187: "short-koi", FC_KOI7, 0, /* Short KOI Cyrillic */
188: #endif /* CYRILLIC */
189: "spanish", FC_SPASCII, 0, /* Spanish NRC */
190: "swedish", FC_SWASCII, 0, /* Swedish NRC */
191: "swiss", FC_CHASCII, 0 /* Swiss NRC */
192: };
193: int nfilc = (sizeof(fcstab) / sizeof(struct keytab)); /* size of this table */
194:
195:
196: struct keytab ttcstab[] = { /* Keyword table for SET TERMINAL CHARACTER-SET */
197: /*
198: IMPORTANT: This table is a replica of fcstab, immediately above, with the
199: addition of TRANSPARENT. If you make changes to this table, make the
200: corresponding changes to fcstab.
201: */
202: /* Keyword Value Flags */
203: "apple-quickdraw", FC_APPQD, 0, /* Apple Quickdraw */
204: "ascii", FC_USASCII, 0, /* ASCII */
205: "british", FC_UKASCII, 0, /* British NRC */
206: "canadian-french", FC_FCASCII, 0, /* French Canadian NRC */
207: "cp437", FC_CP437, 0, /* IBM CP437 */
208: "cp850", FC_CP850, 0, /* IBM CP850 */
209: #ifdef CYRILLIC
210: "cp866", FC_CP866, 0, /* CP866 Cyrillic */
211: "cyrillic-iso", FC_CYRILL, 0, /* ISO Latin/Cyrillic Alphabet */
212: #endif /* CYRILLIC */
213: "danish", FC_NOASCII, 0, /* Norwegian and Danish NRC */
214: "dec-multinational",FC_DECMCS, 0, /* DEC multinational character set */
215: "dg-multinational", FC_DGMCS, 0, /* Data General multinational */
216: "dutch", FC_DUASCII, 0, /* Dutch NRC */
217: "finnish", FC_FIASCII, 0, /* Finnish NRC */
218: "french", FC_FRASCII, 0, /* French NRC */
219: "fr-canadian", FC_FCASCII, CM_INV, /* French Canadian NRC */
220: "german", FC_GEASCII, 0, /* German NRC */
221: "hungarian", FC_HUASCII, 0, /* Hungarian NRC */
222: "italian", FC_ITASCII, 0, /* Italian NRC */
223: #ifdef COMMENT
224: /* Kanji terminal character sets not implemented yet */
225: #ifdef KANJI
226: "japan-euc", FC_JEUC, 0, /* Japanese EUC */
227: "jdec", FC_JDEC, 0, /* Japanese DEC Kanji */
228: "jis7", FC_JIS7, 0, /* Japanese JIS-7 */
229: #endif /* KANJI */
230: #endif /* COMMENT */
231: #ifdef CYRILLIC
232: "koi8-cyrillic", FC_KOI8, 0, /* Old KOI-8 Cyrillic */
233: #endif /* CYRILLIC */
234: "latin1", FC_1LATIN, 0, /* ISO Latin Alphabet 1 */
235: "next-multinational", FC_NEXT, 0, /* NeXT workstation */
236: "norwegian", FC_NOASCII, 0, /* Norwegian and Danish NRC */
237: "portuguese", FC_POASCII, 0, /* Portuguese NRC */
238: #ifdef COMMENT
239: /* Kanji terminal character sets not implemented yet. */
240: #ifdef KANJI
241: "shift-jis", FC_SHJIS, 0, /* Japanese Shift-JIS */
242: #endif /* KANJI */
243: #endif /* COMMENT */
244: #ifdef CYRILLIC
245: "short-koi", FC_KOI7, 0, /* Short KOI Cyrillic */
246: #endif /* CYRILLIC */
247: "spanish", FC_SPASCII, 0, /* Spanish NRC */
248: "swedish", FC_SWASCII, 0, /* Swedish NRC */
249: "swiss", FC_CHASCII, 0, /* Swiss NRC */
250: "transparent", FC_TRANSP, 0 /* Transparent */
251: };
252: int ntermc = (sizeof(ttcstab) / sizeof(struct keytab)); /* size of table */
253:
254: /*
255: Languages:
256:
257: This table allows C-Kermit to have a SET LANGUAGE command to apply special
258: language-specific rules when translating from a character set that contains
259: national characters into plain ASCII, like German umlaut-a becomes ae.
260:
261: Originally, I thought it would be a good idea to let SET LANGUAGE also select
262: an appropriate FILE CHARACTER-SET and TRANSFER CHARACTER-SET automatically,
263: and these are included in the langinfo structure. Later I realized that this
264: was a bad idea. Users are confused by unexpected side effects. If this
265: functionality is desired, it's better to define a macro to do it.
266: */
267:
268: struct langinfo langs[] = {
269: /* Language code File Charset Xfer Charset Name */
270: L_USASCII, FC_USASCII, TC_USASCII, "ASCII (American English)",
271: L_DANISH, FC_NOASCII, TC_1LATIN, "Danish",
272: L_DUTCH, FC_DUASCII, TC_1LATIN, "Dutch",
273: L_FINNISH, FC_FIASCII, TC_1LATIN, "Finnish",
274: L_FRENCH, FC_FRASCII, TC_1LATIN, "French",
275: L_GERMAN, FC_GEASCII, TC_1LATIN, "German",
276: L_HUNGARIAN, FC_HUASCII, TC_1LATIN, "Hungarian",
277: L_ICELANDIC, FC_USASCII, TC_1LATIN, "Icelandic",
278: L_ITALIAN, FC_ITASCII, TC_1LATIN, "Italian",
279: #ifdef KANJI
280: L_JAPANESE, FC_JEUC, TC_JEUC, "Japanese",
281: #endif /* KANJI */
282: L_NORWEGIAN, FC_NOASCII, TC_1LATIN, "Norwegian",
283: L_PORTUGUESE, FC_POASCII, TC_1LATIN, "Portuguese",
284: #ifdef CYRILLIC
285: L_RUSSIAN, FC_CP866, TC_CYRILL, "Russian",
286: #endif /* CYRILLIC */
287: L_SPANISH, FC_SPASCII, TC_1LATIN, "Spanish",
288: L_SWEDISH, FC_SWASCII, TC_1LATIN, "Swedish",
289: L_SWISS, FC_CHASCII, TC_1LATIN, "Swiss"
290: };
291: int nlangs = (sizeof(langs) / sizeof(struct langinfo));
292:
293: /*
294: Keyword table for the SET LANGUAGE command.
295: Only a few of these (German, Scandinavian, etc) actually do anything.
296: The language is used to invoke special translation rules when converting
297: from an 8-bit character set to ASCII; for example, German u-diaeresis
298: becomes "ue", Dutch y-diaeresis becomes "ij". Languages without associated
299: rules are invisible (CM_INV).
300: */
301: struct keytab lngtab[] = {
302: "ascii", L_USASCII, CM_INV,
303: "danish", L_DANISH, 0,
304: "dutch", L_DUTCH, 0,
305: "english", L_USASCII, CM_INV,
306: "finnish", L_FINNISH, 0,
307: "french", L_FRENCH, CM_INV,
308: "german", L_GERMAN, 0,
309: "hungarian", L_HUNGARIAN, CM_INV,
310: "icelandic", L_ICELANDIC, 0,
311: "italian", L_ITALIAN, CM_INV,
312: #ifdef KANJI
313: "japanese", L_JAPANESE, CM_INV,
314: #endif /* KANJI */
315: "norwegian", L_NORWEGIAN, 0,
316: "none", L_USASCII, 0,
317: "portuguese", L_PORTUGUESE, CM_INV,
318: #ifdef CYRILLIC
319: "russian", L_RUSSIAN, 0,
320: #endif /* CYRILLIC */
321: "spanish", L_SPANISH, CM_INV,
322: "swedish", L_SWEDISH, 0
323: };
324: int nlng = (sizeof(lngtab) / sizeof(struct keytab)); /* how many languages */
325:
326:
327: /* Translation tables ... */
328:
329: /*
330: Note, many more can and should be added, space permitting. Presently we
331: have TRANSPARENT, ASCII, LATIN1, and JAPANESE-EUC as transfer character sets
332: and ASCII, Latin-1, DEC-MCS, Apple Quickdraw, NeXT, various IBM code pages,
333: various Japanese sets, and many ISO-646 NRCs as file character sets. For
334: each pair of (transfer,file) character sets, we need two translation
335: functions, one for sending, one for receiving. These tables are appropriate
336: for US, European, and Soviet UNIX and VAX/VMS computers. When adapting
337: C-Kermit 5A to other computers that have different file character sets, a
338: new copy of this file must be constructed containing the appropriate tables.
339: */
340:
341: /*
342: Here is the first table, Latin-1 to ASCII, fully annotated...
343: This one is absolutely NOT invertible, since we're going from an 8-bit
344: set to a 7-bit set. Accented letters are mapped to unaccented
345: equivalents, C1 control characters are all translated to "?", etc.
346: */
347: CHAR
348: yl1as[] = { /* ISO 8859-1 Latin Alphabet 1 to US ASCII */
349: /* Source character Description => Translation */
350: /* Dec row/col Set */
351: 0, /* 000 00/00 C0 NUL Ctrl-@ => (self) */
352: 1, /* 001 00/01 C0 SOH Ctrl-A => (self) */
353: 2, /* 002 00/02 C0 STX Ctrl-B => (self) */
354: 3, /* 003 00/03 C0 ETX Ctrl-C => (self) */
355: 4, /* 004 00/04 C0 EOT Ctrl-D => (self) */
356: 5, /* 005 00/05 C0 ENQ Ctrl-E => (self) */
357: 6, /* 006 00/06 C0 ACK Ctrl-F => (self) */
358: 7, /* 007 00/07 C0 BEL Ctrl-G => (self) */
359: 8, /* 008 00/08 C0 BS Ctrl-H => (self) */
360: 9, /* 009 00/09 C0 HT Ctrl-I => (self) */
361: 10, /* 010 00/10 C0 LF Ctrl-J => (self) */
362: 11, /* 011 00/11 C0 VT Ctrl-K => (self) */
363: 12, /* 012 00/12 C0 FF Ctrl-L => (self) */
364: 13, /* 013 00/13 C0 CR Ctrl-M => (self) */
365: 14, /* 014 00/14 C0 SO Ctrl-N => (self) */
366: 15, /* 015 00/15 C0 SI Ctrl-O => (self) */
367: 16, /* 016 01/00 C0 DLE Ctrl-P => (self) */
368: 17, /* 017 01/01 C0 DC1 Ctrl-Q => (self) */
369: 18, /* 018 01/02 C0 DC2 Ctrl-R => (self) */
370: 19, /* 019 01/03 C0 DC3 Ctrl-S => (self) */
371: 20, /* 020 01/04 C0 DC4 Ctrl-T => (self) */
372: 21, /* 021 01/05 C0 NAK Ctrl-U => (self) */
373: 22, /* 022 01/06 C0 SYN Ctrl-V => (self) */
374: 23, /* 023 01/07 C0 ETB Ctrl-W => (self) */
375: 24, /* 024 01/08 C0 CAN Ctrl-X => (self) */
376: 25, /* 025 01/09 C0 EM Ctrl-Y => (self) */
377: 26, /* 026 01/10 C0 SUB Ctrl-Z => (self) */
378: 27, /* 027 01/11 C0 ESC Ctrl-[ => (self) */
379: 28, /* 028 01/12 C0 FS Ctrl-\ => (self) */
380: 29, /* 029 01/13 C0 GS Ctrl-] => (self) */
381: 30, /* 030 01/14 C0 RS Ctrl-^ => (self) */
382: 31, /* 031 01/15 C0 US Ctrl-_ => (self) */
383: 32, /* 032 02/00 SP Space => (self) */
384: 33, /* 033 02/01 G0 ! Exclamation mark => (self) */
385: 34, /* 034 02/02 G0 " Doublequote => (self) */
386: 35, /* 035 02/03 G0 # Number sign => (self) */
387: 36, /* 036 02/04 G0 $ Dollar sign => (self) */
388: 37, /* 037 02/05 G0 % Percent sign => (self) */
389: 38, /* 038 02/06 G0 & Ampersand => (self) */
390: 39, /* 039 02/07 G0 ' Apostrophe => (self) */
391: 40, /* 040 02/08 G0 ( Left parenthesis => (self) */
392: 41, /* 041 02/09 G0 ) Right parenthesis => (self) */
393: 42, /* 042 02/10 G0 * Asterisk => (self) */
394: 43, /* 043 02/11 G0 + Plus sign => (self) */
395: 44, /* 044 02/12 G0 , Comma => (self) */
396: 45, /* 045 02/13 G0 - Hyphen, minus sign => (self) */
397: 46, /* 046 02/14 G0 . Period, full stop => (self) */
398: 47, /* 047 02/15 G0 / Slash, solidus => (self) */
399: 48, /* 048 03/00 G0 0 Digit 0 => (self) */
400: 49, /* 049 03/01 G0 1 Digit 1 => (self) */
401: 50, /* 050 03/02 G0 2 Digit 2 => (self) */
402: 51, /* 051 03/03 G0 3 Digit 3 => (self) */
403: 52, /* 052 03/04 G0 4 Digit 4 => (self) */
404: 53, /* 053 03/05 G0 5 Digit 5 => (self) */
405: 54, /* 054 03/06 G0 6 Digit 6 => (self) */
406: 55, /* 055 03/07 G0 7 Digit 7 => (self) */
407: 56, /* 056 03/08 G0 8 Digit 8 => (self) */
408: 57, /* 057 03/09 G0 9 Digit 9 => (self) */
409: 58, /* 058 03/10 G0 : Colon => (self) */
410: 59, /* 059 03/11 G0 ; Semicolon => (self) */
411: 60, /* 060 03/12 G0 < Less-than sign => (self) */
412: 61, /* 061 03/13 G0 = Equals sign => (self) */
413: 62, /* 062 03/14 G0 > Greater-than sign => (self) */
414: 63, /* 063 03/15 G0 ? Question mark => (self) */
415: 64, /* 064 04/00 G0 @ Commercial at sign => (self) */
416: 65, /* 065 04/01 G0 A Letter A => (self) */
417: 66, /* 066 04/02 G0 B Letter B => (self) */
418: 67, /* 067 04/03 G0 C Letter C => (self) */
419: 68, /* 068 04/04 G0 D Letter D => (self) */
420: 69, /* 069 04/05 G0 E Letter E => (self) */
421: 70, /* 070 04/06 G0 F Letter F => (self) */
422: 71, /* 071 04/07 G0 G Letter G => (self) */
423: 72, /* 072 04/08 G0 H Letter H => (self) */
424: 73, /* 073 04/09 G0 I Letter I => (self) */
425: 74, /* 074 04/10 G0 J Letter J => (self) */
426: 75, /* 075 04/11 G0 K Letter K => (self) */
427: 76, /* 076 04/12 G0 L Letter L => (self) */
428: 77, /* 077 04/13 G0 M Letter M => (self) */
429: 78, /* 078 04/14 G0 N Letter N => (self) */
430: 79, /* 079 04/15 G0 O Letter O => (self) */
431: 80, /* 080 05/00 G0 P Letter P => (self) */
432: 81, /* 081 05/01 G0 Q Letter Q => (self) */
433: 82, /* 082 05/02 G0 R Letter R => (self) */
434: 83, /* 083 05/03 G0 S Letter S => (self) */
435: 84, /* 084 05/04 G0 T Letter T => (self) */
436: 85, /* 085 05/05 G0 U Letter U => (self) */
437: 86, /* 086 05/06 G0 V Letter V => (self) */
438: 87, /* 087 05/07 G0 W Letter W => (self) */
439: 88, /* 088 05/08 G0 X Letter X => (self) */
440: 89, /* 089 05/09 G0 Y Letter Y => (self) */
441: 90, /* 090 05/10 G0 Z Letter Z => (self) */
442: 91, /* 091 05/11 G0 [ Left square bracket => (self) */
443: 92, /* 092 05/12 G0 \ Reverse slash => (self) */
444: 93, /* 093 05/13 G0 ] Right square bracket => (self) */
445: 94, /* 094 05/14 G0 ^ Circumflex accent => (self) */
446: 95, /* 095 05/15 G0 _ Underline, low line => (self) */
447: 96, /* 096 06/00 G0 ` Grave accent => (self) */
448: 97, /* 097 06/01 G0 a Letter a => (self) */
449: 98, /* 098 06/02 G0 b Letter b => (self) */
450: 99, /* 099 06/03 G0 c Letter c => (self) */
451: 100, /* 100 06/04 G0 d Letter d => (self) */
452: 101, /* 101 06/05 G0 e Letter e => (self) */
453: 102, /* 102 06/06 G0 f Letter f => (self) */
454: 103, /* 103 06/07 G0 g Letter g => (self) */
455: 104, /* 104 06/08 G0 h Letter h => (self) */
456: 105, /* 105 06/09 G0 i Letter i => (self) */
457: 106, /* 106 06/10 G0 j Letter j => (self) */
458: 107, /* 107 06/11 G0 k Letter k => (self) */
459: 108, /* 108 06/12 G0 l Letter l => (self) */
460: 109, /* 109 06/13 G0 m Letter m => (self) */
461: 110, /* 110 06/14 G0 n Letter n => (self) */
462: 111, /* 111 06/15 G0 o Letter o => (self) */
463: 112, /* 112 07/00 G0 p Letter p => (self) */
464: 113, /* 113 07/01 G0 q Letter q => (self) */
465: 114, /* 114 07/02 G0 r Letter r => (self) */
466: 115, /* 115 07/03 G0 s Letter s => (self) */
467: 116, /* 116 07/04 G0 t Letter t => (self) */
468: 117, /* 117 07/05 G0 u Letter u => (self) */
469: 118, /* 118 07/06 G0 v Letter v => (self) */
470: 119, /* 119 07/07 G0 w Letter w => (self) */
471: 120, /* 120 07/08 G0 x Letter x => (self) */
472: 121, /* 121 07/09 G0 y Letter y => (self) */
473: 122, /* 122 07/10 G0 z Letter z => (self) */
474: 123, /* 123 07/11 G0 { Left curly bracket => (self) */
475: 124, /* 124 07/12 G0 | Vertical bar => (self) */
476: 125, /* 125 07/13 G0 } Right curly bracket => (self) */
477: 126, /* 126 07/14 G0 ~ Tilde => (self) */
478: 127, /* 127 07/15 DEL Delete, Rubout => (self) */
479: UNK, /* 128 08/00 C1 => UNK */
480: UNK, /* 129 08/01 C1 => UNK */
481: UNK, /* 130 08/02 C1 => UNK */
482: UNK, /* 131 08/03 C1 => UNK */
483: UNK, /* 132 08/04 C1 IND => UNK */
484: UNK, /* 133 08/05 C1 NEL => UNK */
485: UNK, /* 134 08/06 C1 SSA => UNK */
486: UNK, /* 135 08/07 C1 ESA => UNK */
487: UNK, /* 136 08/08 C1 HTS => UNK */
488: UNK, /* 137 08/09 C1 => UNK */
489: UNK, /* 138 08/10 C1 => UNK */
490: UNK, /* 139 08/11 C1 => UNK */
491: UNK, /* 140 08/12 C1 => UNK */
492: UNK, /* 141 08/13 C1 RI => UNK */
493: UNK, /* 142 08/14 C1 SS2 => UNK */
494: UNK, /* 143 08/15 C1 SS3 => UNK */
495: UNK, /* 144 09/00 C1 DCS => UNK */
496: UNK, /* 145 09/01 C1 => UNK */
497: UNK, /* 146 09/02 C1 => UNK */
498: UNK, /* 147 09/03 C1 STS => UNK */
499: UNK, /* 148 09/04 C1 => UNK */
500: UNK, /* 149 09/05 C1 => UNK */
501: UNK, /* 150 09/06 C1 SPA => UNK */
502: UNK, /* 151 09/07 C1 EPA => UNK */
503: UNK, /* 152 09/08 C1 => UNK */
504: UNK, /* 153 09/09 C1 => UNK */
505: UNK, /* 154 09/10 C1 => UNK */
506: UNK, /* 155 09/11 C1 CSI => UNK */
507: UNK, /* 156 09/12 C1 ST => UNK */
508: UNK, /* 157 09/13 C1 OSC => UNK */
509: UNK, /* 158 09/14 C1 PM => UNK */
510: UNK, /* 159 09/15 C1 APC => UNK */
511: 32, /* 160 10/00 G1 No-break space => SP */
512: 33, /* 161 10/01 G1 Inverted exclamation => ! */
513: 99, /* 162 10/02 G1 Cent sign => c */
514: 35, /* 163 10/03 G1 Pound sign => # */
515: 36, /* 164 10/04 G1 Currency sign => $ */
516: 89, /* 165 10/05 G1 Yen sign => Y */
517: 124, /* 166 10/06 G1 Broken bar => | */
518: 80, /* 167 10/07 G1 Paragraph sign => P */
519: 34, /* 168 10/08 G1 Diaeresis => " */
520: 67, /* 169 10/09 G1 Copyright sign => C */
521: 97, /* 170 10/10 G1 Feminine ordinal => a */
522: 34, /* 171 10/11 G1 Left angle quotation => " */
523: 126, /* 172 10/12 G1 Not sign => ~ */
524: 45, /* 173 10/13 G1 Soft hyphen => - */
525: 82, /* 174 10/14 G1 Registered trade mark => R */
526: 95, /* 175 10/15 G1 Macron => _ */
527: 111, /* 176 11/00 G1 Degree sign, ring above => o */
528: UNK, /* 177 11/01 G1 Plus-minus sign => UNK */
529: 50, /* 178 11/02 G1 Superscript two => 2 */
530: 51, /* 179 11/03 G1 Superscript three => 3 */
531: 39, /* 180 11/04 G1 Acute accent => ' */
532: 117, /* 181 11/05 G1 Micro sign => u */
533: 45, /* 182 11/06 G1 Pilcrow sign => - */
534: 45, /* 183 11/07 G1 Middle dot => - */
535: 44, /* 184 11/08 G1 Cedilla => , */
536: 49, /* 185 11/09 G1 Superscript one => 1 */
537: 111, /* 186 11/10 G1 Masculine ordinal => o */
538: 34, /* 187 11/11 G1 Right angle quotation => " */
539: UNK, /* 188 11/12 G1 One quarter => UNK */
540: UNK, /* 189 11/13 G1 One half => UNK */
541: UNK, /* 190 11/14 G1 Three quarters => UNK */
542: 63, /* 191 11/15 G1 Inverted question mark => ? */
543: 65, /* 192 12/00 G1 A grave => A */
544: 65, /* 193 12/01 G1 A acute => A */
545: 65, /* 194 12/02 G1 A circumflex => A */
546: 65, /* 195 12/03 G1 A tilde => A */
547: 65, /* 196 12/04 G1 A diaeresis => A */
548: 65, /* 197 12/05 G1 A ring above => A */
549: 65, /* 198 12/06 G1 A with E => A */
550: 67, /* 199 12/07 G1 C Cedilla => C */
551: 69, /* 200 12/08 G1 E grave => E */
552: 69, /* 201 12/09 G1 E acute => E */
553: 69, /* 202 12/10 G1 E circumflex => E */
554: 69, /* 203 12/11 G1 E diaeresis => E */
555: 73, /* 204 12/12 G1 I grave => I */
556: 73, /* 205 12/13 G1 I acute => I */
557: 73, /* 206 12/14 G1 I circumflex => I */
558: 73, /* 207 12/15 G1 I diaeresis => I */
559: 68, /* 208 13/00 G1 Icelandic Eth => D */
560: 78, /* 209 13/01 G1 N tilde => N */
561: 79, /* 210 13/02 G1 O grave => O */
562: 79, /* 211 13/03 G1 O acute => O */
563: 79, /* 212 13/04 G1 O circumflex => O */
564: 79, /* 213 13/05 G1 O tilde => O */
565: 79, /* 214 13/06 G1 O diaeresis => O */
566: 120, /* 215 13/07 G1 Multiplication sign => x */
567: 79, /* 216 13/08 G1 O oblique stroke => O */
568: 85, /* 217 13/09 G1 U grave => U */
569: 85, /* 218 13/10 G1 U acute => U */
570: 85, /* 219 13/11 G1 U circumflex => U */
571: 85, /* 220 13/12 G1 U diaeresis => U */
572: 89, /* 221 13/13 G1 Y acute => Y */
573: 84, /* 222 13/14 G1 Icelandic Thorn => T */
574: 115, /* 223 13/15 G1 German sharp s => s */
575: 97, /* 224 14/00 G1 a grave => a */
576: 97, /* 225 14/01 G1 a acute => a */
577: 97, /* 226 14/02 G1 a circumflex => a */
578: 97, /* 227 14/03 G1 a tilde => a */
579: 97, /* 228 14/04 G1 a diaeresis => a */
580: 97, /* 229 14/05 G1 a ring above => a */
581: 97, /* 230 14/06 G1 a with e => a */
582: 99, /* 231 14/07 G1 c cedilla => c */
583: 101, /* 232 14/08 G1 e grave => e */
584: 101, /* 233 14/09 G1 e acute => e */
585: 101, /* 234 14/10 G1 e circumflex => e */
586: 101, /* 235 14/11 G1 e diaeresis => e */
587: 105, /* 236 14/12 G1 i grave => i */
588: 105, /* 237 14/13 G1 i acute => i */
589: 105, /* 238 14/14 G1 i circumflex => i */
590: 105, /* 239 14/15 G1 i diaeresis => i */
591: 100, /* 240 15/00 G1 Icelandic eth => d */
592: 110, /* 241 15/01 G1 n tilde => n */
593: 111, /* 242 15/02 G1 o grave => o */
594: 111, /* 243 15/03 G1 o acute => o */
595: 111, /* 244 15/04 G1 o circumflex => o */
596: 111, /* 245 15/05 G1 o tilde => o */
597: 111, /* 246 15/06 G1 o diaeresis => o */
598: 47, /* 247 15/07 G1 Division sign => / */
599: 111, /* 248 15/08 G1 o oblique stroke => o */
600: 117, /* 249 15/09 G1 u grave => u */
601: 117, /* 250 15/10 G1 u acute => u */
602: 117, /* 251 15/11 G1 u circumflex => u */
603: 117, /* 252 15/12 G1 u diaeresis => u */
604: 121, /* 253 15/13 G1 y acute => y */
605: 116, /* 254 15/14 G1 Icelandic thorn => t */
606: 121 /* 255 15/15 G1 y diaeresis => y */
607: };
608:
609:
610: /* Translation tables for ISO Latin Alphabet 1 to local file character sets */
611:
612: /*
613: Most of the remaining tables are not annotated like the one above, because
614: the size of the resulting source file would be ridiculous. Each row in the
615: following tables corresponds to a column of ISO 8859-1.
616: */
617:
618: CHAR
619: yl185[] = { /* ISO 8859-1 Latin Alphabet 1 (Latin-1) to IBM Code Page 850 */
620: /*
621: This is IBM's official invertible translation. Reference: IBM Character
622: Data Representation Architecture (CDRA), Level 1, Registry, SC09-1291-00
623: (1990), p.152. (Note: Latin-1 is IBM Code Page 00819.) Note the bizarre
624: rearrangement of C0 controls and DEL.
625: */
626: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
627: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 127, 27, 26, 29, 30, 31,
628: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
629: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
630: 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
631: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
632: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
633: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 28,
634: 186, 205, 201, 187, 200, 188, 204, 185, 203, 202, 206, 223, 220, 219, 254, 242,
635: 179, 196, 218, 191, 192, 217, 195, 180, 194, 193, 197, 176, 177, 178, 213, 159,
636: 255, 173, 189, 156, 207, 190, 221, 245, 249, 184, 166, 174, 170, 240, 169, 238,
637: 248, 241, 253, 252, 239, 230, 244, 250, 247, 251, 167, 175, 172, 171, 243, 168,
638: 183, 181, 182, 199, 142, 143, 146, 128, 212, 144, 210, 211, 222, 214, 215, 216,
639: 209, 165, 227, 224, 226, 229, 153, 158, 157, 235, 233, 234, 154, 237, 232, 225,
640: 133, 160, 131, 198, 132, 134, 145, 135, 138, 130, 136, 137, 141, 161, 140, 139,
641: 208, 164, 149, 162, 147, 228, 148, 246, 155, 151, 163, 150, 129, 236, 231, 152
642: };
643:
644: CHAR
645: y85l1[] = { /* IBM Code Page 850 to Latin-1 */
646: /*
647: This is from IBM CDRA page 153. It is the inverse of yl185[].
648: */
649: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
650: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 28, 27, 127, 29, 30, 31,
651: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
652: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
653: 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
654: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
655: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
656: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 26,
657: 199, 252, 233, 226, 228, 224, 229, 231, 234, 235, 232, 239, 238, 236, 196, 197,
658: 201, 230, 198, 244, 246, 242, 251, 249, 255, 214, 220, 248, 163, 216, 215, 159,
659: 225, 237, 243, 250, 241, 209, 170, 186, 191, 174, 172, 189, 188, 161, 171, 187,
660: 155, 156, 157, 144, 151, 193, 194, 192, 169, 135, 128, 131, 133, 162, 165, 147,
661: 148, 153, 152, 150, 145, 154, 227, 195, 132, 130, 137, 136, 134, 129, 138, 164,
662: 240, 208, 202, 203, 200, 158, 205, 206, 207, 149, 146, 141, 140, 166, 204, 139,
663: 211, 223, 212, 210, 245, 213, 181, 254, 222, 218, 219, 217, 253, 221, 175, 180,
664: 173, 177, 143, 190, 182, 167, 247, 184, 176, 168, 183, 185, 179, 178, 142, 160
665: };
666:
667: CHAR
668: yl143[] = { /* Latin-1 to IBM Code Page 437 */
669: /*
670: Although the IBM CDRA does not include an official translation between CP437
671: and ISO Latin Alphabet 1, it does include an official, invertible
672: translation between CP437 and CP850 (page 196), and another from CP850 to
673: Latin-1 (CP819) (page 153). This translation was obtained with a two-step
674: process based on those tables.
675: */
676: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
677: 16, 17, 18, 19, 244, 245, 22, 23, 24, 25, 127, 27, 26, 29, 30, 31,
678: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
679: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
680: 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
681: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
682: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
683: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 28,
684: 186, 205, 201, 187, 200, 188, 204, 185, 203, 202, 206, 223, 220, 219, 254, 242,
685: 179, 196, 218, 191, 192, 217, 195, 180, 194, 193, 197, 176, 177, 178, 213, 159,
686: 255, 173, 155, 156, 207, 157, 221, 21, 249, 184, 166, 174, 170, 240, 169, 238,
687: 248, 241, 253, 252, 239, 230, 20, 250, 247, 251, 167, 175, 172, 171, 243, 168,
688: 183, 181, 182, 199, 142, 143, 146, 128, 212, 144, 210, 211, 222, 214, 215, 216,
689: 209, 165, 227, 224, 226, 229, 153, 158, 190, 235, 233, 234, 154, 237, 232, 225,
690: 133, 160, 131, 198, 132, 134, 145, 135, 138, 130, 136, 137, 141, 161, 140, 139,
691: 208, 164, 149, 162, 147, 228, 148, 246, 189, 151, 163, 150, 129, 236, 231, 152
692: };
693:
694: CHAR
695: y43l1[] = { /* IBM Code Page 437 to Latin-1 */
696: /*
697: This table is the inverse of yl143[].
698: */
699: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
700: 16, 17, 18, 19, 182, 167, 22, 23, 24, 25, 28, 27, 127, 29, 30, 31,
701: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
702: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
703: 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
704: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
705: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
706: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 26,
707: 199, 252, 233, 226, 228, 224, 229, 231, 234, 235, 232, 239, 238, 236, 196, 197,
708: 201, 230, 198, 244, 246, 242, 251, 249, 255, 214, 220, 162, 163, 165, 215, 159,
709: 225, 237, 243, 250, 241, 209, 170, 186, 191, 174, 172, 189, 188, 161, 171, 187,
710: 155, 156, 157, 144, 151, 193, 194, 192, 169, 135, 128, 131, 133, 248, 216, 147,
711: 148, 153, 152, 150, 145, 154, 227, 195, 132, 130, 137, 136, 134, 129, 138, 164,
712: 240, 208, 202, 203, 200, 158, 205, 206, 207, 149, 146, 141, 140, 166, 204, 139,
713: 211, 223, 212, 210, 245, 213, 181, 254, 222, 218, 219, 217, 253, 221, 175, 180,
714: 173, 177, 143, 190, 20, 21, 247, 184, 176, 168, 183, 185, 179, 178, 142, 160
715: };
716:
717: CHAR
718: yl1aq[] = { /* Latin-1 to Extended Mac Latin (based on Apple QuickDraw) */
719: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
720: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
721: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
722: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
723: 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
724: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
725: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
726: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
727: 182, 183, 184, 185, 189, 196, 197, 198, 206, 207, 210, 211, 217, 218, 220, 221,
728: 222, 223, 224, 226, 227, 228, 240, 245, 246, 247, 249, 250, 251, 253, 254, 255,
729: 202, 193, 162, 163, 219, 180, 160, 164, 172, 169, 187, 199, 194, 208, 168, 248,
730: 161, 177, 170, 173, 171, 181, 166, 225, 252, 176, 188, 200, 178, 179, 186, 192,
731: 231, 203, 229, 204, 128, 129, 174, 130, 233, 131, 230, 232, 237, 234, 235, 236,
732: 195, 132, 241, 238, 239, 205, 133, 165, 175, 244, 242, 243, 134, 201, 209, 167,
733: 136, 135, 137, 139, 138, 140, 190, 141, 143, 142, 144, 145, 147, 146, 148, 149,
734: 212, 150, 152, 151, 153, 155, 154, 214, 191, 157, 156, 158, 159, 213, 215, 216
735: };
736:
737: CHAR
738: yl1du[] = { /* Latin-1 to Dutch ISO 646 */
739: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
740: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
741: 32, 33, 34, UNK, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
742: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
743: UNK, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
744: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, UNK, UNK, UNK, 94, 95,
745: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
746: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, 39, 127,
747: 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
748: 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
749: 32, 33, UNK, 35, 124, UNK, UNK, 93, 123, 67, UNK, 34, UNK, 45, 82, UNK,
750: 91, UNK, UNK, UNK, 126, 117, UNK, UNK, 44, UNK, UNK, 34, 125, 92, 64, 63,
751: 65, 65, 65, 65, 91, 65, 65, 67, 69, 69, 69, 69, 73, 73, 73, 73,
752: UNK, 78, 79, 79, 79, 79, 79, 120, 79, 85, 85, 85, 85, 89, UNK, 115,
753: 97, 97, 97, 97, 97, 97, 97, 99, 101, 101, 101, 101, 105, 105, 105, 105,
754: UNK, 110, 111, 111, 111, 111, 111, 47, 111, 117, 117, 117, 117, 121, UNK, 91
755: };
756:
757: CHAR
758: yl1fi[] = { /* Latin-1 to Finnish ISO 646 */
759: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
760: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
761: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
762: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
763: 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
764: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, UNK, UNK, UNK, UNK, 95,
765: UNK, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
766: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, UNK, UNK,
767: 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
768: 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
769: 32, 33, UNK, UNK, UNK, UNK, UNK, UNK, 34, 67, UNK, 34, UNK, 45, 82, UNK,
770: UNK, UNK, UNK, UNK, 39, 117, UNK, UNK, 44, UNK, UNK, 34, UNK, UNK, UNK, 63,
771: 65, 65, 65, 65, 91, 93, 65, 67, 69, 69, 69, 69, 73, 73, 73, 73,
772: UNK, 78, 79, 79, 79, 79, 92, 120, 79, 85, 85, 85, 94, 89, UNK, 115,
773: 97, 97, 97, 97, 123, 125, 97, 99, 101, 96, 101, 101, 105, 105, 105, 105,
774: UNK, 110, 111, 111, 111, 111, 124, 47, 111, 117, 117, 117, 126, 121, UNK, 121
775: };
776:
777: CHAR
778: yl1fr[] = { /* Latin-1 to French ISO 646 */
779: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
780: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
781: 32, 33, 34, UNK, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
782: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
783: UNK, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
784: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, UNK, UNK, UNK, 94, 95,
785: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
786: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, UNK, 127,
787: 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
788: 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
789: 32, 33, UNK, 35, UNK, UNK, UNK, 93, 34, 67, UNK, 34, UNK, 45, 82, UNK,
790: 91, UNK, UNK, UNK, 39, 117, UNK, UNK, 44, UNK, UNK, 34, UNK, UNK, UNK, 63,
791: 65, 65, 65, 65, 65, 65, 65, 67, 69, 69, 69, 69, 73, 73, 73, 73,
792: UNK, 78, 79, 79, 79, 79, 79, 120, 79, 85, 85, 85, 85, 89, UNK, 115,
793: 64, 97, 97, 97, 97, 97, 97, 92, 125, 123, 101, 101, 105, 105, 105, 105,
794: UNK, 110, 111, 111, 111, 111, 111, 47, 111, 124, 117, 117, 117, 121, UNK, 121
795: };
796:
797: CHAR
798: yl1fc[] = { /* Latin-1 to French-Canadian ISO 646 */
799: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
800: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
801: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
802: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
803: UNK, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
804: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, UNK, UNK, UNK, UNK, 95,
805: UNK, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
806: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, UNK, 127,
807: 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
808: 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
809: 32, 33, UNK, UNK, UNK, UNK, UNK, UNK, 34, 67, UNK, 34, UNK, 45, 82, UNK,
810: UNK, UNK, UNK, UNK, 39, 117, UNK, UNK, 44, UNK, UNK, 34, UNK, UNK, UNK, 63,
811: 65, 65, 65, 65, 65, 65, 65, 67, 69, 69, 69, 69, 73, 73, 73, 73,
812: UNK, 78, 79, 79, 79, 79, 79, 120, 79, 85, 85, 85, 85, 89, UNK, 115,
813: 64, 97, 91, 97, 97, 97, 97, 92, 125, 123, 93, 101, 105, 105, 94, 105,
814: UNK, 110, 111, 111, 96, 111, 111, 47, 111, 124, 117, 126, 117, 121, UNK, 121
815: };
816:
817: CHAR
818: yl1ge[] = { /* Latin-1 to German ISO 646 */
819: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
820: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
821: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
822: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
823: UNK, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
824: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, UNK, UNK, UNK, 94, 95,
825: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
826: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, UNK, 127,
827: 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
828: 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
829: 32, 33, UNK, UNK, UNK, UNK, UNK, 64, 34, 67, UNK, 34, UNK, 45, 82, UNK,
830: UNK, UNK, UNK, UNK, 39, 117, UNK, UNK, 44, UNK, UNK, 34, UNK, UNK, UNK, 63,
831: 65, 65, 65, 65, 91, 65, 65, 67, 69, 69, 69, 69, 73, 73, 73, 73,
832: UNK, 78, 79, 79, 79, 79, 92, 120, 79, 85, 85, 85, 93, 89, UNK, 126,
833: 97, 97, 97, 97, 123, 97, 97, 99, 101, 101, 101, 101, 105, 105, 105, 105,
834: UNK, 110, 111, 111, 111, 111, 124, 47, 111, 117, 117, 117, 125, 121, UNK, 121
835: };
836:
837: CHAR
838: yl1hu[] = { /* Latin-1 to Hungarian ISO-646 */
839: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
840: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
841: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
842: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
843: 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
844: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
845: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
846: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
847: 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
848: 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
849: 32, 33, UNK, UNK, 36, UNK, UNK, UNK, 34, 67, UNK, 34, UNK, 45, 82, UNK,
850: UNK, 64, UNK, UNK, 39, 117, UNK, UNK, 44, UNK, UNK, 34, UNK, UNK, UNK, 63,
851: 65, 65, 65, 65, 65, 65, 65, 67, 69, 91, 69, 69, 73, 73, 73, 73,
852: UNK, 78, 79, 79, 79, 79, 92, 120, 79, 85, 85, 85, 93, 89, UNK, 115,
853: 97, 96, 97, 97, 97, 97, 97, 99, 101, 123, 101, 101, 105, 105, 105, 105,
854: UNK, 110, 111, 111, 111, 111, 124, 47, 111, 117, 117, 117, 125, 121, UNK, 121
855: };
856:
857: CHAR
858: yl1it[] = { /* Latin-1 to Italian ISO 646 */
859: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
860: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
861: 32, 33, 34, UNK, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
862: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
863: UNK, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
864: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, UNK, UNK, UNK, 94, 95,
865: UNK, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
866: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, UNK, 127,
867: 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
868: 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
869: 32, 33, UNK, 35, UNK, UNK, UNK, 64, 34, 67, UNK, 34, UNK, 45, 82, UNK,
870: 91, UNK, UNK, UNK, 39, 117, UNK, UNK, 44, UNK, UNK, 34, UNK, UNK, UNK, 63,
871: 65, 65, 65, 65, 65, 65, 65, 67, 69, 69, 69, 69, 73, 73, 73, 73,
872: UNK, 78, 79, 79, 79, 79, 79, 120, 79, 85, 85, 85, 85, 89, UNK, 115,
873: 123, 97, 97, 97, 97, 97, 97, 92, 125, 93, 101, 101, 126, 105, 105, 105,
874: UNK, 110, 124, 111, 111, 111, 111, 47, 111, 96, 117, 117, 117, 121, UNK, 121
875: };
876:
877: CHAR
878: yl1ne[] = { /* Latin-1 to NeXT */
879: /* NEED TO MAKE THIS ONE INVERTIBLE, LIKE CP850 */
880: /*
881: Which means finding all the graphic characters in the NeXT set that have
882: no equivalent in Latin-1 and assigning them to the UNK positions (mostly
883: Latin-1 C1 controls). Then make the ynel1[] table be the inverse of this
884: one. But first we should try to get an official Latin-1/NeXT translation
885: table from NeXT, Inc.
886: */
887: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
888: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
889: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
890: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
891: 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
892: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
893: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
894: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
895: UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
896: UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
897: 32, 161, 162, 163, 168, 165, 181, 167, 200, 160, 227, 171, 190, UNK, 176, 197,
898: 202, 209, 201, 204, 194, 157, 182, 183, 203, 192, 235, 187, 210, 211, 212, 191,
899: 129, 130, 131, 132, 133, 134, 225, 135, 136, 137, 138, 139, 140, 141, 142, 143,
900: 144, 145, 146, 147, 148, 149, 150, 158, 233, 151, 152, 153, 154, 155, 156, 251,
901: 213, 214, 215, 216, 217, 218, 241, 219, 220, 221, 222, 223, 224, 226, 228, 229,
902: 230, 231, 236, 237, 238, 239, 240, 159, 249, 242, 243, 244, 246, 247, 252, 253
903: };
904:
905: CHAR
906: yl1no[] = { /* Latin-1 to Norwegian/Danish ISO 646 */
907: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
908: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
909: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
910: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
911: 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
912: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, UNK, UNK, UNK, 94, 95,
913: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
914: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, 126, 127,
915: 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
916: 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
917: 32, 33, UNK, UNK, UNK, UNK, UNK, UNK, 34, 67, UNK, 34, UNK, 45, 82, UNK,
918: UNK, UNK, UNK, UNK, 39, 117, UNK, UNK, 44, UNK, UNK, 34, UNK, UNK, UNK, 63,
919: 65, 65, 65, 65, 65, 93, 91, 67, 69, 69, 69, 69, 73, 73, 73, 73,
920: UNK, 78, 79, 79, 79, 79, 79, 120, 92, 85, 85, 85, 85, 89, UNK, 115,
921: 97, 97, 97, 97, 97, 125, 123, 99, 101, 101, 101, 101, 105, 105, 105, 105,
922: UNK, 110, 111, 111, 111, 111, 111, 47, 124, 117, 117, 117, 117, 121, UNK, 121
923: };
924:
925: CHAR
926: yl1po[] = { /* Latin-1 to Portuguese ISO 646 */
927: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
928: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
929: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
930: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
931: 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
932: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, UNK, UNK, UNK, 94, 95,
933: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
934: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, 126, 127,
935: 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
936: 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
937: 32, 33, UNK, UNK, UNK, UNK, UNK, UNK, 34, 67, UNK, 34, UNK, 45, 82, UNK,
938: UNK, UNK, UNK, UNK, 39, 117, UNK, UNK, 44, UNK, UNK, 34, UNK, UNK, UNK, 63,
939: 65, 65, 65, 91, 65, 65, 65, 92, 69, 69, 69, 69, 73, 73, 73, 73,
940: UNK, 78, 79, 79, 79, 93, 79, 120, 79, 85, 85, 85, 85, 89, UNK, 115,
941: 97, 97, 97, 123, 97, 97, 97, 124, 101, 101, 101, 101, 105, 105, 105, 105,
942: UNK, 110, 111, 111, 111, 125, 111, 47, 111, 117, 117, 117, 117, 121, UNK, 121
943: };
944:
945: CHAR
946: yl1sp[] = { /* Latin-1 to Spanish ISO 646 */
947: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
948: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
949: 32, 33, 34, UNK, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
950: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
951: UNK, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
952: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, UNK, UNK, UNK, 94, 95,
953: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
954: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 96, UNK, UNK, 126, 127,
955: 126, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
956: 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
957: 32, 91, UNK, 35, UNK, UNK, UNK, 64, 34, 67, UNK, 34, UNK, 45, 82, UNK,
958: 123, UNK, UNK, UNK, 39, 117, UNK, UNK, 44, UNK, UNK, 34, UNK, UNK, UNK, 93,
959: 65, 65, 65, 65, 65, 65, 65, 67, 69, 69, 69, 69, 73, 73, 73, 73,
960: UNK, 92, 79, 79, 79, 79, 79, 120, 79, 85, 85, 85, 85, 89, UNK, 115,
961: 124, 97, 97, 97, 97, 97, 97, 125, 101, 101, 101, 101, 105, 105, 105, 105,
962: UNK, 124, 111, 111, 111, 111, 111, 47, 111, 117, 117, 117, 117, 121, UNK, 121
963: };
964:
965: CHAR
966: yl1sw[] = { /* Latin-1 to Swedish ISO 646 */
967: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
968: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
969: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
970: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
971: UNK, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
972: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, UNK, UNK, UNK, UNK, 95,
973: UNK, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
974: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, UNK, 127,
975: 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
976: 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
977: 32, 33, UNK, UNK, UNK, UNK, UNK, UNK, 34, 67, UNK, 34, UNK, 45, 82, UNK,
978: UNK, UNK, UNK, UNK, 39, 117, UNK, UNK, 44, UNK, UNK, 34, UNK, UNK, UNK, 63,
979: 65, 65, 65, 65, 91, 93, 65, 67, 69, 64, 69, 69, 73, 73, 73, 73,
980: UNK, 78, 79, 79, 79, 79, 92, 120, 79, 85, 85, 85, 94, 89, UNK, 115,
981: 97, 97, 97, 97, 123, 125, 97, 99, 101, 96, 101, 101, 105, 105, 105, 105,
982: UNK, 110, 111, 111, 111, 111, 124, 47, 111, 117, 117, 117, 126, 121, UNK, 121
983: };
984:
985: CHAR
986: yl1ch[] = { /* Latin-1 to Swiss ISO 646 */
987: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
988: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
989: 32, 33, 34, UNK, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
990: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
991: UNK, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
992: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, UNK, UNK, UNK, UNK, UNK,
993: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
994: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, UNK, 127,
995: 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
996: 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
997: 32, 33, UNK, UNK, UNK, UNK, UNK, UNK, 34, 67, UNK, 34, UNK, 45, 82, UNK,
998: UNK, UNK, UNK, UNK, 39, 117, UNK, UNK, 44, UNK, UNK, 34, UNK, UNK, UNK, 63,
999: 65, 65, 65, 65, 65, 65, 65, 67, 69, 69, 69, 69, 73, 73, 73, 73,
1000: UNK, 78, 79, 79, 79, 79, 79, 120, 79, 85, 85, 85, 85, 89, UNK, 115,
1001: 64, 97, 97, 97, 123, 97, 97, 92, 95, 91, 93, 101, 105, 105, 94, 105,
1002: UNK, 110, 111, 111, 96, 111, 124, 47, 111, 35, 117, 126, 125, 121, UNK, 121
1003: };
1004:
1005: CHAR
1006: yl1dm[] = { /* Latin-1 to DEC Multinational Character Set */
1007: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1008: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1009: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1010: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1011: 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1012: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1013: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1014: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1015: 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1016: 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
1017: 32, 161, 162, 163, 168, 165, 124, 167, 34, 169, 170, 171, 126, UNK, 82, UNK,
1018: 176, 177, 178, 179, 39, 181, 182, 183, 44, 185, 186, 187, 188, 189, UNK, 191,
1019: 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207,
1020: UNK, 209, 210, 211, 212, 213, 214, 120, 216, 217, 218, 219, 220, 221, UNK, 223,
1021: 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239,
1022: UNK, 241, 242, 243, 244, 245, 246, 47, 248, 249, 250, 251, 252, UNK, UNK, 253
1023: };
1024:
1025: CHAR
1026: yl1dg[] = { /* Latin-1 to Data General Multinational Character Set */
1027: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1028: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1029: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1030: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1031: 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1032: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1033: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1034: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1035: 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1036: 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
1037: 160, 171, 167, 168, 166, 181, 191, 187, 189, 173, 169, 177, 161, 255, 174, 175,
1038: 188, 182, 164, 165, 190, 163, 178, 185, 186, 179, 170, 176, 223, 162, 220, 172,
1039: 193, 192, 194, 196, 195, 197, 198, 199, 201, 200, 202, 203, 205, 204, 206, 207,
1040: 184, 208, 210, 209, 211, 213, 212, 215, 214, 217, 216, 218, 219, 221, 222, 252,
1041: 225, 224, 226, 228, 227, 229, 230, 231, 233, 232, 234, 235, 237, 236, 238, 239,
1042: 183, 240, 242, 241, 243, 245, 244, 247, 246, 249, 248, 250, 251, 180, 254, 253
1043: };
1044:
1045:
1046: /* Local file character sets to ISO Latin Alphabet 1 */
1047:
1048: #ifdef NOTUSED
1049: CHAR
1050: yasl1[] = { /* ASCII to Latin-1 */
1051: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1052: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1053: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1054: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1055: 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1056: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1057: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1058: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127
1059: };
1060: #endif /* NOTUSED */
1061:
1062: CHAR
1063: yaql1[] = { /* Extended Mac Latin (based on Apple Quickdraw) to Latin-1 */
1064: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1065: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1066: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1067: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1068: 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1069: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1070: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1071: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1072: 196, 197, 199, 201, 209, 214, 220, 225, 224, 226, 228, 227, 229, 231, 233, 232,
1073: 234, 235, 237, 236, 238, 239, 241, 243, 242, 244, 246, 245, 250, 249, 251, 252,
1074: 166, 176, 162, 163, 167, 215, 182, 223, 174, 169, 178, 180, 168, 179, 198, 216,
1075: 185, 177, 188, 189, 165, 181, 128, 129, 130, 131, 190, 170, 186, 132, 230, 248,
1076: 191, 161, 172, 208, 133, 134, 135, 171, 187, 221, 160, 193, 195, 213, 136, 137,
1077: 173, 222, 138, 139, 240, 253, 247, 254, 255, 140, 141, 164, 142, 143, 144, 145,
1078: 146, 183, 147, 148, 149, 194, 202, 192, 203, 200, 205, 206, 207, 204, 211, 212,
1079: 150, 210, 218, 219, 217, 151, 152, 153, 175, 154, 155, 156, 184, 157, 158, 159
1080: };
1081:
1082: CHAR
1083: ydul1[] = { /* Dutch ISO 646 to Latin-1 */
1084: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1085: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1086: 32, 33, 34, 163, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1087: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1088: 190, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1089: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 255, 189, 124, 94, 95,
1090: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1091: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 168, 164, 188, 39, 127
1092: };
1093:
1094: CHAR
1095: yfil1[] = { /* Finnish ISO 646 to Latin-1 */
1096: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1097: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1098: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1099: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1100: 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1101: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 196, 246, 197, 220, 95,
1102: 233, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1103: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 228, 246, 229, 252, 127
1104: };
1105:
1106: CHAR
1107: yfrl1[] = { /* French ISO 646 to Latin-1 */
1108: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1109: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1110: 32, 33, 34, 163, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1111: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1112: 224, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1113: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 176, 231, 167, 94, 95,
1114: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1115: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 233, 249, 232, 168, 127
1116: };
1117:
1118: CHAR
1119: yfcl1[] = { /* French-Canadian ISO 646 to Latin-1 */
1120: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1121: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1122: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1123: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1124: 224, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1125: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 226, 231, 234, 238, 95,
1126: 244, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1127: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 233, 249, 232, 251, 127
1128: };
1129:
1130: CHAR
1131: ygel1[] = { /* German ISO 646 to Latin-1 */
1132: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1133: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1134: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1135: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1136: 167, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1137: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 196, 214, 220, 94, 95,
1138: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1139: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 228, 246, 252, 223, 127
1140: };
1141:
1142: CHAR
1143: yitl1[] = { /* Italian ISO 646 to Latin-1 */
1144: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1145: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1146: 32, 33, 34, 163, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1147: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1148: 167, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1149: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 176, 231, 233, 94, 95,
1150: 249, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1151: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 224, 242, 232, 236, 127
1152: };
1153:
1154: CHAR
1155: ynel1[] = { /* NeXT to Latin-1 */
1156: /* NEED TO MAKE THIS ONE INVERTIBLE */
1157: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1158: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1159: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1160: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1161: 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1162: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1163: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1164: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1165: 160, 192, 193, 194, 195, 196, 197, 199, 200, 201, 202, 203, 204, 205, 206, 207,
1166: 208, 209, 210, 211, 212, 213, 214, 217, 218, 219, 220, 221, 222, 181, 215, 247,
1167: 169, 161, 162, 163, UNK, 165, UNK, 167, 164, UNK, UNK, 171, UNK, UNK, UNK, UNK,
1168: 174, UNK, UNK, UNK, 183, 166, 182, UNK, UNK, UNK, UNK, 187, UNK, UNK, 172, 191,
1169: 185, 96, 180, 94, 126, 175, UNK, UNK, 168, 178, 176, 184, 179, UNK, UNK, UNK,
1170: UNK, 177, 188, 189, 190, 224, 225, 226, 227, 228, 229, 231, 232, 233, 234, 235,
1171: 236, 198, 237, 170, 238, 239, 240, 241, UNK, 216, UNK, 186, 242, 243, 244, 245,
1172: 246, 230, 249, 250, 251, UNK, 252, 253, UNK, 248, UNK, 223, 254, 255, UNK, UNK
1173: };
1174:
1175: CHAR
1176: ynol1[] = { /* Norwegian/Danish ISO 646 to Latin-1 */
1177: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1178: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1179: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1180: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1181: 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1182: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 198, 216, 197, 94, 95,
1183: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1184: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 230, 248, 229, 126, 127
1185: };
1186:
1187: CHAR
1188: ypol1[] = { /* Portuguese ISO 646 to Latin-1 */
1189: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1190: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1191: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1192: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1193: 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1194: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 195, 199, 213, 94, 95,
1195: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1196: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 227, 231, 245, 126, 127
1197: };
1198:
1199: CHAR
1200: yspl1[] = { /* Spanish ISO 646 to Latin-1 */
1201: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1202: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1203: 32, 33, 34, 163, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1204: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1205: 167, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1206: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 161, 209, 191, 94, 95,
1207: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1208: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 176, 241, 231, 126, 127
1209: };
1210:
1211: CHAR
1212: yswl1[] = { /* Swedish ISO 646 to Latin-1 */
1213: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1214: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1215: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1216: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1217: 201, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1218: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 196, 214, 197, 220, 95,
1219: 233, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1220: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 228, 246, 229, 252, 127
1221: };
1222:
1223: CHAR
1224: ychl1[] = { /* Swiss ISO 646 to Latin-1 */
1225: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1226: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1227: 32, 33, 34, 249, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1228: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1229: 224, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1230: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 233, 231, 234, 238, 232,
1231: 244, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1232: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 228, 246, 252, 251, 127
1233: };
1234:
1235: CHAR
1236: yhul1[] = { /* Hungarian ISO 646 to Latin-1 */
1237: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1238: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1239: 32, 33, 34, 35, 164, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1240: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1241: 193, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1242: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 201, 214, 220, 94, 95,
1243: 225, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1244: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 233, 246, 252, 34, 127
1245: };
1246:
1247: CHAR
1248: ydml1[] = { /* DEC Multinational Character Set to Latin-1 */
1249: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1250: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1251: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1252: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1253: 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1254: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1255: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1256: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1257: 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1258: 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
1259: 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175,
1260: 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191,
1261: 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207,
1262: 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223,
1263: 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239,
1264: 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 255,
1265: };
1266:
1267: CHAR
1268: ydgl1[] = { /* Data General Multinational to Latin-1 */
1269: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1270: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1271: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1272: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1273: 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1274: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1275: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1276: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1277: 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1278: 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
1279: 160, 172, 189, 181, 178, 179, 164, 162, 163, 170, 186, 161, 191, 169, 174, 175,
1280: 187, 171, 182, 185, 253, 165, 177, 240, 208, 183, 184, 167, 176, 168, 180, 166,
1281: 193, 192, 194, 196, 195, 197, 198, 199, 201, 200, 202, 203, 205, 204, 206, 207,
1282: 209, 211, 210, 212, 214, 213, 216, 215, 218, 217, 219, 220, 190, 221, 222, 188,
1283: 225, 224, 226, 228, 227, 229, 230, 231, 233, 232, 234, 235, 237, 236, 238, 239,
1284: 241, 243, 242, 244, 246, 245, 248, 247, 250, 249, 251, 252, 223, 255, 254, 173
1285: };
1286:
1287:
1288: /* Translation tables for Cyrillic character sets */
1289:
1290: #ifdef CYRILLIC
1291: CHAR
1292: ylcac[] = { /* Latin/Cyrillic to CP866 */
1293: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1294: 16, 17, 18, 19, 208, 209, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1295: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1296: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1297: 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1298: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1299: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1300: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1301: 196, 179, 192, 217, 191, 218, 195, 193, 180, 194, 197, 176, 177, 178, 211, 216,
1302: 205, 186, 200, 188, 187, 201, 204, 202, 185, 203, 206, 223, 220, 219, 254, UNK,
1303: 255, 240, 132, 131, 242, 83, 73, 244, 74, 139, 141, 151, 138, 45, 246, 135,
1304: 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1305: 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
1306: 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175,
1307: 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239,
1308: 252, 241, 164, 163, 243, 115, 105, 245, 106, 171, 173, 231, 170, 21, 247, 167
1309: };
1310:
1311: CHAR
1312: ylck8[] = { /* Latin/Cyrillic to Old KOI-8 Cyrillic */
1313: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1314: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1315: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1316: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1317: 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1318: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1319: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1320: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1321: 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1322: 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
1323: UNK, 229, UNK, UNK, UNK, 83, 73, 73, 74, UNK, UNK, UNK, 235, UNK, 245, UNK,
1324: 225, 226, 247, 231, 228, 229, 246, 250, 233, 234, 235, 236, 237, 238, 239, 240,
1325: 242, 243, 244, 245, 230, 232, 227, 254, 251, 253, 255, 249, 248, 252, 224, 241,
1326: 193, 194, 215, 199, 196, 197, 214, 218, 201, 202, 203, 204, 205, 206, 207, 208,
1327: 210, 211, 212, 213, 198, 200, 195, 222, 219, 221, 223, 217, 216, 220, 192, 209,
1328: UNK, 197, UNK, UNK, UNK, 115, 105, 105, 106, UNK, UNK, UNK, 203, UNK, 213, UNK
1329: };
1330:
1331: CHAR
1332: yaclc[] = { /* CP866 to Latin/Cyrillic */
1333: /* NEED TO MAKE THIS ONE INVERTIBLE */
1334: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1335: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1336: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1337: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1338: 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1339: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1340: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1341: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1342: 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191,
1343: 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207,
1344: 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223,
1345: UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
1346: UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
1347: UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
1348: 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239,
1349: 161, 241, 164, 244, 167, 247, 174, 254, UNK, UNK, UNK, UNK, 240, UNK, UNK, UNK
1350: };
1351:
1352: CHAR
1353: yk8lc[] = { /* Old KOI-8 Cyrillic to Latin/Cyrillic */
1354: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1355: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1356: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1357: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1358: 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1359: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1360: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1361: 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1362: 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1363: 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
1364: UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
1365: UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
1366: 238, 208, 209, 230, 212, 213, 228, 211, 229, 216, 217, 218, 219, 220, 221, 222,
1367: 223, 239, 224, 225, 226, 227, 214, 210, 236, 235, 215, 232, 237, 233, 231, 234,
1368: 206, 176, 177, 198, 180, 181, 196, 179, 197, 184, 185, 186, 187, 188, 189, 190,
1369: 191, 207, 192, 193, 194, 195, 182, 178, 204, 203, 183, 200, 205, 201, 199, 127
1370: };
1371:
1372: CHAR
1373: ylcsk[] = { /* Latin/Cyrillic to Short KOI */
1374: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1375: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1376: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1377: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1378: 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1379: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1380: 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1381: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 127,
1382: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1383: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1384: 32, 101, UNK, UNK, UNK, 83, 73, 73, 74, UNK, UNK, UNK, 107, 45, 117, UNK,
1385: 97, 98, 119, 103, 100, 101, 118, 122, 105, 106, 107, 108, 109, 110, 111, 112,
1386: 114, 115, 116, 117, 102, 104, 99, 126, 123, 125, 39, 121, 120, 124, 96, 113,
1387: 97, 98, 119, 103, 100, 101, 118, 122, 105, 106, 107, 108, 109, 110, 111, 112,
1388: 114, 115, 116, 117, 102, 104, 99, 126, 123, 125, 39, 121, 120, 124, 96, 113,
1389: UNK, 101, UNK, UNK, UNK, 83, 73, 73, 74, UNK, UNK, UNK, 107, UNK, 117, UNK
1390: };
1391:
1392: CHAR yskcy[] = { /* Short KOI to Latin/Cyrillic */
1393: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1394: 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1395: 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1396: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1397: 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1398: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1399: 206, 176, 177, 198, 180, 181, 196, 179, 197, 184, 185, 186, 187, 188, 189, 190,
1400: 191, 207, 192, 193, 194, 195, 182, 178, 204, 203, 183, 200, 205, 201, 199, 127
1401: };
1402: #endif /* CYRILLIC */
1403:
1404:
1405: /* Translation functions ... */
1406:
1407: CHAR /* The identity translation function. */
1408: ident(c) CHAR c; { /* This one is no longer used. */
1409: return(c); /* Instead, enter NULL in the */
1410: } /* table of functions to avoid */
1411: /* needless function calls. */
1412: CHAR
1413: #ifdef CK_ANSIC
1414: xl1as(CHAR c)
1415: #else
1416: xl1as(c) CHAR c;
1417: #endif /* CK_ANSIC */
1418: { /* xl1as */ /* Latin-1 to US ASCII... */
1419: switch(langs[language].id) {
1420:
1421: case L_DUTCH:
1422: if (c == 255) { /* Dutch umlaut-y */
1423: zmstuff('j'); /* becomes ij */
1424: return('i');
1425: } else return(yl1as[c]); /* all others by the book */
1426:
1427: case L_GERMAN:
1428: switch (c) { /* German, special rules. */
1429: case 196: /* umlaut-A -> Ae */
1430: zmstuff('e');
1431: return('A');
1432: case 214: /* umlaut-O -> Oe */
1433: zmstuff('e');
1434: return('O');
1435: case 220: /* umlaut-U -> Ue */
1436: zmstuff('e');
1437: return('U');
1438: case 228: /* umlaut-a -> ae */
1439: zmstuff('e');
1440: return('a');
1441: case 246: /* umlaut-o -> oe */
1442: zmstuff('e');
1443: return('o');
1444: case 252: /* umlaut-u -> ue */
1445: zmstuff('e');
1446: return('u');
1447: case 223: /* ess-zet -> ss */
1448: zmstuff('s');
1449: return('s');
1450: default: return(yl1as[c]); /* all others by the book */
1451: }
1452: case L_DANISH:
1453: case L_FINNISH:
1454: case L_NORWEGIAN:
1455: case L_SWEDISH:
1456: switch (c) { /* Scandanavian languages. */
1457: case 196: /* umlaut-A -> Ae */
1458: case 198: /* AE ligature also -> Ae */
1459: zmstuff('e');
1460: return('A');
1461: case 214: /* umlaut-O -> Oe */
1462: case 216: /* O-slash -> Oe */
1463: zmstuff('e');
1464: return('O');
1465: case 220: /* umlaut-U -> Ue */
1466: /* return('Y'); replaced by "Ue" by popular demand. */
1467: /* Y for Umlaut-U is only used in German names. */
1468: zmstuff('e');
1469: return('U');
1470: case 228: /* umlaut-a -> ae */
1471: case 230: /* ditto for ae ligature */
1472: zmstuff('e');
1473: return('a');
1474: case 246: /* umlaut-o -> oe */
1475: case 248: /* o-slash -> oe */
1476: zmstuff('e');
1477: return('o');
1478: case 252: /* umlaut-u -> ue */
1479: /* return('y'); replaced by "ue" by popular demand. */
1480: zmstuff('e');
1481: return('u');
1482: case 197: /* A-ring -> Aa */
1483: zmstuff('a');
1484: return('A');
1485: case 229: /* a-ring -> aa */
1486: zmstuff('a');
1487: return('a');
1488: default: return(yl1as[c]); /* All others by the book */
1489: }
1490: case L_ICELANDIC: /* Icelandic. */
1491: switch (c) {
1492: case 198: /* uppercase AE -> AE */
1493: zmstuff('e');
1494: return('A');
1495: case 208: /* uppercase Eth -> D */
1496: return('D');
1497: case 222: /* uppercase Thorn -> Th */
1498: zmstuff('h');
1499: return('T');
1500: case 230: /* lowercase ae -> ae */
1501: zmstuff('e');
1502: return('a');
1503: case 240: /* lowercase Eth -> d */
1504: return('d');
1505: case 254: /* lowercase Thorn -> th */
1506: zmstuff('h');
1507: return('t');
1508: default: return(yl1as[c]); /* All others by the book */
1509: }
1510: default:
1511: return(yl1as[c]); /* None of the above, by the table. */
1512: }
1513: }
1514:
1515: CHAR /* Latin-1 to German */
1516: #ifdef CK_ANSIC
1517: xl1ge(CHAR c)
1518: #else
1519: xl1ge(c) CHAR c;
1520: #endif /* CK_ANSIC */
1521: { /* xl1ge */
1522: return(yl1ge[c]);
1523: }
1524:
1525: CHAR /* German to Latin-1 */
1526: #ifdef CK_ANSIC
1527: xgel1(CHAR c)
1528: #else
1529: xgel1(c) CHAR c;
1530: #endif /* CK_ANSIC */
1531: { /* xgel1 */
1532: return(ygel1[c]);
1533: }
1534:
1535: CHAR
1536: #ifdef CK_ANSIC
1537: xgeas(CHAR c)
1538: #else
1539: xgeas(c) CHAR c;
1540: #endif /* CK_ANSIC */
1541: { /* xgeas */ /* German ISO 646 to ASCII */
1542: switch (c) {
1543: case 91: /* umlaut-A -> Ae */
1544: zmstuff('e');
1545: return('A');
1546: case 92: /* umlaut-O -> Oe */
1547: zmstuff('e');
1548: return('O');
1549: case 93: /* umlaut-U -> Ue */
1550: zmstuff('e');
1551: return('U');
1552: case 123: /* umlaut-a -> ae */
1553: zmstuff('e');
1554: return('a');
1555: case 124: /* umlaut-o -> oe */
1556: zmstuff('e');
1557: return('o');
1558: case 125: /* umlaut-u -> ue */
1559: zmstuff('e');
1560: return('u');
1561: case 126: /* ess-zet -> ss */
1562: zmstuff('s');
1563: return('s');
1564: default: return(c); /* all others stay the same */
1565: }
1566: }
1567:
1568: CHAR
1569: #ifdef CK_ANSIC
1570: xduas(CHAR c)
1571: #else
1572: xduas(c) CHAR c;
1573: #endif /* CK_ANSIC */
1574: { /* xduas */ /* Dutch ISO 646 to US ASCII */
1575: switch (c) {
1576: case 64: return(UNK); /* 3/4 */
1577: case 91: /* y-diaeresis */
1578: zmstuff('j');
1579: return('i');
1580: case 92: return(UNK); /* 1/2 */
1581: case 93: return(124); /* vertical bar */
1582: case 123: return(34); /* diaeresis */
1583: case 124: return(UNK); /* Florin */
1584: case 125: return(UNK); /* 1/4 */
1585: case 126: return(39); /* Apostrophe */
1586: default: return(c);
1587: }
1588: }
1589:
1590: CHAR
1591: #ifdef CK_ANSIC
1592: xfias(CHAR c)
1593: #else
1594: xfias(c) CHAR c;
1595: #endif /* CK_ANSIC */
1596: { /* xfias */ /* Finnish ISO 646 to US ASCII */
1597: switch (c) {
1598: case 91: /* A-diaeresis */
1599: zmstuff('e');
1600: return('A');
1601: case 92: /* O-diaeresis */
1602: zmstuff('e');
1603: return('O');
1604: case 93: /* A-ring */
1605: zmstuff('a');
1606: return('A');
1607: case 94: /* U-diaeresis */
1608: /* return('Y'); */
1609: zmstuff('e');
1610: return('U');
1611: case 96: /* e-acute */
1612: return('e');
1613: case 123: /* a-diaeresis */
1614: zmstuff('e');
1615: return('a');
1616: case 124: /* o-diaeresis */
1617: zmstuff('e');
1618: return('o');
1619: case 125: /* a-ring */
1620: zmstuff('a');
1621: return('a');
1622: case 126: /* u-diaeresis */
1623: /* return('y'); */
1624: zmstuff('e');
1625: return('U');
1626: default:
1627: return(c);
1628: }
1629: }
1630:
1631: CHAR
1632: #ifdef CK_ANSIC
1633: xfras(CHAR c)
1634: #else
1635: xfras(c) CHAR c;
1636: #endif /* CK_ANSIC */
1637: { /* xfras */ /* French ISO 646 to US ASCII */
1638: switch (c) {
1639: case 64: return(97); /* a grave */
1640: case 91: return(UNK); /* degree sign */
1641: case 92: return(99); /* c cedilla */
1642: case 93: return(UNK); /* paragraph sign */
1643: case 123: return(101); /* e acute */
1644: case 124: return(117); /* u grave */
1645: case 125: return(101); /* e grave */
1646: case 126: return(34); /* diaeresis */
1647: default: return(c);
1648: }
1649: }
1650:
1651: CHAR
1652: #ifdef CK_ANSIC
1653: xfcas(CHAR c)
1654: #else
1655: xfcas(c) CHAR c;
1656: #endif /* CK_ANSIC */
1657: { /* xfcas */ /* French Canadian ISO 646 to ASCII */
1658: switch (c) {
1659: case 64: return('a'); /* a grave */
1660: case 91: return('a'); /* a circumflex */
1661: case 92: return('c'); /* c cedilla */
1662: case 93: return('e'); /* e circumflex */
1663: case 94: return('i'); /* i circumflex */
1664: case 96: return('o'); /* o circumflex */
1665: case 123: return('e'); /* e acute */
1666: case 124: return('u'); /* u grave */
1667: case 125: return('e'); /* e grave */
1668: case 126: return('u'); /* u circumflex */
1669: default: return(c);
1670: }
1671: }
1672:
1673: CHAR
1674: #ifdef CK_ANSIC
1675: xitas(CHAR c)
1676: #else
1677: xitas(c) CHAR c;
1678: #endif /* CK_ANSIC */
1679: { /* xitas */ /* Italian ISO 646 to ASCII */
1680: switch (c) {
1681: case 91: return(UNK); /* degree */
1682: case 92: return('c'); /* c cedilla */
1683: case 93: return('e'); /* e acute */
1684: case 96: return('u'); /* u grave */
1685: case 123: return('a'); /* a grave */
1686: case 124: return('o'); /* o grave */
1687: case 125: return('e'); /* e grave */
1688: case 126: return('i'); /* i grave */
1689: default: return(c);
1690: }
1691: }
1692:
1693: CHAR
1694: #ifdef CK_ANSIC
1695: xneas(CHAR c)
1696: #else
1697: xneas(c) CHAR c;
1698: #endif /* CK_ANSIC */
1699: { /* xneas */ /* NeXT to ASCII */
1700: c = xnel1(c); /* Convert to Latin-1 */
1701: return(yl1as[c]); /* Convert Latin-1 to ASCII */
1702: }
1703:
1704: CHAR
1705: #ifdef CK_ANSIC
1706: xnoas(CHAR c)
1707: #else
1708: xnoas(c) CHAR c;
1709: #endif /* CK_ANSIC */
1710: { /* xnoas */ /* Norge/Danish ISO 646 to ASCII */
1711: switch (c) {
1712: case 91:
1713: zmstuff('E'); /* AE digraph */
1714: return('A');
1715: case 92: return('O'); /* O slash */
1716: case 93: /* A ring */
1717: zmstuff('a');
1718: return('A');
1719: case 123: /* ae digraph */
1720: zmstuff('e');
1721: return('a');
1722: case 124: return('o'); /* o slash */
1723: case 125: /* a ring */
1724: zmstuff('a');
1725: return('a');
1726: default: return(c);
1727: }
1728: }
1729:
1730: CHAR
1731: #ifdef CK_ANSIC
1732: xpoas(CHAR c)
1733: #else
1734: xpoas(c) CHAR c;
1735: #endif /* CK_ANSIC */
1736: { /* xpoas */ /* Portuguese ISO 646 to ASCII */
1737: switch (c) {
1738: case 91: return('A'); /* A tilde */
1739: case 92: return('C'); /* C cedilla */
1740: case 93: return('O'); /* O tilde */
1741: case 123: return('a'); /* a tilde */
1742: case 124: return('c'); /* c cedilla */
1743: case 125: return('o'); /* o tilde */
1744: default: return(c);
1745: }
1746: }
1747:
1748: CHAR
1749: #ifdef CK_ANSIC
1750: xspas(CHAR c)
1751: #else
1752: xspas(c) CHAR c;
1753: #endif /* CK_ANSIC */
1754: { /* xspas */ /* Spanish ISO 646 to ASCII */
1755: switch (c) {
1756: case 91: return(33); /* Inverted exclamation */
1757: case 92: return('N'); /* N tilde */
1758: case 93: return(63); /* Inverted question mark */
1759: case 123: return(UNK); /* degree */
1760: case 124: return('n'); /* n tilde */
1761: case 125: return('c'); /* c cedilla */
1762: default: return(c);
1763: }
1764: }
1765:
1766: CHAR
1767: #ifdef CK_ANSIC
1768: xswas(CHAR c)
1769: #else
1770: xswas(c) CHAR c;
1771: #endif /* CK_ANSIC */
1772: { /* xswas */ /* Swedish ISO 646 to ASCII */
1773: switch (c) {
1774: case 64: return('E'); /* E acute */
1775: case 91: /* A diaeresis */
1776: zmstuff('e');
1777: return('A');
1778: case 92: /* O diaeresis */
1779: zmstuff('e');
1780: return('O');
1781: case 93: /* A ring */
1782: zmstuff('a');
1783: return('A');
1784: case 94: /* U diaeresis */
1785: /* return('Y'); */
1786: zmstuff('e');
1787: return('U');
1788: case 96: return('e'); /* e acute */
1789: case 123: /* a diaeresis */
1790: zmstuff('e');
1791: return('a');
1792: case 124: /* o diaeresis */
1793: zmstuff('e');
1794: return('o');
1795: case 125: /* a ring */
1796: zmstuff('a');
1797: return('a');
1798: case 126: /* u diaeresis */
1799: /* return('y'); */
1800: zmstuff('e');
1801: return('u');
1802: default: return(c);
1803: }
1804: }
1805:
1806: CHAR
1807: #ifdef CK_ANSIC
1808: xchas(CHAR c)
1809: #else
1810: xchas(c) CHAR c;
1811: #endif /* CK_ANSIC */
1812: { /* xchas */ /* Swiss ISO 646 to ASCII */
1813: switch (c) {
1814: case 35: return('u'); /* u grave */
1815: case 64: return('a'); /* a grave */
1816: case 91: return('e'); /* e acute */
1817: case 92: return('c'); /* c cedilla */
1818: case 93: return('e'); /* e circumflex */
1819: case 94: return('i'); /* i circumflex */
1820: case 95: return('e'); /* e grave */
1821: case 96: return('o'); /* o circumflex */
1822: case 123: /* a diaeresis */
1823: zmstuff('e');
1824: return('a');
1825: case 124: /* o diaeresis */
1826: zmstuff('e');
1827: return('o');
1828: case 125: /* u diaeresis */
1829: zmstuff('e');
1830: return('u');
1831: case 126: return('u'); /* u circumflex */
1832: default: return(c);
1833: }
1834: }
1835:
1836: CHAR
1837: #ifdef CK_ANSIC
1838: xhuas(CHAR c)
1839: #else
1840: xhuas(c) CHAR c;
1841: #endif /* CK_ANSIC */
1842: { /* xhuas */ /* Hungarian ISO 646 to ASCII */
1843: switch (c) {
1844: case 64: return('A'); /* A acute */
1845: case 91: return('E'); /* E acute */
1846: case 92: return('O'); /* O diaeresis */
1847: case 93: return('U'); /* U diaeresis */
1848: case 96: return('a'); /* a acute */
1849: case 123: return('e'); /* e acute */
1850: case 124: return('o'); /* o acute */
1851: case 125: return('u'); /* u acute */
1852: case 126: return(34); /* double acute accent */
1853: default: return(c);
1854: }
1855: }
1856:
1857: CHAR
1858: #ifdef CK_ANSIC
1859: xdmas(CHAR c)
1860: #else
1861: xdmas(c) CHAR c;
1862: #endif /* CK_ANSIC */
1863: { /* xdmas */ /* DEC MCS to ASCII */
1864: switch(c) {
1865: case 215: /* MCS has OE ligature */
1866: zmstuff('E'); /* instead of multiply */
1867: return('O'); /* and divide signs */
1868: case 247:
1869: zmstuff('e');
1870: return('o');
1871: default:
1872: return(yl1as[c]); /* Otherwise treat like Latin-1 */
1873: }
1874: }
1875:
1876: CHAR
1877: #ifdef CK_ANSIC
1878: xdgas(CHAR c)
1879: #else
1880: xdgas(c) CHAR c;
1881: #endif /* CK_ANSIC */
1882: { /* xdgas */ /* Data General to ASCII */
1883: switch(c) {
1884: case 180: return('f'); /* Florin */
1885: case 183: return('<'); /* Less-equal */
1886: case 184: return('>'); /* Greater-equal */
1887: case 186: return(96); /* Grave accent */
1888: case 191: return('^'); /* Uparrow */
1889: case 215: return('O'); /* OE digraph */
1890: case 247: return('o'); /* oe digraph */
1891: case 175: case 179: case 220: case 222:
1892: case 223: case 254: case 255:
1893: return(UNK);
1894: default: /* The rest, convert to Latin-1 */
1895: return(yl1as[ydgl1[c]]); /* and from there to ASCII */
1896: }
1897: }
1898:
1899: CHAR
1900: #ifdef CK_ANSIC
1901: xukl1(CHAR c)
1902: #else
1903: xukl1(c) CHAR c;
1904: #endif /* CK_ANSIC */
1905: { /* xukl1 */ /* UK ASCII to Latin-1 */
1906: if (c == 35)
1907: return(163);
1908: else return(c);
1909: }
1910:
1911: CHAR
1912: #ifdef CK_ANSIC
1913: xl1uk(CHAR c)
1914: #else
1915: xl1uk(c) CHAR c;
1916: #endif /* CK_ANSIC */
1917: { /* xl1uk */ /* Latin-1 to UK ASCII */
1918: if (c == 163)
1919: return(35);
1920: else return(yl1as[c]);
1921: }
1922:
1923: CHAR /* Latin-1 to French ISO 646 */
1924: #ifdef CK_ANSIC
1925: xl1fr(CHAR c)
1926: #else
1927: xl1fr(c) CHAR c;
1928: #endif /* CK_ANSIC */
1929: { /* xl1fr */
1930: return(yl1fr[c]);
1931: }
1932:
1933:
1934: CHAR /* French ASCII to Latin-1 */
1935: #ifdef CK_ANSIC
1936: xfrl1(CHAR c)
1937: #else
1938: xfrl1(c) CHAR c;
1939: #endif /* CK_ANSIC */
1940: { /* xfrl1 */
1941: return(yfrl1[c]);
1942: }
1943:
1944: CHAR /* Latin-1 to Dutch ASCII */
1945: #ifdef CK_ANSIC
1946: xl1du(CHAR c)
1947: #else
1948: xl1du(c) CHAR c;
1949: #endif /* CK_ANSIC */
1950: { /* xl1du */
1951: return(yl1du[c]);
1952: }
1953:
1954: CHAR
1955: #ifdef CK_ANSIC
1956: xdul1(CHAR c)
1957: #else
1958: xdul1(c) CHAR c;
1959: #endif /* CK_ANSIC */
1960: { /* xdul1 */ /* Dutch ISO 646 to Latin-1 */
1961: return(ydul1[c]);
1962: }
1963:
1964: CHAR
1965: #ifdef CK_ANSIC
1966: xfil1(CHAR c)
1967: #else
1968: xfil1(c) CHAR c;
1969: #endif /* CK_ANSIC */
1970: { /* xfil1 */ /* Finnish ISO 646 to Latin-1 */
1971: return(yfil1[c]);
1972: }
1973:
1974: CHAR
1975: #ifdef CK_ANSIC
1976: xl1fi(CHAR c)
1977: #else
1978: xl1fi(c) CHAR c;
1979: #endif /* CK_ANSIC */
1980: { /* xl1fi */ /* Latin-1 to Finnish ISO 646 */
1981: return(yl1fi[c]);
1982: }
1983:
1984: CHAR
1985: #ifdef CK_ANSIC
1986: xfcl1(CHAR c)
1987: #else
1988: xfcl1(c) CHAR c;
1989: #endif /* CK_ANSIC */
1990: { /* xfcl1 */ /* French Canadian ISO646 to Latin-1 */
1991: return(yfcl1[c]);
1992: }
1993:
1994: CHAR
1995: #ifdef CK_ANSIC
1996: xl1fc(CHAR c)
1997: #else
1998: xl1fc(c) CHAR c;
1999: #endif /* CK_ANSIC */
2000: { /* xl1fc */ /* Latin-1 to French Canadian ISO646 */
2001: return(yl1fc[c]);
2002: }
2003:
2004: CHAR
2005: #ifdef CK_ANSIC
2006: xitl1(CHAR c)
2007: #else
2008: xitl1(c) CHAR c;
2009: #endif /* CK_ANSIC */
2010: { /* xitl1 */ /* Italian ISO 646 to Latin-1 */
2011: return(yitl1[c]);
2012: }
2013:
2014: CHAR
2015: #ifdef CK_ANSIC
2016: xl1it(CHAR c)
2017: #else
2018: xl1it(c) CHAR c;
2019: #endif /* CK_ANSIC */
2020: { /* xl1it */ /* Latin-1 to Italian ISO 646 */
2021: return(yl1it[c]);
2022: }
2023:
2024: CHAR
2025: #ifdef CK_ANSIC
2026: xnel1(CHAR c)
2027: #else
2028: xnel1(c) CHAR c;
2029: #endif /* CK_ANSIC */
2030: { /* xnel1 */ /* NeXT to Latin-1 */
2031: return(ynel1[c]);
2032: }
2033:
2034: CHAR
2035: #ifdef CK_ANSIC
2036: xl1ne(CHAR c)
2037: #else
2038: xl1ne(c) CHAR c;
2039: #endif /* CK_ANSIC */
2040: { /* xl1ne */ /* Latin-1 to NeXT */
2041: return(yl1ne[c]);
2042: }
2043:
2044: CHAR
2045: #ifdef CK_ANSIC
2046: xnol1(CHAR c)
2047: #else
2048: xnol1(c) CHAR c;
2049: #endif /* CK_ANSIC */
2050: { /* xnol1 */ /* Norwegian and Danish ISO 646 to Latin-1 */
2051: return(ynol1[c]);
2052: }
2053:
2054: CHAR
2055: #ifdef CK_ANSIC
2056: xl1no(CHAR c)
2057: #else
2058: xl1no(c) CHAR c;
2059: #endif /* CK_ANSIC */
2060: { /* xl1no */ /* Latin-1 to Norwegian and Danish ISO 646 */
2061: return(yl1no[c]);
2062: }
2063:
2064: CHAR
2065: #ifdef CK_ANSIC
2066: xpol1(CHAR c)
2067: #else
2068: xpol1(c) CHAR c;
2069: #endif /* CK_ANSIC */
2070: { /* xpol1 */ /* Portuguese ISO 646 to Latin-1 */
2071: return(ypol1[c]);
2072: }
2073:
2074: CHAR
2075: #ifdef CK_ANSIC
2076: xl1po(CHAR c)
2077: #else
2078: xl1po(c) CHAR c;
2079: #endif /* CK_ANSIC */
2080: { /* xl1po */ /* Latin-1 to Portuguese ISO 646 */
2081: return(yl1po[c]);
2082: }
2083:
2084: CHAR
2085: #ifdef CK_ANSIC
2086: xspl1(CHAR c)
2087: #else
2088: xspl1(c) CHAR c;
2089: #endif /* CK_ANSIC */
2090: { /* xspl1 */ /* Spanish ISO 646 to Latin-1 */
2091: return(yspl1[c]);
2092: }
2093:
2094: CHAR
2095: #ifdef CK_ANSIC
2096: xl1sp(CHAR c)
2097: #else
2098: xl1sp(c) CHAR c;
2099: #endif /* CK_ANSIC */
2100: { /* xl1sp */ /* Latin-1 to Spanish ISO 646 */
2101: return(yl1sp[c]);
2102: }
2103:
2104: CHAR
2105: #ifdef CK_ANSIC
2106: xswl1(CHAR c)
2107: #else
2108: xswl1(c) CHAR c;
2109: #endif /* CK_ANSIC */
2110: { /* xswl1 */ /* Swedish ISO 646 to Latin-1 */
2111: return(yswl1[c]);
2112: }
2113:
2114: CHAR
2115: #ifdef CK_ANSIC
2116: xl1sw(CHAR c)
2117: #else
2118: xl1sw(c) CHAR c;
2119: #endif /* CK_ANSIC */
2120: { /* xl1sw */ /* Latin-1 to Swedish ISO 646 */
2121: return(yl1sw[c]);
2122: }
2123:
2124: CHAR
2125: #ifdef CK_ANSIC
2126: xchl1(CHAR c)
2127: #else
2128: xchl1(c) CHAR c;
2129: #endif /* CK_ANSIC */
2130: { /* xchl1 */ /* Swiss ISO 646 to Latin-1 */
2131: return(ychl1[c]);
2132: }
2133:
2134: CHAR
2135: #ifdef CK_ANSIC
2136: xl1ch(CHAR c)
2137: #else
2138: xl1ch(c) CHAR c;
2139: #endif /* CK_ANSIC */
2140: { /* xl1ch */ /* Latin-1 to Swiss ISO 646 */
2141: return(yl1ch[c]);
2142: }
2143:
2144: CHAR
2145: #ifdef CK_ANSIC
2146: xhul1(CHAR c)
2147: #else
2148: xhul1(c) CHAR c;
2149: #endif /* CK_ANSIC */
2150: { /* xhul1 */ /* Hungarian ISO 646 to Latin-1 */
2151: return(yhul1[c]);
2152: }
2153:
2154: CHAR
2155: #ifdef CK_ANSIC
2156: xl1hu(CHAR c)
2157: #else
2158: xl1hu(c) CHAR c;
2159: #endif /* CK_ANSIC */
2160: { /* xl1hu */ /* Latin-1 to Hungarian ISO 646 */
2161: return(yl1hu[c]);
2162: }
2163:
2164: CHAR
2165: #ifdef CK_ANSIC
2166: xl1dm(CHAR c)
2167: #else
2168: xl1dm(c) CHAR c;
2169: #endif /* CK_ANSIC */
2170: { /* xl1dm */ /* Latin-1 to DEC Multinational Character Set (MCS) */
2171: return(yl1dm[c]);
2172: }
2173:
2174: CHAR
2175: #ifdef CK_ANSIC
2176: xl1dg(CHAR c)
2177: #else
2178: xl1dg(c) CHAR c;
2179: #endif /* CK_ANSIC */
2180: { /* xl1dg */ /* Latin-1 to DG Multinational Character Set (MCS) */
2181: return(yl1dg[c]);
2182: }
2183:
2184: CHAR
2185: #ifdef CK_ANSIC
2186: xdml1(CHAR c)
2187: #else
2188: xdml1(c) CHAR c;
2189: #endif /* CK_ANSIC */
2190: { /* xdml1 */ /* DEC Multinational Character Set (MCS) to Latin-1 */
2191: return(ydml1[c]);
2192: }
2193:
2194: CHAR
2195: #ifdef CK_ANSIC
2196: xdgl1(CHAR c)
2197: #else
2198: xdgl1(c) CHAR c;
2199: #endif /* CK_ANSIC */
2200: { /* xdgl1 */ /* DG Multinational Character Set (MCS) to Latin-1 */
2201: return(ydgl1[c]);
2202: }
2203:
2204: /* Translation functions for receiving files and translating them into ASCII */
2205:
2206: CHAR
2207: #ifdef CK_ANSIC
2208: zl1as(CHAR c)
2209: #else
2210: zl1as(c) CHAR c;
2211: #endif /* CK_ANSIC */
2212: { /* zl1as */
2213: switch(langs[language].id) {
2214:
2215: case L_DUTCH:
2216: if (c == 255) { /* Dutch umlaut-y */
2217: zdstuff('j'); /* becomes ij */
2218: return('i');
2219: } else return(yl1as[c]); /* all others by the book */
2220:
2221: case L_GERMAN:
2222: switch (c) { /* German, special rules. */
2223: case 196: /* umlaut-A -> Ae */
2224: zdstuff('e');
2225: return('A');
2226: case 214: /* umlaut-O -> Oe */
2227: zdstuff('e');
2228: return('O');
2229: case 220: /* umlaut-U -> Ue */
2230: zdstuff('e');
2231: return('U');
2232: case 228: /* umlaut-a -> ae */
2233: zdstuff('e');
2234: return('a');
2235: case 246: /* umlaut-o -> oe */
2236: zdstuff('e');
2237: return('o');
2238: case 252: /* umlaut-u -> ue */
2239: zdstuff('e');
2240: return('u');
2241: case 223: /* ess-zet -> ss */
2242: zdstuff('s');
2243: return('s');
2244: default: return(yl1as[c]); /* all others by the book */
2245: }
2246: case L_DANISH:
2247: case L_FINNISH:
2248: case L_NORWEGIAN:
2249: case L_SWEDISH:
2250: switch (c) { /* Scandanavian languages. */
2251: case 196: /* umlaut-A -> Ae */
2252: zdstuff('e');
2253: return('A');
2254: case 214: /* umlaut-O -> Oe */
2255: case 216: /* O-slash -> Oe */
2256: zdstuff('e');
2257: return('O');
2258: case 220: /* umlaut-U -> Y */
2259: /* return('Y'); */
2260: zdstuff('e');
2261: return('U');
2262: case 228: /* umlaut-a -> ae */
2263: zdstuff('e');
2264: return('a');
2265: case 246: /* umlaut-o -> oe */
2266: case 248: /* o-slash -> oe */
2267: zdstuff('e');
2268: return('o');
2269: case 252: /* umlaut-u -> y */
2270: /* return('y'); */
2271: zdstuff('e');
2272: return('u');
2273: case 197: /* A-ring -> Aa */
2274: zdstuff('a');
2275: return('A');
2276: case 229: /* a-ring -> aa */
2277: zdstuff('a');
2278: return('a');
2279: default: return(yl1as[c]); /* All others by the book */
2280: }
2281: default:
2282: return(yl1as[c]); /* Not German, by the table. */
2283: }
2284: }
2285:
2286: CHAR /* IBM CP437 to Latin-1 */
2287: #ifdef CK_ANSIC
2288: x43l1(CHAR c)
2289: #else
2290: x43l1(c) CHAR c;
2291: #endif /* CK_ANSIC */
2292: { /* x43l1 */
2293: return(y43l1[c]);
2294: }
2295:
2296: CHAR /* IBM CP850 to Latin-1 */
2297: #ifdef CK_ANSIC
2298: x85l1(CHAR c)
2299: #else
2300: x85l1(c) CHAR c;
2301: #endif /* CK_ANSIC */
2302: { /* x85l1 */
2303: return(y85l1[c]);
2304: }
2305:
2306: CHAR /* Latin-1 to IBM CP437 */
2307: #ifdef CK_ANSIC
2308: xl143(CHAR c)
2309: #else
2310: xl143(c) CHAR c;
2311: #endif /* CK_ANSIC */
2312: { /* xl143 */
2313: return(yl143[c]);
2314: }
2315:
2316: CHAR /* Latin-1 to CP850 */
2317: #ifdef CK_ANSIC
2318: xl185(CHAR c)
2319: #else
2320: xl185(c) CHAR c;
2321: #endif /* CK_ANSIC */
2322: { /* xl185 */
2323: return(yl185[c]);
2324: }
2325:
2326: CHAR
2327: #ifdef CK_ANSIC
2328: x43as(CHAR c)
2329: #else
2330: x43as(c) CHAR c;
2331: #endif /* CK_ANSIC */
2332: { /* x43as */ /* CP437 to ASCII */
2333: c = y43l1[c]; /* Translate to Latin-1 */
2334: return(xl143(c)); /* and from Latin-1 to ASCII. */
2335: }
2336:
2337: CHAR
2338: #ifdef CK_ANSIC
2339: x85as(CHAR c)
2340: #else
2341: x85as(c) CHAR c;
2342: #endif /* CK_ANSIC */
2343: { /* x85as */ /* CP850 to ASCII */
2344: c = y85l1[c]; /* Translate to Latin-1 */
2345: return(xl1as(c)); /* and from Latin-1 to ASCII. */
2346: }
2347:
2348: CHAR /* Apple Quickdraw to Latin-1 */
2349: #ifdef CK_ANSIC
2350: xaql1(CHAR c)
2351: #else
2352: xaql1(c) CHAR c;
2353: #endif /* CK_ANSIC */
2354: { /* xaql1 */
2355: return(yaql1[c]);
2356: }
2357:
2358: CHAR /* Apple Quickdraw to ASCII */
2359: #ifdef CK_ANSIC
2360: xaqas(CHAR c)
2361: #else
2362: xaqas(c) CHAR c;
2363: #endif /* CK_ANSIC */
2364: { /* xaqas */
2365: c = yaql1[c]; /* Translate to Latin-1 */
2366: return(xl1as(c)); /* then to ASCII. */
2367: }
2368:
2369: CHAR /* Latin-1 to Apple Quickdraw */
2370: #ifdef CK_ANSIC
2371: xl1aq(CHAR c)
2372: #else
2373: xl1aq(c) CHAR c;
2374: #endif /* CK_ANSIC */
2375: { /* xl1aq */
2376: return(yl1aq[c]);
2377: }
2378:
2379: #ifdef CYRILLIC
2380: /* Translation functions for Cyrillic character sets */
2381:
2382: CHAR /* Latin/Cyrillic to */
2383: #ifdef CK_ANSIC
2384: xlcac(CHAR c)
2385: #else
2386: xlcac(c) CHAR c;
2387: #endif /* CK_ANSIC */
2388: { /* xlcac */ /* Microsoft Code Page 866 */
2389: return(ylcac[c]);
2390: }
2391:
2392: CHAR /* Latin/Cyrillic to Old KOI-8 */
2393: #ifdef CK_ANSIC
2394: xlck8(CHAR c)
2395: #else
2396: xlck8(c) CHAR c;
2397: #endif /* CK_ANSIC */
2398: { /* xlck8 */
2399: return(ylck8[c]);
2400: }
2401:
2402: CHAR
2403: #ifdef CK_ANSIC
2404: xlcsk(CHAR c)
2405: #else
2406: xlcsk(c) CHAR c;
2407: #endif /* CK_ANSIC */
2408: { /* xlcsk */ /* Latin/Cyrillic to Short KOI */
2409: return(ylcsk[c]);
2410: }
2411:
2412: CHAR
2413: #ifdef CK_ANSIC
2414: xlcas(CHAR c)
2415: #else
2416: xlcas(c) CHAR c;
2417: #endif /* CK_ANSIC */
2418: { /* xlcas */ /* Latin/Cyrillic to ASCII */
2419: if (langs[language].id == L_RUSSIAN)
2420: return(ylcsk[c]);
2421: else
2422: return((c > 127) ? '?' : c);
2423: }
2424:
2425: CHAR /* CP866 */
2426: #ifdef CK_ANSIC
2427: xaclc(CHAR c)
2428: #else
2429: xaclc(c) CHAR c;
2430: #endif /* CK_ANSIC */
2431: { /* xaclc */ /* to Latin/Cyrillic */
2432: return(yaclc[c]);
2433: }
2434:
2435: CHAR /* Old KOI-8 to Latin/Cyrillic */
2436: #ifdef CK_ANSIC
2437: xk8lc(CHAR c)
2438: #else
2439: xk8lc(c) CHAR c;
2440: #endif /* CK_ANSIC */
2441: { /* xk8lc */
2442: return(yk8lc[c]);
2443: }
2444:
2445: CHAR
2446: #ifdef CK_ANSIC
2447: xskcy(CHAR c)
2448: #else
2449: xskcy(c) CHAR c;
2450: #endif /* CK_ANSIC */
2451: { /* xskcy */ /* Short KOI to Latin/Cyrillic */
2452: return(yskcy[c & 0x7f]);
2453: }
2454:
2455: CHAR
2456: #ifdef CK_ANSIC
2457: xascy(CHAR c)
2458: #else
2459: xascy(c) CHAR c;
2460: #endif /* CK_ANSIC */
2461: { /* xascy */ /* ASCII to Latin/Cyrillic */
2462: if (langs[language].id == L_RUSSIAN) { /* If LANGUAGE == RUSSIAN */
2463: return(yskcy[c & 0x7f]); /* treat ASCII as Short KOI */
2464: } else return((c > 127) ? '?' : c);
2465: }
2466:
2467: CHAR
2468: #ifdef CK_ANSIC
2469: xacas(CHAR c)
2470: #else
2471: xacas(c) CHAR c;
2472: #endif /* CK_ANSIC */
2473: { /* xacas */ /* CP866 to ASCII */
2474: if (langs[language].id == L_RUSSIAN) {
2475: c = yaclc[c]; /* First to Latin/Cyrillic */
2476: return(ylcsk[c]); /* Then to Short KOI */
2477: } else return((c > 127) ? '?' : c);
2478: }
2479:
2480: CHAR
2481: #ifdef CK_ANSIC
2482: xskas(CHAR c)
2483: #else
2484: xskas(c) CHAR c;
2485: #endif /* CK_ANSIC */
2486: { /* xskas */ /* Short KOI to ASCII */
2487: return((c > 95) ? '?' : c);
2488: }
2489:
2490: CHAR
2491: #ifdef CK_ANSIC
2492: xk8as(CHAR c)
2493: #else
2494: xk8as(c) CHAR c;
2495: #endif /* CK_ANSIC */
2496: { /* xk8as */ /* Old KOI-8 Cyrillic to ASCII */
2497: if (langs[language].id == L_RUSSIAN) {
2498: c = yk8lc[c]; /* First to Latin/Cyrillic */
2499: return(ylcsk[c]); /* Then to Short KOI */
2500: } else return((c > 127) ? '?' : c);
2501: }
2502:
2503: CHAR
2504: #ifdef CK_ANSIC
2505: xassk(CHAR c)
2506: #else
2507: xassk(c) CHAR c;
2508: #endif /* CK_ANSIC */
2509: { /* xassk */ /* ASCII to Short KOI */
2510: c &= 0x77; /* Force it to be ASCII */
2511: return((c > 95) ? (c - 32) : c); /* Fold columns 6-7 to 4-5 */
2512: }
2513:
2514: CHAR
2515: #ifdef CK_ANSIC
2516: xl1sk(CHAR c)
2517: #else
2518: xl1sk(c) CHAR c;
2519: #endif /* CK_ANSIC */
2520: { /* xl1sk */ /* Latin-1 to Short KOI */
2521: c = zl1as(c); /* Convert to ASCII */
2522: return(c = xassk(c)); /* Convert ASCII to Short KOI */
2523: }
2524:
2525: CHAR
2526: #ifdef CK_ANSIC
2527: xaslc(CHAR c)
2528: #else
2529: xaslc(c) CHAR c;
2530: #endif /* CK_ANSIC */
2531: { /* xaslc */ /* ASCII to Latin/Cyrillic */
2532: if (langs[language].id == L_RUSSIAN)
2533: return(yskcy[c & 0x7f]);
2534: else return(c & 0x7f);
2535: }
2536:
2537: CHAR
2538: #ifdef CK_ANSIC
2539: xasac(CHAR c)
2540: #else
2541: xasac(c) CHAR c;
2542: #endif /* CK_ANSIC */
2543: { /* xasac */ /* ASCII to CP866 */
2544: if (langs[language].id == L_RUSSIAN) { /* Use Short KOI */
2545: c = xskcy(c); /* Translate to Latin/Cyrillic */
2546: return(ylcac[c]); /* Then to CP866 */
2547: } else return(c & 0x7f);
2548: }
2549:
2550: CHAR
2551: #ifdef CK_ANSIC
2552: xask8(CHAR c)
2553: #else
2554: xask8(c) CHAR c;
2555: #endif /* CK_ANSIC */
2556: { /* xask8 */ /* ASCII to KOI-8 */
2557: if (langs[language].id == L_RUSSIAN) { /* Use Short KOI */
2558: c = xskcy(c); /* Translate to Latin/Cyrillic */
2559: return(ylck8[c]); /* Then to KOI-8 */
2560: } else return(c & 0x7f);
2561: }
2562: #endif /* CYRILLIC */
2563:
2564: /* Translation functions for Japanese Kanji character sets */
2565:
2566: #ifdef KANJI
2567: /*
2568: Translate Kanji Transfer Character Set (EUC) to local file character set,
2569: contributed by Dr. Hirofumi Fujii, Japan High Energy Research Laboratory
2570: (KEK), Tokyo, Japan.
2571:
2572: a is a byte to be translated, which may be a single-byte character,
2573: the Katakana prefix, the first byte of a two-byte Kanji character, or the
2574: second byte of 2-byte Kanji character.
2575:
2576: fn is the output function.
2577:
2578: Returns 0 on success, -1 on failure.
2579: */
2580:
2581: static int jpncnt; /* byte count for Japanese */
2582: static int jpnlst; /* last status (for JIS7) */
2583:
2584: static int
2585: jpnxas(a, obuf) int a; int obuf[]; { /* Translate ASCII to local file code */
2586: int r;
2587:
2588: r = 0;
2589: if (fcharset == FC_JIS7) {
2590: switch (jpnlst) {
2591: case 1:
2592: obuf[0] = 0x0f;
2593: obuf[1] = a;
2594: r = 2;
2595: break;
2596: case 2:
2597: obuf[0] = 0x1b;
2598: obuf[1] = 0x28;
2599: obuf[2] = 0x4a;
2600: obuf[3] = a;
2601: r = 4;
2602: break;
2603: default:
2604: obuf[0] = a;
2605: r = 1;
2606: break;
2607: }
2608: } else {
2609: obuf[0] = a;
2610: r = 1;
2611: }
2612: return(r);
2613: }
2614:
2615: static int
2616: jpnxkt(a, obuf) int a; int obuf[]; {
2617: /* Translate JIS X 201 Katakana to local code */
2618:
2619: int r;
2620:
2621: r = 0;
2622: if (fcharset == FC_JIS7) {
2623: switch (jpnlst) {
2624: case 2: /* from Kanji */
2625: obuf[r++] = 0x1b;
2626: obuf[r++] = 0x28;
2627: obuf[r++] = 0x4a;
2628: case 0: /* from Roman */
2629: obuf[r++] = 0x0e;
2630: default:
2631: obuf[r++] = (a & 0x7f);
2632: break;
2633: }
2634: } else {
2635: if (fcharset == FC_JEUC)
2636: obuf[r++] = 0x8e;
2637: obuf[r++] = (a | 0x80);
2638: }
2639: return(r);
2640: }
2641:
2642: static int
2643: jpnxkn(ibuf, obuf) int ibuf[], obuf[]; {
2644: /* Translate JIS X 0208 Kanji to local code */
2645: int c1, c2;
2646: int r;
2647:
2648: c1 = ibuf[0] & 0x7f;
2649: c2 = ibuf[1] & 0x7f;
2650:
2651: if (fcharset == FC_SHJIS) {
2652: if (c1 & 1)
2653: c2 += 0x1f;
2654: else
2655: c2 += 0x7d;
2656:
2657: if (c2 >= 0x7f) c2++;
2658:
2659: c1 = ((c1 - 0x21) >> 1) + 0x81;
2660: if (c1 > 0x9f) c1 += 0x40;
2661:
2662: obuf[0] = c1;
2663: obuf[1] = c2;
2664: r = 2;
2665: } else if (fcharset == FC_JIS7) {
2666: r = 0;
2667: switch (jpnlst) {
2668: case 1:
2669: obuf[r++] = 0x0f; /* From Katakana */
2670: case 0:
2671: obuf[r++] = 0x1b;
2672: obuf[r++] = 0x24;
2673: obuf[r++] = 0x42;
2674: default:
2675: obuf[r++] = c1;
2676: obuf[r++] = c2;
2677: break;
2678: }
2679: } else {
2680: obuf[0] = (c1 | 0x80);
2681: obuf[1] = (c2 | 0x80);
2682: r = 2;
2683: }
2684: return(r);
2685: }
2686:
2687: int
2688: xkanjf() {
2689: /* Initialize parameters for xkanji */
2690: /* This function should be called when F/X-packet is received */
2691: jpncnt = jpnlst = 0;
2692: return(0);
2693: }
2694:
2695: int
2696: #ifdef CK_ANSIC
2697: xkanjz( int (*fn)(char) )
2698: #else
2699: xkanjz( fn ) int (*fn)();
2700: #endif /* CK_ANSIC */
2701: { /* xkanjz */
2702: /*
2703: Terminate xkanji
2704: This function must be called when Z-packet is received
2705: (before closing the file).
2706: */
2707: static int obuf[6];
2708: int r, i, c;
2709:
2710: if (fcharset == FC_JIS7) {
2711: c = 'A'; /* Dummy Roman character */
2712: r = jpnxas(c, obuf) - 1; /* -1 removes Dummy character */
2713: if (r > 0) {
2714: for (i = 0; i < r; i++)
2715: if ( ((*fn)((char) obuf[i])) < 0 )
2716: return( -1 );
2717: }
2718: }
2719: return( 0 );
2720: }
2721:
2722: int
2723: #ifdef CK_ANSIC
2724: xkanji(int a, int (*fn)(char))
2725: #else
2726: xkanji(a, fn) int a; int (*fn)();
2727: #endif /* CK_ANSIC */
2728: { /* xkanji */
2729: static int xbuf[2];
2730: static int obuf[8];
2731:
2732: int i, r;
2733: int c7;
2734: int state;
2735:
2736: r = 0;
2737: if (jpncnt == 0) {
2738: /* 1st byte */
2739: if ( (a & 0x80) == 0 ) {
2740: /* 8th bit is 0, i.e., single-byte code */
2741: r = jpnxas(a, obuf);
2742: state = 0;
2743: } else {
2744: /* 8th bit is 1, check the range */
2745: c7 = a & 0x7f;
2746: if ( ((c7 > 0x20) && (c7 < 0x7f)) || (c7 == 0x0e) ) {
2747: /* double byte code */
2748: xbuf[jpncnt++] = a;
2749: } else {
2750: /* single byte code */
2751: r = jpnxas(a, obuf);
2752: state = 0;
2753: }
2754: }
2755: } else {
2756: /* not the 1st byte */
2757: xbuf[jpncnt++] = a;
2758: if (xbuf[0] == 0x8e) {
2759: r = jpnxkt( xbuf[1], obuf );
2760: state = 1;
2761: } else {
2762: r = jpnxkn(xbuf, obuf);
2763: state = 2;
2764: }
2765: }
2766: if (r > 0) {
2767: for (i = 0; i < r; i++ )
2768: if ( ((*fn)((char) obuf[i])) < 0 )
2769: return( -1 );
2770: jpnlst = state;
2771: jpncnt = 0;
2772: }
2773: return( 0 );
2774: }
2775:
2776: /*
2777: Function for translating from Japanese file character set
2778: to Japanese EUC transfer character set.
2779: Returns a pointer to a string containing 0, 1, or 2 bytes.
2780: */
2781:
2782: /* zkanji */
2783: static int jpnstz; /* status for JIS-7 */
2784: static int jpnpnd; /* number of pending bytes */
2785: static int jpnpnt; /* pending buffer index */
2786: static int jpnpbf[8]; /* pending buffer */
2787:
2788: int
2789: zkanjf() { /* Initialize */
2790: jpnstz = jpnpnd = jpnpnt = 0;
2791: return(0);
2792: }
2793:
2794: int
2795: zkanjz() {
2796: return( 0 );
2797: }
2798:
2799: int
2800: #ifdef CK_ANSIC
2801: zkanji( int (*fn)(void) )
2802: #else
2803: zkanji( fn ) int (*fn)();
2804: #endif /* CK_ANSIC */
2805: { /* zkanji */
2806: /* Read Japanese local code and translate to Japanese EUC */
2807: int a;
2808: int sc[3];
2809:
2810: /* No pending characters */
2811: if (fcharset == FC_SHJIS) { /* Translating from Shift-JIS */
2812: if (jpnpnd) {
2813: jpnpnd--;
2814: return( jpnpbf[jpnpnt++] );
2815: }
2816:
2817: a = (*fn)();
2818: jpnpnd = jpnpnt = 0;
2819: if (((a >= 0x81) && (a <= 0x9f)) ||
2820: ((a >= 0xe0) && (a <= 0xfc))) { /* 2-byte Kanji code */
2821: sc[0] = a;
2822: if ((sc[1] = (*fn)()) < 0) /* Get second byte */
2823: return( sc[1] );
2824: if (sc[0] <= 0x9f)
2825: sc[0] -= 0x71;
2826: else
2827: sc[0] -= 0xb1;
2828: sc[0] = sc[0] * 2 + 1;
2829: if (sc[1] > 0x7f)
2830: sc[1]--;
2831: if (sc[1] >= 0x9e) {
2832: sc[1] -= 0x7d;
2833: sc[0]++;
2834: } else {
2835: sc[1] -= 0x1f;
2836: }
2837: a = (sc[0] | 0x80);
2838: jpnpbf[0] = (sc[1] | 0x80);
2839: jpnpnd = 1;
2840: jpnpnt = 0;
2841: } else if ((a >= 0xa1) && (a <= 0xdf)) { /* Katakana */
2842: jpnpbf[0] = a;
2843: jpnpnd = 1;
2844: jpnpnt = 0;
2845: a = 0x8e;
2846: }
2847: return(a);
2848: } else if (fcharset == FC_JIS7 ) { /* 7-bit JIS X 0208 */
2849: if (jpnpnd) {
2850: a = jpnpbf[jpnpnt++];
2851: jpnpnd--;
2852: return(a);
2853: }
2854: jpnpnt = 0;
2855: if ((a = (*fn)()) < 0)
2856: return(a);
2857: while (jpnpnd == 0) {
2858: if ((a > 0x20) && (a < 0x7f)) {
2859: switch (jpnstz) {
2860: case 1:
2861: jpnpbf[jpnpnd++] = 0x80; /* Katakana */
2862: jpnpbf[jpnpnd++] = (a | 0x80);
2863: break;
2864: case 2:
2865: jpnpbf[jpnpnd++] = (a | 0x80); /* Kanji */
2866: if ((a = (*fn)()) < 0)
2867: return(a);
2868: jpnpbf[jpnpnd++] = (a | 0x80);
2869: break;
2870: default:
2871: jpnpbf[jpnpnd++] = a; /* Single byte */
2872: break;
2873: }
2874: } else if (a == 0x0e) {
2875: jpnstz = 1;
2876: if ((a = (*fn)()) < 0)
2877: return(a);
2878: } else if (a == 0x0f) {
2879: jpnstz = 0;
2880: if ((a = (*fn)()) < 0)
2881: return(a);
2882: } else if (a == 0x1b) {
2883: jpnpbf[jpnpnd++] = a; /* Escape */
2884: if ((a = (*fn)()) < 0)
2885: return(a);
2886: jpnpbf[jpnpnd++] = a;
2887: if (a == '$') {
2888: if ((a = (*fn)()) < 0)
2889: return(a);
2890: jpnpbf[jpnpnd++] = a;
2891: if ((a == '@') || (a == 'B')) {
2892: jpnstz = 2;
2893: jpnpnt = jpnpnd = 0;
2894: if ((a = (*fn)()) < 0)
2895: return(a);
2896: }
2897: } else if (a == '(') {
2898: if ((a = (*fn)()) < 0)
2899: return( a );
2900: jpnpbf[jpnpnd++] = a;
2901: if ((a == 'B') || (a == 'J')) {
2902: jpnstz = 0;
2903: jpnpnt = jpnpnd = 0;
2904: if ((a = (*fn)()) < 0)
2905: return(a);
2906: }
2907: } else if (a == 0x1b) {
2908: jpnpnt = jpnpnd = 0;
2909: if ((a = (*fn)()) < 0)
2910: return(a);
2911: }
2912: } else {
2913: jpnpbf[jpnpnd++] = a;
2914: }
2915: }
2916: jpnpnt = 0;
2917: a = jpnpbf[jpnpnt++];
2918: jpnpnd--;
2919: return(a);
2920: } else {
2921: a = (*fn)();
2922: return(a);
2923: }
2924: }
2925: #endif /* KANJI */
2926:
2927:
2928: /* TABLES OF TRANSLATION FUNCTIONS FOR UNIX AND VAX/VMS, etc. */
2929:
2930: /*
2931: First, the table of translation functions for RECEIVING files.
2932: That is, from TRANSFER character set to FILE character set.
2933: Array of pointers to functions for translating from the transfer
2934: syntax to the local file character set. The first index is the
2935: transfer syntax character set number, the second index is the file
2936: character set number.
2937:
2938: These arrays must be fully populated, even if (as is the case with
2939: Kanji character sets), all the entries are NULL. Otherwise,
2940: subscript calculations will be wrong and we'll use the wrong functions.
2941: */
2942:
2943: #ifdef CK_ANSIC
2944: CHAR (*xlr[MAXTCSETS+1][MAXFCSETS+1])(CHAR) =
2945: #else
2946: CHAR (*xlr[MAXTCSETS+1][MAXFCSETS+1])() =
2947: #endif /* CK_ANSIC */
2948: {
2949: NULL, /* 0,0 transparent to us ascii */
2950: NULL, /* 0,1 transparent to uk ascii */
2951: NULL, /* 0,2 transparent to dutch nrc */
2952: NULL, /* 0,3 transparent to finnish nrc */
2953: NULL, /* 0,4 transparent to french nrc */
2954: NULL, /* 0,5 transparent to fr-canadian nrc */
2955: NULL, /* 0,6 transparent to german nrc */
2956: NULL, /* 0,7 transparent to hungarian nrc */
2957: NULL, /* 0,8 transparent to italian nrc */
2958: NULL, /* 0,9 transparent to norge/danish nrc */
2959: NULL, /* 0,10 transparent to portuguese nrc */
2960: NULL, /* 0,11 transparent to spanish nrc */
2961: NULL, /* 0,12 transparent to swedish nrc */
2962: NULL, /* 0,13 transparent to swiss nrc */
2963: NULL, /* 0,14 transparent to latin-1 */
2964: NULL, /* 0,15 transparent to DEC MCS */
2965: NULL, /* 0,16 transparent to NeXT */
2966: NULL, /* 0,17 transparent to CP437 */
2967: NULL, /* 0,18 transparent to CP850 */
2968: NULL, /* 0,19 transparent to Apple Quickdraw */
2969: NULL /* 0,20 transparent to DG MCS */
2970: #ifdef CYRILLIC
2971: , NULL, /* 0,21 transparent to Latin/Cyrillic */
2972: NULL, /* 0,22 transparent to CP866 */
2973: NULL, /* 0,23 transparent to Short KOI-7 */
2974: NULL /* 0,24 transparent to Old KOI-8 Cyrillic */
2975: #endif /* CYRILLIC */
2976: #ifdef KANJI
2977: , NULL, /* 0,25 (or 0,21) transparent to JIS-7 */
2978: NULL, /* 0,26 (or 0,22) transparent to Shift-JIS */
2979: NULL, /* 0,27 (or 0,23) transparent to J-EUC */
2980: NULL /* 0,28 (or 0,24) transparent to DEC Kanji */
2981: #endif /* KANJI */
2982: , NULL, /* 1,0 ascii to us ascii */
2983: NULL, /* 1,1 ascii to uk ascii */
2984: NULL, /* 1,2 ascii to dutch nrc */
2985: NULL, /* 1,3 ascii to finnish nrc */
2986: NULL, /* 1,4 ascii to french nrc */
2987: NULL, /* 1,5 ascii to fr-canadian nrc */
2988: NULL, /* 1,6 ascii to german nrc */
2989: NULL, /* 1,7 ascii to hungarian nrc */
2990: NULL, /* 1,8 ascii to italian nrc */
2991: NULL, /* 1,9 ascii to norge/danish nrc */
2992: NULL, /* 1,10 ascii to portuguese nrc */
2993: NULL, /* 1,11 ascii to spanish nrc */
2994: NULL, /* 1,12 ascii to swedish nrc */
2995: NULL, /* 1,13 ascii to swiss nrc */
2996: NULL, /* 1,14 ascii to latin-1 */
2997: NULL, /* 1,15 ascii to DEC MCS */
2998: NULL, /* 1,16 ascii to NeXT */
2999: NULL, /* 1,17 ascii to CP437 */
3000: NULL, /* 1,18 ascii to CP850 */
3001: NULL, /* 1,19 ascii to Apple Quickdraw */
3002: NULL /* 1,20 ascii to DG MCS */
3003: #ifdef CYRILLIC
3004: , xaslc, /* 1,21 ascii to Latin/Cyrillic */
3005: xasac, /* 1,22 ascii to CP866 */
3006: xassk, /* 1,23 ascii to Short KOI */
3007: xask8 /* 1,24 ascii to Old KOI-8 Cyrillic */
3008: #endif /* CYRILLIC */
3009: #ifdef KANJI
3010: , NULL, /* 1,25 (or 1,21) ascii to JIS-7 */
3011: NULL, /* 1,26 (or 1,22) ascii to Shift-JIS */
3012: NULL, /* 1,27 (or 1,23) ascii to J-EUC */
3013: NULL /* 1,28 (or 1,24) ascii to DEC Kanji */
3014: #endif /* KANJI */
3015: , zl1as, /* 2,0 latin-1 to us ascii */
3016: xl1uk, /* 2,1 latin-1 to uk ascii */
3017: xl1du, /* 2,2 latin-1 to dutch nrc */
3018: xl1fi, /* 2,3 latin-1 to finnish nrc */
3019: xl1fr, /* 2,4 latin-1 to french nrc */
3020: xl1fc, /* 2,5 latin-1 to fr-canadian nrc */
3021: xl1ge, /* 2,6 latin-1 to german nrc */
3022: xl1it, /* 2,7 latin-1 to italian nrc */
3023: xl1hu, /* 2,8 latin-1 to hungarian nrc */
3024: xl1no, /* 2,9 latin-1 to norge/danish nrc */
3025: xl1po, /* 2,10 latin-1 to portuguese nrc */
3026: xl1sp, /* 2,11 latin-1 to spanish nrc */
3027: xl1sw, /* 2,12 latin-1 to swedish nrc */
3028: xl1ch, /* 2,13 latin-1 to swiss nrc */
3029: NULL, /* 2,14 latin-1 to latin-1 */
3030: xl1dm, /* 2,15 latin-1 to DEC MCS */
3031: xl1ne, /* 2,16 latin-1 to NeXT */
3032: xl143, /* 2,17 latin-1 to CP437 */
3033: xl185, /* 2,18 latin-1 to CP850 */
3034: xl1aq, /* 2,19 latin-1 to Apple Quickdraw */
3035: xl1dg /* 2,20 latin-1 to DG MCS */
3036: #ifdef CYRILLIC
3037: , zl1as, /* 2,21 latin-1 to Latin/Cyrillic */
3038: zl1as, /* 2,22 latin-1 to CP866 */
3039: xl1sk, /* 2,23 latin-1 to Short KOI */
3040: zl1as /* 2,24 latin-1 to Old KOI-8 Cyrillic */
3041: #endif /* CYRILLIC */
3042: #ifdef KANJI
3043: , NULL, /* 2,25 (or 2,21) latin-1 to JIS-7 */
3044: NULL, /* 2,26 (or 2,22) latin-1 to Shift-JIS */
3045: NULL, /* 2,27 (or 2,23) latin-1 to J-EUC */
3046: NULL /* 2,28 (or 2,24) latin-1 to DEC Kanji */
3047: #endif /* KANJI */
3048: #ifdef CYRILLIC
3049: , xlcas, /* 3,0 latin/cyrillic to us ascii */
3050: xlcas, /* 3,1 latin/cyrillic to uk ascii */
3051: xlcas, /* 3,2 latin/cyrillic to dutch nrc */
3052: xlcas, /* 3,3 latin/cyrillic to finnish ascii */
3053: xlcas, /* 3,4 latin/cyrillic to french nrc */
3054: xlcas, /* 3,5 latin/cyrillic to fr-canadian nrc */
3055: xlcas, /* 3,6 latin/cyrillic to german nrc */
3056: xlcas, /* 3,7 latin/cyrillic to italian nrc */
3057: xlcas, /* 3,8 latin/cyrillic to hungarian nrc */
3058: xlcas, /* 3,9 latin/cyrillic to norge/danish nrc */
3059: xlcas, /* 3,10 latin/cyrillic to portuguese nrc */
3060: xlcas, /* 3,11 latin/cyrillic to spanish nrc */
3061: xlcas, /* 3,12 latin/cyrillic to swedish nrc */
3062: xlcas, /* 3,13 latin/cyrillic to swiss nrc */
3063: xlcas, /* 3,14 latin/cyrillic to latin-1 */
3064: xlcas, /* 3,15 latin/cyrillic to DEC MCS */
3065: xlcas, /* 3,16 latin/cyrillic to NeXT */
3066: xlcas, /* 3,17 latin/cyrillic to CP437 */
3067: xlcas, /* 3,18 latin/cyrillic to CP850 */
3068: xlcas, /* 3,19 latin/cyrillic to Apple Quickdraw */
3069: xlcas, /* 3,20 latin/cyrillic to DG MCS */
3070: NULL, /* 3,21 latin/cyrillic to Latin/Cyrillic */
3071: xlcac, /* 3,22 latin/cyrillic to CP866 */
3072: xlcsk, /* 3,23 latin/cyrillic to Short KOI */
3073: xlck8 /* 3,24 latin/cyrillic to Old KOI-8 Cyrillic */
3074: #ifdef KANJI
3075: , NULL, /* 3,25 (or 3,21) latin/cyril to JIS-7 */
3076: NULL, /* 3,26 (or 3,22) latin/cyril to Shift-JIS */
3077: NULL, /* 3,27 (or 3,23) latin/cyril to J-EUC */
3078: NULL /* 3,28 (or 3,24) latin/cyril to DEC Kanji */
3079: #endif /* KANJI */
3080: #endif /* CYRILLIC */
3081: #ifdef KANJI
3082: , NULL, /* 4,00 */
3083: NULL, /* 4,01 */
3084: NULL, /* 4,02 */
3085: NULL, /* 4,03 */
3086: NULL, /* 4,04 */
3087: NULL, /* 4,05 */
3088: NULL, /* 4,06 */
3089: NULL, /* 4.07 */
3090: NULL, /* 4,08 */
3091: NULL, /* 4,09 */
3092: NULL, /* 4,10 */
3093: NULL, /* 4,11 */
3094: NULL, /* 4,12 */
3095: NULL, /* 4,13 */
3096: NULL, /* 4,14 */
3097: NULL, /* 4,15 */
3098: NULL, /* 4,16 */
3099: NULL, /* 4,17 */
3100: NULL, /* 4,18 */
3101: NULL, /* 4,19 */
3102: NULL, /* 4,20 */
3103: NULL, /* 4,21 */
3104: NULL, /* 4,22 */
3105: NULL, /* 4,23 */
3106: NULL /* 4,24 */
3107: #ifdef CYRILLIC
3108: , NULL, /* 4,25 */
3109: NULL, /* 4,26 */
3110: NULL, /* 4,27 */
3111: NULL /* 4,28 */
3112: #endif /* CYRILLIC */
3113: #endif /* KANJI */
3114: };
3115:
3116: /*
3117: Translation function table for sending files.
3118: Array of pointers to functions for translating from the local file
3119: character set to the transfer syntax character set. Indexed in the same
3120: way as the xlr array above.
3121: */
3122: #ifdef CK_ANSIC
3123: CHAR (*xls[MAXTCSETS+1][MAXFCSETS+1])(CHAR) =
3124: #else
3125: CHAR (*xls[MAXTCSETS+1][MAXFCSETS+1])() =
3126: #endif /* CK_ANSIC */
3127: {
3128: NULL, /* 0,0 us ascii to transparent */
3129: NULL, /* 0,1 uk ascii to transparent */
3130: NULL, /* 0,2 dutch nrc to transparent */
3131: NULL, /* 0,3 finnish nrc to transparent */
3132: NULL, /* 0,4 french nrc to transparent */
3133: NULL, /* 0,5 fr-canadian nrc to transparent */
3134: NULL, /* 0,6 german nrc to transparent */
3135: NULL, /* 0,7 hungarian nrc to transparent */
3136: NULL, /* 0,8 italian nrc to transparent */
3137: NULL, /* 0,9 norge/danish nrc to transparent */
3138: NULL, /* 0,10 portuguese nrc to transparent */
3139: NULL, /* 0,11 spanish nrc to transparent */
3140: NULL, /* 0,12 swedish nrc to transparent */
3141: NULL, /* 0,13 swiss nrc to transparent */
3142: NULL, /* 0,14 latin-1 to transparent */
3143: NULL, /* 0,15 DEC MCS to transparent */
3144: NULL, /* 0,16 NeXT to transparent */
3145: NULL, /* 0,17 CP437 to transparent */
3146: NULL, /* 0,18 CP850 to transparent */
3147: NULL, /* 0,19 Apple Quickdraw to transparent */
3148: NULL /* 0,20 DG MCS to transparent */
3149: #ifdef CYRILLIC
3150: , NULL, /* 0,21 Latin/Cyrillic to transparent */
3151: NULL, /* 0,22 CP866 to transparent */
3152: NULL, /* 0,23 Short KOI to transparent */
3153: NULL /* 0,24 Old KOI-8 to transparent */
3154: #endif /* CYRILLIC */
3155: #ifdef KANJI
3156: , NULL, /* 0,25 (or...) JIS-7 to transparent */
3157: NULL, /* 0,26 (or...) Shift JIS to transparent */
3158: NULL, /* 0,27 (or...) Japanese EUC to transparent */
3159: NULL /* 0,28 (or...) DEC Kanji to transparent */
3160: #endif /* KANJI */
3161: , NULL, /* 1,0 us ascii to ascii */
3162: NULL, /* 1,1 uk ascii to ascii */
3163: xduas, /* 1,2 dutch nrc to ascii */
3164: xfias, /* 1,3 finnish nrc to ascii */
3165: xfras, /* 1,4 french nrc to ascii */
3166: xfcas, /* 1,5 french canadian nrc to ascii */
3167: xgeas, /* 1,6 german nrc to ascii */
3168: xhuas, /* 1,7 hungarian nrc to ascii */
3169: xitas, /* 1,8 italian nrc to ascii */
3170: xnoas, /* 1,9 norwegian/danish nrc to ascii */
3171: xpoas, /* 1,10 portuguese nrc to ascii */
3172: xspas, /* 1,11 spanish nrc to ascii */
3173: xswas, /* 1,12 swedish nrc to ascii */
3174: xchas, /* 1,13 swiss nrc to ascii */
3175: xl1as, /* 1,14 latin-1 to ascii */
3176: xdmas, /* 1,15 dec mcs to ascii */
3177: xneas, /* 1,16 NeXT to ascii */
3178: x43as, /* 1,17 CP437 to ascii */
3179: x85as, /* 1,18 CP850 to ascii */
3180: xaqas, /* 1,19 Apple Quickdraw to ascii */
3181: xdgas /* 1,20 DG MCS to ascii */
3182: #ifdef CYRILLIC
3183: , xlcas, /* 1,21 Latin/Cyrillic to ASCII */
3184: xacas, /* 1,22 CP866 to ASCII */
3185: xskas, /* 1,23 Short KOI to ASCII */
3186: xk8as /* 1,24 Old KOI-8 Cyrillic to ASCII */
3187: #endif /* CYRILLIC */
3188: #ifdef KANJI
3189: , NULL, /* 1,25 (or 1,21) */
3190: NULL, /* 1,26 (etc) */
3191: NULL, /* 1,27 */
3192: NULL /* 1,28 */
3193: #endif /* KANJI */
3194: , NULL, /* 2,0 us ascii to latin-1 */
3195: xukl1, /* 2,1 uk ascii to latin-1 */
3196: xdul1, /* 2,2 dutch nrc to latin-1 */
3197: xfil1, /* 2,3 finnish nrc to latin-1 */
3198: xfrl1, /* 2,4 french nrc to latin-1 */
3199: xfcl1, /* 2,5 french canadian nrc to latin-1 */
3200: xgel1, /* 2,6 german nrc to latin-1 */
3201: xhul1, /* 2,7 hungarian nrc to latin-1 */
3202: xitl1, /* 2,8 italian nrc to latin-1 */
3203: xnol1, /* 2,9 norwegian/danish nrc to latin-1 */
3204: xpol1, /* 2,10 portuguese nrc to latin-1 */
3205: xspl1, /* 2,11 spanish nrc to latin-1 */
3206: xswl1, /* 2,12 swedish nrc to latin-1 */
3207: xchl1, /* 2,13 swiss nrc to latin-1 */
3208: NULL, /* 2,14 latin-1 to latin-1 */
3209: xdml1, /* 2,15 dec mcs to latin-1 */
3210: xnel1, /* 2,16 NeXT to Latin-1 */
3211: x43l1, /* 2,17 CP437 to Latin-1 */
3212: x85l1, /* 2,18 CP850 to Latin-1 */
3213: xaql1, /* 2,19 Apple Quickdraw to Latin-1 */
3214: xdgl1 /* 2,20 DG MCS to Latin-1 */
3215: #ifdef CYRILLIC
3216: , xlcas, /* 2,21 Latin/Cyrillic to Latin-1 */
3217: xacas, /* 2,22 CP866 to Latin-1 */
3218: xskas, /* 2,23 Short KOI to Latin-1 */
3219: xk8as /* 2,24 Old KOI-8 Cyrillic to Latin-1 */
3220: #endif /* CYRILLIC */
3221: #ifdef KANJI
3222: , NULL, /* 2,25 (or 2,21) */
3223: NULL, /* 2,26 (etc) */
3224: NULL, /* 2,27 */
3225: NULL /* 2,28 */
3226: #endif /* KANJI */
3227: #ifdef CYRILLIC
3228: , xaslc, /* 3,0 us ascii to latin/cyrillic */
3229: xaslc, /* 3,1 uk ascii to latin/cyrillic */
3230: xduas, /* 3,2 dutch nrc to latin/cyrillic */
3231: xfias, /* 3,3 finnish nrc to latin/cyrillic */
3232: xfras, /* 3,4 french nrc to latin/cyrillic */
3233: xfcas, /* 3,5 french canadian nrc to latin/cyrillic */
3234: xgeas, /* 3,6 german nrc to latin/cyrillic */
3235: xhuas, /* 3,7 hungarian nrc to latin/cyrillic */
3236: xitas, /* 3,8 italian nrc to latin/cyrillic */
3237: xnoas, /* 3,9 norge/danish nrc to latin/cyrillic */
3238: xpoas, /* 3,10 portuguese nrc to latin/cyrillic */
3239: xspas, /* 3,11 spanish nrc to latin/cyrillic */
3240: xswas, /* 3,12 swedish nrc to latin/cyrillic */
3241: xchas, /* 3,13 swiss nrc to latin/cyrillic */
3242: xl1as, /* 3,14 latin-1 to latin/cyrillic */
3243: xdmas, /* 3,15 dec mcs to latin/cyrillic */
3244: xneas, /* 3,16 NeXT to latin/cyrillic */
3245: x43as, /* 3,17 CP437 to latin/cyrillic */
3246: x85as, /* 3,18 CP850 to latin/cyrillic */
3247: xaqas, /* 3,19 Apple Quickdraw to latin/cyrillic */
3248: xdgas, /* 3,20 DG MCS to Latin/Cyrillic */
3249: NULL, /* 3,21 Latin/Cyrillic to Latin/Cyrillic */
3250: xaclc, /* 3,22 CP866 to Latin/Cyrillic */
3251: xskcy, /* 3,23 Short KOI to Latin/Cyrillic */
3252: xk8lc /* 3,24 Old KOI-8 Cyrillic to Latin/Cyrillic */
3253: #ifdef KANJI
3254: , NULL, /* 3,25 (or 3,21) */
3255: NULL, /* 3,26 (etc) */
3256: NULL, /* 3,27 */
3257: NULL /* 3,28 */
3258: #endif /* KANJI */
3259: #endif /* CYRILLIC */
3260: #ifdef KANJI
3261: , NULL, /* 4,00 */
3262: NULL, /* 4,01 */
3263: NULL, /* 4,02 */
3264: NULL, /* 4,03 */
3265: NULL, /* 4,04 */
3266: NULL, /* 4,05 */
3267: NULL, /* 4,06 */
3268: NULL, /* 4.07 */
3269: NULL, /* 4,08 */
3270: NULL, /* 4,09 */
3271: NULL, /* 4,10 */
3272: NULL, /* 4,11 */
3273: NULL, /* 4,12 */
3274: NULL, /* 4,13 */
3275: NULL, /* 4,14 */
3276: NULL, /* 4,15 */
3277: NULL, /* 4,16 */
3278: NULL, /* 4,17 */
3279: NULL, /* 4,18 */
3280: NULL, /* 4,19 */
3281: NULL, /* 4,20 */
3282: NULL, /* 4,21 */
3283: NULL, /* 4,22 */
3284: NULL, /* 4,23 */
3285: NULL /* 4,24 */
3286: #ifdef CYRILLIC
3287: , NULL, /* 4,25 */
3288: NULL, /* 4,26 */
3289: NULL, /* 4,27 */
3290: NULL /* 4,28 */
3291: #endif /* CYRILLIC */
3292: #endif /* KANJI */
3293: };
3294: #endif /* NOCSETS */
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.