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