home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / old / ckermit70 / ckuxla.c < prev    next >
C/C++ Source or Header  |  2000-01-01  |  261KB  |  7,096 lines
  1. #include "ckcsym.h"
  2.  
  3. #include "ckcdeb.h"            /* Includes... */
  4. #include "ckcker.h"
  5. #include "ckucmd.h"
  6. #include "ckcxla.h"
  7.  
  8. #ifdef NOXFER
  9. #define zdstuff(a)
  10. #endif /* NOXFER */
  11.  
  12. #ifndef NOCSETS
  13. char *xlav = "Character Set Translation 7.0.038, 10 Nov 1999";
  14.  
  15. /*  C K U X L A  */
  16.  
  17. /*  C-Kermit tables and functions supporting character set translation.  */
  18. /*
  19.   Author: Frank da Cruz <fdc@columbia.edu>,
  20.   Columbia University Academic Information Systems, New York City.
  21.  
  22.   Copyright (C) 1985, 2000,
  23.     Trustees of Columbia University in the City of New York.
  24.     All rights reserved.  See the C-Kermit COPYING.TXT file or the
  25.     copyright text in the ckcmai.c module for disclaimer and permissions.
  26. */
  27.  
  28. /* Character set translation data and functions */
  29.  
  30. extern int zincnt;            /* File i/o macros and variables */
  31. extern char *zinptr;
  32. extern int zoutcnt;
  33. extern char *zoutptr;
  34. extern int byteorder;
  35.  
  36. int tslevel  = TS_L0;            /* Transfer syntax level (0,1,2) */
  37. int tcharset = TC_TRANSP;        /* Transfer syntax character set */
  38. int tcs_save = -1;            /* For save/restore term charset */
  39. int tcs_transp = 0;            /* Term charset is TRANSPARENT flag */
  40.  
  41. #ifdef CKOUNI
  42. int tcsr     = TX_8859_1;        /* Remote terminal character set */
  43. #else /* CKOUNI */
  44. int tcsr     = FC_USASCII;
  45. #endif /* CKOUNI */
  46. int language = L_USASCII;        /* Language */
  47.  
  48. #ifdef UNICODE
  49. int ucsbom = 1;                /* Add BOM to new UCS files? */
  50. int ucsorder = -1;            /* Default byte order for UCS files */
  51.                     /* 0 = BE, 1 = LE */
  52. #endif /* UNICODE */
  53. /*
  54.   Default local file and terminal character set.
  55.   Normally ASCII, but for some systems we know otherwise.
  56. */
  57. int fcs_save = -1;
  58. #ifdef datageneral            /* Data General AOS/VS */
  59. int fcharset = FC_DGMCS;        /* uses the DG International set */
  60. int tcsl     = FC_DGMCS;
  61. #else
  62. #ifdef NEXT                /* The NeXT workstation */
  63. int fcharset = FC_NEXT;            /* uses its own 8-bit set */
  64. int tcsl     = FC_NEXT;
  65. #else
  66. #ifdef MAC                /* The Macintosh */
  67. int fcharset = FC_APPQD;        /* uses an extended version of */
  68. int tcsl     = FC_APPQD;        /* Apple Quickdraw */
  69. #else
  70. #ifdef AUX
  71. int fcharset = FC_APPQD;        /* Ditto for Apple A/UX */
  72. int tcsl     = FC_APPQD;
  73. #else
  74. #ifdef AMIGA                /* The Commodore Amiga */
  75. int fcharset = FC_1LATIN;        /* uses Latin-1 */
  76. int tcsl     = FC_1LATIN;
  77. #else                    /* All others */
  78. #ifdef CKOUNI                 /* OS/2 Unicode */
  79. int fcharset = FC_1LATIN;
  80. int tcsl     = TX_8859_1;
  81. #else                    /* All others */
  82. int fcharset = FC_USASCII;        /* use ASCII by default */
  83. int tcsl     = FC_USASCII;
  84. #endif /* CKOUNI */
  85. #endif /* AMIGA */
  86. #endif /* AUX */
  87. #endif /* MAC */
  88. #endif /* NEXT */
  89. #endif /* datageneral */
  90.  
  91. int s_cset = XMODE_A;            /* SEND charset selection = AUTO */
  92. int r_cset = XMODE_A;            /* RECV charset selection = AUTO */
  93. int afcset[MAXFCSETS+1];        /* Character-set associations */
  94. int axcset[MAXTCSETS+1];
  95. int xlatype = XLA_NONE;            /* Translation type */
  96.  
  97. #ifdef UNICODE
  98. #ifdef CK_ANSIC
  99. extern int (*xl_utc[MAXTCSETS+1])(USHORT);  /* Unicode to TCS */
  100. extern int (*xl_ufc[MAXFCSETS+1])(USHORT);  /* Unicode to FCS */
  101. extern USHORT (*xl_tcu[MAXTCSETS+1])(CHAR); /* TCS to Unicode */
  102. extern USHORT (*xl_fcu[MAXFCSETS+1])(CHAR); /* FCS to Unicode */
  103. #else
  104. extern int (*xl_utc[MAXTCSETS+1])();
  105. extern int (*xl_ufc[MAXFCSETS+1])();
  106. extern USHORT (*xl_tcu[MAXTCSETS+1])();
  107. extern USHORT (*xl_fcu[MAXFCSETS+1])();
  108. #endif /* CK_ANSIC */
  109. #endif /* UNICODE */
  110.  
  111. /* Bureaucracy section */
  112.  
  113. _PROTOTYP( CHAR xnel1, (CHAR c) );    /* NeXT to Latin-1 */
  114. _PROTOTYP( CHAR xl143, (CHAR c) );    /* Latin-1 to IBM CP437 */
  115. _PROTOTYP( CHAR xl1as, (CHAR c) );    /* Latin-1 to US ASCII */
  116. _PROTOTYP( CHAR zl1as, (CHAR c) );    /* Latin-1 to US ASCII */
  117.  
  118. #ifdef CYRILLIC
  119. _PROTOTYP( CHAR xassk, (CHAR c) );    /* ASCII to Short KOI */
  120. _PROTOTYP( CHAR xskcy, (CHAR c) );    /* Short KOI to Latin/Cyrillic */
  121. #endif /* CYRILLIC */
  122.  
  123. #ifdef LATIN2
  124. _PROTOTYP( CHAR xnel2, (CHAR c) );    /* NeXT to Latin-2 */
  125. _PROTOTYP( CHAR xl243, (CHAR c) );    /* Latin-2 to IBM CP437 */
  126. _PROTOTYP( CHAR xl2as, (CHAR c) );    /* Latin-2 to US ASCII */
  127. _PROTOTYP( CHAR zl2as, (CHAR c) );    /* Latin-2 to US ASCII */
  128. _PROTOTYP( CHAR xl2r8, (CHAR c) );    /* Latin-2 to HP */
  129. _PROTOTYP( CHAR xl2l9, (CHAR c) );    /* Latin-2 to Latin-9 */
  130. _PROTOTYP( CHAR xl9l2, (CHAR c) );    /* Latin-9 to Latin-2 */
  131. _PROTOTYP( CHAR xl2mz, (CHAR c) );    /* Latin-2 to Mazovia */
  132. _PROTOTYP( CHAR xmzl2, (CHAR c) );    /* Mazovia to Latin-2 */
  133. _PROTOTYP( CHAR xl1mz, (CHAR c) );    /* Latin-1 to Mazovia */
  134. _PROTOTYP( CHAR xmzl1, (CHAR c) );    /* Mazovia to Latin-1 */
  135. _PROTOTYP( CHAR xmzl9, (CHAR c) );    /* Latin-9 to Mazovia */
  136. _PROTOTYP( CHAR xl9mz, (CHAR c) );    /* Mazovia to Latin-9 */
  137. #endif /* LATIN2 */
  138.  
  139. /* Transfer character-set info */
  140.  
  141. struct csinfo tcsinfo[] = {
  142. /*  Name              size code      designator alphabet keyword            */
  143.   "TRANSPARENT",       256,TC_TRANSP, "",      AL_UNK,  "transparent",  /* 0 */
  144.   "ASCII",             128,TC_USASCII,"",      AL_ROMAN,"ascii",        /* 1 */
  145.   "ISO 8859-1 Latin-1",256,TC_1LATIN, "I6/100",AL_ROMAN,"latin1-iso",   /* 2 */
  146. #ifdef LATIN2
  147.   "ISO 8859-2 Latin-2",256,TC_2LATIN, "I6/101",AL_ROMAN,"latin2-iso",   /* 3 */
  148. #endif /* LATIN2 */
  149. #ifdef CYRILLIC
  150.   /* 4 */
  151.   "ISO 8859-5 Latin/Cyrillic",256,TC_CYRILL,"I6/144",AL_CYRIL,"cyrillic-iso",
  152. #endif /* CYRILLIC */
  153. #ifdef KANJI
  154.   "Japanese EUC",16384,TC_JEUC,  "I14/87/13", AL_JAPAN, "euc-jp",       /* 5 */
  155. #endif /* KANJI */
  156. #ifdef HEBREW
  157.   /* 6 */
  158.   "ISO 8859-8 Latin/Hebrew",256,TC_HEBREW,"I6/138",AL_HEBREW,"hebrew-iso",
  159. #endif /* HEBREW */
  160. #ifdef GREEK
  161.   "ISO 8859-7 Latin/Greek",256,TC_GREEK,"I6/126",AL_GREEK,"greek-iso", /*  7 */
  162. #endif /* GREEK */
  163.   "ISO 8859-15 Latin-9",256,TC_9LATIN,"I6/203",AL_ROMAN,"latin9-iso",  /*  8 */
  164.   "ISO 10646 / Unicode UCS-2",64000,TC_UCS2,"I162",AL_UNIV,"ucs2",     /*  9 */
  165.   "ISO 10646 / Unicode UTF-8",64000,TC_UTF8,"I190",AL_UNIV,"utf8",     /* 10 */
  166.   "",0,0,"",0,""
  167. };
  168. int ntcsets = (sizeof(tcsinfo) / sizeof(struct csinfo)) - 1;
  169.  
  170. struct keytab tcstab[] = {        /* Keyword table for */
  171.     "ascii",         TC_USASCII, 0,    /* SET TRANSFER CHARACTER-SET */
  172. #ifdef CYRILLIC
  173.     "cyrillic-iso",  TC_CYRILL,  0,
  174. #endif /* CYRILLIC */
  175. #ifdef GREEK
  176.     "elot928-greek", TC_GREEK,   CM_INV,
  177. #endif /* GREEK */
  178. #ifdef KANJI
  179.     "euc-jp",        TC_JEUC,    0,
  180. #endif /* KANJI */
  181. #ifdef GREEK
  182.     "greek-iso",     TC_GREEK,   0,
  183. #endif /* GREEK */
  184. #ifdef HEBREW
  185.     "hebrew-iso",    TC_HEBREW,  0,
  186. #endif /* HEBREW */
  187. #ifdef KANJI
  188.     "japanese-euc",  TC_JEUC,    CM_INV,
  189. #endif /* KANJI */
  190.     "l",             TC_1LATIN,  CM_ABR|CM_INV,
  191.     "la",            TC_1LATIN,  CM_ABR|CM_INV,
  192.     "lat",           TC_1LATIN,  CM_ABR|CM_INV,
  193.     "lati",          TC_1LATIN,  CM_ABR|CM_INV,
  194.     "latin",         TC_1LATIN,  CM_ABR|CM_INV,
  195.     "latin1-iso",    TC_1LATIN,  0,
  196. #ifdef LATIN2
  197.     "latin2-iso",    TC_2LATIN,  0,
  198. #endif /* LATIN2 */
  199.     "latin9-iso",    TC_9LATIN,  0,
  200.     "transparent",   TC_TRANSP,  0,
  201. #ifdef UNICODE
  202.     "ucs2",          TC_UCS2,    0,
  203.     "utf8",          TC_UTF8,    0,
  204. #endif /* UNICODE */
  205.     "", 0, 0
  206. };
  207. int ntcs = (sizeof(tcstab) / sizeof(struct keytab)) - 1;
  208.  
  209. /* File character set information structure, indexed by character set code, */
  210. /* as defined in ckuxla.h.  This table must be in order of file character */
  211. /* set number! */
  212.  
  213. struct csinfo fcsinfo[] = { /* File character set information... */
  214.   /* Descriptive Name              Size  Designator */
  215.   "US ASCII",                     128, FC_USASCII, NULL, AL_ROMAN, "ascii",
  216.   "British/UK ISO-646",           128, FC_UKASCII, NULL, AL_ROMAN, "british",
  217.   "Dutch ISO-646",                128, FC_DUASCII, NULL, AL_ROMAN, "dutch",
  218.   "Finnish ISO-646",              128, FC_FIASCII, NULL, AL_ROMAN, "finnish",
  219.   "French ISO-646",               128, FC_FRASCII, NULL, AL_ROMAN, "french",
  220.   "Canadian-French NRC", 128, FC_FCASCII, NULL, AL_ROMAN, "canadian-french",
  221.   "German ISO-646",               128, FC_GEASCII, NULL, AL_ROMAN, "german",
  222.   "Hungarian ISO-646",            128, FC_HUASCII, NULL, AL_ROMAN, "hungarian",
  223.   "Italian ISO-646",              128, FC_ITASCII, NULL, AL_ROMAN, "italian",
  224.   "Norwegian/Danish ISO-646",128,FC_NOASCII,NULL,AL_ROMAN,"norwegian/danish",
  225.   "Portuguese ISO-646",           128, FC_POASCII, NULL, AL_ROMAN,"portuguese",
  226.   "Spanish ISO-646",              128, FC_SPASCII, NULL, AL_ROMAN, "spanish",
  227.   "Swedish ISO-646",              128, FC_SWASCII, NULL, AL_ROMAN, "swedish",
  228.   "Swiss NRC",                    128, FC_CHASCII, NULL, AL_ROMAN, "swiss",
  229.   "ISO 8859-1 Latin-1",           256, FC_1LATIN,  NULL, AL_ROMAN,"latin1-iso",
  230.   "ISO 8859-2 Latin-2",           256, FC_2LATIN,  NULL, AL_ROMAN,"latin2-iso",
  231.   "DEC Multinational", 256,  FC_DECMCS, NULL,AL_ROMAN,"dec-multinational",
  232.   "NeXT Multinational", 256, FC_NEXT,   NULL,AL_ROMAN,"next-multinational",
  233.   "PC Code Page 437",            256, FC_CP437,   NULL, AL_ROMAN,"cp437",
  234.   "PC Code Page 850",            256, FC_CP850,   NULL, AL_ROMAN,"cp850",
  235.   "PC Code Page 852",            256, FC_CP852,   NULL, AL_ROMAN,"cp852",
  236.   "Apple Macintosh Latin", 256, FC_APPQD,   NULL, AL_ROMAN,"macintosh-latin",
  237.   "Data General International",256,FC_DGMCS,NULL,AL_ROMAN,"dg-international",
  238.   "Hewlett Packard Roman8",    256, FC_HPR8,    NULL, AL_ROMAN, "hp-roman8",
  239.   "ISO 8859-5 Latin/Cyrillic", 256, FC_CYRILL,  NULL, AL_CYRIL,"cyrillic-iso",
  240.   "CP866 Cyrillic",           256, FC_CP866,   NULL, AL_CYRIL,"cp866",
  241.   "Short KOI",                 128, FC_KOI7,    NULL, AL_CYRIL,"short-koi",
  242.   "Old KOI-8 Cyrillic",        256, FC_KOI8,    NULL, AL_CYRIL,"koi8-cyrillic",
  243.   "Japanese JIS7",      16384, FC_JIS7,    NULL, AL_JAPAN, "jis7-kanji",
  244.   "Japanese Shift JIS",      16384, FC_SHJIS,   NULL, AL_JAPAN, "shift-jis-kanji",
  245.   "Japanese EUC",      16384, FC_JEUC,    NULL, AL_JAPAN, "euc-jp",
  246.   "Japanese DEC Kanji",      16384, FC_JDEC,    NULL, AL_JAPAN, "dec-kanji",
  247.   "Hebrew-7 DEC",           128, FC_HE7,     NULL, AL_HEBREW, "hebrew-7",
  248.   "ISO 8859-8 Latin/Hebrew",256, FC_HEBREW,  NULL, AL_HEBREW, "hebrew-iso",
  249.   "CP862 Hebrew",           256, FC_CP862,   NULL, AL_HEBREW, "cp862-hebrew",
  250.   "ELOT 927 Greek",         128, FC_ELOT,    NULL, AL_GREEK, "elot927-greek",
  251.   "ISO 8859-7 Latin/Greek", 256, FC_GREEK,   NULL, AL_GREEK, "greek-iso",
  252.   "CP869 Greek",            256, FC_CP869,   NULL, AL_GREEK, "cp869-greek",
  253.   "ISO 8859-15 Latin-9",    256, FC_9LATIN,  NULL, AL_ROMAN, "latin9-iso",
  254.   "PC Code Page 858",       256, FC_CP850,   NULL, AL_ROMAN, "cp858",
  255.   "PC Code Page 855",       256, FC_CP855,   NULL, AL_CYRIL, "cp855-cyrillic",
  256.   "Windows Code Page 1251", 256, FC_CP1251,  NULL, AL_CYRIL, "cp1251-cyrillic",
  257.   "Bulgarian PC Code Page", 256, FC_BULGAR,  NULL, AL_CYRIL, "bulgaria-pc",
  258.   "Windows Code Page 1250", 256, FC_CP1250,  NULL, AL_ROMAN, "cp1250",
  259.   "Polish Mazovia PC Code Page", 256, FC_MAZOVIA, NULL, AL_ROMAN, "mazovia-pc",
  260.   "ISO 10646 / Unicode UCS-2", 64000, FC_UCS2, NULL, AL_UNIV, "ucs2",
  261.   "ISO 10646 / Unicode UTF-8", 64000, FC_UCS2, NULL, AL_UNIV, "utf8",
  262.   "KOI8-R Russian+Boxdrawing",256,  FC_KOI8R, NULL, AL_CYRIL,"koi8r",
  263.   "KOI8-U Ukrainian+Boxdrawing",256,FC_KOI8U, NULL, AL_CYRIL,"koi8u",
  264.   "",0,0,NULL,0,NULL
  265. };
  266.  
  267. /* Local file character sets */
  268. /* Includes 7-bit National Replacement Character Sets of ISO 646 */
  269. /* Plus ISO Latin-1, DEC Multinational Character Set (MCS), NeXT char set, */
  270. /* Various PC and Windows code pages, etc. */
  271.  
  272. struct keytab fcstab[] = { /* Keyword table for 'set file character-set' */
  273. /*
  274.   IMPORTANT: This table is replicated below as ttcstab (terminal character
  275.   set table).  The only differences are the addition of TRANSPARENT
  276.   and the removal of the Kanji sets, which are not supported yet.
  277.   If you make changes to this table, also change ttcstab.
  278. */
  279.  
  280. /* Keyword             Value       Flags */
  281.     "apple-quickdraw",    FC_APPQD,   CM_INV, /* Apple Quickdraw */
  282.     "ascii",              FC_USASCII, 0, /* ASCII */
  283.     "british",            FC_UKASCII, 0, /* British NRC */
  284.     "bulgaria-pc",        FC_BULGAR,  0, /* Bulgarian PC Code Page */
  285.     "canadian-french",    FC_FCASCII, 0, /* French Canadian NRC */
  286. #ifdef LATIN2
  287.     "cp1250",             FC_CP1250,  0, /* Windows CP 1250 */
  288. #endif /* LATIN2 */
  289. #ifdef CYRILLIC
  290.     "cp1251-cyrillic",    FC_CP1251,  0, /* Windows CP 1251 */
  291. #endif /* CYRILLIC */
  292.     "cp1252",             FC_1LATIN,  0, /* ISO Latin Alphabet 1 */
  293.     "cp437",              FC_CP437,   0, /* PC CP437 */
  294.     "cp850",              FC_CP850,   0, /* PC CP850 */
  295. #ifdef LATIN2
  296.     "cp852",              FC_CP852,   0, /* PC CP852 */
  297. #endif /* LATIN2 */
  298. #ifdef CYRILLIC
  299.     "cp855-cyrillic",     FC_CP855,   0, /* PC CP855 */
  300. #endif /* CYRILLIC */
  301.     "cp858",              FC_CP858,   0, /* PC CP858 */
  302. #ifdef HEBREW
  303.     "cp862-hebrew",       FC_CP862,   0, /* PC CP862 */
  304. #endif /* HEBREW */
  305. #ifdef CYRILLIC
  306.     "cp866-cyrillic",     FC_CP866,   0, /* CP866 Cyrillic */
  307. #endif /* CYRILLIC */
  308. #ifdef GREEK
  309.     "cp869-greek",        FC_CP869,   0, /* CP869 Greek */
  310. #endif /* GREEK */
  311. #ifdef CYRILLIC
  312.     "cyrillic-iso",       FC_CYRILL,  0, /* ISO Latin/Cyrillic Alphabet */
  313. #endif /* CYRILLIC */
  314.     "danish",             FC_NOASCII, 0, /* Norwegian and Danish NRC */
  315. #ifdef KANJI
  316.     "dec-kanji",          FC_JDEC,    0, /* Japanese DEC Kanji */
  317. #endif /* KANJI */
  318.     "dec-multinational",  FC_DECMCS,  0, /* DEC multinational character set */
  319.     "dg-international",   FC_DGMCS,   0, /* Data General multinational */
  320.     "dutch",              FC_DUASCII, 0, /* Dutch NRC */
  321. #ifdef GREEK
  322.     "elot927-greek",      FC_ELOT,    0, /* ELOT 927 Greek */
  323.     "elot928-greek",      FC_GREEK,   0, /* Same as ISO 8859-7 Latin/Greek */
  324. #endif /* GREEK */
  325. #ifdef KANJI
  326.     "euc-jp",             FC_JEUC,    0, /* Japanese EUC */
  327. #endif /* KANJI */
  328.     "finnish",            FC_FIASCII, 0, /* Finnish NRC */
  329.     "french",             FC_FRASCII, 0, /* French NRC */
  330.     "fr-canadian",        FC_FCASCII, CM_INV, /* French Canadian NRC */
  331.     "german",             FC_GEASCII, 0, /* German NRC */
  332. #ifdef GREEK
  333.     "greek-iso",          FC_GREEK,   0, /* ISO 8859-7 Latin/Greek */
  334. #endif /* GREEK */
  335. #ifdef HEBREW
  336.     "he",                 FC_HEBREW,  CM_ABR|CM_INV,
  337.     "heb",                FC_HEBREW,  CM_ABR|CM_INV,
  338.     "hebr",               FC_HEBREW,  CM_ABR|CM_INV,
  339.     "hebre",              FC_HEBREW,  CM_ABR|CM_INV,
  340.     "hebrew",             FC_HEBREW,  CM_ABR|CM_INV,
  341.     "hebrew-7",           FC_HE7,     0, /* DEC 7-Bit Hebrew */
  342.     "hebrew-iso",         FC_HEBREW,  0, /* ISO Latin/Hebrew */
  343. #endif /* HEBREW */
  344.     "hp-roman8",          FC_HPR8,    0, /* Hewlett Packard Roman8 */
  345.     "hungarian",          FC_HUASCII, 0, /* Hungarian NRC */
  346. #ifdef KANJI
  347.     "iso2022jp-kanji",    FC_JIS7,    0, /* Synonym for JIS-7 */
  348. #endif /* KANJI */
  349.     "italian",            FC_ITASCII, 0, /* Italian NRC */
  350. #ifdef KANJI
  351.     "japanese-euc",       FC_JEUC,    CM_INV, /* Japanese EUC */
  352.     "jis7-kanji",         FC_JIS7,    0, /* Japanese JIS7 7bit code */
  353. #endif /* KANJI */
  354. #ifdef CYRILLIC
  355.     "k",                  FC_KOI8,    CM_ABR|CM_INV,
  356.     "ko",                 FC_KOI8,    CM_ABR|CM_INV,
  357.     "koi",                FC_KOI8,    CM_ABR|CM_INV,
  358.     "koi8",               FC_KOI8,    0, /* Old KOI-8 Cyrillic */
  359.     "koi8-cyrillic",      FC_KOI8,    CM_INV,
  360.     "koi8r",              FC_KOI8R,   0, /* KOI8-R RFC1489 */
  361.     "koi8u",              FC_KOI8U,   0, /* KOI8-U RFC2319 */
  362. #endif /* CYRILLIC */
  363.     "l",                  FC_1LATIN,  CM_ABR|CM_INV,
  364.     "la",                 FC_1LATIN,  CM_ABR|CM_INV,
  365.     "lat",                FC_1LATIN,  CM_ABR|CM_INV,
  366.     "lati",               FC_1LATIN,  CM_ABR|CM_INV,
  367.     "latin",              FC_1LATIN,  CM_ABR|CM_INV,
  368.     "latin1-iso",         FC_1LATIN,  0, /* ISO Latin Alphabet 1 */
  369. #ifdef LATIN2
  370.     "latin2-iso",         FC_2LATIN,  0, /* ISO Latin Alphabet 2 */
  371. #endif /* LATIN2 */
  372.     "latin9-iso",         FC_9LATIN,  0, /* ISO Latin Alphabet 9 */
  373.     "macintosh-latin",    FC_APPQD,   0, /* "Extended Mac Latin" */
  374. #ifdef LATIN2
  375.     "mazovia-pc",         FC_MAZOVIA, 0, /* Polish Mazovia PC code page */
  376. #endif /* LATIN2 */
  377.     "next-multinational", FC_NEXT,    0, /* NeXT workstation */
  378.     "norwegian",          FC_NOASCII, 0, /* Norwegian and Danish NRC */
  379.     "portuguese",         FC_POASCII, 0, /* Portuguese NRC */
  380. #ifdef KANJI
  381.     "shift-jis-kanji",    FC_SHJIS,   0, /* Japanese Kanji Shift-JIS */
  382. #endif /* KANJI */
  383. #ifdef CYRILLIC
  384.     "short-koi",          FC_KOI7,    0, /* Short KOI Cyrillic */
  385. #endif /* CYRILLIC */
  386.     "spanish",            FC_SPASCII, 0, /* Spanish NRC */
  387.     "swedish",            FC_SWASCII, 0, /* Swedish NRC */
  388.     "swiss",              FC_CHASCII, 0, /* Swiss NRC */
  389. #ifdef UNICODE
  390.     "ucs2",               FC_UCS2,    0, /* ISO 10646 / Unicode UCS-2 */
  391.     "utf8",               FC_UTF8,    0, /* ISO 10646 / Unicode UTF-8 */
  392. #endif /* UNICODE */
  393.     "", 0, 0
  394. };
  395. int nfilc = (sizeof(fcstab) / sizeof(struct keytab)) - 1;
  396.  
  397. struct keytab ttcstab[] = { /* Keyword table for SET TERMINAL CHARACTER-SET */
  398. /*
  399.   IMPORTANT: This table is a replica of fcstab, immediately above, with the
  400.   addition of TRANSPARENT and deletion of the Japanese sets.  If you make
  401.   changes to this table, make the corresponding changes to fcstab.
  402. */
  403. /* Keyword               Value       Flags */
  404.     "apple-quickdraw",    FC_APPQD,   CM_INV, /* Apple Quickdraw */
  405.     "ascii",              FC_USASCII, 0, /* ASCII */
  406.     "british",            FC_UKASCII, 0, /* British NRC */
  407.     "bulgaria-pc",        FC_BULGAR,  0, /* Bulgarian PC Code Page */
  408.     "canadian-french",    FC_FCASCII, 0, /* French Canadian NRC */
  409. #ifdef LATIN2
  410.     "cp1250",             FC_CP1250,  0, /* Windows CP 1250 */
  411. #endif /* LATIN2 */
  412. #ifdef CYRILLIC
  413.     "cp1251-cyrillic",    FC_CP1251,  0, /* Windows CP 1251 */
  414. #endif /* CYRILLIC */
  415.     "cp1252",             FC_1LATIN,  0, /* Windows CP 1252 = Latin 1 */
  416.     "cp437",              FC_CP437,   0, /* IBM CP437 */
  417.     "cp850",              FC_CP850,   0, /* IBM CP850 */
  418. #ifdef LATIN2
  419.     "cp852",              FC_CP852,   0, /* IBM CP852 */
  420. #endif /* LATIN2 */
  421. #ifdef CYRILLIC
  422.     "cp855-cyrillic",     FC_CP855,   0, /* PC CP855 */
  423. #endif /* CYRILLIC */
  424.     "cp858",              FC_CP858,   0, /* PC CP858 */
  425. #ifdef HEBREW
  426.     "cp862-hebrew",       FC_CP862,   0, /* PC CP862 */
  427. #endif /* HEBREW */
  428. #ifdef CYRILLIC
  429.     "cp866-cyrillic",     FC_CP866,   0, /* CP866 Cyrillic */
  430. #endif /* CYRILLIC */
  431. #ifdef GREEK
  432.     "cp869-greek",        FC_CP869,   0, /* CP869 Greek */
  433. #endif /* GREEK */
  434. #ifdef CYRILLIC
  435.     "cyrillic-iso",       FC_CYRILL,  0, /* ISO Latin/Cyrillic Alphabet */
  436. #endif /* CYRILLIC */
  437.     "danish",             FC_NOASCII, 0, /* Norwegian and Danish NRC */
  438. #ifdef COMMENT
  439. #ifdef KANJI
  440.     "dec-kanji",          FC_JDEC,    0, /* Japanese DEC Kanji */
  441. #endif /* KANJI */
  442. #endif /* COMMENT */
  443.     "dec-multinational",  FC_DECMCS,  0, /* DEC multinational character set */
  444.     "dg-international",   FC_DGMCS,   0, /* Data General multinational */
  445.     "dutch",              FC_DUASCII, 0, /* Dutch NRC */
  446. #ifdef GREEK
  447.     "elot927-greek",      FC_ELOT,    0, /* ELOT 927 Greek */
  448.     "elot928-greek",      FC_GREEK,   0, /* Same as ISO 8859-7 Latin/Greek */
  449. #endif /* GREEK */
  450.     "finnish",            FC_FIASCII, 0, /* Finnish NRC */
  451.     "french",             FC_FRASCII, 0, /* French NRC */
  452.     "fr-canadian",        FC_FCASCII, CM_INV, /* French Canadian NRC */
  453.     "german",             FC_GEASCII, 0, /* German NRC */
  454. #ifdef GREEK
  455.     "greek-iso",          FC_GREEK,   0, /* ISO 8859-7 Latin/Greek */
  456. #endif /* GREEK */
  457. #ifdef HEBREW
  458.     "he",                 FC_HEBREW,  CM_ABR|CM_INV,
  459.     "heb",                FC_HEBREW,  CM_ABR|CM_INV,
  460.     "hebr",               FC_HEBREW,  CM_ABR|CM_INV,
  461.     "hebre",              FC_HEBREW,  CM_ABR|CM_INV,
  462.     "hebrew",             FC_HEBREW,  CM_ABR|CM_INV,
  463.     "hebrew-7",           FC_HE7,     0, /* DEC 7-Bit Hebrew */
  464.     "hebrew-iso",         FC_HEBREW,  0, /* ISO Latin/Hebrew */
  465. #endif /* HEBREW */
  466.     "hp-roman8",          FC_HPR8,    0, /* Hewlett Packard Roman8 */
  467.     "hungarian",          FC_HUASCII, 0, /* Hungarian NRC */
  468.     "italian",            FC_ITASCII, 0, /* Italian NRC */
  469. #ifdef COMMENT
  470. /* Kanji terminal character sets not implemented yet */
  471. #ifdef KANJI
  472.     "japanese-euc",       FC_JEUC,    0, /* Japanese EUC */
  473.     "jis7-kanji",         FC_JIS7,    0, /* Japanese JIS7 7bit code */
  474. #endif /* KANJI */
  475. #endif /* COMMENT */
  476. #ifdef CYRILLIC
  477.     "k",                  FC_KOI8,    CM_ABR|CM_INV,
  478.     "ko",                 FC_KOI8,    CM_ABR|CM_INV,
  479.     "koi",                FC_KOI8,    CM_ABR|CM_INV,
  480.     "koi8",               FC_KOI8,    0, /* Old KOI-8 Cyrillic */
  481.     "koi8-cyrillic",      FC_KOI8,    CM_INV,
  482.     "koi8r",              FC_KOI8R,   0, /* KOI8-R RFC1489 */
  483.     "koi8u",              FC_KOI8U,   0, /* KOI8-U RFC2319 */
  484. #endif /* CYRILLIC */
  485.     "l",                  FC_1LATIN,  CM_ABR|CM_INV,
  486.     "la",                 FC_1LATIN,  CM_ABR|CM_INV,
  487.     "lat",                FC_1LATIN,  CM_ABR|CM_INV,
  488.     "lati",               FC_1LATIN,  CM_ABR|CM_INV,
  489.     "latin",              FC_1LATIN,  CM_ABR|CM_INV,
  490.     "latin1-iso",         FC_1LATIN,  0, /* ISO Latin Alphabet 1 */
  491. #ifdef LATIN2
  492.     "latin2-iso",         FC_2LATIN,  0, /* ISO Latin Alphabet 2 */
  493. #endif /* LATIN2 */
  494.     "latin9-iso",         FC_9LATIN,  0, /* ISO Latin Alphabet 9 */
  495.     "macintosh-latin",    FC_APPQD,   0, /* "Extended Mac Latin */
  496. #ifdef LATIN2
  497.     "mazovia-pc",         FC_MAZOVIA, 0, /* Polish Mazovia PC code page */
  498. #endif /* LATIN2 */
  499.     "next-multinational", FC_NEXT,    0, /* NeXT workstation */
  500.     "norwegian",          FC_NOASCII, 0, /* Norwegian and Danish NRC */
  501.     "portuguese",         FC_POASCII, 0, /* Portuguese NRC */
  502. #ifdef COMMENT
  503. /* Kanji terminal character sets not implemented yet. */
  504. #ifdef KANJI
  505.     "shift-jis-kanji",    FC_SHJIS,   0, /* Japanese Kanji Shift-JIS */
  506. #endif /* KANJI */
  507. #endif /* COMMENT */
  508. #ifdef CYRILLIC
  509.     "short-koi",          FC_KOI7,    0, /* Short KOI Cyrillic */
  510. #endif /* CYRILLIC */
  511.     "spanish",            FC_SPASCII, 0, /* Spanish NRC */
  512.     "swedish",            FC_SWASCII, 0, /* Swedish NRC */
  513.     "swiss",              FC_CHASCII, 0, /* Swiss NRC */
  514.     "transparent",        FC_TRANSP,  0, /* Transparent */
  515. #ifdef UNICODE
  516.     "utf8",               FC_UTF8,    0, /* ISO 10646 / Unicode UTF-8 */
  517. #endif /* UNICODE */
  518.     "", 0, 0
  519. };
  520. int ntermc = (sizeof(ttcstab) / sizeof(struct keytab)) - 1;
  521.  
  522. /* This table contains the equivalent FCS number for each TCS. */
  523. /* If the TC_xxx symbol definitions are ever changed, fix this table. */
  524. /* Ditto if another TCS is added. */
  525.  
  526. int
  527. cseqtab[MAXTCSETS+1] = {        /* TCS/FCS equivalency table */
  528.     -1,                    /*  0 = Transparent */
  529.     FC_USASCII,                /*  1 = ASCII */
  530.     FC_1LATIN,                /*  2 = Latin-1 */
  531.     FC_2LATIN,                /*  3 = Latin-2 */
  532.     FC_CYRILL,                /*  4 = Latin/Cyrillic */
  533.     FC_JEUC,                /*  5 = Japanese EUC */
  534.     FC_HEBREW,                /*  6 = Latin/Hebrew */
  535.     FC_GREEK,                /*  7 = Latin/Greek */
  536.     FC_9LATIN,                /*  8 = Latin-9 */
  537.     FC_UCS2,                /*  9 = UCS-2 */
  538.     FC_UTF8                /* 10 = UTF-8 */
  539. };
  540.  
  541. /*
  542.  Languages:
  543.  
  544.  This table allows C-Kermit to have a SET LANGUAGE command to apply special
  545.  language-specific rules when translating from a character set that contains
  546.  national characters into plain ASCII, like German umlaut-a becomes ae.
  547.  
  548.  Originally, I thought it would be a good idea to let SET LANGUAGE also select
  549.  an appropriate FILE CHARACTER-SET and TRANSFER CHARACTER-SET automatically,
  550.  and these are included in the langinfo structure.  Later I realized that this
  551.  was a bad idea.  Any particular language (e.g. Dutch) can be represented by
  552.  many different and incompatible character sets.
  553.  
  554.  (But we could use the new (1998) ASSOCIATE command for this...)
  555. */
  556.  
  557. struct langinfo langs[] = {
  558. /*  Language code   File Charset Xfer Charset Name */
  559.     L_USASCII,      FC_USASCII,  TC_USASCII,  "ASCII (American English)",
  560.     L_DANISH,       FC_NOASCII,  TC_1LATIN,   "Danish",
  561.     L_DUTCH,        FC_DUASCII,  TC_1LATIN,   "Dutch",
  562.     L_FINNISH,      FC_FIASCII,  TC_1LATIN,   "Finnish",
  563.     L_FRENCH,       FC_FRASCII,  TC_1LATIN,   "French",
  564.     L_GERMAN,       FC_GEASCII,  TC_1LATIN,   "German",
  565. #ifdef GREEK
  566.     L_GREEK,        FC_GREEK,    TC_GREEK,    "Greek",
  567. #endif /* GREEK */
  568. #ifdef HEBREW
  569.     L_HEBREW,       FC_HEBREW,   TC_HEBREW,   "Hebrew",
  570. #endif /* HEBREW */
  571.     L_HUNGARIAN,    FC_HUASCII,  TC_2LATIN,   "Hungarian",
  572.     L_ICELANDIC,    FC_USASCII,  TC_1LATIN,   "Icelandic",
  573.     L_ITALIAN,      FC_ITASCII,  TC_1LATIN,   "Italian",
  574. #ifdef KANJI
  575.     L_JAPANESE,     FC_JEUC,     TC_JEUC,     "Japanese",
  576. #endif /* KANJI */
  577.     L_NORWEGIAN,    FC_NOASCII,  TC_1LATIN,   "Norwegian",
  578.     L_PORTUGUESE,   FC_POASCII,  TC_1LATIN,   "Portuguese",
  579. #ifdef CYRILLIC
  580.     L_RUSSIAN,      FC_CP866,    TC_CYRILL,   "Russian",
  581. #endif /* CYRILLIC */
  582.     L_SPANISH,      FC_SPASCII,  TC_1LATIN,   "Spanish",
  583.     L_SWEDISH,      FC_SWASCII,  TC_1LATIN,   "Swedish",
  584.     L_SWISS,        FC_CHASCII,  TC_1LATIN,   "Swiss"
  585. };
  586. int nlangs = (sizeof(langs) / sizeof(struct langinfo));
  587.  
  588. /*
  589.   Keyword table for the SET LANGUAGE command.
  590.   Only a few of these (German, Scandinavian, etc) actually do anything.
  591.   The language is used to invoke special translation rules when converting
  592.   from an 8-bit character set to ASCII; for example, German u-diaeresis
  593.   becomes "ue", Dutch y-diaeresis becomes "ij".  Languages without associated
  594.   rules are invisible (CM_INV).
  595. */
  596. struct keytab lngtab[] = {
  597.     "ascii",            L_USASCII,    CM_INV,
  598.     "danish",           L_DANISH,     0,
  599.     "dutch",            L_DUTCH,      0,
  600.     "english",          L_USASCII,    CM_INV,
  601.     "finnish",          L_FINNISH,    0,
  602.     "french",           L_FRENCH,     0,
  603.     "german",           L_GERMAN,     0,
  604. #ifdef GREEK
  605.     "greek",            L_GREEK,      CM_INV,
  606. #endif /* GREEK */
  607. #ifdef HEBREW
  608.     "hebrew",           L_HEBREW,     CM_INV,
  609. #endif /* HEBREW */
  610.     "hungarian",        L_HUNGARIAN,  CM_INV,
  611.     "icelandic",        L_ICELANDIC,  0,
  612.     "italian",          L_ITALIAN,    CM_INV,
  613. #ifdef KANJI
  614.     "japanese",         L_JAPANESE,   CM_INV,
  615. #endif /* KANJI */
  616.     "norwegian",        L_NORWEGIAN,  0,
  617.     "none",             L_USASCII,    0,
  618.     "portuguese",       L_PORTUGUESE, CM_INV,
  619. #ifdef CYRILLIC
  620.     "russian",          L_RUSSIAN,    0,
  621. #endif /* CYRILLIC */
  622.     "spanish",          L_SPANISH,    CM_INV,
  623.     "swedish",          L_SWEDISH,    0,
  624. #ifdef CYRILLIC
  625.     "ukrainian",        L_RUSSIAN,    0,
  626. #endif /* CYRILLIC */
  627.     "", 0, 0
  628. };
  629. int nlng = (sizeof(lngtab) / sizeof(struct keytab)) - 1; /* how many */
  630.  
  631.  
  632. /* Translation tables ... */
  633.  
  634. /*
  635.   For each pair of (transfer,file) character sets, we need two translation
  636.   functions, one for sending, one for receiving.
  637. */
  638.  
  639. /*
  640.   Here is the first table, Latin-1 to ASCII, fully annotated...
  641.   This one is absolutely NOT invertible, since we're going from an 8-bit
  642.   set to a 7-bit set.  Accented letters are mapped to unaccented
  643.   equivalents, C1 control characters are all translated to "?", etc.
  644. */
  645. CONST CHAR
  646. yl1as[] = {  /* ISO 8859-1 Latin Alphabet 1 to US ASCII */
  647.       /*  Source character    Description               => Translation */
  648.       /*  Dec row/col Set                                           */
  649.   0,  /*  000  00/00  C0 NUL  Ctrl-@                    =>  (self)  */
  650.   1,  /*  001  00/01  C0 SOH  Ctrl-A                    =>  (self)  */
  651.   2,  /*  002  00/02  C0 STX  Ctrl-B                    =>  (self)  */
  652.   3,  /*  003  00/03  C0 ETX  Ctrl-C                    =>  (self)  */
  653.   4,  /*  004  00/04  C0 EOT  Ctrl-D                    =>  (self)  */
  654.   5,  /*  005  00/05  C0 ENQ  Ctrl-E                    =>  (self)  */
  655.   6,  /*  006  00/06  C0 ACK  Ctrl-F                    =>  (self)  */
  656.   7,  /*  007  00/07  C0 BEL  Ctrl-G                    =>  (self)  */
  657.   8,  /*  008  00/08  C0 BS   Ctrl-H                    =>  (self)  */
  658.   9,  /*  009  00/09  C0 HT   Ctrl-I                    =>  (self)  */
  659.  10,  /*  010  00/10  C0 LF   Ctrl-J                    =>  (self)  */
  660.  11,  /*  011  00/11  C0 VT   Ctrl-K                    =>  (self)  */
  661.  12,  /*  012  00/12  C0 FF   Ctrl-L                    =>  (self)  */
  662.  13,  /*  013  00/13  C0 CR   Ctrl-M                    =>  (self)  */
  663.  14,  /*  014  00/14  C0 SO   Ctrl-N                    =>  (self)  */
  664.  15,  /*  015  00/15  C0 SI   Ctrl-O                    =>  (self)  */
  665.  16,  /*  016  01/00  C0 DLE  Ctrl-P                    =>  (self)  */
  666.  17,  /*  017  01/01  C0 DC1  Ctrl-Q                    =>  (self)  */
  667.  18,  /*  018  01/02  C0 DC2  Ctrl-R                    =>  (self)  */
  668.  19,  /*  019  01/03  C0 DC3  Ctrl-S                    =>  (self)  */
  669.  20,  /*  020  01/04  C0 DC4  Ctrl-T                    =>  (self)  */
  670.  21,  /*  021  01/05  C0 NAK  Ctrl-U                    =>  (self)  */
  671.  22,  /*  022  01/06  C0 SYN  Ctrl-V                    =>  (self)  */
  672.  23,  /*  023  01/07  C0 ETB  Ctrl-W                    =>  (self)  */
  673.  24,  /*  024  01/08  C0 CAN  Ctrl-X                    =>  (self)  */
  674.  25,  /*  025  01/09  C0 EM   Ctrl-Y                    =>  (self)  */
  675.  26,  /*  026  01/10  C0 SUB  Ctrl-Z                    =>  (self)  */
  676.  27,  /*  027  01/11  C0 ESC  Ctrl-[                    =>  (self)  */
  677.  28,  /*  028  01/12  C0 FS   Ctrl-\                    =>  (self)  */
  678.  29,  /*  029  01/13  C0 GS   Ctrl-]                    =>  (self)  */
  679.  30,  /*  030  01/14  C0 RS   Ctrl-^                    =>  (self)  */
  680.  31,  /*  031  01/15  C0 US   Ctrl-_                    =>  (self)  */
  681.  32,  /*  032  02/00     SP   Space                     =>  (self)  */
  682.  33,  /*  033  02/01  G0 !    Exclamation mark          =>  (self)  */
  683.  34,  /*  034  02/02  G0 "    Doublequote               =>  (self)  */
  684.  35,  /*  035  02/03  G0 #    Number sign               =>  (self)  */
  685.  36,  /*  036  02/04  G0 $    Dollar sign               =>  (self)  */
  686.  37,  /*  037  02/05  G0 %    Percent sign              =>  (self)  */
  687.  38,  /*  038  02/06  G0 &    Ampersand                 =>  (self)  */
  688.  39,  /*  039  02/07  G0 '    Apostrophe                =>  (self)  */
  689.  40,  /*  040  02/08  G0 (    Left parenthesis          =>  (self)  */
  690.  41,  /*  041  02/09  G0 )    Right parenthesis         =>  (self)  */
  691.  42,  /*  042  02/10  G0 *    Asterisk                  =>  (self)  */
  692.  43,  /*  043  02/11  G0 +    Plus sign                 =>  (self)  */
  693.  44,  /*  044  02/12  G0 ,    Comma                     =>  (self)  */
  694.  45,  /*  045  02/13  G0 -    Hyphen, minus sign        =>  (self)  */
  695.  46,  /*  046  02/14  G0 .    Period, full stop         =>  (self)  */
  696.  47,  /*  047  02/15  G0 /    Slash, solidus            =>  (self)  */
  697.  48,  /*  048  03/00  G0 0    Digit 0                   =>  (self)  */
  698.  49,  /*  049  03/01  G0 1    Digit 1                   =>  (self)  */
  699.  50,  /*  050  03/02  G0 2    Digit 2                   =>  (self)  */
  700.  51,  /*  051  03/03  G0 3    Digit 3                   =>  (self)  */
  701.  52,  /*  052  03/04  G0 4    Digit 4                   =>  (self)  */
  702.  53,  /*  053  03/05  G0 5    Digit 5                   =>  (self)  */
  703.  54,  /*  054  03/06  G0 6    Digit 6                   =>  (self)  */
  704.  55,  /*  055  03/07  G0 7    Digit 7                   =>  (self)  */
  705.  56,  /*  056  03/08  G0 8    Digit 8                   =>  (self)  */
  706.  57,  /*  057  03/09  G0 9    Digit 9                   =>  (self)  */
  707.  58,  /*  058  03/10  G0 :    Colon                     =>  (self)  */
  708.  59,  /*  059  03/11  G0 ;    Semicolon                 =>  (self)  */
  709.  60,  /*  060  03/12  G0 <    Less-than sign            =>  (self)  */
  710.  61,  /*  061  03/13  G0 =    Equals sign               =>  (self)  */
  711.  62,  /*  062  03/14  G0 >    Greater-than sign         =>  (self)  */
  712.  63,  /*  063  03/15  G0 ?    Question mark             =>  (self)  */
  713.  64,  /*  064  04/00  G0 @    Commercial at sign        =>  (self)  */
  714.  65,  /*  065  04/01  G0 A    Letter A                  =>  (self)  */
  715.  66,  /*  066  04/02  G0 B    Letter B                  =>  (self)  */
  716.  67,  /*  067  04/03  G0 C    Letter C                  =>  (self)  */
  717.  68,  /*  068  04/04  G0 D    Letter D                  =>  (self)  */
  718.  69,  /*  069  04/05  G0 E    Letter E                  =>  (self)  */
  719.  70,  /*  070  04/06  G0 F    Letter F                  =>  (self)  */
  720.  71,  /*  071  04/07  G0 G    Letter G                  =>  (self)  */
  721.  72,  /*  072  04/08  G0 H    Letter H                  =>  (self)  */
  722.  73,  /*  073  04/09  G0 I    Letter I                  =>  (self)  */
  723.  74,  /*  074  04/10  G0 J    Letter J                  =>  (self)  */
  724.  75,  /*  075  04/11  G0 K    Letter K                  =>  (self)  */
  725.  76,  /*  076  04/12  G0 L    Letter L                  =>  (self)  */
  726.  77,  /*  077  04/13  G0 M    Letter M                  =>  (self)  */
  727.  78,  /*  078  04/14  G0 N    Letter N                  =>  (self)  */
  728.  79,  /*  079  04/15  G0 O    Letter O                  =>  (self)  */
  729.  80,  /*  080  05/00  G0 P    Letter P                  =>  (self)  */
  730.  81,  /*  081  05/01  G0 Q    Letter Q                  =>  (self)  */
  731.  82,  /*  082  05/02  G0 R    Letter R                  =>  (self)  */
  732.  83,  /*  083  05/03  G0 S    Letter S                  =>  (self)  */
  733.  84,  /*  084  05/04  G0 T    Letter T                  =>  (self)  */
  734.  85,  /*  085  05/05  G0 U    Letter U                  =>  (self)  */
  735.  86,  /*  086  05/06  G0 V    Letter V                  =>  (self)  */
  736.  87,  /*  087  05/07  G0 W    Letter W                  =>  (self)  */
  737.  88,  /*  088  05/08  G0 X    Letter X                  =>  (self)  */
  738.  89,  /*  089  05/09  G0 Y    Letter Y                  =>  (self)  */
  739.  90,  /*  090  05/10  G0 Z    Letter Z                  =>  (self)  */
  740.  91,  /*  091  05/11  G0 [    Left square bracket       =>  (self)  */
  741.  92,  /*  092  05/12  G0 \    Reverse slash             =>  (self)  */
  742.  93,  /*  093  05/13  G0 ]    Right square bracket      =>  (self)  */
  743.  94,  /*  094  05/14  G0 ^    Circumflex accent         =>  (self)  */
  744.  95,  /*  095  05/15  G0 _    Underline, low line       =>  (self)  */
  745.  96,  /*  096  06/00  G0 `    Grave accent              =>  (self)  */
  746.  97,  /*  097  06/01  G0 a    Letter a                  =>  (self)  */
  747.  98,  /*  098  06/02  G0 b    Letter b                  =>  (self)  */
  748.  99,  /*  099  06/03  G0 c    Letter c                  =>  (self)  */
  749. 100,  /*  100  06/04  G0 d    Letter d                  =>  (self)  */
  750. 101,  /*  101  06/05  G0 e    Letter e                  =>  (self)  */
  751. 102,  /*  102  06/06  G0 f    Letter f                  =>  (self)  */
  752. 103,  /*  103  06/07  G0 g    Letter g                  =>  (self)  */
  753. 104,  /*  104  06/08  G0 h    Letter h                  =>  (self)  */
  754. 105,  /*  105  06/09  G0 i    Letter i                  =>  (self)  */
  755. 106,  /*  106  06/10  G0 j    Letter j                  =>  (self)  */
  756. 107,  /*  107  06/11  G0 k    Letter k                  =>  (self)  */
  757. 108,  /*  108  06/12  G0 l    Letter l                  =>  (self)  */
  758. 109,  /*  109  06/13  G0 m    Letter m                  =>  (self)  */
  759. 110,  /*  110  06/14  G0 n    Letter n                  =>  (self)  */
  760. 111,  /*  111  06/15  G0 o    Letter o                  =>  (self)  */
  761. 112,  /*  112  07/00  G0 p    Letter p                  =>  (self)  */
  762. 113,  /*  113  07/01  G0 q    Letter q                  =>  (self)  */
  763. 114,  /*  114  07/02  G0 r    Letter r                  =>  (self)  */
  764. 115,  /*  115  07/03  G0 s    Letter s                  =>  (self)  */
  765. 116,  /*  116  07/04  G0 t    Letter t                  =>  (self)  */
  766. 117,  /*  117  07/05  G0 u    Letter u                  =>  (self)  */
  767. 118,  /*  118  07/06  G0 v    Letter v                  =>  (self)  */
  768. 119,  /*  119  07/07  G0 w    Letter w                  =>  (self)  */
  769. 120,  /*  120  07/08  G0 x    Letter x                  =>  (self)  */
  770. 121,  /*  121  07/09  G0 y    Letter y                  =>  (self)  */
  771. 122,  /*  122  07/10  G0 z    Letter z                  =>  (self)  */
  772. 123,  /*  123  07/11  G0 {    Left curly bracket        =>  (self)  */
  773. 124,  /*  124  07/12  G0 |    Vertical bar              =>  (self)  */
  774. 125,  /*  125  07/13  G0 }    Right curly bracket       =>  (self)  */
  775. 126,  /*  126  07/14  G0 ~    Tilde                     =>  (self)  */
  776. 127,  /*  127  07/15     DEL  Delete, Rubout            =>  (self)  */
  777. UNK,  /*  128  08/00  C1                                =>  UNK     */
  778. UNK,  /*  129  08/01  C1                                =>  UNK     */
  779. UNK,  /*  130  08/02  C1                                =>  UNK     */
  780. UNK,  /*  131  08/03  C1                                =>  UNK     */
  781. UNK,  /*  132  08/04  C1 IND                            =>  UNK     */
  782. UNK,  /*  133  08/05  C1 NEL                            =>  UNK     */
  783. UNK,  /*  134  08/06  C1 SSA                            =>  UNK     */
  784. UNK,  /*  135  08/07  C1 ESA                            =>  UNK     */
  785. UNK,  /*  136  08/08  C1 HTS                            =>  UNK     */
  786. UNK,  /*  137  08/09  C1                                =>  UNK     */
  787. UNK,  /*  138  08/10  C1                                =>  UNK     */
  788. UNK,  /*  139  08/11  C1                                =>  UNK     */
  789. UNK,  /*  140  08/12  C1                                =>  UNK     */
  790. UNK,  /*  141  08/13  C1 RI                             =>  UNK     */
  791. UNK,  /*  142  08/14  C1 SS2                            =>  UNK     */
  792. UNK,  /*  143  08/15  C1 SS3                            =>  UNK     */
  793. UNK,  /*  144  09/00  C1 DCS                            =>  UNK     */
  794. UNK,  /*  145  09/01  C1                                =>  UNK     */
  795. UNK,  /*  146  09/02  C1                                =>  UNK     */
  796. UNK,  /*  147  09/03  C1 STS                            =>  UNK     */
  797. UNK,  /*  148  09/04  C1                                =>  UNK     */
  798. UNK,  /*  149  09/05  C1                                =>  UNK     */
  799. UNK,  /*  150  09/06  C1 SPA                            =>  UNK     */
  800. UNK,  /*  151  09/07  C1 EPA                            =>  UNK     */
  801. UNK,  /*  152  09/08  C1                                =>  UNK     */
  802. UNK,  /*  153  09/09  C1                                =>  UNK     */
  803. UNK,  /*  154  09/10  C1                                =>  UNK     */
  804. UNK,  /*  155  09/11  C1 CSI                            =>  UNK     */
  805. UNK,  /*  156  09/12  C1 ST                             =>  UNK     */
  806. UNK,  /*  157  09/13  C1 OSC                            =>  UNK     */
  807. UNK,  /*  158  09/14  C1 PM                             =>  UNK     */
  808. UNK,  /*  159  09/15  C1 APC                            =>  UNK     */
  809.  32,  /*  160  10/00  G1      No-break space            =>  SP      */
  810.  33,  /*  161  10/01  G1      Inverted exclamation      =>  !       */
  811.  99,  /*  162  10/02  G1      Cent sign                 =>  c       */
  812.  35,  /*  163  10/03  G1      Pound sign                =>  #       */
  813.  36,  /*  164  10/04  G1      Currency sign             =>  $       */
  814.  89,  /*  165  10/05  G1      Yen sign                  =>  Y       */
  815. 124,  /*  166  10/06  G1      Broken bar                =>  |       */
  816.  80,  /*  167  10/07  G1      Paragraph sign            =>  P       */
  817.  34,  /*  168  10/08  G1      Diaeresis                 =>  "       */
  818.  67,  /*  169  10/09  G1      Copyright sign            =>  C       */
  819.  97,  /*  170  10/10  G1      Feminine ordinal          =>  a       */
  820.  34,  /*  171  10/11  G1      Left angle quotation      =>  "       */
  821. 126,  /*  172  10/12  G1      Not sign                  =>  ~       */
  822.  45,  /*  173  10/13  G1      Soft hyphen               =>  -       */
  823.  82,  /*  174  10/14  G1      Registered trade mark     =>  R       */
  824.  95,  /*  175  10/15  G1      Macron                    =>  _       */
  825. 111,  /*  176  11/00  G1      Degree sign, ring above   =>  o       */
  826. UNK,  /*  177  11/01  G1      Plus-minus sign           =>  UNK     */
  827.  50,  /*  178  11/02  G1      Superscript two           =>  2       */
  828.  51,  /*  179  11/03  G1      Superscript three         =>  3       */
  829.  39,  /*  180  11/04  G1      Acute accent              =>  '       */
  830. 117,  /*  181  11/05  G1      Micro sign                =>  u       */
  831.  45,  /*  182  11/06  G1      Pilcrow sign              =>  -       */
  832.  45,  /*  183  11/07  G1      Middle dot                =>  -       */
  833.  44,  /*  184  11/08  G1      Cedilla                   =>  ,       */
  834.  49,  /*  185  11/09  G1      Superscript one           =>  1       */
  835. 111,  /*  186  11/10  G1      Masculine ordinal         =>  o       */
  836.  34,  /*  187  11/11  G1      Right angle quotation     =>  "       */
  837. UNK,  /*  188  11/12  G1      One quarter               =>  UNK     */
  838. UNK,  /*  189  11/13  G1      One half                  =>  UNK     */
  839. UNK,  /*  190  11/14  G1      Three quarters            =>  UNK     */
  840.  63,  /*  191  11/15  G1      Inverted question mark    =>  ?       */
  841.  65,  /*  192  12/00  G1      A grave                   =>  A       */
  842.  65,  /*  193  12/01  G1      A acute                   =>  A       */
  843.  65,  /*  194  12/02  G1      A circumflex              =>  A       */
  844.  65,  /*  195  12/03  G1      A tilde                   =>  A       */
  845.  65,  /*  196  12/04  G1      A diaeresis               =>  A       */
  846.  65,  /*  197  12/05  G1      A ring above              =>  A       */
  847.  65,  /*  198  12/06  G1      A with E                  =>  A       */
  848.  67,  /*  199  12/07  G1      C Cedilla                 =>  C       */
  849.  69,  /*  200  12/08  G1      E grave                   =>  E       */
  850.  69,  /*  201  12/09  G1      E acute                   =>  E       */
  851.  69,  /*  202  12/10  G1      E circumflex              =>  E       */
  852.  69,  /*  203  12/11  G1      E diaeresis               =>  E       */
  853.  73,  /*  204  12/12  G1      I grave                   =>  I       */
  854.  73,  /*  205  12/13  G1      I acute                   =>  I       */
  855.  73,  /*  206  12/14  G1      I circumflex              =>  I       */
  856.  73,  /*  207  12/15  G1      I diaeresis               =>  I       */
  857.  68,  /*  208  13/00  G1      Icelandic Eth             =>  D       */
  858.  78,  /*  209  13/01  G1      N tilde                   =>  N       */
  859.  79,  /*  210  13/02  G1      O grave                   =>  O       */
  860.  79,  /*  211  13/03  G1      O acute                   =>  O       */
  861.  79,  /*  212  13/04  G1      O circumflex              =>  O       */
  862.  79,  /*  213  13/05  G1      O tilde                   =>  O       */
  863.  79,  /*  214  13/06  G1      O diaeresis               =>  O       */
  864. 120,  /*  215  13/07  G1      Multiplication sign       =>  x       */
  865.  79,  /*  216  13/08  G1      O oblique stroke          =>  O       */
  866.  85,  /*  217  13/09  G1      U grave                   =>  U       */
  867.  85,  /*  218  13/10  G1      U acute                   =>  U       */
  868.  85,  /*  219  13/11  G1      U circumflex              =>  U       */
  869.  85,  /*  220  13/12  G1      U diaeresis               =>  U       */
  870.  89,  /*  221  13/13  G1      Y acute                   =>  Y       */
  871.  84,  /*  222  13/14  G1      Icelandic Thorn           =>  T       */
  872. 115,  /*  223  13/15  G1      German sharp s            =>  s       */
  873.  97,  /*  224  14/00  G1      a grave                   =>  a       */
  874.  97,  /*  225  14/01  G1      a acute                   =>  a       */
  875.  97,  /*  226  14/02  G1      a circumflex              =>  a       */
  876.  97,  /*  227  14/03  G1      a tilde                   =>  a       */
  877.  97,  /*  228  14/04  G1      a diaeresis               =>  a       */
  878.  97,  /*  229  14/05  G1      a ring above              =>  a       */
  879.  97,  /*  230  14/06  G1      a with e                  =>  a       */
  880.  99,  /*  231  14/07  G1      c cedilla                 =>  c       */
  881. 101,  /*  232  14/08  G1      e grave                   =>  e       */
  882. 101,  /*  233  14/09  G1      e acute                   =>  e       */
  883. 101,  /*  234  14/10  G1      e circumflex              =>  e       */
  884. 101,  /*  235  14/11  G1      e diaeresis               =>  e       */
  885. 105,  /*  236  14/12  G1      i grave                   =>  i       */
  886. 105,  /*  237  14/13  G1      i acute                   =>  i       */
  887. 105,  /*  238  14/14  G1      i circumflex              =>  i       */
  888. 105,  /*  239  14/15  G1      i diaeresis               =>  i       */
  889. 100,  /*  240  15/00  G1      Icelandic eth             =>  d       */
  890. 110,  /*  241  15/01  G1      n tilde                   =>  n       */
  891. 111,  /*  242  15/02  G1      o grave                   =>  o       */
  892. 111,  /*  243  15/03  G1      o acute                   =>  o       */
  893. 111,  /*  244  15/04  G1      o circumflex              =>  o       */
  894. 111,  /*  245  15/05  G1      o tilde                   =>  o       */
  895. 111,  /*  246  15/06  G1      o diaeresis               =>  o       */
  896.  47,  /*  247  15/07  G1      Division sign             =>  /       */
  897. 111,  /*  248  15/08  G1      o oblique stroke          =>  o       */
  898. 117,  /*  249  15/09  G1      u grave                   =>  u       */
  899. 117,  /*  250  15/10  G1      u acute                   =>  u       */
  900. 117,  /*  251  15/11  G1      u circumflex              =>  u       */
  901. 117,  /*  252  15/12  G1      u diaeresis               =>  u       */
  902. 121,  /*  253  15/13  G1      y acute                   =>  y       */
  903. 116,  /*  254  15/14  G1      Icelandic thorn           =>  t       */
  904. 121   /*  255  15/15  G1      y diaeresis               =>  y       */
  905. };
  906.  
  907.  
  908. /* Translation tables for ISO Latin Alphabet 1 to local file character sets */
  909.  
  910. /*
  911.   Most of the remaining tables are not annotated like the one above, because
  912.   the size of the resulting source file would be ridiculous.  Each row in the
  913.   following tables corresponds to a column of ISO 8859-1.
  914. */
  915.  
  916. CONST CHAR
  917. yl185[] = {  /* ISO 8859-1 Latin Alphabet 1 (Latin-1) to IBM Code Page 850 */
  918. /*
  919.   This is based on IBM's official invertible translation.  Reference: IBM
  920.   Character Data Representation Architecture (CDRA), Level 1, Registry,
  921.   SC09-1291-00 (1990), p.152.  (Note: Latin-1 is IBM Code Page 00819.)  Note:
  922.   IBM's bizarre rearrangement of C0 controls and DEL has been undone in this
  923.   table.
  924. */
  925.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  926.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  927.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  928.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  929.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  930.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  931.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  932. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  933. 186, 205, 201, 187, 200, 188, 204, 185, 203, 202, 206, 223, 220, 219, 254, 242,
  934. 179, 196, 218, 191, 192, 217, 195, 180, 194, 193, 197, 176, 177, 178, 213, 159,
  935. 255, 173, 189, 156, 207, 190, 221, 245, 249, 184, 166, 174, 170, 240, 169, 238,
  936. 248, 241, 253, 252, 239, 230, 244, 250, 247, 251, 167, 175, 172, 171, 243, 168,
  937. 183, 181, 182, 199, 142, 143, 146, 128, 212, 144, 210, 211, 222, 214, 215, 216,
  938. 209, 165, 227, 224, 226, 229, 153, 158, 157, 235, 233, 234, 154, 237, 232, 225,
  939. 133, 160, 131, 198, 132, 134, 145, 135, 138, 130, 136, 137, 141, 161, 140, 139,
  940. 208, 164, 149, 162, 147, 228, 148, 246, 155, 151, 163, 150, 129, 236, 231, 152
  941. };
  942.  
  943. CONST CHAR
  944. y85l1[] = {  /* IBM Code Page 850 to Latin-1 */
  945. /*
  946.   This is from IBM CDRA page 153.  It is the inverse of yl185[].
  947.   As of edit 183, this table is no longer pure CDRA.  The translations
  948.   involving C0 controls and DEL have been removed.
  949. */
  950.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  951.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  952.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  953.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  954.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  955.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  956.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  957. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  958. 199, 252, 233, 226, 228, 224, 229, 231, 234, 235, 232, 239, 238, 236, 196, 197,
  959. 201, 230, 198, 244, 246, 242, 251, 249, 255, 214, 220, 248, 163, 216, 215, 159,
  960. 225, 237, 243, 250, 241, 209, 170, 186, 191, 174, 172, 189, 188, 161, 171, 187,
  961. 155, 156, 157, 144, 151, 193, 194, 192, 169, 135, 128, 131, 133, 162, 165, 147,
  962. 148, 153, 152, 150, 145, 154, 227, 195, 132, 130, 137, 136, 134, 129, 138, 164,
  963. 240, 208, 202, 203, 200, 158, 205, 206, 207, 149, 146, 141, 140, 166, 204, 139,
  964. 211, 223, 212, 210, 245, 213, 181, 254, 222, 218, 219, 217, 253, 221, 175, 180,
  965. 173, 177, 143, 190, 182, 167, 247, 184, 176, 168, 183, 185, 179, 178, 142, 160
  966. };
  967.  
  968. #ifdef COMMENT
  969. CONST CHAR
  970. yl1r8[] = {  /* Latin-1 to Hewlett Packard Roman8 */
  971. /* This is HP's official translation, straight from iconv */
  972. /* It is NOT invertible. */
  973.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  974.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  975.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  976.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  977.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  978.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  979.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  980. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  981. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  982. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  983. 160, 184, 191, 187, 186, 188, 124, 189, 171,  99, 249, 251, 126,  45,  82, 176,
  984. 179, 254,  50,  51, 168, 243, 244, 242,  44,  49, 250, 253, 247, 248, 245, 185,
  985. 161, 224, 162, 225, 216, 208, 211, 180, 163, 220, 164, 165, 230, 229, 166, 167,
  986. 227, 182, 232, 231, 223, 233, 218, 120, 210, 173, 237, 174, 219, 177, 240, 222,
  987. 200, 196, 192, 226, 204, 212, 215, 181, 201, 197, 193, 205, 217, 213, 209, 221,
  988. 228, 183, 202, 198, 194, 234, 206,  47, 214, 203, 199, 195, 207, 178, 241, 239
  989. };
  990. CONST CHAR
  991. yr8l1[] = {  /* Hewlett Packard Roman8 to Latin-1 */
  992. /* This is HP's official translation, straight from iconv */
  993. /* It is NOT invertible. */
  994.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  995.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  996.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  997.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  998.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  999.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1000.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1001. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  1002. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  1003. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  1004. 160, 192, 194, 200, 202, 203, 206, 207, 180,  96,  94, 168, 126, 217, 219, 163,
  1005. 175, 221, 253, 176, 199, 231, 209, 241, 161, 191, 164, 163, 165, 167, 102, 162,
  1006. 226, 234, 244, 251, 225, 233, 243, 250, 224, 232, 242, 249, 228, 235, 246, 252,
  1007. 197, 238, 216, 198, 229, 237, 248, 230, 196, 236, 214, 220, 201, 239, 223, 212,
  1008. 193, 195, 227, 208, 240, 205, 204, 211, 210, 213, 245,  83, 115, 218,  89, 255,
  1009. 222, 254, 183, 181, 182, 190,  45, 188, 189, 170, 186, 171,  42, 187, 177, 160
  1010. };
  1011. #else /* !COMMENT */
  1012. /* This is an invertible mapping, approved by HP in January 1994. */
  1013. CONST CHAR
  1014. yl1r8[] = {  /* ISO Latin-1 to HP Roman8, Invertible */
  1015.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1016.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1017.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1018.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1019.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1020.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1021.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1022. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  1023. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  1024. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  1025. 160, 184, 191, 187, 186, 188, 169, 189, 171, 170, 249, 251, 172, 175, 190, 176,
  1026. 179, 254, 235, 236, 168, 243, 244, 242, 238, 246, 250, 253, 247, 248, 245, 185,
  1027. 161, 224, 162, 225, 216, 208, 211, 180, 163, 220, 164, 165, 230, 229, 166, 167,
  1028. 227, 182, 232, 231, 223, 233, 218, 252, 210, 173, 237, 174, 219, 177, 240, 222,
  1029. 200, 196, 192, 226, 204, 212, 215, 181, 201, 197, 193, 205, 217, 213, 209, 221,
  1030. 228, 183, 202, 198, 194, 234, 206, 255, 214, 203, 199, 195, 207, 178, 241, 239
  1031. };
  1032.  
  1033. CONST CHAR
  1034. yr8l1[] = { /* HP Roman8 to ISO Latin-1, Invertible */
  1035.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1036.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1037.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1038.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1039.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1040.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1041.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1042. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  1043. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  1044. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  1045. 160, 192, 194, 200, 202, 203, 206, 207, 180, 166, 169, 168, 172, 217, 219, 173,
  1046. 175, 221, 253, 176, 199, 231, 209, 241, 161, 191, 164, 163, 165, 167, 174, 162,
  1047. 226, 234, 244, 251, 225, 233, 243, 250, 224, 232, 242, 249, 228, 235, 246, 252,
  1048. 197, 238, 216, 198, 229, 237, 248, 230, 196, 236, 214, 220, 201, 239, 223, 212,
  1049. 193, 195, 227, 208, 240, 205, 204, 211, 210, 213, 245, 178, 179, 218, 184, 255,
  1050. 222, 254, 183, 181, 182, 190, 185, 188, 189, 170, 186, 171, 215, 187, 177, 247
  1051. };
  1052. #endif /* COMMENT */
  1053.  
  1054. CONST CHAR
  1055. yl143[] = {  /* Latin-1 to IBM Code Page 437 */
  1056. /*
  1057.   Although the IBM CDRA does not include an official translation between CP437
  1058.   and ISO Latin Alphabet 1, it does include an official, invertible
  1059.   translation between CP437 and CP850 (page 196), and another from CP850 to
  1060.   Latin-1 (CP819) (page 153).  This translation was obtained with a two-step
  1061.   process based on those tables.
  1062.   As of edit 183, the translation is modified to leave C0 controls alone.
  1063. */
  1064.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1065.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1066.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1067.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1068.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1069.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1070.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1071. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  1072. 186, 205, 201, 187, 200, 188, 204, 185, 203, 202, 206, 223, 220, 219, 254, 242,
  1073. 179, 196, 218, 191, 192, 217, 195, 180, 194, 193, 197, 176, 177, 178, 213, 159,
  1074. 255, 173, 155, 156, 207, 157, 221, 245, 249, 184, 166, 174, 170, 240, 169, 238,
  1075. 248, 241, 253, 252, 239, 230, 244, 250, 247, 251, 167, 175, 172, 171, 243, 168,
  1076. 183, 181, 182, 199, 142, 143, 146, 128, 212, 144, 210, 211, 222, 214, 215, 216,
  1077. 209, 165, 227, 224, 226, 229, 153, 158, 190, 235, 233, 234, 154, 237, 232, 225,
  1078. 133, 160, 131, 198, 132, 134, 145, 135, 138, 130, 136, 137, 141, 161, 140, 139,
  1079. 208, 164, 149, 162, 147, 228, 148, 246, 189, 151, 163, 150, 129, 236, 231, 152
  1080. };
  1081.  
  1082. CONST CHAR
  1083. y43l1[] = {  /* IBM Code Page 437 to Latin-1 */
  1084. /*
  1085.   This table is the inverse of yl143[].
  1086. */
  1087.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1088.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1089.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1090.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1091.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1092.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1093.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1094. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  1095. 199, 252, 233, 226, 228, 224, 229, 231, 234, 235, 232, 239, 238, 236, 196, 197,
  1096. 201, 230, 198, 244, 246, 242, 251, 249, 255, 214, 220, 162, 163, 165, 215, 159,
  1097. 225, 237, 243, 250, 241, 209, 170, 186, 191, 174, 172, 189, 188, 161, 171, 187,
  1098. 155, 156, 157, 144, 151, 193, 194, 192, 169, 135, 128, 131, 133, 248, 216, 147,
  1099. 148, 153, 152, 150, 145, 154, 227, 195, 132, 130, 137, 136, 134, 129, 138, 164,
  1100. 240, 208, 202, 203, 200, 158, 205, 206, 207, 149, 146, 141, 140, 166, 204, 139,
  1101. 211, 223, 212, 210, 245, 213, 181, 254, 222, 218, 219, 217, 253, 221, 175, 180,
  1102. 173, 177, 143, 190, 182, 167, 247, 184, 176, 168, 183, 185, 179, 178, 142, 160
  1103. };
  1104.  
  1105. CONST CHAR
  1106. yl1aq[] = {  /* Latin-1 to Extended Mac Latin (based on Apple QuickDraw) */
  1107.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1108.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1109.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1110.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1111.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1112.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1113.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1114. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  1115. 182, 183, 184, 185, 189, 196, 197, 198, 206, 207, 210, 211, 217, 218, 195, 212,
  1116. 209, 215, 213, 226, 227, 228, 240, 245, 246, 247, 249, 250, 251, 253, 254, 255,
  1117. 202, 193, 162, 163, 219, 180, 201, 164, 172, 169, 187, 199, 194, 208, 168, 248,
  1118. 161, 177, 170, 173, 171, 181, 166, 225, 252, 176, 188, 200, 178, 179, 186, 192,
  1119. 203, 231, 229, 204, 128, 129, 174, 130, 233, 131, 230, 232, 237, 234, 235, 236,
  1120. 220, 132, 241, 238, 239, 205, 133, 165, 175, 244, 242, 243, 134, 160, 222, 167,
  1121. 136, 135, 137, 139, 138, 140, 190, 141, 143, 142, 144, 145, 147, 146, 148, 149,
  1122. 221, 150, 152, 151, 153, 155, 154, 214, 191, 157, 156, 158, 159, 224, 223, 216
  1123. };
  1124.  
  1125. CONST CHAR
  1126. yl1du[] = {  /* Latin-1 to Dutch ISO 646 */
  1127.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1128.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1129.  32,  33,  34, UNK,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1130.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1131. UNK,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1132.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90, UNK, UNK, UNK,  94,  95,
  1133.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1134. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK,  39, 127,
  1135. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  1136. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  1137.  32,  33, UNK,  35, 124, UNK, UNK,  93, 123,  67, UNK,  34, UNK,  45,  82, UNK,
  1138.  91, UNK, UNK, UNK, 126, 117, UNK, UNK,  44, UNK, UNK,  34, 125,  92,  64,  63,
  1139.  65,  65,  65,  65,  91,  65,  65,  67,  69,  69,  69,  69,  73,  73,  73,  73,
  1140. UNK,  78,  79,  79,  79,  79,  79, 120,  79,  85,  85,  85,  85,  89, UNK, 115,
  1141.  97,  97,  97,  97,  97,  97,  97,  99, 101, 101, 101, 101, 105, 105, 105, 105,
  1142. UNK, 110, 111, 111, 111, 111, 111,  47, 111, 117, 117, 117, 117, 121, UNK,  91
  1143. };
  1144.  
  1145. CONST CHAR
  1146. yl1fi[] = {  /* Latin-1 to Finnish ISO NRC (*not* ISO 646) */
  1147.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1148.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1149.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1150.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1151.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1152.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90, UNK, UNK, UNK, UNK,  95,
  1153. UNK,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1154. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, UNK, 127,
  1155. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  1156. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  1157.  32,  33, UNK, UNK, UNK, UNK, UNK, UNK,  34,  67, UNK,  34, UNK,  45,  82, UNK,
  1158. UNK, UNK, UNK, UNK,  39, 117, UNK, UNK,  44, UNK, UNK,  34, UNK, UNK, UNK,  63,
  1159.  65,  65,  65,  65,  91,  93,  65,  67,  69,  69,  69,  69,  73,  73,  73,  73,
  1160. UNK,  78,  79,  79,  79,  79,  92, 120,  79,  85,  85,  85,  94,  89, UNK, 115,
  1161.  97,  97,  97,  97, 123, 125,  97,  99, 101,  96, 101, 101, 105, 105, 105, 105,
  1162. UNK, 110, 111, 111, 111, 111, 124,  47, 111, 117, 117, 117, 126, 121, UNK, 121
  1163. };
  1164.  
  1165. CONST CHAR
  1166. yl1fr[] = {  /* Latin-1 to French ISO 646 */
  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, UNK,  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. UNK,  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, UNK, UNK, UNK,  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, UNK, UNK, UNK, UNK, 127,
  1175. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  1176. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  1177.  32,  33, UNK,  35, UNK, UNK, UNK,  93,  34,  67, UNK,  34, UNK,  45,  82, UNK,
  1178.  91, UNK, UNK, UNK,  39, 117, UNK, UNK,  44, UNK, UNK,  34, UNK, UNK, UNK,  63,
  1179.  65,  65,  65,  65,  65,  65,  65,  67,  69,  69,  69,  69,  73,  73,  73,  73,
  1180. UNK,  78,  79,  79,  79,  79,  79, 120,  79,  85,  85,  85,  85,  89, UNK, 115,
  1181.  64,  97,  97,  97,  97,  97,  97,  92, 125, 123, 101, 101, 105, 105, 105, 105,
  1182. UNK, 110, 111, 111, 111, 111, 111,  47, 111, 124, 117, 117, 117, 121, UNK, 121
  1183. };
  1184.  
  1185. CONST CHAR
  1186. yl1fc[] = {  /* Latin-1 to French-Canadian ISO 646 */
  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,  35,  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. UNK,  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, UNK, UNK, UNK, UNK,  95,
  1193. UNK,  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, UNK, UNK, UNK, UNK, 127,
  1195. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  1196. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  1197.  32,  33, UNK, UNK, UNK, UNK, UNK, UNK,  34,  67, UNK,  34, UNK,  45,  82, UNK,
  1198. UNK, UNK, UNK, UNK,  39, 117, UNK, UNK,  44, UNK, UNK,  34, UNK, UNK, UNK,  63,
  1199.  65,  65,  65,  65,  65,  65,  65,  67,  69,  69,  69,  69,  73,  73,  73,  73,
  1200. UNK,  78,  79,  79,  79,  79,  79, 120,  79,  85,  85,  85,  85,  89, UNK, 115,
  1201.  64,  97,  91,  97,  97,  97,  97,  92, 125, 123,  93, 101, 105, 105,  94, 105,
  1202. UNK, 110, 111, 111,  96, 111, 111,  47, 111, 124, 117, 126, 117, 121, UNK, 121
  1203. };
  1204.  
  1205. CONST CHAR
  1206. yl1ge[] = {  /* Latin-1 to German ISO 646 */
  1207.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1208.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1209.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1210.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1211. UNK,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1212.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90, UNK, UNK, UNK,  94,  95,
  1213.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1214. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, UNK, 127,
  1215. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  1216. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  1217.  32,  33, UNK, UNK, UNK, UNK, UNK,  64,  34,  67, UNK,  34, UNK,  45,  82, UNK,
  1218. UNK, UNK, UNK, UNK,  39, 117, UNK, UNK,  44, UNK, UNK,  34, UNK, UNK, UNK,  63,
  1219.  65,  65,  65,  65,  91,  65,  65,  67,  69,  69,  69,  69,  73,  73,  73,  73,
  1220. UNK,  78,  79,  79,  79,  79,  92, 120,  79,  85,  85,  85,  93,  89, UNK, 126,
  1221.  97,  97,  97,  97, 123,  97,  97,  99, 101, 101, 101, 101, 105, 105, 105, 105,
  1222. UNK, 110, 111, 111, 111, 111, 124,  47, 111, 117, 117, 117, 125, 121, UNK, 121
  1223. };
  1224.  
  1225. CONST CHAR
  1226. yl1hu[] = {  /* Latin-1 to Hungarian ISO-646 */
  1227.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1228.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1229.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1230.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1231.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1232.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1233.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1234. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  1235. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  1236. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  1237.  32,  33, UNK, UNK,  36, UNK, UNK, UNK,  34,  67, UNK,  34, UNK,  45,  82, UNK,
  1238. UNK,  64, UNK, UNK,  39, 117, UNK, UNK,  44, UNK, UNK,  34, UNK, UNK, UNK,  63,
  1239.  65,  65,  65,  65,  65,  65,  65,  67,  69,  91,  69,  69,  73,  73,  73,  73,
  1240. UNK,  78,  79,  79,  79,  79,  92, 120,  79,  85,  85,  85,  93,  89, UNK, 115,
  1241.  97,  96,  97,  97,  97,  97,  97,  99, 101, 123, 101, 101, 105, 105, 105, 105,
  1242. UNK, 110, 111, 111, 111, 111, 124,  47, 111, 117, 117, 117, 125, 121, UNK, 121
  1243. };
  1244.  
  1245. CONST CHAR
  1246. yl1it[] = {  /* Latin-1 to Italian ISO 646 */
  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, UNK,  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. UNK,  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, UNK, UNK, UNK,  94,  95,
  1253. UNK,  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, UNK, UNK, UNK, UNK, 127,
  1255. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  1256. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  1257.  32,  33, UNK,  35, UNK, UNK, UNK,  64,  34,  67, UNK,  34, UNK,  45,  82, UNK,
  1258.  91, UNK, UNK, UNK,  39, 117, UNK, UNK,  44, UNK, UNK,  34, UNK, UNK, UNK,  63,
  1259.  65,  65,  65,  65,  65,  65,  65,  67,  69,  69,  69,  69,  73,  73,  73,  73,
  1260. UNK,  78,  79,  79,  79,  79,  79, 120,  79,  85,  85,  85,  85,  89, UNK, 115,
  1261. 123,  97,  97,  97,  97,  97,  97,  92, 125,  93, 101, 101, 126, 105, 105, 105,
  1262. UNK, 110, 124, 111, 111, 111, 111,  47, 111,  96, 117, 117, 117, 121, UNK, 121
  1263. };
  1264.  
  1265. CONST CHAR
  1266. yl1ne[] = {  /* Latin-1 to NeXT */
  1267. /* NEED TO MAKE THIS ONE INVERTIBLE, LIKE CP850 */
  1268. /*
  1269.   Which means finding all the graphic characters in the NeXT set that have
  1270.   no equivalent in Latin-1 and assigning them to the UNK positions (mostly
  1271.   Latin-1 C1 controls).  Then make the ynel1[] table be the inverse of this
  1272.   one.  But first we should try to get an official Latin-1/NeXT translation
  1273.   table from NeXT, Inc.
  1274. */
  1275.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1276.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1277.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1278.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1279.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1280.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1281.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1282. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  1283. UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
  1284. UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
  1285.  32, 161, 162, 163, 168, 165, 181, 167, 200, 160, 227, 171, 190, UNK, 176, 197,
  1286. 202, 209, 201, 204, 194, 157, 182, 183, 203, 192, 235, 187, 210, 211, 212, 191,
  1287. 129, 130, 131, 132, 133, 134, 225, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  1288. 144, 145, 146, 147, 148, 149, 150, 158, 233, 151, 152, 153, 154, 155, 156, 251,
  1289. 213, 214, 215, 216, 217, 218, 241, 219, 220, 221, 222, 223, 224, 226, 228, 229,
  1290. 230, 231, 236, 237, 238, 239, 240, 159, 249, 242, 243, 244, 246, 247, 252, 253
  1291. };
  1292.  
  1293. CONST CHAR
  1294. yl1no[] = {  /* Latin-1 to Norwegian/Danish ISO 646 */
  1295.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1296.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1297.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1298.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1299.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1300.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90, UNK, UNK, UNK,  94,  95,
  1301.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1302. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, 126, 127,
  1303. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  1304. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  1305.  32,  33, UNK, UNK, UNK, UNK, UNK, UNK,  34,  67, UNK,  34, UNK,  45,  82, UNK,
  1306. UNK, UNK, UNK, UNK,  39, 117, UNK, UNK,  44, UNK, UNK,  34, UNK, UNK, UNK,  63,
  1307.  65,  65,  65,  65,  65,  93,  91,  67,  69,  69,  69,  69,  73,  73,  73,  73,
  1308. UNK,  78,  79,  79,  79,  79,  79, 120,  92,  85,  85,  85,  85,  89, UNK, 115,
  1309.  97,  97,  97,  97,  97, 125, 123,  99, 101, 101, 101, 101, 105, 105, 105, 105,
  1310. UNK, 110, 111, 111, 111, 111, 111,  47, 124, 117, 117, 117, 117, 121, UNK, 121
  1311. };
  1312.  
  1313. CONST CHAR
  1314. yl1po[] = {  /* Latin-1 to Portuguese ISO 646 */
  1315.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1316.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1317.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1318.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1319.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1320.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90, UNK, UNK, UNK,  94,  95,
  1321.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1322. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, 126, 127,
  1323. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  1324. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  1325.  32,  33, UNK, UNK, UNK, UNK, UNK, UNK,  34,  67, UNK,  34, UNK,  45,  82, UNK,
  1326. UNK, UNK, UNK, UNK,  39, 117, UNK, UNK,  44, UNK, UNK,  34, UNK, UNK, UNK,  63,
  1327.  65,  65,  65,  91,  65,  65,  65,  92,  69,  69,  69,  69,  73,  73,  73,  73,
  1328. UNK,  78,  79,  79,  79,  93,  79, 120,  79,  85,  85,  85,  85,  89, UNK, 115,
  1329.  97,  97,  97, 123,  97,  97,  97, 124, 101, 101, 101, 101, 105, 105, 105, 105,
  1330. UNK, 110, 111, 111, 111, 125, 111,  47, 111, 117, 117, 117, 117, 121, UNK, 121
  1331. };
  1332.  
  1333. CONST CHAR
  1334. yl1sp[] = {  /* Latin-1 to Spanish ISO 646 */
  1335.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1336.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1337.  32,  33,  34, UNK,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1338.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1339. UNK,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1340.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90, UNK, UNK, UNK,  94,  95,
  1341.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1342. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122,  96, UNK, UNK, 126, 127,
  1343. 126, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  1344. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  1345.  32,  91, UNK,  35, UNK, UNK, UNK,  64,  34,  67, UNK,  34, UNK,  45,  82, UNK,
  1346. 123, UNK, UNK, UNK,  39, 117, UNK, UNK,  44, UNK, UNK,  34, UNK, UNK, UNK,  93,
  1347.  65,  65,  65,  65,  65,  65,  65,  67,  69,  69,  69,  69,  73,  73,  73,  73,
  1348. UNK,  92,  79,  79,  79,  79,  79, 120,  79,  85,  85,  85,  85,  89, UNK, 115,
  1349. 124,  97,  97,  97,  97,  97,  97, 125, 101, 101, 101, 101, 105, 105, 105, 105,
  1350. UNK, 124, 111, 111, 111, 111, 111,  47, 111, 117, 117, 117, 117, 121, UNK, 121
  1351. };
  1352.  
  1353. CONST CHAR
  1354. yl1sw[] = {  /* Latin-1 to Swedish ISO 646 */
  1355.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1356.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1357.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1358.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1359. UNK,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1360.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90, UNK, UNK, UNK, UNK,  95,
  1361. UNK,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1362. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, UNK, 127,
  1363. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  1364. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  1365.  32,  33, UNK, UNK, UNK, UNK, UNK, UNK,  34,  67, UNK,  34, UNK,  45,  82, UNK,
  1366. UNK, UNK, UNK, UNK,  39, 117, UNK, UNK,  44, UNK, UNK,  34, UNK, UNK, UNK,  63,
  1367.  65,  65,  65,  65,  91,  93,  65,  67,  69,  64,  69,  69,  73,  73,  73,  73,
  1368. UNK,  78,  79,  79,  79,  79,  92, 120,  79,  85,  85,  85,  94,  89, UNK, 115,
  1369.  97,  97,  97,  97, 123, 125,  97,  99, 101,  96, 101, 101, 105, 105, 105, 105,
  1370. UNK, 110, 111, 111, 111, 111, 124,  47, 111, 117, 117, 117, 126, 121, UNK, 121
  1371. };
  1372.  
  1373. CONST CHAR
  1374. yl1ch[] = {  /* Latin-1 to Swiss ISO 646 */
  1375.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1376.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1377.  32,  33,  34, UNK,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1378.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1379. UNK,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1380.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90, UNK, UNK, UNK, UNK, UNK,
  1381.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1382. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, UNK, 127,
  1383. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  1384. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  1385.  32,  33, UNK, UNK, UNK, UNK, UNK, UNK,  34,  67, UNK,  34, UNK,  45,  82, UNK,
  1386. UNK, UNK, UNK, UNK,  39, 117, UNK, UNK,  44, UNK, UNK,  34, UNK, UNK, UNK,  63,
  1387.  65,  65,  65,  65,  65,  65,  65,  67,  69,  69,  69,  69,  73,  73,  73,  73,
  1388. UNK,  78,  79,  79,  79,  79,  79, 120,  79,  85,  85,  85,  85,  89, UNK, 115,
  1389.  64,  97,  97,  97, 123,  97,  97,  92,  95,  91,  93, 101, 105, 105,  94, 105,
  1390. UNK, 110, 111, 111,  96, 111, 124,  47, 111,  35, 117, 126, 125, 121, UNK, 121
  1391. };
  1392.  
  1393. CONST CHAR
  1394. yl1dm[] = {  /* Latin-1 to DEC Multinational Character Set */
  1395.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1396.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1397.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1398.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1399.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1400.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1401.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1402. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  1403. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  1404. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  1405.  32, 161, 162, 163, 168, 165, 124, 167,  34, 169, 170, 171, 126, UNK,  82, UNK,
  1406. 176, 177, 178, 179,  39, 181, 182, 183,  44, 185, 186, 187, 188, 189, UNK, 191,
  1407. 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207,
  1408. UNK, 209, 210, 211, 212, 213, 214, 120, 216, 217, 218, 219, 220, 221, UNK, 223,
  1409. 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239,
  1410. UNK, 241, 242, 243, 244, 245, 246,  47, 248, 249, 250, 251, 252, UNK, UNK, 253
  1411. };
  1412.  
  1413. CONST CHAR
  1414. yl1dg[] = {  /* Latin-1 to Data General International Character Set */
  1415.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1416.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1417.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1418.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1419.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1420.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1421.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1422. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  1423. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  1424. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  1425. 160, 171, 167, 168, 166, 181, 191, 187, 189, 173, 169, 177, 161, 255, 174, 175,
  1426. 188, 182, 164, 165, 190, 163, 178, 185, 186, 179, 170, 176, 223, 162, 220, 172,
  1427. 193, 192, 194, 196, 195, 197, 198, 199, 201, 200, 202, 203, 205, 204, 206, 207,
  1428. 184, 208, 210, 209, 211, 213, 212, 215, 214, 217, 216, 218, 219, 221, 222, 252,
  1429. 225, 224, 226, 228, 227, 229, 230, 231, 233, 232, 234, 235, 237, 236, 238, 239,
  1430. 183, 240, 242, 241, 243, 245, 244, 247, 246, 249, 248, 250, 251, 180, 254, 253
  1431. };
  1432.  
  1433.  
  1434. /* Local file character sets to ISO Latin Alphabet 1 */
  1435.  
  1436. #ifdef NOTUSED
  1437. CONST CHAR
  1438. yasl1[] = {  /* ASCII to Latin-1 */
  1439.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1440.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1441.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1442.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1443.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1444.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1445.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1446. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127
  1447. };
  1448. #endif /* NOTUSED */
  1449.  
  1450. CONST CHAR
  1451. yaql1[] = {  /* Extended Mac Latin (based on Apple Quickdraw) to Latin-1 */
  1452.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1453.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1454.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1455.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1456.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1457.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1458.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1459. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  1460. 196, 197, 199, 201, 209, 214, 220, 225, 224, 226, 228, 227, 229, 231, 233, 232,
  1461. 234, 235, 237, 236, 238, 239, 241, 243, 242, 244, 246, 245, 250, 249, 251, 252,
  1462. 221, 176, 162, 163, 167, 215, 182, 223, 174, 169, 178, 180, 168, 179, 198, 216,
  1463. 185, 177, 188, 189, 165, 181, 128, 129, 130, 131, 190, 170, 186, 132, 230, 248,
  1464. 191, 161, 172, 142, 133, 134, 135, 171, 187, 166, 160, 192, 195, 213, 136, 137,
  1465. 173, 144, 138, 139, 143, 146, 247, 145, 255, 140, 141, 164, 208, 240, 222, 254,
  1466. 253, 183, 147, 148, 149, 194, 202, 193, 203, 200, 205, 206, 207, 204, 211, 212,
  1467. 150, 210, 218, 219, 217, 151, 152, 153, 175, 154, 155, 156, 184, 157, 158, 159
  1468. };
  1469.  
  1470. CONST CHAR
  1471. ydul1[] = {  /* Dutch ISO 646 to Latin-1 */
  1472.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1473.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1474.  32,  33,  34, 163,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1475.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1476. 190,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1477.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90, 255, 189, 124,  94,  95,
  1478.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1479. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 168, 164, 188,  39, 127
  1480. };
  1481.  
  1482. CONST CHAR
  1483. yfil1[] = {  /* Finnish NRC (*not* ISO-646) to Latin-1 */
  1484.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1485.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1486.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1487.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1488.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1489.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90, 196, 214, 197, 220,  95,
  1490. 233,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1491. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 228, 246, 229, 252, 127
  1492. };
  1493.  
  1494. CONST CHAR
  1495. yfrl1[] = {  /* French ISO 646 to Latin-1 */
  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, 163,  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. 224,  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, 176, 231, 167,  94,  95,
  1502.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1503. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 233, 249, 232, 168, 127
  1504. };
  1505.  
  1506. CONST CHAR
  1507. yfcl1[] = {  /* French-Canadian ISO 646 to Latin-1 */
  1508.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1509.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1510.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1511.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1512. 224,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1513.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90, 226, 231, 234, 238,  95,
  1514. 244,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1515. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 233, 249, 232, 251, 127
  1516. };
  1517.  
  1518. CONST CHAR
  1519. ygel1[] = {  /* German ISO 646 to Latin-1 */
  1520.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1521.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1522.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1523.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1524. 167,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1525.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90, 196, 214, 220,  94,  95,
  1526.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1527. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 228, 246, 252, 223, 127
  1528. };
  1529.  
  1530. CONST CHAR
  1531. yitl1[] = {  /* Italian ISO 646 to Latin-1 */
  1532.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1533.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1534.  32,  33,  34, 163,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1535.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1536. 167,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1537.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90, 176, 231, 233,  94,  95,
  1538. 249,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1539. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 224, 242, 232, 236, 127
  1540. };
  1541.  
  1542. CONST CHAR
  1543. ynel1[] = {  /* NeXT to Latin-1 */
  1544. /* NEED TO MAKE THIS ONE INVERTIBLE */
  1545.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1546.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1547.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1548.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1549.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1550.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1551.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1552. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  1553. 160, 192, 193, 194, 195, 196, 197, 199, 200, 201, 202, 203, 204, 205, 206, 207,
  1554. 208, 209, 210, 211, 212, 213, 214, 217, 218, 219, 220, 221, 222, 181, 215, 247,
  1555. 169, 161, 162, 163, UNK, 165, UNK, 167, 164, UNK, UNK, 171, UNK, UNK, UNK, UNK,
  1556. 174, UNK, UNK, UNK, 183, 166, 182, UNK, UNK, UNK, UNK, 187, UNK, UNK, 172, 191,
  1557. 185,  96, 180,  94, 126, 175, UNK, UNK, 168, 178, 176, 184, 179, UNK, UNK, UNK,
  1558. UNK, 177, 188, 189, 190, 224, 225, 226, 227, 228, 229, 231, 232, 233, 234, 235,
  1559. 236, 198, 237, 170, 238, 239, 240, 241, UNK, 216, UNK, 186, 242, 243, 244, 245,
  1560. 246, 230, 249, 250, 251, UNK, 252, 253, UNK, 248, UNK, 223, 254, 255, UNK, UNK
  1561. };
  1562.  
  1563. CONST CHAR
  1564. ynol1[] = {  /* Norwegian/Danish ISO 646 to Latin-1 */
  1565.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1566.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1567.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1568.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1569.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1570.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90, 198, 216, 197,  94,  95,
  1571.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1572. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 230, 248, 229, 126, 127
  1573. };
  1574.  
  1575. CONST CHAR
  1576. ypol1[] = {  /* Portuguese ISO 646 to Latin-1 */
  1577.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1578.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1579.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1580.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1581.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1582.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90, 195, 199, 213,  94,  95,
  1583.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1584. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 227, 231, 245, 126, 127
  1585. };
  1586.  
  1587. CONST CHAR
  1588. yspl1[] = {  /* Spanish ISO 646 to Latin-1 */
  1589.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1590.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1591.  32,  33,  34, 163,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1592.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1593. 167,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1594.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90, 161, 209, 191,  94,  95,
  1595.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1596. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 176, 241, 231, 126, 127
  1597. };
  1598.  
  1599. CONST CHAR
  1600. yswl1[] = {  /* Swedish ISO 646 to Latin-1 */
  1601.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1602.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1603.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1604.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1605. 201,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1606.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90, 196, 214, 197, 220,  95,
  1607. 233,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1608. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 228, 246, 229, 252, 127
  1609. };
  1610.  
  1611. CONST CHAR
  1612. ychl1[] = {  /* Swiss ISO 646 to Latin-1 */
  1613.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1614.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1615.  32,  33,  34, 249,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1616.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1617. 224,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1618.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90, 233, 231, 234, 238, 232,
  1619. 244,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1620. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 228, 246, 252, 251, 127
  1621. };
  1622.  
  1623. CONST CHAR
  1624. yhul1[] = {  /* Hungarian ISO 646 to Latin-1 */
  1625.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1626.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1627.  32,  33,  34,  35, 164,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1628.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1629. 193,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1630.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90, 201, 214, 220,  94,  95,
  1631. 225,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1632. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 233, 246, 252,  34, 127
  1633. };
  1634.  
  1635. CONST CHAR
  1636. ydml1[] = {  /* DEC Multinational Character Set to Latin-1 */
  1637. /* Note: This is a null translation */
  1638.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1639.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1640.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1641.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1642.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1643.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1644.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1645. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  1646. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  1647. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  1648. 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175,
  1649. 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191,
  1650. 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207,
  1651. 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223,
  1652. 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239,
  1653. 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 255
  1654. };
  1655.  
  1656. CONST CHAR
  1657. ydgl1[] = {  /* Data General International to Latin-1 */
  1658.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1659.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1660.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1661.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1662.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1663.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1664.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1665. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  1666. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  1667. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  1668. 160, 172, 189, 181, 178, 179, 164, 162, 163, 170, 186, 161, 191, 169, 174, 175,
  1669. 187, 171, 182, 185, 253, 165, 177, 240, 208, 183, 184, 167, 176, 168, 180, 166,
  1670. 193, 192, 194, 196, 195, 197, 198, 199, 201, 200, 202, 203, 205, 204, 206, 207,
  1671. 209, 211, 210, 212, 214, 213, 216, 215, 218, 217, 219, 220, 190, 221, 222, 188,
  1672. 225, 224, 226, 228, 227, 229, 230, 231, 233, 232, 234, 235, 237, 236, 238, 239,
  1673. 241, 243, 242, 244, 246, 245, 248, 247, 250, 249, 251, 252, 223, 255, 254, 173
  1674. };
  1675.  
  1676.  
  1677. /* Translation tables for Cyrillic character sets */
  1678.  
  1679. #ifdef CYRILLIC
  1680. CONST CHAR
  1681. ylcac[] = {  /* Latin/Cyrillic to CP866 */
  1682.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1683.  16,  17,  18,  19, 208, 209,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1684.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1685.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1686.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1687.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1688.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1689. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  1690. 196, 179, 192, 217, 191, 218, 195, 193, 180, 194, 197, 176, 177, 178, 211, 216,
  1691. 205, 186, 200, 188, 187, 201, 204, 202, 185, 203, 206, 223, 220, 219, 254, UNK,
  1692. 255, 240, 132, 131, 242,  83,  73, 244,  74, 139, 141, 151, 138,  45, 246, 135,
  1693. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  1694. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  1695. 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175,
  1696. 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239,
  1697. 252, 241, 164, 163, 243, 115, 105, 245, 106, 171, 173, 231, 170,  21, 247, 167
  1698. };
  1699.  
  1700. CONST CHAR
  1701. ylc55[] = {  /* Latin/Cyrillic to CP855 (inverse of y55lc) */
  1702.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1703.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1704.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1705.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1706.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1707.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1708.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1709. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  1710. 174, 175, 176, 177, 178, 179, 180, 185, 186, 187, 188, 191, 192, 193, 194, 195,
  1711. 196, 197, 200, 201, 202, 203, 204, 205, 206, 207, 217, 218, 219, 220, 223, 254,
  1712. 255, 133, 129, 131, 135, 137, 139, 141, 143, 145, 147, 149, 151, 240, 153, 155,
  1713. 161, 163, 236, 173, 167, 169, 234, 244, 184, 190, 199, 209, 211, 213, 215, 221,
  1714. 226, 228, 230, 232, 171, 182, 165, 252, 246, 250, 159, 242, 238, 248, 157, 224,
  1715. 160, 162, 235, 172, 166, 168, 233, 243, 183, 189, 198, 208, 210, 212, 214, 216,
  1716. 225, 227, 229, 231, 170, 181, 164, 251, 245, 249, 158, 241, 237, 247, 156, 222,
  1717. 239, 132, 128, 130, 134, 136, 138, 140, 142, 144, 146, 148, 150, 253, 152, 154
  1718. };
  1719.  
  1720. CONST CHAR
  1721. ylc1251[] = {  /* Latin/Cyrillic to CP1251 (inverse of y1251lc) */
  1722.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1723.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1724.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1725.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1726.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1727.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1728.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1729. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  1730. 130, 132, 133, 134, 135, 136, 137, 139, 145, 146, 147, 148, 149, 150, 151, 152,
  1731. 153, 155, 164, 165, 166, 169, 171, 172, 174, 176, 177, 180, 181, 182, 183, 187,
  1732. 160, 168, 128, 129, 170, 189, 178, 175, 163, 138, 140, 142, 141, 173, 161, 143,
  1733. 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207,
  1734. 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223,
  1735. 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239,
  1736. 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 255,
  1737. 185, 184, 144, 131, 186, 190, 179, 191, 188, 154, 156, 158, 157, 167, 162, 159
  1738. };
  1739.  
  1740. CONST CHAR
  1741. ylcbu[] = {  /* Latin/Cyrillic to Bulgarian PC Code Page */
  1742.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1743.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1744.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1745.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1746.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1747.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1748.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1749. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  1750. 255, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206,
  1751. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  1752. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  1753. 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175,
  1754. 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191,
  1755. 213, 207, 208, 209, 210, 211, 212, 215, 216, 217, 218, 219, 220, 221, 222, 223,
  1756. 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239,
  1757. 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 214, 253, 254
  1758. };
  1759.  
  1760. CONST CHAR
  1761. ylck8[] = {  /* Latin/Cyrillic to Old KOI-8 Cyrillic */
  1762.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1763.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1764.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1765.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1766.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1767.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1768.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1769. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  1770. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  1771. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  1772. UNK, 229, UNK, UNK, UNK,  83,  73,  73,  74, UNK, UNK, UNK, 235, UNK, 245, UNK,
  1773. 225, 226, 247, 231, 228, 229, 246, 250, 233, 234, 235, 236, 237, 238, 239, 240,
  1774. 242, 243, 244, 245, 230, 232, 227, 254, 251, 253, 255, 249, 248, 252, 224, 241,
  1775. 193, 194, 215, 199, 196, 197, 214, 218, 201, 202, 203, 204, 205, 206, 207, 208,
  1776. 210, 211, 212, 213, 198, 200, 195, 222, 219, 221, 223, 217, 216, 220, 192, 209,
  1777. UNK, 197, UNK, UNK, UNK, 115, 105, 105, 106, UNK, UNK, UNK, 203, UNK, 213, UNK
  1778. };
  1779.  
  1780. CONST CHAR
  1781. yaclc[] = {  /* CP866 to Latin/Cyrillic */
  1782. /* NEED TO MAKE THIS ONE INVERTIBLE */
  1783.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1784.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1785.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1786.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1787.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1788.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1789.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1790. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  1791. 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191,
  1792. 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207,
  1793. 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223,
  1794. UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
  1795. UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
  1796. UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
  1797. 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239,
  1798. 161, 241, 164, 244, 167, 247, 174, 254, UNK, UNK, UNK, UNK, 240, UNK, UNK, UNK
  1799. };
  1800.  
  1801. CONST CHAR
  1802. y55lc[] = {  /* CP855 to Latin/Cyrillic (inverse of ylc55) */
  1803.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1804.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1805.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1806.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1807.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1808.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1809.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1810. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  1811. 242, 162, 243, 163, 241, 161, 244, 164, 245, 165, 246, 166, 247, 167, 248, 168,
  1812. 249, 169, 250, 170, 251, 171, 252, 172, 254, 174, 255, 175, 238, 206, 234, 202,
  1813. 208, 176, 209, 177, 230, 198, 212, 180, 213, 181, 228, 196, 211, 179, 128, 129,
  1814. 130, 131, 132, 133, 134, 229, 197, 216, 184, 135, 136, 137, 138, 217, 185, 139,
  1815. 140, 141, 142, 143, 144, 145, 218, 186, 146, 147, 148, 149, 150, 151, 152, 153,
  1816. 219, 187, 220, 188, 221, 189, 222, 190, 223, 154, 155, 156, 157, 191, 239, 158,
  1817. 207, 224, 192, 225, 193, 226, 194, 227, 195, 214, 182, 210, 178, 236, 204, 240,
  1818. 173, 235, 203, 215, 183, 232, 200, 237, 205, 233, 201, 231, 199, 253, 159, 160
  1819. };
  1820.  
  1821. CONST CHAR
  1822. y1251lc[] = {  /* CP1251 to Latin/Cyrillic (inverse of ylc1251) */
  1823.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1824.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1825.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1826.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1827.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1828.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1829.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1830. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  1831. 162, 163, 128, 243, 129, 130, 131, 132, 133, 134, 169, 135, 170, 172, 171, 175,
  1832. 242, 136, 137, 138, 139, 140, 141, 142, 143, 144, 249, 145, 250, 252, 251, 255,
  1833. 160, 174, 254, 168, 146, 147, 148, 253, 161, 149, 164, 150, 151, 173, 152, 167,
  1834. 153, 154, 166, 246, 155, 156, 157, 158, 241, 240, 244, 159, 248, 165, 245, 247,
  1835. 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191,
  1836. 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207,
  1837. 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223,
  1838. 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239
  1839. };
  1840.  
  1841. CONST CHAR
  1842. ybulc[] = {  /* Bulgarian PC Code Page to Latin/Cyrillic */
  1843.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1844.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1845.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1846.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1847.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1848.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1849.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1850. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  1851. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  1852. 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175,
  1853. 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191,
  1854. 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207,
  1855. 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 209,
  1856. 210, 211, 212, 213, 214, 208, 253, 215, 216, 217, 218, 219, 220, 221, 222, 223,
  1857. 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239,
  1858. 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 254, 255, 128
  1859. };
  1860.  
  1861. CONST CHAR
  1862. yk8lc[] = {  /* Old KOI-8 Cyrillic to Latin/Cyrillic */
  1863.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1864.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1865.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1866.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1867.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1868.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1869.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1870. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  1871. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  1872. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  1873. UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
  1874. UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
  1875. 238, 208, 209, 230, 212, 213, 228, 211, 229, 216, 217, 218, 219, 220, 221, 222,
  1876. 223, 239, 224, 225, 226, 227, 214, 210, 236, 235, 215, 232, 237, 233, 231, 234,
  1877. 206, 176, 177, 198, 180, 181, 196, 179, 197, 184, 185, 186, 187, 188, 189, 190,
  1878. 191, 207, 192, 193, 194, 195, 182, 178, 204, 203, 183, 200, 205, 201, 199, 127
  1879. };
  1880.  
  1881. CONST CHAR
  1882. ylcsk[] = {  /* Latin/Cyrillic to Short KOI */
  1883.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1884.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1885.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1886.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1887.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1888.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1889.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1890.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94, 127,
  1891.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1892.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1893.  32, 101, UNK, UNK, UNK,  83,  73,  73,  74, UNK, UNK, UNK, 107,  45, 117, UNK,
  1894.  97,  98, 119, 103, 100, 101, 118, 122, 105, 106, 107, 108, 109, 110, 111, 112,
  1895. 114, 115, 116, 117, 102, 104,  99, 126, 123, 125,  39, 121, 120, 124,  96, 113,
  1896.  97,  98, 119, 103, 100, 101, 118, 122, 105, 106, 107, 108, 109, 110, 111, 112,
  1897. 114, 115, 116, 117, 102, 104,  99, 126, 123, 125,  39, 121, 120, 124,  96, 113,
  1898. UNK, 101, UNK, UNK, UNK,  83,  73,  73,  74, UNK, UNK, UNK, 107, UNK, 117, UNK
  1899. };
  1900.  
  1901. CONST CHAR yskcy[] = {  /* Short KOI to Latin/Cyrillic */
  1902.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1903.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1904.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1905.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1906.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1907.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1908. 206, 176, 177, 198, 180, 181, 196, 179, 197, 184, 185, 186, 187, 188, 189, 190,
  1909. 191, 207, 192, 193, 194, 195, 182, 178, 204, 203, 183, 200, 205, 201, 199, 127
  1910. };
  1911. #endif /* CYRILLIC */
  1912.  
  1913. #ifdef LATIN2
  1914.  
  1915. /* Latin-2 tables */
  1916.  
  1917. CONST CHAR
  1918. yl252[] = {                /* Latin-2 to Code Page 852 */
  1919.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1920.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1921.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1922.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1923.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1924.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1925.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1926. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  1927. 174, 175, 176, 177, 178, 179, 180, 185, 186, 187, 188, 191, 192, 193, 194, 195,
  1928. 196, 197, 200, 201, 202, 203, 204, 205, 206, 217, 218, 219, 220, 223, 240, 254,
  1929. 255, 164, 244, 157, 207, 149, 151, 245, 249, 230, 184, 155, 141, 170, 166, 189,
  1930. 248, 165, 242, 136, 239, 150, 152, 243, 247, 231, 173, 156, 171, 241, 167, 190,
  1931. 232, 181, 182, 198, 142, 145, 143, 128, 172, 144, 168, 211, 183, 214, 215, 210,
  1932. 209, 227, 213, 224, 226, 138, 153, 158, 252, 222, 233, 235, 154, 237, 221, 225,
  1933. 234, 160, 131, 199, 132, 146, 134, 135, 159, 130, 169, 137, 216, 161, 140, 212,
  1934. 208, 228, 229, 162, 147, 139, 148, 246, 253, 133, 163, 251, 129, 236, 238, 250
  1935. };
  1936.  
  1937. CONST CHAR
  1938. y52l2[] = {                /* Code Page 852 to Latin-2 */
  1939.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1940.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1941.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1942.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1943.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1944.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1945.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1946. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  1947. 199, 252, 233, 226, 228, 249, 230, 231, 179, 235, 213, 245, 238, 172, 196, 198,
  1948. 201, 197, 229, 244, 246, 165, 181, 166, 182, 214, 220, 171, 187, 163, 215, 232,
  1949. 225, 237, 243, 250, 161, 177, 174, 190, 202, 234, 173, 188, 200, 186, 128, 129,
  1950. 130, 131, 132, 133, 134, 193, 194, 204, 170, 135, 136, 137, 138, 175, 191, 139,
  1951. 140, 141, 142, 143, 144, 145, 195, 227, 146, 147, 148, 149, 150, 151, 152, 164,
  1952. 240, 208, 207, 203, 239, 210, 205, 206, 236, 153, 154, 155, 156, 222, 217, 157,
  1953. 211, 223, 212, 209, 241, 242, 169, 185, 192, 218, 224, 219, 253, 221, 254, 180,
  1954. 158, 189, 178, 183, 162, 167, 247, 184, 176, 168, 255, 251, 216, 248, 159, 160
  1955. };
  1956.  
  1957. CONST CHAR
  1958. yl21250[] = {                /* Latin-2 to Code Page 1250 */
  1959.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1960.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1961.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1962.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1963.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1964.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1965.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1966. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  1967. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 139, 144, 145, 146, 147, 148,
  1968. 149, 150, 151, 152, 153, 155, 166, 169, 171, 172, 174, 177, 181, 182, 183, 187,
  1969. 160, 165, 162, 163, 164, 188, 140, 167, 168, 138, 170, 141, 143, 173, 142, 175,
  1970. 176, 185, 178, 179, 180, 190, 156, 161, 184, 154, 186, 157, 159, 189, 158, 191,
  1971. 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207,
  1972. 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223,
  1973. 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239,
  1974. 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 255
  1975. };
  1976.  
  1977. CONST CHAR
  1978. y1250l2[] = {                /* Code Page 1250 to Latin-2 */
  1979.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  1980.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  1981.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  1982.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  1983.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  1984.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  1985.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  1986. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  1987. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 169, 138, 166, 171, 174, 172,
  1988. 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 185, 149, 182, 187, 190, 188,
  1989. 160, 183, 162, 163, 164, 161, 150, 167, 168, 151, 170, 152, 153, 173, 154, 175,
  1990. 176, 155, 178, 179, 180, 156, 157, 158, 184, 177, 186, 159, 165, 189, 181, 191,
  1991. 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207,
  1992. 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223,
  1993. 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239,
  1994. 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 255
  1995. };
  1996.  
  1997. CONST CHAR
  1998. yl2mz[] = {                 /* Latin-2 to Mazovia (NOT invertible) */
  1999.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  2000.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  2001.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  2002.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  2003.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  2004.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  2005.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  2006. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  2007. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  2008. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  2009. 255, 143, UNK, 156, 155,  76, 152,  21,  34,  83,  83,  84, 160,  45,  90, 161,
  2010. 248, 134,  44, 146,  39, 108, 158, UNK,  44, 115, 115, 116, 166,  34, 122, 167,
  2011.  82,  65,  65,  65, 142,  76, 149, 128,  67,  69, 144,  69,  69,  73,  73,  68,
  2012.  68, 165,  78, 163,  79, 153, 153, 250,  82,  85,  85, 154, 154,  89,  84, 225,
  2013. 114,  97, 131,  97, 132, 108, 141, 135,  99, 130, 145, 137, 101, 105, 140, 101,
  2014. 100, 164, 110, 162, 147, 148, 148, 246, 114, 117, 117, 129, 129, 121, 116, 249
  2015. };
  2016.  
  2017. CONST CHAR
  2018. ymzl2[] = {                 /* Mazovia to Latin-2 (NOT INVERTIBLE) */
  2019.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  2020.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  2021.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  2022.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  2023.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  2024.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  2025.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  2026. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  2027. 128, 252, 233, 226, 228,  97, 177, 231, 101, 235, 101, 105, 238, 230, 196, 161,
  2028. 202, 234, 179, 244, 246, 198, 117, 117, 166, 214, 220, 164, 163,  89, 182, 102,
  2029. 172, 175, 243, 211, 242, 210, 188, 191,  63, UNK, UNK, UNK, UNK,  33,  34,  34,
  2030. UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
  2031. UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
  2032. UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
  2033. UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
  2034. UNK, UNK, UNK, UNK, UNK, UNK, 247, UNK, 176, 255, 215, UNK, UNK, UNK, UNK, 160
  2035. };
  2036.  
  2037. CONST CHAR
  2038. yl2l1[] = {                /* Latin-2 to Latin-1 */
  2039.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  2040.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  2041.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  2042.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  2043.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  2044.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  2045.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  2046. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  2047. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  2048. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  2049. 160, 'A', UNK, 'L', 164, 'L', 'S', 167, 168, 'S', 'S', 'T', 'Z', 173, 'Z', 'Z',
  2050. 176, 'a', UNK, 'l', 180, 'l', 's', UNK, 184, 's', 's', 't', 'z', UNK, 'z', 'z',
  2051. 'R', 193, 194, 'A', 196, 'L', 'C', 199, 'C', 201, 'E', 203, 'E', 205, 'I', 'D',
  2052. 208, 'N', 'N', 211, 212, 'O', 214, 215, 'R', 'U', 218, 'U', 220, 221, 'T', 223,
  2053. 'r', 225, 226, 'a', 228, 'l', 'c', 231, 'c', 233, 'e', 235, 'e', 237, 'i', 'd',
  2054. 240, 'n', 'n', 243, 244, 'o', 246, 247, 'r', 'u', 250, 'u', 252, 253, 't', '.'
  2055. };
  2056.  
  2057. CONST CHAR
  2058. yl1l2[] = {                /* Latin-1 to Latin-2 */
  2059.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  2060.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  2061.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  2062.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  2063.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  2064.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  2065.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  2066. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  2067. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  2068. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  2069. 160, 'A', UNK, 'L', 164, UNK, UNK, 167, 168, 'C', 'a', '<', '>', 173, 'R', UNK,
  2070. 176, UNK, UNK, UNK, 180, UNK, UNK, UNK, 184, UNK, 'o', '>', UNK, UNK, UNK, UNK,
  2071. 'A', 193, 194, 'A', 196, 'A', 'A', 199, 'E', 201, 'E', 203, 'I', 205, 'I', 'I',
  2072. 208, 'N', 'O', 211, 212, 'O', 214, 215, 'O', 'U', 218, 'U', 220, 221, UNK, 223,
  2073. 'a', 225, 226, 'a', 228, 'a', 'a', 231, 'e', 233, 'e', 235, 'i', 237, 'i', 'i',
  2074. 240, 'n', 'o', 243, 244, 'o', 246, 247, 'o', 'u', 250, 'u', 252, 253, UNK, 'y'
  2075. };
  2076.  
  2077. CONST CHAR
  2078. yl2as[] = {                /* Latin-2 to ASCII */
  2079.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  2080.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  2081.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  2082.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  2083.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  2084.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  2085.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  2086. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  2087. UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
  2088. UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
  2089.  32, 'A', UNK, 'L', UNK, 'L', 'S', UNK,  34, 'S', 'S', 'T', 'Z', '-', 'Z', 'Z',
  2090. UNK, 'a', UNK, 'l',  39, 'l', 's', UNK,  44, 's', 's', 't', 'z', UNK, 'z', 'z',
  2091. 'R', 'A', 'A', 'A', 'A', 'L', 'C', 'C', 'C', 'E', 'E', 'E', 'E', 'I', 'I', 'D',
  2092. 'D', 'N', 'N', 'O', 'O', 'O', 'O', 'x', 'R', 'U', 'U', 'U', 'U', 'Y', 'T', 's',
  2093. 'r', 'a', 'a', 'a', 'a', 'l', 'c', 'c', 'c', 'e', 'e', 'e', 'e', 'i', 'i', 'd',
  2094. 'd', 'n', 'n', 'o', 'o', 'o', 'o', '/', 'r', 'u', 'u', 'u', 'u', 'y', 't', '.'
  2095. };
  2096. #endif /* LATIN2 */
  2097.  
  2098. #ifdef HEBREW
  2099. /*
  2100.   8-bit Tables providing invertible translation between Latin/Hebrew and CP862.
  2101. */
  2102. CONST CHAR
  2103. y62lh[] = {  /* PC Code Page 862 to ISO 8859-8 Latin/Hebrew */
  2104.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  2105.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  2106.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  2107.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  2108.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  2109.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  2110.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  2111. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  2112. 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239,
  2113. 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 162, 163, 165, 128, 129,
  2114. 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 172, 189, 188, 140, 171, 187,
  2115. 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156,
  2116. 157, 158, 159, 161, 164, 166, 167, 168, 169, 170, 173, 174, 175, 223, 179, 180,
  2117. 182, 184, 185, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202,
  2118. 203, 204, 205, 206, 207, 208, 181, 209, 210, 211, 212, 213, 214, 215, 216, 217,
  2119. 218, 177, 219, 220, 221, 222, 186, 251, 176, 183, 252, 253, 254, 178, 255, 160
  2120. };
  2121.  
  2122. CONST CHAR
  2123. ylh62[] = {  /* ISO 8859-8 Latin/Hebrew to PC Code Page 862 */
  2124.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  2125.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  2126.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  2127.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  2128.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  2129.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  2130.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  2131. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  2132. 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 173, 176, 177, 178,
  2133. 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194,
  2134. 255, 195, 155, 156, 196, 157, 197, 198, 199, 200, 201, 174, 170, 202, 203, 204,
  2135. 248, 241, 253, 206, 207, 230, 208, 249, 209, 210, 246, 175, 172, 171, 211, 212,
  2136. 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228,
  2137. 229, 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 242, 243, 244, 245, 205,
  2138. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  2139. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 247, 250, 251, 252, 254
  2140. };
  2141. /*
  2142.   7-bit table providing readable translation from DEC Hebrew-7 to CP862.
  2143. */
  2144. CONST CHAR
  2145. yh762[] = {
  2146.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  2147.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  2148.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  2149.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  2150.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  2151.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  2152. UNK,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  2153.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90, 123, 124, 125, 126, 127
  2154. };
  2155. /*
  2156.   8-bit table providing readable translation from CP862 to Hebrew-7.
  2157. */
  2158. CONST CHAR
  2159. y62h7[] = {  /* PC Code Page 862 to Hebrew-7 */
  2160.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  2161.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  2162.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  2163.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  2164.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  2165.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  2166.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  2167.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90, 123, 124, 125, 126, 127,
  2168.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  2169. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, UNK, UNK,
  2170. UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
  2171. UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
  2172. UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
  2173. UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
  2174. UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
  2175. UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK
  2176. };
  2177. /*
  2178.   7-bit table providing readable translation from Hebrew-7 to ISO Latin/Hebrew.
  2179. */
  2180. CONST CHAR
  2181. yh7lh[] = {
  2182.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  2183.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  2184.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  2185.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  2186.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  2187.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  2188. 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223,
  2189. 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 123, 124, 125, 126, 127
  2190. };
  2191. /*
  2192.   8-bit table providing readable translation from ISO Latin/Hebrew to Hebrew-7.
  2193. */
  2194. CONST CHAR
  2195. ylhh7[] = {  /* Latin/Hebrew to Hebrew-7 */
  2196.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  2197.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  2198.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  2199.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  2200.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  2201.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  2202.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  2203.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90, 123, 124, 125, 126, 127,
  2204. UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
  2205. UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
  2206. UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
  2207. UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
  2208. UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
  2209. UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
  2210.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  2211. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, UNK, UNK
  2212. };
  2213. #endif /* HEBREW */
  2214.  
  2215. #ifdef GREEK
  2216. /*
  2217.   8-bit Tables providing invertible translation between Latin/Greek and CP869.
  2218. */
  2219. CONST CHAR
  2220. ylg69[] = {  /* ISO 8859-7 Latin/Greek to PC Code Page 869 */
  2221.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  2222.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  2223.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  2224.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  2225.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  2226.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  2227.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  2228. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  2229. 135, 147, 148, 176, 177, 178, 179, 180, 185, 186, 187, 188, 191, 192, 193, 194,
  2230. 195, 196, 197, 200, 201, 202, 203, 204, 205, 206, 217, 218, 219, 220, 223, 254,
  2231. 255, 139, 140, 156, 128, 129, 138, 245, 249, 151, 130, 174, 137, 240, 131, 142,
  2232. 248, 241, 153, 154, 239, 247, 134, 136, 141, 143, 144, 175, 146, 171, 149, 152,
  2233. 161, 164, 165, 166, 167, 168, 169, 170, 172, 173, 181, 182, 183, 184, 189, 190,
  2234. 198, 199, 132, 207, 208, 209, 210, 211, 212, 213, 145, 150, 155, 157, 158, 159,
  2235. 252, 214, 215, 216, 221, 222, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233,
  2236. 234, 235, 237, 236, 238, 242, 243, 244, 246, 250, 160, 251, 162, 163, 253, 133
  2237. };
  2238.  
  2239. CONST CHAR
  2240. y69lg[] = {  /* PC Code Page 869 to ISO 8859-7 Latin/Greek */
  2241.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  2242.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  2243.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  2244.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  2245.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  2246.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  2247.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  2248. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  2249. 164, 165, 170, 174, 210, 255, 182, 128, 183, 172, 166, 161, 162, 184, 175, 185,
  2250. 186, 218, 188, 129, 130, 190, 219, 169, 191, 178, 179, 220, 163, 221, 222, 223,
  2251. 250, 192, 252, 253, 193, 194, 195, 196, 197, 198, 199, 189, 200, 201, 171, 187,
  2252. 131, 132, 133, 134, 135, 202, 203, 204, 205, 136, 137, 138, 139, 206, 207, 140,
  2253. 141, 142, 143, 144, 145, 146, 208, 209, 147, 148, 149, 150, 151, 152, 153, 211,
  2254. 212, 213, 214, 215, 216, 217, 225, 226, 227, 154, 155, 156, 157, 228, 229, 158,
  2255. 230, 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 243, 242, 244, 180,
  2256. 173, 177, 245, 246, 247, 167, 248, 181, 176, 168, 249, 251, 224, 254, 159, 160
  2257. };
  2258. /*
  2259.   7-bit table providing readable translation from ELOT 927 to CP869.
  2260. */
  2261. CONST CHAR
  2262. yeg69[] = {
  2263.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  2264.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  2265.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  2266.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  2267.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  2268.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  2269.  96, 164, 165, 166, 167, 168, 169, 170, 172, 173, 181, 182, 183, 184, 189, 190,
  2270. 198, 199, 207, 208, 209, 210, 211, 212, 213,  32,  32,  23, 124, 125, 126, 127
  2271. };
  2272. /*
  2273.   8-bit table providing readable translation from CP869 to ELOT 927.
  2274. */
  2275. CONST CHAR
  2276. y69eg[] = {  /* PC Code Page 869 to ELOT 927 */
  2277.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  2278.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  2279.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  2280.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  2281.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  2282.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  2283.  96,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  2284.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90, 123, 124, 125, 126, 127,
  2285. UNK, UNK, UNK, UNK, UNK, UNK,  97, UNK,  46, UNK, 124,  39,  39, 101,  45, 103,
  2286. 105, 105, 111, UNK, UNK, 116, 116, UNK, 120,  50,  51,  97, UNK, 101, 103, 105,
  2287. 105, 105, 111, 116,  97,  98,  99, 100, 101, 102, 103, UNK, 104, 105,  34,  34,
  2288. UNK, UNK, UNK, UNK, UNK, 106, 107, 108, 109, UNK, UNK, UNK, UNK, 110, 111, UNK,
  2289. UNK, UNK, UNK, UNK, UNK, UNK, 112, 113, UNK, UNK, UNK, UNK, UNK, UNK, UNK, 114,
  2290. 115, 116, 117, 118, 119, 120,  97,  98,  99, UNK, UNK, UNK, UNK, 100, 101, UNK,
  2291. 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 114, 115,  39,
  2292.  45, UNK, 116, 117, 118, UNK, 119, UNK, UNK, UNK, 120, 116, 116, 120, UNK,  32
  2293.  
  2294. };
  2295. /*
  2296.   7-bit table providing readable translation from ELOT 927 to ISO Latin/Greek.
  2297. */
  2298. CONST CHAR
  2299. yeglg[] = {
  2300.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  2301.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  2302.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  2303.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  2304.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  2305.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  2306.  96, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207,
  2307. 208, 209, 211, 212, 213, 214, 215, 216, 217,  32,  32, 123, 124, 125, 126, 127
  2308. };
  2309. /*
  2310.   8-bit table providing readable translation from ISO Latin/Greek to ELOT 927.
  2311. */
  2312. CONST CHAR
  2313. ylgeg[] = {  /* Latin/Greek to ELOT 927 */
  2314.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  2315.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  2316.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  2317.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  2318.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  2319.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  2320.  96,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  2321.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90, 123, 124, 125, 126, 127,
  2322. UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
  2323. UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
  2324.  32,  39,  39, UNK, UNK, UNK, 124, UNK,  34, UNK, UNK,  34, UNK,  45, UNK,  45,
  2325. UNK, UNK,  50,  51,  39, UNK,  97,  46, 101, 103, 105,  34, 111, UNK, 116, 120,
  2326. UNK,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  2327. 112, 113, UNK, 114, 115, 116, 117, 118, 119, 120, 105, 116,  97, 101, 103, 105,
  2328. 116,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  2329. 112, 113, 114, 114, 115, 116, 117, 118, 119, 120, 105, 116, 111, 116, 120, UNK
  2330. };
  2331. #endif /* GREEK */
  2332.  
  2333. /* Translation functions ... */
  2334.  
  2335. CHAR                    /* The identity function... */
  2336. #ifdef CK_ANSIC
  2337. ident(CHAR c)                /* (no longer used) */
  2338. #else
  2339. ident(c) CHAR c;
  2340. #endif /* CK_ANSIC */
  2341. { /* ident */
  2342.     return(c);                /* Instead, enter NULL in the  */
  2343. }                    /* table of functions to avoid */
  2344.                     /* needless function calls.    */
  2345.  
  2346. CHAR
  2347. #ifdef CK_ANSIC
  2348. xleft128(CHAR c)
  2349. #else
  2350. xleft128(c) CHAR c;
  2351. #endif /* CK_ANSIC */
  2352. { /* xleft128 */
  2353.     return((c < 128) ? c : '?');
  2354. }
  2355.  
  2356. CHAR
  2357. #ifdef CK_ANSIC
  2358. xleft160(CHAR c)
  2359. #else
  2360. xleft160(c) CHAR c;
  2361. #endif /* CK_ANSIC */
  2362. { /* xleft160 */
  2363.     return((c < 160) ? c : '?');
  2364. }
  2365.  
  2366.  
  2367. CHAR
  2368. #ifdef CK_ANSIC
  2369. xl1as(CHAR c)
  2370. #else
  2371. xl1as(c) CHAR c;
  2372. #endif /* CK_ANSIC */
  2373. { /* xl1as */                 /* Latin-1 to US ASCII... */
  2374.     switch(langs[language].id) {
  2375.  
  2376.       case L_DUTCH:
  2377.     if (c == 255) {            /* Dutch umlaut-y */
  2378.         zmstuff('j');        /* becomes ij */
  2379.         return('i');
  2380.     } else return(yl1as[c]);    /* all others by the book */
  2381.  
  2382.       case L_GERMAN:
  2383.     switch (c) {            /* German, special rules. */
  2384.       case 196:            /* umlaut-A -> Ae */
  2385.         zmstuff('e');
  2386.         return('A');
  2387.       case 214:            /* umlaut-O -> Oe */
  2388.         zmstuff('e');
  2389.         return('O');
  2390.       case 220:            /* umlaut-U -> Ue */
  2391.         zmstuff('e');
  2392.         return('U');
  2393.       case 228:            /* umlaut-a -> ae */
  2394.         zmstuff('e');
  2395.         return('a');
  2396.       case 246:            /* umlaut-o -> oe */
  2397.         zmstuff('e');
  2398.         return('o');
  2399.       case 252:            /* umlaut-u -> ue */
  2400.         zmstuff('e');
  2401.         return('u');
  2402.       case 223:            /* ess-zet -> ss */
  2403.         zmstuff('s');
  2404.         return('s');
  2405.       default: return(yl1as[c]);    /* all others by the book */
  2406.     }
  2407.       case L_DANISH:
  2408.       case L_FINNISH:
  2409.       case L_NORWEGIAN:
  2410.       case L_SWEDISH:
  2411.     switch (c) {            /* Scandanavian languages. */
  2412.       case 196:            /* umlaut-A -> Ae */
  2413.           case 198:            /* AE ligature also -> Ae */
  2414.         zmstuff('e');
  2415.         return('A');
  2416.       case 214:            /* umlaut-O -> Oe */
  2417.       case 216:            /* O-slash -> Oe */
  2418.         zmstuff('e');
  2419.         return('O');
  2420.       case 220:            /* umlaut-U -> Ue */
  2421.       /*  return('Y'); replaced by "Ue" by popular demand. */
  2422.           /*  Y for Umlaut-U is only used in German names. */
  2423.         zmstuff('e');
  2424.         return('U');
  2425.       case 228:            /* umlaut-a -> ae */
  2426.           case 230:            /* ditto for ae ligature */
  2427.         zmstuff('e');
  2428.         return('a');
  2429.       case 246:            /* umlaut-o -> oe */
  2430.       case 248:            /* o-slash -> oe */
  2431.         zmstuff('e');
  2432.         return('o');
  2433.       case 252:            /* umlaut-u -> ue */
  2434.       /*  return('y'); replaced by "ue" by popular demand. */
  2435.         zmstuff('e');
  2436.         return('u');
  2437.       case 197:            /* A-ring -> Aa */
  2438.         zmstuff('a');
  2439.         return('A');
  2440.           case 229:            /* a-ring -> aa */
  2441.         zmstuff('a');
  2442.         return('a');
  2443.       default: return(yl1as[c]);    /* All others by the book */
  2444.     }
  2445.       case L_ICELANDIC:            /* Icelandic. */
  2446.     switch (c) {
  2447.       case 198:            /* uppercase AE -> AE */
  2448.         zmstuff('e');
  2449.         return('A');
  2450.       case 208:            /* uppercase Eth -> D */
  2451.         return('D');
  2452.       case 214:            /* uppercase O-diaeresis -> Oe */
  2453.         zmstuff('e');
  2454.         return('O');
  2455.       case 222:            /* uppercase Thorn -> Th */
  2456.         zmstuff('h');
  2457.         return('T');
  2458.       case 230:            /* lowercase ae -> ae */
  2459.         zmstuff('e');
  2460.         return('a');
  2461.       case 240:            /* lowercase Eth -> d */
  2462.         return('d');
  2463.       case 246:            /* lowercase O-diaeresis -> oe */
  2464.         zmstuff('e');
  2465.         return('o');
  2466.       case 254:            /* lowercase Thorn -> th */
  2467.         zmstuff('h');
  2468.         return('t');
  2469.       default: return(yl1as[c]);    /* All others by the book */
  2470.     }
  2471.       default:
  2472.     return(yl1as[c]);        /* None of the above, by the table. */
  2473.     }
  2474. }
  2475.  
  2476. CHAR                    /* Latin-1 to German */
  2477. #ifdef CK_ANSIC
  2478. xl1ge(CHAR c)
  2479. #else
  2480. xl1ge(c) CHAR c;
  2481. #endif /* CK_ANSIC */
  2482. { /* xl1ge */
  2483.     return(yl1ge[c]);
  2484. }
  2485.  
  2486. CHAR                    /* German to Latin-1 */
  2487. #ifdef CK_ANSIC
  2488. xgel1(CHAR c)
  2489. #else
  2490. xgel1(c) CHAR c;
  2491. #endif /* CK_ANSIC */
  2492. { /* xgel1 */
  2493.     return(ygel1[c]);
  2494. }
  2495.  
  2496. CHAR
  2497. #ifdef CK_ANSIC
  2498. xgeas(CHAR c)
  2499. #else
  2500. xgeas(c) CHAR c;
  2501. #endif /* CK_ANSIC */
  2502. { /* xgeas */            /* German ISO 646 to ASCII */
  2503.     switch (c) {
  2504.       case 91:                /* umlaut-A -> Ae */
  2505.     zmstuff('e');
  2506.     return('A');
  2507.       case 92:                /* umlaut-O -> Oe */
  2508.     zmstuff('e');
  2509.     return('O');
  2510.       case 93:                /* umlaut-U -> Ue */
  2511.     zmstuff('e');
  2512.     return('U');
  2513.       case 123:                /* umlaut-a -> ae */
  2514.     zmstuff('e');
  2515.     return('a');
  2516.       case 124:                /* umlaut-o -> oe */
  2517.     zmstuff('e');
  2518.     return('o');
  2519.       case 125:                /* umlaut-u -> ue */
  2520.     zmstuff('e');
  2521.     return('u');
  2522.       case 126:                /* ess-zet -> ss */
  2523.     zmstuff('s');
  2524.     return('s');
  2525.       default:  return(c);        /* all others stay the same */
  2526.     }
  2527. }
  2528.  
  2529. CHAR
  2530. #ifdef CK_ANSIC
  2531. xduas(CHAR c)
  2532. #else
  2533. xduas(c) CHAR c;
  2534. #endif /* CK_ANSIC */
  2535. { /* xduas */            /* Dutch ISO 646 to US ASCII */
  2536.     switch (c) {
  2537.       case 64:  return(UNK);        /* 3/4 */
  2538.       case 91:                /* y-diaeresis */
  2539.     zmstuff('j');
  2540.     return('i');
  2541.       case 92:  return(UNK);        /* 1/2 */
  2542.       case 93:  return(124);        /* vertical bar */
  2543.       case 123: return(34);        /* diaeresis */
  2544.       case 124: return(UNK);        /* Florin */
  2545.       case 125: return(UNK);        /* 1/4 */
  2546.       case 126: return(39);        /* Apostrophe */
  2547.       default:  return(c);
  2548.     }
  2549. }
  2550.  
  2551. CHAR
  2552. #ifdef CK_ANSIC
  2553. xfias(CHAR c)
  2554. #else
  2555. xfias(c) CHAR c;
  2556. #endif /* CK_ANSIC */
  2557. { /* xfias */                /* Finnish ISO 646 to US ASCII */
  2558.     switch (c) {
  2559.       case 91:                /* A-diaeresis */
  2560.     zmstuff('e');
  2561.     return('A');
  2562.       case 92:                /* O-diaeresis */
  2563.     zmstuff('e');
  2564.     return('O');
  2565.       case 93:                /* A-ring */
  2566.     zmstuff('a');
  2567.     return('A');
  2568.       case 94:                /* U-diaeresis */
  2569.     /* return('Y'); */
  2570.     zmstuff('e');
  2571.     return('U');
  2572.       case 96:                /* e-acute */
  2573.     return('e');
  2574.       case 123:                /* a-diaeresis */
  2575.     zmstuff('e');
  2576.     return('a');
  2577.       case 124:                /* o-diaeresis */
  2578.     zmstuff('e');
  2579.     return('o');
  2580.       case 125:                /* a-ring */
  2581.     zmstuff('a');
  2582.     return('a');
  2583.       case 126:                /* u-diaeresis */
  2584.     /* return('y'); */
  2585.     zmstuff('e');
  2586.     return('U');
  2587.       default:
  2588.     return(c);
  2589.     }
  2590. }
  2591.  
  2592. CHAR
  2593. #ifdef CK_ANSIC
  2594. xfras(CHAR c)
  2595. #else
  2596. xfras(c) CHAR c;
  2597. #endif /* CK_ANSIC */
  2598. { /* xfras */            /* French ISO 646 to US ASCII */
  2599.     switch (c) {
  2600.       case 64:  return(97);        /* a grave */
  2601.       case 91:  return(UNK);        /* degree sign */
  2602.       case 92:  return(99);        /* c cedilla */
  2603.       case 93:  return(UNK);        /* paragraph sign */
  2604.       case 123: return(101);        /* e acute */
  2605.       case 124: return(117);        /* u grave */
  2606.       case 125: return(101);        /* e grave */
  2607.       case 126: return(34);        /* diaeresis */
  2608.       default:  return(c);
  2609.     }
  2610. }
  2611.  
  2612. CHAR
  2613. #ifdef CK_ANSIC
  2614. xfcas(CHAR c)
  2615. #else
  2616. xfcas(c) CHAR c;
  2617. #endif /* CK_ANSIC */
  2618. { /* xfcas */                /* French Canadian ISO 646 to ASCII */
  2619.     switch (c) {
  2620.       case 64:  return('a');        /* a grave */
  2621.       case 91:  return('a');        /* a circumflex */
  2622.       case 92:  return('c');        /* c cedilla */
  2623.       case 93:  return('e');        /* e circumflex */
  2624.       case 94:  return('i');        /* i circumflex */
  2625.       case 96:  return('o');        /* o circumflex */
  2626.       case 123: return('e');        /* e acute */
  2627.       case 124: return('u');        /* u grave */
  2628.       case 125: return('e');        /* e grave */
  2629.       case 126: return('u');        /* u circumflex */
  2630.       default:  return(c);
  2631.     }
  2632. }
  2633.  
  2634. CHAR
  2635. #ifdef CK_ANSIC
  2636. xitas(CHAR c)
  2637. #else
  2638. xitas(c) CHAR c;
  2639. #endif /* CK_ANSIC */
  2640. { /* xitas */                /* Italian ISO 646 to ASCII */
  2641.     switch (c) {
  2642.       case 91:  return(UNK);        /* degree */
  2643.       case 92:  return('c');        /* c cedilla */
  2644.       case 93:  return('e');        /* e acute */
  2645.       case 96:  return('u');        /* u grave */
  2646.       case 123: return('a');        /* a grave */
  2647.       case 124: return('o');        /* o grave */
  2648.       case 125: return('e');        /* e grave */
  2649.       case 126: return('i');        /* i grave */
  2650.       default:  return(c);
  2651.     }
  2652. }
  2653.  
  2654. CHAR
  2655. #ifdef CK_ANSIC
  2656. xneas(CHAR c)
  2657. #else
  2658. xneas(c) CHAR c;
  2659. #endif /* CK_ANSIC */
  2660. { /* xneas */                /* NeXT to ASCII */
  2661.     if (langs[language].id == L_FRENCH) { /* If SET LANGUAGE FRENCH */
  2662.     if (c == 234) {            /* handle OE digraph. */
  2663.         zmstuff('E');
  2664.         return('O');
  2665.     } else if (c == 250) {        /* Also lowercase oe. */
  2666.         zmstuff('e');
  2667.         return('o');
  2668.     }
  2669.     }
  2670.     c = xnel1(c);            /* Convert to Latin-1 */
  2671.     return(yl1as[c]);            /* Convert Latin-1 to ASCII */
  2672. }
  2673.  
  2674. CHAR
  2675. #ifdef CK_ANSIC
  2676. xnoas(CHAR c)
  2677. #else
  2678. xnoas(c) CHAR c;
  2679. #endif /* CK_ANSIC */
  2680. { /* xnoas */                /* Norge/Danish ISO 646 to ASCII */
  2681.     switch (c) {
  2682.       case 91:
  2683.     zmstuff('E');            /* AE digraph */
  2684.     return('A');
  2685.       case 92: return('O');        /* O slash */
  2686.       case 93:                /* A ring */
  2687.     zmstuff('a');
  2688.     return('A');
  2689.       case 123:                /* ae digraph */
  2690.     zmstuff('e');
  2691.     return('a');
  2692.       case 124: return('o');        /* o slash */
  2693.       case 125:                /* a ring */
  2694.     zmstuff('a');
  2695.     return('a');
  2696.       default:  return(c);
  2697.     }
  2698. }
  2699.  
  2700. CHAR
  2701. #ifdef CK_ANSIC
  2702. xpoas(CHAR c)
  2703. #else
  2704. xpoas(c) CHAR c;
  2705. #endif /* CK_ANSIC */
  2706. { /* xpoas */                /* Portuguese ISO 646 to ASCII */
  2707.     switch (c) {
  2708.       case 91:  return('A');        /* A tilde */
  2709.       case 92:  return('C');        /* C cedilla */
  2710.       case 93:  return('O');        /* O tilde */
  2711.       case 123: return('a');        /* a tilde */
  2712.       case 124: return('c');        /* c cedilla */
  2713.       case 125: return('o');        /* o tilde */
  2714.       default:  return(c);
  2715.     }
  2716. }
  2717.  
  2718. CHAR
  2719. #ifdef CK_ANSIC
  2720. xspas(CHAR c)
  2721. #else
  2722. xspas(c) CHAR c;
  2723. #endif /* CK_ANSIC */
  2724. { /* xspas */            /* Spanish ISO 646 to ASCII */
  2725.     switch (c) {
  2726.       case 91:  return(33);        /* Inverted exclamation */
  2727.       case 92:  return('N');        /* N tilde */
  2728.       case 93:  return(63);        /* Inverted question mark */
  2729.       case 123: return(UNK);        /* degree */
  2730.       case 124: return('n');        /* n tilde */
  2731.       case 125: return('c');        /* c cedilla */
  2732.       default:  return(c);
  2733.     }
  2734. }
  2735.  
  2736. CHAR
  2737. #ifdef CK_ANSIC
  2738. xswas(CHAR c)
  2739. #else
  2740. xswas(c) CHAR c;
  2741. #endif /* CK_ANSIC */
  2742. { /* xswas */                /* Swedish ISO 646 to ASCII */
  2743.     switch (c) {
  2744.       case 64:  return('E');        /* E acute */
  2745.       case 91:                /* A diaeresis */
  2746.     zmstuff('e');
  2747.     return('A');
  2748.       case 92:                /* O diaeresis */
  2749.     zmstuff('e');
  2750.     return('O');
  2751.       case 93:                /* A ring */
  2752.     zmstuff('a');
  2753.     return('A');
  2754.       case 94:                /* U diaeresis */
  2755.     /* return('Y'); */
  2756.     zmstuff('e');
  2757.     return('U');
  2758.       case 96:  return('e');        /* e acute */
  2759.       case 123:                /* a diaeresis */
  2760.     zmstuff('e');
  2761.     return('a');
  2762.       case 124:                /* o diaeresis */
  2763.     zmstuff('e');
  2764.     return('o');
  2765.       case 125:                /* a ring */
  2766.     zmstuff('a');
  2767.     return('a');
  2768.       case 126:                /* u diaeresis */
  2769.     /* return('y'); */
  2770.     zmstuff('e');
  2771.     return('u');
  2772.       default:  return(c);
  2773.     }
  2774. }
  2775.  
  2776. CHAR
  2777. #ifdef CK_ANSIC
  2778. xchas(CHAR c)
  2779. #else
  2780. xchas(c) CHAR c;
  2781. #endif /* CK_ANSIC */
  2782. { /* xchas */                /* Swiss ISO 646 to ASCII */
  2783.     switch (c) {
  2784.       case 35:  return('u');        /* u grave */
  2785.       case 64:  return('a');        /* a grave */
  2786.       case 91:  return('e');        /* e acute */
  2787.       case 92:  return('c');        /* c cedilla */
  2788.       case 93:  return('e');        /* e circumflex */
  2789.       case 94:  return('i');        /* i circumflex */
  2790.       case 95:  return('e');        /* e grave */
  2791.       case 96:  return('o');        /* o circumflex */
  2792.       case 123:                /* a diaeresis */
  2793.     zmstuff('e');
  2794.     return('a');
  2795.       case 124:                /* o diaeresis */
  2796.     zmstuff('e');
  2797.     return('o');
  2798.       case 125:                /* u diaeresis */
  2799.     zmstuff('e');
  2800.     return('u');
  2801.       case 126: return('u');        /* u circumflex */
  2802.       default:  return(c);
  2803.     }
  2804. }
  2805.  
  2806. CHAR
  2807. #ifdef CK_ANSIC
  2808. xhuas(CHAR c)
  2809. #else
  2810. xhuas(c) CHAR c;
  2811. #endif /* CK_ANSIC */
  2812. { /* xhuas */                /* Hungarian ISO 646 to ASCII */
  2813.     switch (c) {
  2814.       case 64:  return('A');        /* A acute */
  2815.       case 91:  return('E');        /* E acute */
  2816.       case 92:  return('O');        /* O diaeresis */
  2817.       case 93:  return('U');        /* U diaeresis */
  2818.       case 96:  return('a');        /* a acute */
  2819.       case 123: return('e');        /* e acute */
  2820.       case 124: return('o');        /* o acute */
  2821.       case 125: return('u');        /* u acute */
  2822.       case 126: return(34);        /* double acute accent */
  2823.       default:  return(c);
  2824.     }
  2825. }
  2826.  
  2827. CHAR
  2828. #ifdef CK_ANSIC
  2829. xdmas(CHAR c)
  2830. #else
  2831. xdmas(c) CHAR c;
  2832. #endif /* CK_ANSIC */
  2833. { /* xdmas */                /* DEC MCS to ASCII */
  2834.     if (langs[language].id == L_FRENCH) { /* If SET LANGUAGE FRENCH */
  2835.     if (c == 215) {            /* handle OE digraph. */
  2836.         zmstuff('E');
  2837.         return('O');
  2838.     } else if (c == 247) {        /* Also lowercase oe. */
  2839.         zmstuff('e');
  2840.         return('o');
  2841.     }
  2842.     }
  2843.     return(yl1as[c]);            /* Otherwise treat like Latin-1 */
  2844. }
  2845.  
  2846. CHAR
  2847. #ifdef CK_ANSIC
  2848. xdgas(CHAR c)
  2849. #else
  2850. xdgas(c) CHAR c;
  2851. #endif /* CK_ANSIC */
  2852. { /*  xdgas */                /* Data General to ASCII */
  2853.     switch(c) {
  2854.       case 180: return('f');        /* Florin */
  2855.       case 183: return('<');        /* Less-equal */
  2856.       case 184: return('>');        /* Greater-equal */
  2857.       case 186: return(96);        /* Grave accent */
  2858.       case 191: return('^');        /* Uparrow */
  2859.       case 215:
  2860.     if (langs[language].id == L_FRENCH) { /* OE digraph */
  2861.         zmstuff('E');
  2862.         return('O');
  2863.     } else return('O');
  2864.       case 247:
  2865.     if (langs[language].id == L_FRENCH) { /* oe digraph */
  2866.         zmstuff('e');
  2867.         return('o');
  2868.     } else return('o');
  2869.       case 175: case 179: case 220: case 222:
  2870.       case 223: case 254: case 255:
  2871.     return(UNK);
  2872.       default:                /* The rest, convert to Latin-1 */
  2873.     return(yl1as[ydgl1[c]]);    /* and from there to ASCII */
  2874.     }
  2875. }
  2876.  
  2877. CHAR
  2878. #ifdef CK_ANSIC
  2879. xr8as(CHAR c)
  2880. #else
  2881. xr8as(c) CHAR c;
  2882. #endif /* CK_ANSIC */
  2883. { /*  xr8as */                /* Hewlett Packard Roman8 to ASCII */
  2884.     switch(c) {
  2885.       case 175: return('L');        /* Lira */
  2886.       case 190: return('f');        /* Florin */
  2887.       case 235: return('S');        /* S caron */
  2888.       case 236: return('s');        /* s caron */
  2889.       case 246: return('-');        /* Horizontal bar */
  2890.       case 252: return('*');        /* Solid box */
  2891.       default:                /* The rest, convert to Latin-1 */
  2892.     return(yl1as[yr8l1[c]]);    /* and from there to ASCII */
  2893.     }
  2894. }
  2895.  
  2896. CHAR
  2897. #ifdef CK_ANSIC
  2898. xukl1(CHAR c)
  2899. #else
  2900. xukl1(c) CHAR c;
  2901. #endif /* CK_ANSIC */
  2902. { /* xukl1 */            /* UK ASCII to Latin-1 */
  2903.     if (c == 35)
  2904.       return(163);
  2905.     else return(c);
  2906. }
  2907.  
  2908. CHAR
  2909. #ifdef CK_ANSIC
  2910. xl1uk(CHAR c)
  2911. #else
  2912. xl1uk(c) CHAR c;
  2913. #endif /* CK_ANSIC */
  2914. { /* xl1uk */            /* Latin-1 to UK ASCII */
  2915.     if (c == 163)
  2916.       return(35);
  2917.     else return(yl1as[c]);
  2918. }
  2919.  
  2920. CHAR                    /* Latin-1 to French ISO 646 */
  2921. #ifdef CK_ANSIC
  2922. xl1fr(CHAR c)
  2923. #else
  2924. xl1fr(c) CHAR c;
  2925. #endif /* CK_ANSIC */
  2926. { /* xl1fr */
  2927.     return(yl1fr[c]);
  2928. }
  2929.  
  2930.  
  2931. CHAR                    /* French ASCII to Latin-1 */
  2932. #ifdef CK_ANSIC
  2933. xfrl1(CHAR c)
  2934. #else
  2935. xfrl1(c) CHAR c;
  2936. #endif /* CK_ANSIC */
  2937. { /* xfrl1 */
  2938.     return(yfrl1[c]);
  2939. }
  2940.  
  2941. CHAR                    /* Latin-1 to Dutch ASCII */
  2942. #ifdef CK_ANSIC
  2943. xl1du(CHAR c)
  2944. #else
  2945. xl1du(c) CHAR c;
  2946. #endif /* CK_ANSIC */
  2947. { /* xl1du */
  2948.     return(yl1du[c]);
  2949. }
  2950.  
  2951. CHAR
  2952. #ifdef CK_ANSIC
  2953. xdul1(CHAR c)
  2954. #else
  2955. xdul1(c) CHAR c;
  2956. #endif /* CK_ANSIC */
  2957. { /* xdul1 */                /* Dutch ISO 646 to Latin-1 */
  2958.     return(ydul1[c]);
  2959. }
  2960.  
  2961. CHAR
  2962. #ifdef CK_ANSIC
  2963. xfil1(CHAR c)
  2964. #else
  2965. xfil1(c) CHAR c;
  2966. #endif /* CK_ANSIC */
  2967. { /* xfil1 */                /* Finnish ISO 646 to Latin-1 */
  2968.     return(yfil1[c]);
  2969. }
  2970.  
  2971. CHAR
  2972. #ifdef CK_ANSIC
  2973. xl1fi(CHAR c)
  2974. #else
  2975. xl1fi(c) CHAR c;
  2976. #endif /* CK_ANSIC */
  2977. { /* xl1fi */                /* Latin-1 to Finnish ISO 646 */
  2978.     return(yl1fi[c]);
  2979. }
  2980.  
  2981. CHAR
  2982. #ifdef CK_ANSIC
  2983. xfcl1(CHAR c)
  2984. #else
  2985. xfcl1(c) CHAR c;
  2986. #endif /* CK_ANSIC */
  2987. { /* xfcl1 */                /* French Canadian ISO646 to Latin-1 */
  2988.     return(yfcl1[c]);
  2989. }
  2990.  
  2991. CHAR
  2992. #ifdef CK_ANSIC
  2993. xl1fc(CHAR c)
  2994. #else
  2995. xl1fc(c) CHAR c;
  2996. #endif /* CK_ANSIC */
  2997. { /* xl1fc */                /* Latin-1 to French Canadian ISO646 */
  2998.     return(yl1fc[c]);
  2999. }
  3000.  
  3001. CHAR
  3002. #ifdef CK_ANSIC
  3003. xitl1(CHAR c)
  3004. #else
  3005. xitl1(c) CHAR c;
  3006. #endif /* CK_ANSIC */
  3007. { /* xitl1 */                /* Italian ISO 646 to Latin-1 */
  3008.     return(yitl1[c]);
  3009. }
  3010.  
  3011. CHAR
  3012. #ifdef CK_ANSIC
  3013. xl1it(CHAR c)
  3014. #else
  3015. xl1it(c) CHAR c;
  3016. #endif /* CK_ANSIC */
  3017. { /* xl1it */                /* Latin-1 to Italian ISO 646 */
  3018.     return(yl1it[c]);
  3019. }
  3020.  
  3021. CHAR
  3022. #ifdef CK_ANSIC
  3023. xnel1(CHAR c)
  3024. #else
  3025. xnel1(c) CHAR c;
  3026. #endif /* CK_ANSIC */
  3027. { /* xnel1 */         /* NeXT to Latin-1 */
  3028.     if (langs[language].id == L_FRENCH) { /* If SET LANGUAGE FRENCH */
  3029.     if (c == 234) {            /* handle OE digraph. */
  3030.         zmstuff('E');
  3031.         return('O');
  3032.     } else if (c == 250) {        /* Also lowercase oe. */
  3033.         zmstuff('e');
  3034.         return('o');
  3035.     }
  3036.     }
  3037.     return(ynel1[c]);
  3038. }
  3039.  
  3040. CHAR
  3041. #ifdef CK_ANSIC
  3042. xnel9(CHAR c)
  3043. #else
  3044. xnel9(c) CHAR c;
  3045. #endif /* CK_ANSIC */
  3046. { /* xnel9 */                 /* NeXT to Latin-9 */
  3047.     switch (c) {
  3048.       case 234: return(188);        /* OE */
  3049.       case 250: return(189);        /* oe */
  3050.       case 188: return(234);        /* keep it invertible... */
  3051.       case 189: return(250);        /* oe */
  3052.       default:
  3053.     return(ynel1[c]);
  3054.     }
  3055. }
  3056.  
  3057. CHAR
  3058. #ifdef CK_ANSIC
  3059. xl1ne(CHAR c)
  3060. #else
  3061. xl1ne(c) CHAR c;
  3062. #endif /* CK_ANSIC */
  3063. { /* xl1ne */         /* Latin-1 to NeXT */
  3064.     return(yl1ne[c]);
  3065. }
  3066.  
  3067. CHAR
  3068. #ifdef CK_ANSIC
  3069. xl9ne(CHAR c)
  3070. #else
  3071. xl9ne(c) CHAR c;
  3072. #endif /* CK_ANSIC */
  3073. { /* xl9ne */             /* Latin-9 to NeXT */
  3074.     switch (c) {
  3075.       case 188: return(234);        /* OE */
  3076.       case 189: return(250);        /* oe */
  3077.       case 234: return(188);        /* OE */
  3078.       case 250: return(189);        /* oe */
  3079.       default:
  3080.     return(yl1ne[c]);
  3081.     }
  3082. }
  3083.  
  3084. CHAR
  3085. #ifdef CK_ANSIC
  3086. xnol1(CHAR c)
  3087. #else
  3088. xnol1(c) CHAR c;
  3089. #endif /* CK_ANSIC */
  3090. { /* xnol1 */             /* Norwegian and Danish ISO 646 to Latin-1 */
  3091.     return(ynol1[c]);
  3092. }
  3093.  
  3094. CHAR
  3095. #ifdef CK_ANSIC
  3096. xl1no(CHAR c)
  3097. #else
  3098. xl1no(c) CHAR c;
  3099. #endif /* CK_ANSIC */
  3100. { /* xl1no */             /* Latin-1 to Norwegian and Danish ISO 646 */
  3101.     return(yl1no[c]);
  3102. }
  3103.  
  3104. CHAR
  3105. #ifdef CK_ANSIC
  3106. xpol1(CHAR c)
  3107. #else
  3108. xpol1(c) CHAR c;
  3109. #endif /* CK_ANSIC */
  3110. { /* xpol1 */            /* Portuguese ISO 646 to Latin-1 */
  3111.     return(ypol1[c]);
  3112. }
  3113.  
  3114. CHAR
  3115. #ifdef CK_ANSIC
  3116. xl1po(CHAR c)
  3117. #else
  3118. xl1po(c) CHAR c;
  3119. #endif /* CK_ANSIC */
  3120. { /* xl1po */            /* Latin-1 to Portuguese ISO 646 */
  3121.     return(yl1po[c]);
  3122. }
  3123.  
  3124. CHAR
  3125. #ifdef CK_ANSIC
  3126. xspl1(CHAR c)
  3127. #else
  3128. xspl1(c) CHAR c;
  3129. #endif /* CK_ANSIC */
  3130. { /* xspl1 */            /* Spanish ISO 646 to Latin-1 */
  3131.     return(yspl1[c]);
  3132. }
  3133.  
  3134. CHAR
  3135. #ifdef CK_ANSIC
  3136. xl1sp(CHAR c)
  3137. #else
  3138. xl1sp(c) CHAR c;
  3139. #endif /* CK_ANSIC */
  3140. { /* xl1sp */            /* Latin-1 to Spanish ISO 646 */
  3141.     return(yl1sp[c]);
  3142. }
  3143.  
  3144. CHAR
  3145. #ifdef CK_ANSIC
  3146. xswl1(CHAR c)
  3147. #else
  3148. xswl1(c) CHAR c;
  3149. #endif /* CK_ANSIC */
  3150. { /* xswl1 */            /* Swedish ISO 646 to Latin-1 */
  3151.     return(yswl1[c]);
  3152. }
  3153.  
  3154. CHAR
  3155. #ifdef CK_ANSIC
  3156. xl1sw(CHAR c)
  3157. #else
  3158. xl1sw(c) CHAR c;
  3159. #endif /* CK_ANSIC */
  3160. { /* xl1sw */            /* Latin-1 to Swedish ISO 646 */
  3161.     return(yl1sw[c]);
  3162. }
  3163.  
  3164. CHAR
  3165. #ifdef CK_ANSIC
  3166. xchl1(CHAR c)
  3167. #else
  3168. xchl1(c) CHAR c;
  3169. #endif /* CK_ANSIC */
  3170. { /* xchl1 */            /* Swiss ISO 646 to Latin-1 */
  3171.     return(ychl1[c]);
  3172. }
  3173.  
  3174. CHAR
  3175. #ifdef CK_ANSIC
  3176. xl1ch(CHAR c)
  3177. #else
  3178. xl1ch(c) CHAR c;
  3179. #endif /* CK_ANSIC */
  3180. { /* xl1ch */            /* Latin-1 to Swiss ISO 646 */
  3181.     return(yl1ch[c]);
  3182. }
  3183.  
  3184. CHAR
  3185. #ifdef CK_ANSIC
  3186. xhul1(CHAR c)
  3187. #else
  3188. xhul1(c) CHAR c;
  3189. #endif /* CK_ANSIC */
  3190. { /* xhul1 */            /* Hungarian ISO 646 to Latin-1 */
  3191.     return(yhul1[c]);
  3192. }
  3193.  
  3194. CHAR
  3195. #ifdef CK_ANSIC
  3196. xl1hu(CHAR c)
  3197. #else
  3198. xl1hu(c) CHAR c;
  3199. #endif /* CK_ANSIC */
  3200. { /* xl1hu */            /* Latin-1 to Hungarian ISO 646 */
  3201.     return(yl1hu[c]);
  3202. }
  3203.  
  3204. CHAR
  3205. #ifdef CK_ANSIC
  3206. xl1dm(CHAR c)
  3207. #else
  3208. xl1dm(c) CHAR c;
  3209. #endif /* CK_ANSIC */
  3210. { /* xl1dm */ /* Latin-1 to DEC Multinational Character Set (MCS) */
  3211.     return(yl1dm[c]);
  3212. }
  3213.  
  3214. CHAR
  3215. #ifdef CK_ANSIC
  3216. xl9dm(CHAR c)
  3217. #else
  3218. xl9dm(c) CHAR c;
  3219. #endif /* CK_ANSIC */
  3220. { /* xl9dm */ /* Latin-9 to DEC Multinational Character Set (MCS) */
  3221.     switch (c) {
  3222.       case 188: return(215);
  3223.       case 189: return(247);
  3224.       case 215: return(188);
  3225.       case 247: return(189);
  3226.       default:
  3227.     return(yl1dm[c]);
  3228.     }
  3229. }
  3230.  
  3231. CHAR
  3232. #ifdef CK_ANSIC
  3233. xl1dg(CHAR c)
  3234. #else
  3235. xl1dg(c) CHAR c;
  3236. #endif /* CK_ANSIC */
  3237. { /* xl1dg */ /* Latin-1 to DG International Character Set (MCS) */
  3238.     return(yl1dg[c]);
  3239. }
  3240.  
  3241. CHAR
  3242. #ifdef CK_ANSIC
  3243. xdml1(CHAR c)
  3244. #else
  3245. xdml1(c) CHAR c;
  3246. #endif /* CK_ANSIC */
  3247. { /* xdml1 */ /* DEC Multinational Character Set (MCS) to Latin-1 */
  3248.     if (langs[language].id == L_FRENCH) { /* If SET LANGUAGE FRENCH */
  3249.     if (c == 215) {            /* handle OE digraph. */
  3250.         zmstuff('E');
  3251.         return('O');
  3252.     } else if (c == 247) {        /* Also lowercase oe. */
  3253.         zmstuff('e');
  3254.         return('o');
  3255.     }
  3256.     }
  3257.     return(ydml1[c]);
  3258. }
  3259.  
  3260. CHAR
  3261. #ifdef CK_ANSIC
  3262. xdml9(CHAR c)
  3263. #else
  3264. xdml9(c) CHAR c;
  3265. #endif /* CK_ANSIC */
  3266. { /* xdml9 */ /* DEC Multinational Character Set (MCS) to Latin-9 */
  3267.     switch (c) {
  3268.       case 215: return(188);        /* OE */
  3269.       case 247: return(189);        /* oe */
  3270.       case 188: return(215);        /* and swap the other two... */
  3271.       case 189: return(247);        /* (1/4 and 1/2) */
  3272.       default:                /* to keep it invertible */
  3273.     return(ydml1[c]);
  3274.     }
  3275. }
  3276.  
  3277. CHAR
  3278. #ifdef CK_ANSIC
  3279. xdgl1(CHAR c)
  3280. #else
  3281. xdgl1(c) CHAR c;
  3282. #endif /* CK_ANSIC */
  3283. { /* xdgl1 */ /* DG International Character Set (MCS) to Latin-1 */
  3284.     if (langs[language].id == L_FRENCH) { /* If SET LANGUAGE FRENCH */
  3285.     if (c == 215) {            /* handle OE digraph. */
  3286.         zmstuff('E');
  3287.         return('O');
  3288.     } else if (c == 247) {        /* Also lowercase oe. */
  3289.         zmstuff('e');
  3290.         return('o');
  3291.     }
  3292.     }
  3293.     return(ydgl1[c]);
  3294. }
  3295.  
  3296. CHAR
  3297. #ifdef CK_ANSIC
  3298. xr8l1(CHAR c)
  3299. #else
  3300. xr8l1(c) CHAR c;
  3301. #endif /* CK_ANSIC */
  3302. { /* xr8l1 */ /* Hewlett Packard Roman8 to Latin-1 */
  3303.     return(yr8l1[c]);
  3304. }
  3305.  
  3306. CHAR
  3307. #ifdef CK_ANSIC
  3308. xl1r8(CHAR c)
  3309. #else
  3310. xl1r8(c) CHAR c;
  3311. #endif /* CK_ANSIC */
  3312. { /* xl1r8 */ /* Latin-1 to Hewlett Packard Roman8 Character Set */
  3313.     return(yl1r8[c]);
  3314. }
  3315.  
  3316.  
  3317. /* Translation functions for receiving files and translating them into ASCII */
  3318.  
  3319. CHAR
  3320. #ifdef CK_ANSIC
  3321. zl1as(CHAR c)
  3322. #else
  3323. zl1as(c) CHAR c;
  3324. #endif /* CK_ANSIC */
  3325. { /* zl1as */
  3326.     switch(langs[language].id) {
  3327.  
  3328.       case L_DUTCH:
  3329.     if (c == 255) {            /* Dutch umlaut-y */
  3330.         zdstuff('j');        /* becomes ij */
  3331.         return('i');
  3332.     } else return(yl1as[c]);    /* all others by the book */
  3333.  
  3334.       case L_GERMAN:
  3335.     switch (c) {            /* German, special rules. */
  3336.       case 196:            /* umlaut-A -> Ae */
  3337.         zdstuff('e');
  3338.         return('A');
  3339.       case 214:            /* umlaut-O -> Oe */
  3340.         zdstuff('e');
  3341.         return('O');
  3342.       case 220:            /* umlaut-U -> Ue */
  3343.         zdstuff('e');
  3344.         return('U');
  3345.       case 228:            /* umlaut-a -> ae */
  3346.         zdstuff('e');
  3347.         return('a');
  3348.       case 246:            /* umlaut-o -> oe */
  3349.         zdstuff('e');
  3350.         return('o');
  3351.       case 252:            /* umlaut-u -> ue */
  3352.         zdstuff('e');
  3353.         return('u');
  3354.       case 223:            /* ess-zet -> ss */
  3355.         zdstuff('s');
  3356.         return('s');
  3357.       default: return(yl1as[c]);    /* all others by the book */
  3358.     }
  3359.       case L_DANISH:
  3360.       case L_FINNISH:
  3361.       case L_NORWEGIAN:
  3362.       case L_SWEDISH:
  3363.     switch (c) {            /* Scandanavian languages. */
  3364.       case 196:            /* umlaut-A -> Ae */
  3365.         zdstuff('e');
  3366.         return('A');
  3367.       case 214:            /* umlaut-O -> Oe */
  3368.       case 216:            /* O-slash -> Oe */
  3369.         zdstuff('e');
  3370.         return('O');
  3371.       case 220:            /* umlaut-U -> Y */
  3372.         /* return('Y'); */
  3373.         zdstuff('e');
  3374.         return('U');
  3375.       case 228:            /* umlaut-a -> ae */
  3376.         zdstuff('e');
  3377.         return('a');
  3378.       case 246:            /* umlaut-o -> oe */
  3379.       case 248:            /* o-slash -> oe */
  3380.         zdstuff('e');
  3381.         return('o');
  3382.       case 252:            /* umlaut-u -> y */
  3383.         /* return('y'); */
  3384.         zdstuff('e');
  3385.         return('u');
  3386.       case 197:            /* A-ring -> Aa */
  3387.         zdstuff('a');
  3388.         return('A');
  3389.           case 229:            /* a-ring -> aa */
  3390.         zdstuff('a');
  3391.         return('a');
  3392.       default: return(yl1as[c]);    /* All others by the book */
  3393.     }
  3394.       default:
  3395.     return(yl1as[c]);        /* Not German, by the table. */
  3396.     }
  3397. }
  3398.  
  3399. CHAR                    /* IBM CP437 to Latin-1 */
  3400. #ifdef CK_ANSIC
  3401. x43l1(CHAR c)
  3402. #else
  3403. x43l1(c) CHAR c;
  3404. #endif /* CK_ANSIC */
  3405. { /* x43l1 */
  3406.     return(y43l1[c]);
  3407. }
  3408.  
  3409. CHAR                    /* IBM CP850 to Latin-1 */
  3410. #ifdef CK_ANSIC
  3411. x85l1(CHAR c)
  3412. #else
  3413. x85l1(c) CHAR c;
  3414. #endif /* CK_ANSIC */
  3415. { /* x85l1 */
  3416.     return(y85l1[c]);
  3417. }
  3418.  
  3419. CHAR                    /* Latin-1 to IBM CP437 */
  3420. #ifdef CK_ANSIC
  3421. xl143(CHAR c)
  3422. #else
  3423. xl143(c) CHAR c;
  3424. #endif /* CK_ANSIC */
  3425. { /* xl143 */
  3426.     return(yl143[c]);
  3427. }
  3428.  
  3429. CHAR                    /* Latin-1 to CP850 */
  3430. #ifdef CK_ANSIC
  3431. xl185(CHAR c)
  3432. #else
  3433. xl185(c) CHAR c;
  3434. #endif /* CK_ANSIC */
  3435. { /* xl185 */
  3436.     return(yl185[c]);
  3437. }
  3438.  
  3439. CHAR
  3440. #ifdef CK_ANSIC
  3441. x43as(CHAR c)
  3442. #else
  3443. x43as(c) CHAR c;
  3444. #endif /* CK_ANSIC */
  3445. { /* x43as */                /* CP437 to ASCII */
  3446.     c = y43l1[c];            /* Translate to Latin-1 */
  3447.     return(xl143(c));            /* and from Latin-1 to ASCII. */
  3448. }
  3449.  
  3450. CHAR
  3451. #ifdef CK_ANSIC
  3452. x85as(CHAR c)
  3453. #else
  3454. x85as(c) CHAR c;
  3455. #endif /* CK_ANSIC */
  3456. { /* x85as */                /* CP850 to ASCII */
  3457.     c = y85l1[c];            /* Translate to Latin-1 */
  3458.     return(xl1as(c));            /* and from Latin-1 to ASCII. */
  3459. }
  3460.  
  3461. CHAR                    /* Macintosh Latin to Latin-1 */
  3462. #ifdef CK_ANSIC
  3463. xaql1(CHAR c)
  3464. #else
  3465. xaql1(c) CHAR c;
  3466. #endif /* CK_ANSIC */
  3467. { /* xaql1 */
  3468.     if (langs[language].id == L_FRENCH) { /* If SET LANGUAGE FRENCH */
  3469.     if (c == 206) {            /* handle OE digraph. */
  3470.         zmstuff('E');
  3471.         return('O');
  3472.     } else if (c == 207) {        /* Also lowercase oe. */
  3473.         zmstuff('e');
  3474.         return('o');
  3475.     }
  3476.     }
  3477.     return(yaql1[c]);
  3478. }
  3479.  
  3480. CHAR                    /* Macintosh Latin to ASCII */
  3481. #ifdef CK_ANSIC
  3482. xaqas(CHAR c)
  3483. #else
  3484. xaqas(c) CHAR c;
  3485. #endif /* CK_ANSIC */
  3486. { /* xaqas */
  3487.     if (langs[language].id == L_FRENCH) { /* If SET LANGUAGE FRENCH */
  3488.     if (c == 206) {            /* handle OE digraph. */
  3489.         zmstuff('E');
  3490.         return('O');
  3491.     } else if (c == 207) {        /* Also lowercase oe. */
  3492.         zmstuff('e');
  3493.         return('o');
  3494.     }
  3495.     }
  3496.     c = yaql1[c];            /* Translate to Latin-1 */
  3497.     return(xl1as(c));            /* then to ASCII. */
  3498. }
  3499.  
  3500. CHAR                    /* Latin-1 to Macintosh Latin */
  3501. #ifdef CK_ANSIC
  3502. xl1aq(CHAR c)
  3503. #else
  3504. xl1aq(c) CHAR c;
  3505. #endif /* CK_ANSIC */
  3506. { /* xl1aq */
  3507.     return(yl1aq[c]);
  3508. }
  3509.  
  3510. #ifdef LATIN2
  3511.  
  3512. /* Translation functions for Latin Alphabet 2 */
  3513.  
  3514. CHAR                    /* Latin-2 to Latin-1 */
  3515. #ifdef CK_ANSIC
  3516. xl2l1(CHAR c)
  3517. #else
  3518. xl2l1(c) CHAR c;
  3519. #endif /* CK_ANSIC */
  3520. { /* xll2l1 */
  3521.     return(yl2l1[c]);
  3522. }
  3523.  
  3524. CHAR                    /* Latin-1 to Latin-2 */
  3525. #ifdef CK_ANSIC
  3526. xl1l2(CHAR c)
  3527. #else
  3528. xl1l2(c) CHAR c;
  3529. #endif /* CK_ANSIC */
  3530. { /* xll1l2 */
  3531.     return(yl1l2[c]);
  3532. }
  3533.  
  3534. CHAR                    /* Latin-2 to ASCII */
  3535. #ifdef CK_ANSIC
  3536. xl2as(CHAR c)
  3537. #else
  3538. xl2as(c) CHAR c;
  3539. #endif /* CK_ANSIC */
  3540. { /* xll2as */
  3541.     return(yl2as[c]);
  3542. }
  3543.  
  3544. CHAR                    /* Latin-2 to CP852 */
  3545. #ifdef CK_ANSIC
  3546. xl252(CHAR c)
  3547. #else
  3548. xl252(c) CHAR c;
  3549. #endif /* CK_ANSIC */
  3550. { /* xll252 */
  3551.     return(yl252[c]);
  3552. }
  3553.  
  3554. CHAR                    /* Latin-2 to Mazovia */
  3555. #ifdef CK_ANSIC
  3556. xl2mz(CHAR c)
  3557. #else
  3558. xl2mz(c) CHAR c;
  3559. #endif /* CK_ANSIC */
  3560. { /* xll2mz */
  3561.     return(yl2mz[c]);
  3562. }
  3563.  
  3564. CHAR                    /* Latin-1 to Mazovia */
  3565. #ifdef CK_ANSIC
  3566. xl1mz(CHAR c)
  3567. #else
  3568. xl1mz(c) CHAR c;
  3569. #endif /* CK_ANSIC */
  3570. { /* xll1mz */
  3571.     return(yl2mz[yl1l2[c]]);
  3572. }
  3573.  
  3574. CHAR                    /* Mazovia to Latin-1 */
  3575. #ifdef CK_ANSIC
  3576. xmzl1(CHAR c)
  3577. #else
  3578. xmzl1(c) CHAR c;
  3579. #endif /* CK_ANSIC */
  3580. { /* xmzl1 */
  3581.     return(yl2l1[ymzl2[c]]);
  3582. }
  3583.  
  3584. CHAR                    /* Mazovia to Latin-9 */
  3585. #ifdef CK_ANSIC
  3586. xmzl9(CHAR c)
  3587. #else
  3588. xmzl9(c) CHAR c;
  3589. #endif /* CK_ANSIC */
  3590. { /* xmzl9 */
  3591.     return(xl2l9(ymzl2[c]));
  3592. }
  3593.  
  3594. CHAR                    /* CP852 to Latin-2 */
  3595. #ifdef CK_ANSIC
  3596. x52l2(CHAR c)
  3597. #else
  3598. x52l2(c) CHAR c;
  3599. #endif /* CK_ANSIC */
  3600. { /* x52l2 */
  3601.     return(y52l2[c]);
  3602. }
  3603.  
  3604. CHAR                    /* Mazovia to Latin-2 */
  3605. #ifdef CK_ANSIC
  3606. xmzl2(CHAR c)
  3607. #else
  3608. xmzl2(c) CHAR c;
  3609. #endif /* CK_ANSIC */
  3610. { /* xmzl2 */
  3611.     return(ymzl2[c]);
  3612. }
  3613.  
  3614. CHAR                    /* Latin-2 to CP1250 */
  3615. #ifdef CK_ANSIC
  3616. xl21250(CHAR c)
  3617. #else
  3618. xl21250(c) CHAR c;
  3619. #endif /* CK_ANSIC */
  3620. { /* xll21250 */
  3621.     return(yl21250[c]);
  3622. }
  3623.  
  3624. CHAR                    /* CP1250 to Latin-2 */
  3625. #ifdef CK_ANSIC
  3626. x1250l2(CHAR c)
  3627. #else
  3628. x1250l2(c) CHAR c;
  3629. #endif /* CK_ANSIC */
  3630. { /* x1250l2 */
  3631.     return(y1250l2[c]);
  3632. }
  3633.  
  3634. CHAR                    /* CP852 to ASCII */
  3635. #ifdef CK_ANSIC
  3636. x52as(CHAR c)
  3637. #else
  3638. x52as(c) CHAR c;
  3639. #endif /* CK_ANSIC */
  3640. { /* xl52as */
  3641.     return(yl2as[y52l2[c]]);        /* CP852 -> Latin-2 -> ASCII */
  3642. }
  3643.  
  3644. CHAR                    /* CP1250 to ASCII */
  3645. #ifdef CK_ANSIC
  3646. x1250as(CHAR c)
  3647. #else
  3648. x1250as(c) CHAR c;
  3649. #endif /* CK_ANSIC */
  3650. { /* xl1250as */
  3651.     return(yl2as[y1250l2[c]]);        /* CP81250 -> Latin-2 -> ASCII */
  3652. }
  3653.  
  3654.  
  3655. CHAR                    /* CP852 to Latin-1 */
  3656. #ifdef CK_ANSIC
  3657. x52l1(CHAR c)
  3658. #else
  3659. x52l1(c) CHAR c;
  3660. #endif /* CK_ANSIC */
  3661. { /* xl52l1 */
  3662.     return(yl2l1[y52l2[c]]);        /* CP852 -> Latin-2 -> Latin-1 */
  3663. }
  3664.  
  3665. CHAR                    /* CP1250 to Latin-1 */
  3666. #ifdef CK_ANSIC
  3667. x1250l1(CHAR c)
  3668. #else
  3669. x1250l1(c) CHAR c;
  3670. #endif /* CK_ANSIC */
  3671. { /* xl1250l1 */
  3672.     return(yl2l1[y1250l2[c]]);        /* CP1250 -> Latin-2 -> Latin-1 */
  3673. }
  3674.  
  3675. CHAR                    /* CP1250 to Latin-9 */
  3676. #ifdef CK_ANSIC
  3677. x1250l9(CHAR c)
  3678. #else
  3679. x1250l9(c) CHAR c;
  3680. #endif /* CK_ANSIC */
  3681. { /* x1250l9 */
  3682.     if (c == (CHAR)128)            /* Euro */
  3683.       return((CHAR)164);
  3684.     else
  3685.       return(xl2l9(y1250l2[c]));    /* CP1250 -> Latin-2 -> Latin-9 */
  3686. }
  3687.  
  3688. CHAR                    /* Latin-1 to CP852 */
  3689. #ifdef CK_ANSIC
  3690. xl152(CHAR c)
  3691. #else
  3692. xl152(c) CHAR c;
  3693. #endif /* CK_ANSIC */
  3694. { /* xll152 */
  3695.     return(yl252[yl1l2[c]]);        /* Latin-1 -> Latin-2 -> CP852 */
  3696. }
  3697.  
  3698. CHAR                    /* Latin-1 to CP1250 */
  3699. #ifdef CK_ANSIC
  3700. xl11250(CHAR c)
  3701. #else
  3702. xl11250(c) CHAR c;
  3703. #endif /* CK_ANSIC */
  3704. { /* xll11250 */
  3705.     return(yl21250[yl1l2[c]]);        /* Latin-1 -> Latin-2 -> CP1250 */
  3706. }
  3707.  
  3708. CHAR                    /* Latin-9 to CP1250 */
  3709. #ifdef CK_ANSIC
  3710. xl91250(CHAR c)
  3711. #else
  3712. xl91250(c) CHAR c;
  3713. #endif /* CK_ANSIC */
  3714. { /* xll91250 */
  3715.     if (c == (CHAR)164)            /* Euro */
  3716.       return((CHAR)128);
  3717.     else
  3718.       return(yl21250[xl9l2(c)]);    /* Latin-9 -> Latin-2 -> CP1250 */
  3719. }
  3720.  
  3721. CHAR                    /* Latin-9 to Mazovia */
  3722. #ifdef CK_ANSIC
  3723. xl9mz(CHAR c)
  3724. #else
  3725. xl9mz(c) CHAR c;
  3726. #endif /* CK_ANSIC */
  3727. { /* xll9mz */
  3728.     return(yl2mz[xl9l2(c)]);        /* Latin-9 -> Latin-2 -> Mazovia */
  3729. }
  3730.  
  3731. CHAR                    /* Latin-9 to Mazovia */
  3732. #ifdef CK_ANSIC
  3733. xmzas(CHAR c)
  3734. #else
  3735. xmzas(c) CHAR c;
  3736. #endif /* CK_ANSIC */
  3737. { /* xmzas */
  3738.     return(yl2as[xmzl2(c)]);        /* Mazovia -> Latin-2 -> ASCII */
  3739. }
  3740.  
  3741. CHAR                    /* Latin-2 to NeXT */
  3742. #ifdef CK_ANSIC
  3743. xl2ne(CHAR c)
  3744. #else
  3745. xl2ne(c) CHAR c;
  3746. #endif /* CK_ANSIC */
  3747. { /* xll2ne */
  3748.     switch(c) {
  3749.       case 162: return(198);        /* Breve */
  3750.       case 163: return(232);        /* L with stroke */
  3751.       case 178: return(206);        /* Ogonek */
  3752.       case 179: return(248);        /* l with stroke */
  3753.       case 183: return(207);        /* Caron */
  3754.       case 189: return(205);        /* Double acute */
  3755.       case 208: return(144);        /* D stroke = Eth */
  3756.       case 240: return(230);        /* d stroke = eth */
  3757.       case 255: return(199);        /* Dot above */
  3758.       default:  return(yl1ne[yl2l1[c]]);
  3759.     }
  3760. }
  3761.  
  3762. CHAR                    /* Latin-2 to CP437 */
  3763. #ifdef CK_ANSIC
  3764. xl243(CHAR c)
  3765. #else
  3766. xl243(c) CHAR c;
  3767. #endif /* CK_ANSIC */
  3768. { /* xll243 */
  3769.     return(yl1l2[y43l1[c]]);
  3770. }
  3771.  
  3772. CHAR                    /* Latin-2 to CP850 */
  3773. #ifdef CK_ANSIC
  3774. xl285(CHAR c)
  3775. #else
  3776. xl285(c) CHAR c;
  3777. #endif /* CK_ANSIC */
  3778. { /* xll285 */
  3779.     return(yl1l2[y85l1[c]]);
  3780. }
  3781.  
  3782. CHAR                    /* Latin-2 to Apple */
  3783. #ifdef CK_ANSIC
  3784. xl2aq(CHAR c)
  3785. #else
  3786. xl2aq(c) CHAR c;
  3787. #endif /* CK_ANSIC */
  3788. { /* xl2aq */
  3789.     return(yl1aq[yl2l1[c]]);        /* Could do more... */
  3790. }
  3791.  
  3792. CHAR                    /* Latin-2 to DGI */
  3793. #ifdef CK_ANSIC
  3794. xl2dg(CHAR c)
  3795. #else
  3796. xl2dg(c) CHAR c;
  3797. #endif /* CK_ANSIC */
  3798. { /* xll2dg */
  3799.     return(ydgl1[yl1l2[c]]);
  3800. }
  3801.  
  3802. CHAR                    /* Latin-2 to Short KOI */
  3803. #ifdef CK_ANSIC
  3804. xl2sk(CHAR c)
  3805. #else
  3806. xl2sk(c) CHAR c;
  3807. #endif /* CK_ANSIC */
  3808. { /* xll2sk */
  3809.     return(islower(c) ? toupper(c) : c);
  3810. }
  3811.  
  3812. CHAR                    /* NeXT to Latin-2 */
  3813. #ifdef CK_ANSIC
  3814. xnel2(CHAR c)
  3815. #else
  3816. xnel2(c) CHAR c;
  3817. #endif /* CK_ANSIC */
  3818. { /* xnel2 */
  3819.     switch (c) {
  3820.       case 144: return(208);        /* D stroke = Eth */
  3821.       case 198: return(162);        /* Breve */
  3822.       case 199: return(255);        /* Dot above */
  3823.       case 205: return(189);        /* Double acute */
  3824.       case 206: return(178);        /* Ogonek */
  3825.       case 207: return(183);        /* Caron */
  3826.       case 230: return(240);        /* d stroke = eth */
  3827.       case 232: return(163);        /* L with stroke */
  3828.       case 248: return(179);        /* l with stroke */
  3829.       default:  return(yl1l2[ynel1[c]]); /* Others, go thru Latin-1 */
  3830.     }
  3831. }
  3832.  
  3833. CHAR                    /* CP437 to Latin-2 */
  3834. #ifdef CK_ANSIC
  3835. x43l2(CHAR c)
  3836. #else
  3837. x43l2(c) CHAR c;
  3838. #endif /* CK_ANSIC */
  3839. { /* xl43l2 */
  3840.     return(yl1l2[y43l1[c]]);
  3841. }
  3842.  
  3843. CHAR                    /* CP850 to Latin-2 */
  3844. #ifdef CK_ANSIC
  3845. x85l2(CHAR c)
  3846. #else
  3847. x85l2(c) CHAR c;
  3848. #endif /* CK_ANSIC */
  3849. { /* xl85l2 */
  3850.     return(yl1l2[y85l1[c]]);
  3851. }
  3852.  
  3853. CHAR                    /* Apple to Latin-2 */
  3854. #ifdef CK_ANSIC
  3855. xaql2(CHAR c)
  3856. #else
  3857. xaql2(c) CHAR c;
  3858. #endif /* CK_ANSIC */
  3859. { /* xlaql2 */
  3860.     switch (c) {
  3861.       case 249: return(162);        /* Breve accent */
  3862.       case 250: return(255);        /* Dot accent */
  3863.       case 253: return(189);        /* Double acute */
  3864.       default: return(yl1l2[yaql1[c]]);
  3865.     }
  3866. }
  3867.  
  3868. CHAR                    /* DGI to Latin-2 */
  3869. #ifdef CK_ANSIC
  3870. xdgl2(CHAR c)
  3871. #else
  3872. xdgl2(c) CHAR c;
  3873. #endif /* CK_ANSIC */
  3874. { /* xldgl2 */
  3875.     return(yl1l2[ydgl1[c]]);        /* (for now) */
  3876. }
  3877.  
  3878. CHAR                    /* Short KOI to Latin-2 */
  3879. #ifdef CK_ANSIC
  3880. xskl2(CHAR c)
  3881. #else
  3882. xskl2(c) CHAR c;
  3883. #endif /* CK_ANSIC */
  3884. { /* xlskl2 */
  3885.     return(islower(c) ? toupper(c) : c);
  3886. }
  3887.  
  3888. CHAR                    /* Latin-2 to German */
  3889. #ifdef CK_ANSIC
  3890. xl2ge(CHAR c)
  3891. #else
  3892. xl2ge(c) CHAR c;
  3893. #endif /* CK_ANSIC */
  3894. { /* xll2ge */
  3895.     switch(c) {
  3896.       case 167: return(64);        /* Paragraph sign */
  3897.       case 196: return(91);        /* A-diaeresis */
  3898.       case 214: return(92);        /* O-diaeresis */
  3899.       case 220: return(93);        /* U-diaeresis */
  3900.       case 223: return(126);        /* double-s */
  3901.       case 228: return(123);        /* a-diaeresis */
  3902.       case 246: return(124);        /* o-diaeresis */
  3903.       case 252: return(125);        /* u-diaeresis */
  3904.       default:  return(yl2as[c]);    /* Others */
  3905.     }
  3906. }
  3907.  
  3908. CHAR                    /* German to Latin-2 */
  3909. #ifdef CK_ANSIC
  3910. xgel2(CHAR c)
  3911. #else
  3912. xgel2(c) CHAR c;
  3913. #endif /* CK_ANSIC */
  3914. { /* xlgel2 */
  3915.     switch(c) {
  3916.       case 64:  return(167);        /* Paragraph sign */
  3917.       case 91:  return(196);        /* A-diaeresis */
  3918.       case 92:  return(214);        /* O-diaeresis */
  3919.       case 93:  return(220);        /* U-diaeresis */
  3920.       case 123: return(228);        /* a-diaeresis */
  3921.       case 126: return(223);        /* double-s */
  3922.       case 124: return(246);        /* o-diaeresis */
  3923.       case 125: return(252);        /* u-diaeresis */
  3924.       default:  return(c);        /* Others */
  3925.     }
  3926. }
  3927.  
  3928. CHAR                    /* Latin-2 to Hungarian */
  3929. #ifdef CK_ANSIC
  3930. xl2hu(CHAR c)
  3931. #else
  3932. xl2hu(c) CHAR c;
  3933. #endif /* CK_ANSIC */
  3934. { /* xll2hu */
  3935.     switch(c) {
  3936.       case 164: return(36);        /* Currency symbol */
  3937.       case 189: return(126);        /* Double acute accent */
  3938.       case 193: return(64);        /* A-acute */
  3939.       case 201: return(91);        /* E-acute */
  3940.       case 214: return(92);        /* O-diaeresis */
  3941.       case 220: return(93);        /* U-diaeresis */
  3942.       case 225: return(96);        /* a-acute */
  3943.       case 233: return(123);        /* e-acute */
  3944.       case 246: return(124);        /* o-diaeresis */
  3945.       case 252: return(125);        /* u-diaeresis */
  3946.       default:  return(yl2as[c]);    /* Others */
  3947.     }
  3948. }
  3949.  
  3950. CHAR                    /* Hungarian to Latin-2 */
  3951. #ifdef CK_ANSIC
  3952. xhul2(CHAR c)
  3953. #else
  3954. xhul2(c) CHAR c;
  3955. #endif /* CK_ANSIC */
  3956. { /* xlhul2 */
  3957.     switch(c) {
  3958.       case 36:  return(164);        /* Currency symbol */
  3959.       case 64:  return(193);        /* A-acute */
  3960.       case 91:  return(201);        /* E-acute */
  3961.       case 92:  return(214);        /* O-diaeresis */
  3962.       case 93:  return(220);        /* U-diaeresis */
  3963.       case 96:  return(225);        /* a-acute */
  3964.       case 123: return(233);        /* e-acute */
  3965.       case 124: return(246);        /* o-diaeresis */
  3966.       case 125: return(252);        /* u-diaeresis */
  3967.       case 126: return(189);        /* Double acute accent */
  3968.       default:  return(c);        /* Others */
  3969.     }
  3970. }
  3971.  
  3972. CHAR
  3973. #ifdef CK_ANSIC
  3974. xr8l2(CHAR c)
  3975. #else
  3976. xr8l2(c) CHAR c;
  3977. #endif /* CK_ANSIC */
  3978. { /* xr8l2 */ /* Hewlett Packard Roman8 to Latin-2 */
  3979.     switch (c) {
  3980.       case 235: return(169);        /* S caron */
  3981.       case 236: return(185);        /* s caron */
  3982.       default:  return(yl1l2[yr8l1[c]]);
  3983.     }
  3984. }
  3985.  
  3986. CHAR
  3987. #ifdef CK_ANSIC
  3988. xl2r8(CHAR c)
  3989. #else
  3990. xl2r8(c) CHAR c;
  3991. #endif /* CK_ANSIC */
  3992. { /* xl2r8 */ /* Latin-2 to Hewlett Packard Roman8 Character Set */
  3993.     switch (c) {
  3994.       case 169: return(235);        /* S caron */
  3995.       case 185: return(236);        /* s caron */
  3996.       default:  return(yr8l1[yl1l2[c]]);
  3997.     }
  3998. }
  3999.  
  4000. #else /* NOLATIN2 */
  4001.  
  4002. #define xl1mz NULL
  4003. #define xmzl1 NULL
  4004. #define xl2mz NULL
  4005. #define xmzl2 NULL
  4006. #define xl9mz NULL
  4007. #define xmzl9 NULL
  4008. #define xmzas NULL
  4009.  
  4010. #define xl11250 NULL
  4011. #define xl21250 NULL
  4012. #define xl91250 NULL
  4013.  
  4014. #define x1250as NULL
  4015. #define x1250l1 NULL
  4016. #define x1250l2 NULL
  4017. #define x1250l9 NULL
  4018.  
  4019. #define xl2l1 NULL
  4020. #define xl1l2 NULL
  4021. #define xl2as NULL
  4022. #define xl252 NULL
  4023. #define x52l2 NULL
  4024. #define x52as NULL
  4025. #define x52l1 NULL
  4026. #define xl152 NULL
  4027. #define xl2ne NULL
  4028. #define xl243 NULL
  4029. #define xl285 NULL
  4030. #define xl2aq NULL
  4031. #define xl2dg NULL
  4032. #define xl2sk NULL
  4033. #define xnel2 NULL
  4034. #define x43l2 NULL
  4035. #define x85l2 NULL
  4036. #define xaql2 NULL
  4037. #define xdgl2 NULL
  4038. #define xskl2 NULL
  4039. #define xl2ge NULL
  4040. #define xgel2 NULL
  4041. #define xl2hu NULL
  4042. #define xhul2 NULL
  4043. #define xl2r8 NULL
  4044. #define xr8l2 NULL
  4045. #endif /* LATIN2 */
  4046.  
  4047. /* This one can also be used for ELOT 927, Hebrew 7, etc */
  4048.  
  4049. CHAR
  4050. #ifdef CK_ANSIC
  4051. xassk(CHAR c)
  4052. #else
  4053. xassk(c) CHAR c;
  4054. #endif /* CK_ANSIC */
  4055. { /* xassk */                /* ASCII to Short KOI */
  4056.     c &= 0x77;                /* Force it to be ASCII */
  4057.     return((c > 95) ? (c - 32) : c);    /* Fold columns 6-7 to 4-5 */
  4058. }
  4059.  
  4060. #ifdef CYRILLIC
  4061. /* Translation functions for Cyrillic character sets */
  4062.  
  4063. CHAR                    /* Latin/Cyrillic to */
  4064. #ifdef CK_ANSIC
  4065. xlcac(CHAR c)
  4066. #else
  4067. xlcac(c) CHAR c;
  4068. #endif /* CK_ANSIC */
  4069. { /* xlcac */                /* PC Code Page 866 */
  4070.     return(ylcac[c]);
  4071. }
  4072.  
  4073. CHAR                    /* Latin/Cyrillic to */
  4074. #ifdef CK_ANSIC
  4075. xlc55(CHAR c)
  4076. #else
  4077. xlc55(c) CHAR c;
  4078. #endif /* CK_ANSIC */
  4079. { /* xlc55 */                /* PC Code Page 855 */
  4080.     return(ylc55[c]);
  4081. }
  4082.  
  4083. CHAR                    /* Latin/Cyrillic to */
  4084. #ifdef CK_ANSIC
  4085. xlc1251(CHAR c)
  4086. #else
  4087. xlc1251(c) CHAR c;
  4088. #endif /* CK_ANSIC */
  4089. { /* xlc1251 */                /* PC Code Page 81251 */
  4090.     return(ylc1251[c]);
  4091. }
  4092.  
  4093. CHAR                    /* Latin/Cyrillic to... */
  4094. #ifdef CK_ANSIC
  4095. xlcbu(CHAR c)
  4096. #else
  4097. xlcbu(c) CHAR c;
  4098. #endif /* CK_ANSIC */
  4099. { /* xlcbu */                /* Bulgarian PC Code Page */
  4100.     return(ylcbu[c]);
  4101. }
  4102.  
  4103. CHAR                    /* Latin/Cyrillic to Old KOI-8 */
  4104. #ifdef CK_ANSIC
  4105. xlck8(CHAR c)
  4106. #else
  4107. xlck8(c) CHAR c;
  4108. #endif /* CK_ANSIC */
  4109. { /* xlck8 */
  4110.     return(ylck8[c]);
  4111. }
  4112.  
  4113. CHAR                    /* Latin/Cyrillic to KOI8-R */
  4114. #ifdef CK_ANSIC
  4115. xlckr(CHAR c)
  4116. #else
  4117. xlckr(c) CHAR c;
  4118. #endif /* CK_ANSIC */
  4119. { /* xlckr */
  4120.     switch(c) {
  4121.       case 0xa1: return(0xb3);        /* Io */
  4122.       case 0xf1: return(0xa3);        /* io */
  4123.       default:
  4124.     if (c > 0x7f && c < 0xc0)
  4125.       return(UNK);
  4126.     return(ylck8[c]);
  4127.     }
  4128. }
  4129.  
  4130. CHAR                    /* Latin/Cyrillic to  KOI8-U */
  4131. #ifdef CK_ANSIC
  4132. xlcku(CHAR c)
  4133. #else
  4134. xlcku(c) CHAR c;
  4135. #endif /* CK_ANSIC */
  4136. { /* xlcku */
  4137.     switch(c) {
  4138.       case 0xa1: return(0xb3);        /* Io */
  4139.       case 0xf1: return(0xa3);        /* io */
  4140.       case 0xf4: return(0xa4);        /* Ukrainian ie */
  4141.       case 0xf6: return(0xa6);        /* Ukrainian i */
  4142.       case 0xf7: return(0xa7);        /* Ukrainian yi */
  4143.       case 0xf3: return(0xad);        /* Ukrainian ghe with upturn */
  4144.       case 0xa4: return(0xb4);        /* Ukrainian Ie */
  4145.       case 0xa6: return(0xb6);        /* Ukrainian I */
  4146.       case 0xa7: return(0xb7);        /* Ukrainian Yi */
  4147.       case 0xa3: return(0xbd);        /* Ukrainian Ghe with upturn */
  4148.       default:
  4149.     if (c > 0x7f && c < 0xc0)
  4150.       return(UNK);
  4151.     return(ylck8[c]);
  4152.     }
  4153. }
  4154.  
  4155. CHAR
  4156. #ifdef CK_ANSIC
  4157. xlcsk(CHAR c)
  4158. #else
  4159. xlcsk(c) CHAR c;
  4160. #endif /* CK_ANSIC */
  4161. { /* xlcsk */            /* Latin/Cyrillic to Short KOI */
  4162.     return(ylcsk[c]);
  4163. }
  4164.  
  4165. CHAR
  4166. #ifdef CK_ANSIC
  4167. xlcas(CHAR c)
  4168. #else
  4169. xlcas(c) CHAR c;
  4170. #endif /* CK_ANSIC */
  4171. { /* xlcas */            /* Latin/Cyrillic to ASCII */
  4172.     if (langs[language].id == L_RUSSIAN)
  4173.       return(ylcsk[c]);
  4174.     else
  4175.       return((c > 127) ? '?' : c);
  4176. }
  4177.  
  4178. CHAR                    /* CP866 */
  4179. #ifdef CK_ANSIC
  4180. xaclc(CHAR c)
  4181. #else
  4182. xaclc(c) CHAR c;
  4183. #endif /* CK_ANSIC */
  4184. { /* xaclc */                /* to Latin/Cyrillic */
  4185.     return(yaclc[c]);
  4186. }
  4187.  
  4188. CHAR                    /* CP855 */
  4189. #ifdef CK_ANSIC
  4190. x55lc(CHAR c)
  4191. #else
  4192. x55lc(c) CHAR c;
  4193. #endif /* CK_ANSIC */
  4194. { /* x55lc */                /* to Latin/Cyrillic */
  4195.     return(y55lc[c]);
  4196. }
  4197.  
  4198. CHAR                    /* Bulgarian PC Code Page ... */
  4199. #ifdef CK_ANSIC
  4200. xbulc(CHAR c)
  4201. #else
  4202. xbulc(c) CHAR c;
  4203. #endif /* CK_ANSIC */
  4204. { /* xbulc */                /* to Latin/Cyrillic */
  4205.     return(ybulc[c]);
  4206. }
  4207.  
  4208. CHAR                    /* CP1251 */
  4209. #ifdef CK_ANSIC
  4210. x1251lc(CHAR c)
  4211. #else
  4212. x1251lc(c) CHAR c;
  4213. #endif /* CK_ANSIC */
  4214. { /* x1251lc */                /* to Latin/Cyrillic */
  4215.     return(y1251lc[c]);
  4216. }
  4217.  
  4218. CHAR                    /* Old KOI-8 to Latin/Cyrillic */
  4219. #ifdef CK_ANSIC
  4220. xk8lc(CHAR c)
  4221. #else
  4222. xk8lc(c) CHAR c;
  4223. #endif /* CK_ANSIC */
  4224. { /* xk8lc */
  4225.     return(yk8lc[c]);
  4226. }
  4227.  
  4228. CHAR                    /* KOI8-R to Latin/Cyrillic */
  4229. #ifdef CK_ANSIC
  4230. xkrlc(CHAR c)
  4231. #else
  4232. xkrlc(c) CHAR c;
  4233. #endif /* CK_ANSIC */
  4234. { /* xkrlc */
  4235.     if (c == 0xb3) return(0xa1);
  4236.     else if (c == 0xa3) return(0xf1);
  4237.     else if (c > 0x7f && c < 0xc0)
  4238.       return(UNK);
  4239.     return(yk8lc[c]);
  4240. }
  4241.  
  4242. CHAR                    /* KOI8-U to Latin/Cyrillic */
  4243. #ifdef CK_ANSIC
  4244. xkulc(CHAR c)
  4245. #else
  4246. xkulc(c) CHAR c;
  4247. #endif /* CK_ANSIC */
  4248. { /* xkulc */
  4249.     switch (c) {
  4250.       case 0xb3: return(0xa1);        /* Io */
  4251.       case 0xa3: return(0xf1);        /* io */
  4252.       case 0xa4: return(0xf4);        /* Ukrainian ie */
  4253.       case 0xa6: return(0xf6);        /* Ukrainian i */
  4254.       case 0xa7: return(0xf7);        /* Ukrainian yi */
  4255.       case 0xad: return(0xf3);        /* Ukrainian ghe with upturn */
  4256.       case 0xb4: return(0xa4);        /* Ukrainian Ie */
  4257.       case 0xb6: return(0xa6);        /* Ukrainian I */
  4258.       case 0xb7: return(0xa7);        /* Ukrainian Yi */
  4259.       case 0xbd: return(0xa3);        /* Ukrainian Ghe with upturn */
  4260.       /* Note substitution of Gje for Ghe-Upturn, which is not in 8859-5 */
  4261.       default:
  4262.     if (c > 0x7f && c < 0xc0)
  4263.       return(UNK);
  4264.     return(yk8lc[c]);
  4265.     }
  4266. }
  4267.  
  4268. CHAR
  4269. #ifdef CK_ANSIC
  4270. xskcy(CHAR c)
  4271. #else
  4272. xskcy(c) CHAR c;
  4273. #endif /* CK_ANSIC */
  4274. { /* xskcy */            /* Short KOI to Latin/Cyrillic */
  4275.     return(yskcy[c & 0x7f]);
  4276. }
  4277.  
  4278. CHAR
  4279. #ifdef CK_ANSIC
  4280. xascy(CHAR c)
  4281. #else
  4282. xascy(c) CHAR c;
  4283. #endif /* CK_ANSIC */
  4284. { /* xascy */            /* ASCII to Latin/Cyrillic */
  4285.     if (langs[language].id == L_RUSSIAN) { /* If LANGUAGE == RUSSIAN  */
  4286.     return(yskcy[c & 0x7f]);    /* treat ASCII as Short KOI */
  4287.     } else return((c > 127) ? '?' : c);
  4288. }
  4289.  
  4290. CHAR
  4291. #ifdef CK_ANSIC
  4292. xacas(CHAR c)
  4293. #else
  4294. xacas(c) CHAR c;
  4295. #endif /* CK_ANSIC */
  4296. { /* xacas */            /* CP866 to ASCII */
  4297.     if (langs[language].id == L_RUSSIAN) {
  4298.     c = yaclc[c];            /* First to Latin/Cyrillic */
  4299.     return(ylcsk[c]);        /* Then to Short KOI */
  4300.     } else return((c > 127) ? '?' : c);
  4301. }
  4302.  
  4303. CHAR
  4304. #ifdef CK_ANSIC
  4305. x55as(CHAR c)
  4306. #else
  4307. x55as(c) CHAR c;
  4308. #endif /* CK_ANSIC */
  4309. { /* x55as */            /* CP855 to ASCII */
  4310.     if (langs[language].id == L_RUSSIAN) {
  4311.     c = y55lc[c];            /* First to Latin/Cyrillic */
  4312.     return(ylcsk[c]);        /* Then to Short KOI */
  4313.     } else return((c > 127) ? '?' : c);
  4314. }
  4315.  
  4316. CHAR
  4317. #ifdef CK_ANSIC
  4318. x1251as(CHAR c)
  4319. #else
  4320. x1251as(c) CHAR c;
  4321. #endif /* CK_ANSIC */
  4322. { /* x1251as */            /* CP81251 to ASCII */
  4323.     if (langs[language].id == L_RUSSIAN) {
  4324.     c = y1251lc[c];            /* First to Latin/Cyrillic */
  4325.     return(ylcsk[c]);        /* Then to Short KOI */
  4326.     } else return((c > 127) ? '?' : c);
  4327. }
  4328.  
  4329. CHAR
  4330. #ifdef CK_ANSIC
  4331. xskas(CHAR c)
  4332. #else
  4333. xskas(c) CHAR c;
  4334. #endif /* CK_ANSIC */
  4335. { /* xskas */                /* Short KOI to ASCII */
  4336.     return((c > 95) ? '?' : c);
  4337. }
  4338.  
  4339. CHAR
  4340. #ifdef CK_ANSIC
  4341. xk8as(CHAR c)
  4342. #else
  4343. xk8as(c) CHAR c;
  4344. #endif /* CK_ANSIC */
  4345. { /* xk8as */                /* Old KOI-8 Cyrillic to ASCII */
  4346.     if (langs[language].id == L_RUSSIAN) {
  4347.     c = yk8lc[c];            /* First to Latin/Cyrillic */
  4348.     return(ylcsk[c]);        /* Then to Short KOI */
  4349.     } else return((c > 127) ? '?' : c);
  4350. }
  4351.  
  4352. CHAR
  4353. #ifdef CK_ANSIC
  4354. xl1sk(CHAR c)
  4355. #else
  4356. xl1sk(c) CHAR c;
  4357. #endif /* CK_ANSIC */
  4358. { /* xl1sk */                /* Latin-1 to Short KOI */
  4359.     c = zl1as(c);            /* Convert to ASCII */
  4360.     return(c = xassk(c));        /* Convert ASCII to Short KOI */
  4361. }
  4362.  
  4363. CHAR
  4364. #ifdef CK_ANSIC
  4365. xaslc(CHAR c)
  4366. #else
  4367. xaslc(c) CHAR c;
  4368. #endif /* CK_ANSIC */
  4369. { /* xaslc */            /* ASCII to Latin/Cyrillic */
  4370.     if (langs[language].id == L_RUSSIAN)
  4371.       return(yskcy[c & 0x7f]);
  4372.     else return(c & 0x7f);
  4373. }
  4374.  
  4375. CHAR
  4376. #ifdef CK_ANSIC
  4377. xasac(CHAR c)
  4378. #else
  4379. xasac(c) CHAR c;
  4380. #endif /* CK_ANSIC */
  4381. { /* xasac */            /* ASCII to CP866 */
  4382.     if (langs[language].id == L_RUSSIAN) { /* Use Short KOI */
  4383.     c = xskcy(c);            /* Translate to Latin/Cyrillic */
  4384.     return(ylcac[c]);        /* Then to CP866 */
  4385.     } else return(c & 0x7f);
  4386. }
  4387.  
  4388. CHAR
  4389. #ifdef CK_ANSIC
  4390. xas55(CHAR c)
  4391. #else
  4392. xas55(c) CHAR c;
  4393. #endif /* CK_ANSIC */
  4394. { /* xas55 */            /* ASCII to CP855 */
  4395.     if (langs[language].id == L_RUSSIAN) { /* Use Short KOI */
  4396.     c = xskcy(c);            /* Translate to Latin/Cyrillic */
  4397.     return(ylc55[c]);        /* Then to CP866 */
  4398.     } else return(c & 0x7f);
  4399. }
  4400.  
  4401. CHAR
  4402. #ifdef CK_ANSIC
  4403. xas1251(CHAR c)
  4404. #else
  4405. xas1251(c) CHAR c;
  4406. #endif /* CK_ANSIC */
  4407. { /* xas1251 */            /* ASCII to CP81251 */
  4408.     if (langs[language].id == L_RUSSIAN) { /* Use Short KOI */
  4409.     c = xskcy(c);            /* Translate to Latin/Cyrillic */
  4410.     return(ylc1251[c]);        /* Then to CP866 */
  4411.     } else return(c & 0x7f);
  4412. }
  4413.  
  4414. CHAR
  4415. #ifdef CK_ANSIC
  4416. xask8(CHAR c)
  4417. #else
  4418. xask8(c) CHAR c;
  4419. #endif /* CK_ANSIC */
  4420. { /* xask8 */            /* ASCII to KOI-8 */
  4421.     if (langs[language].id == L_RUSSIAN) { /* Use Short KOI */
  4422.     c = xskcy(c);            /* Translate to Latin/Cyrillic */
  4423.     return(ylck8[c]);        /* Then to KOI-8 */
  4424.     } else return(c & 0x7f);
  4425. }
  4426. #else /* No Cyrillic */
  4427. #define xacas NULL
  4428. #define x55as NULL
  4429. #define x1251as NULL
  4430. #define xaclc NULL
  4431. #define x55lc NULL
  4432. #define x1251lc NULL
  4433. #define xasac NULL
  4434. #define xas55 NULL
  4435. #define xas1251 NULL
  4436. #define xascy NULL
  4437. #define xask8 NULL
  4438. #define xaslc NULL
  4439. #define xassk NULL
  4440. #define xk8as NULL
  4441. #define xk8lc NULL
  4442. #define xkrlc NULL
  4443. #define xkulc NULL
  4444. #define xl1sk NULL
  4445. #define xlcac NULL
  4446. #define xlc55 NULL
  4447. #define xlc1251 NULL
  4448. #define xlcas NULL
  4449. #define xlck8 NULL
  4450. #define xlckr NULL
  4451. #define xlcku NULL
  4452. #define xlch7 NULL
  4453. #define xlcsk NULL
  4454. #define xskas NULL
  4455. #define xskcy NULL
  4456. #define xbulc NULL
  4457. #define xlcbu NULL
  4458. #endif /* CYRILLIC */
  4459.  
  4460. /* Translation functions for Hebrew character sets */
  4461.  
  4462. #ifdef HEBREW
  4463.  
  4464. CHAR
  4465. #ifdef CK_ANSIC
  4466. xash7(CHAR c)
  4467. #else
  4468. xash7(c) CHAR c;
  4469. #endif /* CK_ANSIC */
  4470. { /* xash7 */            /* ASCII to Hebrew-7 */
  4471.     if (c == 96) return('?');
  4472.     if (c > 96 && c < 123) return(c - 32);
  4473.     else return(c);
  4474. }
  4475.  
  4476. CHAR
  4477. #ifdef CK_ANSIC
  4478. xl1h7(CHAR c)
  4479. #else
  4480. xl1h7(c) CHAR c;
  4481. #endif /* CK_ANSIC */
  4482. { /* xl1h7 */            /* Latin-1 to Hebrew-7 */
  4483.     return(xash7(xl1as(c)));
  4484. }
  4485.  
  4486. CHAR
  4487. #ifdef CK_ANSIC
  4488. xl1lh(CHAR c)
  4489. #else
  4490. xl1lh(c) CHAR c;
  4491. #endif /* CK_ANSIC */
  4492. { /* xl1lh */                /* Latin-1 to Latin/Hebrew */
  4493.     switch(c) {
  4494.       case 170: return('a');        /* Feminine ordinal */
  4495.       case 186: return('o');        /* Masculine ordinal */
  4496.       case 215: return(170);        /* Times */
  4497.       case 247: return(186);        /* Divide */
  4498.       default:  return( (c > 190) ? xl1as(c) : c );
  4499.     }
  4500. }
  4501.  
  4502.  
  4503. #ifdef LATIN2
  4504. CHAR
  4505. #ifdef CK_ANSIC
  4506. xl2h7(CHAR c)
  4507. #else
  4508. xl2h7(c) CHAR c;
  4509. #endif /* CK_ANSIC */
  4510. { /* xl2h7 */                /* Latin-2 to Hebrew-7 */
  4511.     return(xash7(xl2as(c)));
  4512. }
  4513. #else
  4514. #define xl2h7 NULL
  4515. #endif /* LATIN2 */
  4516.  
  4517. #ifndef NOCYRIL
  4518. CHAR
  4519. #ifdef CK_ANSIC
  4520. xlch7(CHAR c)
  4521. #else
  4522. xlch7(c) CHAR c;
  4523. #endif /* CK_ANSIC */
  4524. { /* xlch7 */                /* Latin/Cyrillic to Hebrew-7 */
  4525.     return(xash7(xlcas(c)));
  4526. }
  4527. #endif /* NOCYRIL */
  4528.  
  4529. CHAR
  4530. #ifdef CK_ANSIC
  4531. xlhas(CHAR c)
  4532. #else
  4533. xlhas(c) CHAR c;
  4534. #endif /* CK_ANSIC */
  4535. { /* xlhas */            /* Latin/Hebrew to ASCII */
  4536.     return( (c > 127) ? '?' : c );
  4537. }
  4538.  
  4539. CHAR
  4540. #ifdef CK_ANSIC
  4541. xlhl1(CHAR c)
  4542. #else
  4543. xlhl1(c) CHAR c;
  4544. #endif /* CK_ANSIC */
  4545. { /* xlhl1 */            /* Latin/Hebrew to Latin-1 */
  4546.     switch (c) {
  4547.       case 170: return(215);
  4548.       case 186: return(247);
  4549.       default: return( (c > 190) ? '?' : c );
  4550.     }
  4551. }
  4552.  
  4553. CHAR
  4554. #ifdef CK_ANSIC
  4555. xlh62(CHAR c)
  4556. #else
  4557. xlh62(c) CHAR c;
  4558. #endif /* CK_ANSIC */
  4559. { /* xlh62 */            /* Latin/Hebrew to CP862 */
  4560.     return(ylh62[c]);
  4561. }
  4562.  
  4563. CHAR
  4564. #ifdef CK_ANSIC
  4565. xl162(CHAR c)
  4566. #else
  4567. xl162(c) CHAR c;
  4568. #endif /* CK_ANSIC */
  4569. { /* xl162 */            /* Latin-1 to CP862 */
  4570.     return(xlh62(xl1lh(c)));    /* Via Latin/Hebrew */
  4571. }
  4572.  
  4573. CHAR
  4574. #ifdef CK_ANSIC
  4575. xlhh7(CHAR c)
  4576. #else
  4577. xlhh7(c) CHAR c;
  4578. #endif /* CK_ANSIC */
  4579. { /* xlhh7 */            /* Latin/Hebrew to Hebrew-7 */
  4580.     return(ylhh7[c]);
  4581. }
  4582.  
  4583. CHAR
  4584. #ifdef CK_ANSIC
  4585. xh7as(CHAR c)
  4586. #else
  4587. xh7as(c) CHAR c;
  4588. #endif /* CK_ANSIC */
  4589. { /* xh7as */            /* Hebrew-7 to ASCII */
  4590.     return( (c > 95 && c < 123) ? '?' : c );
  4591. }
  4592.  
  4593. CHAR
  4594. #ifdef CK_ANSIC
  4595. x62lh(CHAR c)
  4596. #else
  4597. x62lh(c) CHAR c;
  4598. #endif /* CK_ANSIC */
  4599. { /* x62lh */            /* CP862 to Latin/Hebrew */
  4600.     return(y62lh[c]);
  4601. }
  4602.  
  4603. CHAR
  4604. #ifdef CK_ANSIC
  4605. x62as(CHAR c)
  4606. #else
  4607. x62as(c) CHAR c;
  4608. #endif /* CK_ANSIC */
  4609. { /* x62as */            /* CP862 to ASCII */
  4610.     return( xlhas(x62lh(c)) );
  4611. }
  4612.  
  4613. CHAR
  4614. #ifdef CK_ANSIC
  4615. x62l1(CHAR c)
  4616. #else
  4617. x62l1(c) CHAR c;
  4618. #endif /* CK_ANSIC */
  4619. { /* x62l1 */            /* CP862 to Latin-1 */
  4620.     return( xlhl1(x62lh(c)) );
  4621. }
  4622.  
  4623. CHAR
  4624. #ifdef CK_ANSIC
  4625. xh7lh(CHAR c)
  4626. #else
  4627. xh7lh(c) CHAR c;
  4628. #endif /* CK_ANSIC */
  4629. { /* xh7lh */            /* Hebrew-7 to Latin/Hebrew */
  4630.     return(yh7lh[c]);
  4631. }
  4632.  
  4633. #else /* No Hebrew */
  4634.  
  4635. #define xash7 NULL
  4636. #define xl1h7 NULL
  4637. #define xl2h7 NULL
  4638. #define xlch7 NULL
  4639. #define xl1lh NULL
  4640. #define xlhas NULL
  4641. #define xlhl1 NULL
  4642. #define xl162 NULL
  4643. #define xlhh7 NULL
  4644. #define xlh62 NULL
  4645. #define xh7as NULL
  4646. #define x62as NULL
  4647. #define x62l1 NULL
  4648. #define xh7lh NULL
  4649. #define x62lh NULL
  4650.  
  4651. #endif /* HEBREW */
  4652.  
  4653. /* Translation functions for Greek character sets */
  4654.  
  4655. #ifdef GREEK
  4656.  
  4657. CHAR
  4658. #ifdef CK_ANSIC
  4659. xaseg(CHAR c)
  4660. #else
  4661. xaseg(c) CHAR c;
  4662. #endif /* CK_ANSIC */
  4663. { /* xaseg */            /* ASCII to ELOT 927 */
  4664.     if (c > 96 && c < 123) return(c - 32);
  4665.     else return(c);
  4666. }
  4667.  
  4668. CHAR
  4669. #ifdef CK_ANSIC
  4670. xl1eg(CHAR c)
  4671. #else
  4672. xl1eg(c) CHAR c;
  4673. #endif /* CK_ANSIC */
  4674. { /* xl1ge */            /* Latin-1 to ELOT 927 */
  4675.     return(xaseg(xl1as(c)));
  4676. }
  4677.  
  4678. CHAR
  4679. #ifdef CK_ANSIC
  4680. xl2lg(CHAR c)
  4681. #else
  4682. xl2lg(c) CHAR c;
  4683. #endif /* CK_ANSIC */
  4684. { /* xl2lg */            /* Latin-1 to Latin/Greek */
  4685.     if (c < 160) return(c);
  4686.     else if (c == 160 || c == 168 || c == 173 || c == 174)
  4687.       return(c);
  4688.     else return('?');
  4689. }
  4690.  
  4691. CHAR
  4692. #ifdef CK_ANSIC
  4693. xl1lg(CHAR c)
  4694. #else
  4695. xl1lg(c) CHAR c;
  4696. #endif /* CK_ANSIC */
  4697. { /* xl1lg */            /* Latin-1 to Latin/Greek */
  4698.     if (c < 160) return(c);
  4699.     switch(c) {
  4700.       case 160:                /* Themselves */
  4701.       case 164:
  4702.       case 166:
  4703.       case 167:
  4704.       case 168:
  4705.       case 169:
  4706.       case 171:
  4707.       case 172:
  4708.       case 173:
  4709.       case 176:
  4710.       case 177:
  4711.       case 178:
  4712.       case 179:
  4713.       case 180:
  4714.       case 187:
  4715.       case 189:
  4716.     return(c);
  4717.       case 181:                /* Lowercase mu */
  4718.     return(236);
  4719.       default:
  4720.     return(UNK);
  4721.     }
  4722. }
  4723.  
  4724. #ifdef LATIN2
  4725. CHAR
  4726. #ifdef CK_ANSIC
  4727. xl2eg(CHAR c)
  4728. #else
  4729. xl2eg(c) CHAR c;
  4730. #endif /* CK_ANSIC */
  4731. { /* xl2eg */            /* Latin-2 to ELOT 927 */
  4732.     return(xaseg(xl2as(c)));
  4733. }
  4734. #else
  4735. #define xl2eg NULL
  4736. #endif /* LATIN2 */
  4737.  
  4738. #ifndef NOCYRIL
  4739. CHAR
  4740. #ifdef CK_ANSIC
  4741. xlceg(CHAR c)
  4742. #else
  4743. xlceg(c) CHAR c;
  4744. #endif /* CK_ANSIC */
  4745. { /* xlceg */            /* Latin/Cyrillic to ELOT 927 */
  4746.     return(xaseg(xlcas(c)));
  4747. }
  4748. #endif /* NOCYRIL */
  4749.  
  4750. CHAR
  4751. #ifdef CK_ANSIC
  4752. xlgas(CHAR c)
  4753. #else
  4754. xlgas(c) CHAR c;
  4755. #endif /* CK_ANSIC */
  4756. { /* xlgas */            /* Latin/Greek to ASCII */
  4757.     return( (c > 127) ? '?' : c );
  4758. }
  4759.  
  4760. CHAR
  4761. #ifdef CK_ANSIC
  4762. xlgl1(CHAR c)
  4763. #else
  4764. xlgl1(c) CHAR c;
  4765. #endif /* CK_ANSIC */
  4766. { /* xlgl1 */            /* Latin/Greek to Latin-1 */
  4767.     if (c == 236)
  4768.       return(181);
  4769.     else
  4770.       return(xl1lg(c));
  4771. }
  4772.  
  4773. CHAR
  4774. #ifdef CK_ANSIC
  4775. xlg69(CHAR c)
  4776. #else
  4777. xlg69(c) CHAR c;
  4778. #endif /* CK_ANSIC */
  4779. { /* xlg69 */            /* Latin/Greek to CP869 */
  4780.     return(ylg69[c]);
  4781. }
  4782.  
  4783. CHAR
  4784. #ifdef CK_ANSIC
  4785. xl169(CHAR c)
  4786. #else
  4787. xl169(c) CHAR c;
  4788. #endif /* CK_ANSIC */
  4789. { /* xl169 */            /* Latin-1 to CP869 */
  4790.     return(xlg69(xl1lg(c)));    /* Via Latin/Greek */
  4791. }
  4792.  
  4793. CHAR
  4794. #ifdef CK_ANSIC
  4795. xlgeg(CHAR c)
  4796. #else
  4797. xlgeg(c) CHAR c;
  4798. #endif /* CK_ANSIC */
  4799. { /* xlgeg */            /* Latin/Greek to ELOT 927 */
  4800.     return(ylgeg[c]);
  4801. }
  4802.  
  4803. CHAR
  4804. #ifdef CK_ANSIC
  4805. xegas(CHAR c)
  4806. #else
  4807. xegas(c) CHAR c;
  4808. #endif /* CK_ANSIC */
  4809. { /* xegas */            /* ELOT 927 to ASCII */
  4810.     return( (c > 96 && c < 123) ? '?' : c );
  4811. }
  4812.  
  4813. CHAR
  4814. #ifdef CK_ANSIC
  4815. x69lg(CHAR c)
  4816. #else
  4817. x69lg(c) CHAR c;
  4818. #endif /* CK_ANSIC */
  4819. { /* x69lg */            /* CP869 to Latin/Greek */
  4820.     return(y69lg[c]);
  4821. }
  4822.  
  4823. CHAR
  4824. #ifdef CK_ANSIC
  4825. x69as(CHAR c)
  4826. #else
  4827. x69as(c) CHAR c;
  4828. #endif /* CK_ANSIC */
  4829. { /* x69as */            /* CP869 to ASCII */
  4830.     return( xlgas(x69lg(c)) );
  4831. }
  4832.  
  4833. CHAR
  4834. #ifdef CK_ANSIC
  4835. x69l1(CHAR c)
  4836. #else
  4837. x69l1(c) CHAR c;
  4838. #endif /* CK_ANSIC */
  4839. { /* x69l1 */            /* CP869 to Latin-1 */
  4840.     return( xlgl1(x69lg(c)) );
  4841. }
  4842.  
  4843. CHAR
  4844. #ifdef CK_ANSIC
  4845. xeglg(CHAR c)
  4846. #else
  4847. xeglg(c) CHAR c;
  4848. #endif /* CK_ANSIC */
  4849. { /* xeglg */            /* ELOT 927 to Latin/Greek */
  4850.     return(yeglg[c]);
  4851. }
  4852.  
  4853. #else /* No Greek */
  4854.  
  4855. #define xasge NULL
  4856. #define xl1ge NULL
  4857. #define xl2ge NULL
  4858. #define xlcge NULL
  4859. #define xl1lg NULL
  4860. #define xlgas NULL
  4861. #define xlgl1 NULL
  4862. #define xl169 NULL
  4863. #define xlgge NULL
  4864. #define xlg69 NULL
  4865. #define xegas NULL
  4866. #define x69as NULL
  4867. #define x69l1 NULL
  4868. #define xeglg NULL
  4869. #define x69lg NULL
  4870.  
  4871. #endif /* GREEK */
  4872.  
  4873.  
  4874. /* Translation functions for Japanese Kanji character sets */
  4875.  
  4876. #ifdef KANJI
  4877. /*
  4878.   Translate Kanji Transfer Character Set (EUC) to local file character set,
  4879.   contributed by Dr. Hirofumi Fujii, Japan High Energy Research Laboratory
  4880.   (KEK), Tokyo, Japan.
  4881.  
  4882.   a is a byte to be translated, which may be a single-byte character,
  4883.   the Katakana prefix, the first byte of a two-byte Kanji character, or the
  4884.   second byte of 2-byte Kanji character.
  4885.  
  4886.   fn is the output function.
  4887.  
  4888.   Returns 0 on success, -1 on failure.
  4889. */
  4890.  
  4891. _PROTOTYP(static int jpnxas, (int, int[]) );
  4892. _PROTOTYP(static int jpnxkt, (int, int[]) );
  4893. _PROTOTYP(static int jpnxkn, (int[], int[]) );
  4894.  
  4895. static int jpncnt;            /* Byte count for Japanese */
  4896. static int jpnlst;            /* Last status (for JIS7) */
  4897.  
  4898. static int
  4899. jpnxas(a, obuf) int a; int obuf[]; { /* Translate ASCII to local file code */
  4900.     int r;
  4901.  
  4902.     r = 0;
  4903.     if (fcharset == FC_JIS7) {
  4904.     switch (jpnlst) {
  4905.       case 1:
  4906.         obuf[0] = 0x0f;
  4907.         obuf[1] = a;
  4908.         r = 2;
  4909.         break;
  4910.       case 2:
  4911.         obuf[0] = 0x1b;
  4912.         obuf[1] = 0x28;
  4913.         obuf[2] = 0x4a;
  4914.         obuf[3] = a;
  4915.         r = 4;
  4916.         break;
  4917.       default:
  4918.         obuf[0] = a;
  4919.         r = 1;
  4920.         break;
  4921.     }
  4922.     } else {
  4923.     obuf[0] = a;
  4924.     r = 1;
  4925.     }
  4926.     return(r);
  4927. }
  4928.  
  4929. static int
  4930. jpnxkt(a, obuf) int a; int obuf[]; {
  4931. /* Translate JIS X 201 Katakana to local code */
  4932.  
  4933.     int r;
  4934.  
  4935.     r = 0;
  4936.     if (fcharset == FC_JIS7) {
  4937.     switch (jpnlst) {
  4938.       case 2:                /* from Kanji */
  4939.         obuf[r++] = 0x1b;
  4940.         obuf[r++] = 0x28;
  4941.         obuf[r++] = 0x4a;
  4942.       case 0:                /* from Roman */
  4943.         obuf[r++] = 0x0e;
  4944.       default:
  4945.         obuf[r++] = (a & 0x7f);
  4946.       break;
  4947.     }
  4948.     } else {
  4949.     if (fcharset == FC_JEUC)
  4950.       obuf[r++] = 0x8e;
  4951.     obuf[r++] = (a | 0x80);
  4952.     }
  4953.     return(r);
  4954. }
  4955.  
  4956. static int
  4957. jpnxkn(ibuf, obuf) int ibuf[], obuf[]; {
  4958.     /* Translate JIS X 0208 Kanji to local code */
  4959.     int c1, c2;
  4960.     int r;
  4961.  
  4962.     c1 = ibuf[0] & 0x7f;
  4963.     c2 = ibuf[1] & 0x7f;
  4964.  
  4965.     if (fcharset == FC_SHJIS) {
  4966.     if (c1 & 1)
  4967.       c2 += 0x1f;
  4968.     else
  4969.       c2 += 0x7d;
  4970.  
  4971.         if (c2 >= 0x7f) c2++;
  4972.  
  4973.         c1 = ((c1 - 0x21) >> 1) + 0x81;
  4974.         if (c1 > 0x9f) c1 += 0x40;
  4975.  
  4976.         obuf[0] = c1;
  4977.         obuf[1] = c2;
  4978.         r = 2;
  4979.     } else if (fcharset == FC_JIS7) {
  4980.         r = 0;
  4981.         switch (jpnlst) {
  4982.         case 1:
  4983.         obuf[r++] = 0x0f; /* From Katakana */
  4984.         case 0:
  4985.         obuf[r++] = 0x1b;
  4986.         obuf[r++] = 0x24;
  4987.         obuf[r++] = 0x42;
  4988.       default:
  4989.         obuf[r++] = c1;
  4990.         obuf[r++] = c2;
  4991.         break;
  4992.     }
  4993.     } else {
  4994.         obuf[0] = (c1 | 0x80);
  4995.         obuf[1] = (c2 | 0x80);
  4996.         r = 2;
  4997.     }
  4998.     return(r);
  4999. }
  5000.  
  5001. int
  5002. xkanjf() {
  5003. /* Initialize parameters for xkanji */
  5004. /* This function should be called when F/X-packet is received */
  5005.     jpncnt = jpnlst = 0;
  5006.     return(0);
  5007. }
  5008.  
  5009. int
  5010. #ifdef CK_ANSIC
  5011. xkanjz(int (*fn)(char))
  5012. #else
  5013. xkanjz(fn) int (*fn)();
  5014. #endif /* CK_ANSIC */
  5015. { /* xkanjz */
  5016. /*
  5017.   Terminate xkanji
  5018.   This function must be called when Z-packet is received
  5019.   (before closing the file).
  5020. */
  5021.     static int obuf[6];
  5022.     int r, i, c;
  5023.  
  5024.     if (fcharset == FC_JIS7) {
  5025.         c = 'A';            /* Dummy Roman character */
  5026.         r = jpnxas(c, obuf) - 1;    /* -1 removes Dummy character */
  5027.         if (r > 0) {
  5028.         for (i = 0; i < r; i++)
  5029.           if (((*fn)((char) obuf[i])) < 0)
  5030.         return(-1);
  5031.     }
  5032.     }
  5033.     return(0);
  5034. }
  5035.  
  5036. int
  5037. #ifdef CK_ANSIC
  5038. xkanji(int a, int (*fn)(char))
  5039. #else
  5040. xkanji(a, fn) int a; int (*fn)();
  5041. #endif /* CK_ANSIC */
  5042. { /* xkanji */
  5043.     static int xbuf[2];
  5044.     static int obuf[8];
  5045.  
  5046.     int i, r;
  5047.     int c7;
  5048.     int state=0;
  5049.  
  5050.     r = 0;
  5051.     if (jpncnt == 0) {
  5052.     /* 1st byte */
  5053.     if ((a & 0x80) == 0) {
  5054.         /* 8th bit is 0, i.e., single-byte code */
  5055.         r = jpnxas(a, obuf);
  5056.         state = 0;
  5057.     } else {
  5058.         /* 8th bit is 1, check the range */
  5059.         c7 = a & 0x7f;
  5060.         if (((c7 > 0x20) && (c7 < 0x7f)) || (c7 == 0x0e)) {
  5061.             /* double byte code */
  5062.             xbuf[jpncnt++] = a;
  5063.         } else {
  5064.             /* single byte code */
  5065.             r = jpnxas(a, obuf);
  5066.             state = 0;
  5067.         }
  5068.     }
  5069.     } else {
  5070.     /* not the 1st byte */
  5071.     xbuf[jpncnt++] = a;
  5072.     if (xbuf[0] == 0x8e) {
  5073.         r = jpnxkt(xbuf[1], obuf);
  5074.         state = 1;
  5075.     } else {
  5076.         r = jpnxkn(xbuf, obuf);
  5077.         state = 2;
  5078.     }
  5079.     }
  5080.     if (r > 0) {
  5081.         for (i = 0; i < r; i++ )
  5082.       if (((*fn)((char) obuf[i])) < 0)
  5083.         return(-1);
  5084.         jpnlst = state;
  5085.         jpncnt = 0;
  5086.     }
  5087.     return(0);
  5088. }
  5089.  
  5090. /*
  5091.   Function for translating from Japanese file character set
  5092.   to Japanese EUC transfer character set.
  5093.   Returns a pointer to a string containing 0, 1, or 2 bytes.
  5094. */
  5095.  
  5096. /* zkanji */
  5097. static int jpnstz;            /* status for JIS-7 */
  5098. static int jpnpnd;            /* number of pending bytes */
  5099. static int jpnpnt;            /* pending buffer index */
  5100. static int jpnpbf[8];            /* pending buffer */
  5101.  
  5102. /* There is some duplication here between the old and new JIS-7 parsers */
  5103. /* to be cleaned up later... */
  5104.  
  5105. VOID
  5106. j7init() {                /* Initialize JIS-7 parser */
  5107.     jpnstz = 0;
  5108.     jpnpnd = 0;
  5109.     jpnpnt = 0;
  5110. }
  5111.  
  5112. int
  5113. getj7() {                /* Reads JIS-7 returns next EUC byte */
  5114.     int x;
  5115.  
  5116.     if (jpnpnd > 0) {            /* If something is pending */
  5117.     x = (unsigned) jpnpbf[jpnpnt++]; /* Get it */
  5118.     jpnpnd--;
  5119.     if (jpnpnd < 0) jpnpnd = 0;
  5120.     return((unsigned)x);
  5121.     }
  5122.     jpnpnt = 0;
  5123.  
  5124.     if ((x = zminchar()) < 0) return(x);
  5125.     while (jpnpnd == 0) {        /* While something is pending... */
  5126.     if ((x > 0x20) && (x < 0x7f)) {    /* 7-bit graphic character */
  5127.         switch (jpnstz) {
  5128.           case 1:             /* Katakana */
  5129. #ifdef COMMENT
  5130.         /* This can't be right... */
  5131.         jpnpbf[jpnpnd++] = 0x80; /* Insert flag (NOT SS2???) */
  5132. #else
  5133.         jpnpbf[jpnpnd++] = 0x8e; /* Insert SS2 */
  5134. #endif /* COMMENT */
  5135.         jpnpbf[jpnpnd++] = (x | 0x80); /* Insert Kana + 8th bit */
  5136.         break;
  5137.           case 2:            /* Kanji */
  5138.         jpnpbf[jpnpnd++] = (x | 0x80); /* Get another byte */
  5139.         if ((x = zminchar()) < 0) return(x);
  5140.         jpnpbf[jpnpnd++] = (x | 0x80);
  5141.         break;
  5142.           default:            /* ASCII / JIS Roman */
  5143.         jpnpbf[jpnpnd++] = x;
  5144.         break;
  5145.         }
  5146.     } else if (x == 0x0e) {        /* ^N = SO */
  5147.         jpnstz = 1;            /* Katakana */
  5148.         if ((x = zminchar()) < 0) return(x);
  5149.     } else if (x == 0x0f) {        /* ^O = SI */
  5150.         jpnstz = 0;            /* ASCII / JIS Roman */
  5151.         if ((x = zminchar()) < 0) return(x);
  5152.     } else if (x == 0x1b) {        /* Escape */
  5153.         jpnpbf[jpnpnd++] = x;    /* Save in buffer */
  5154.         if ((x = zminchar()) < 0) return(x);
  5155.         jpnpbf[jpnpnd++] = x;    /* Save in buffer */
  5156.         if (x == '$') {        /* <ESC>$ */
  5157.         if ((x = zminchar()) < 0) return(x);
  5158.         jpnpbf[jpnpnd++] = x;
  5159.         if ((x == '@') || (x == 'B')) {    /* Kanji */
  5160.             jpnstz = 2;
  5161.             jpnpnt = jpnpnd = 0;
  5162.             if ((x = zminchar()) < 0) return(x);
  5163.         }
  5164.         } else if (x == '(') {    /* <ESC>( == 94-byte single-byte set */
  5165.         if ((x = zminchar()) < 0) return(x);
  5166.         jpnpbf[jpnpnd++] = x;
  5167.         if ((x == 'B') || (x == 'J')) {    /* ASCII or JIS Roman */
  5168.             jpnstz = 0;                /* Set state */
  5169.             jpnpnt = jpnpnd = 0;        /* Reset pointers */
  5170.             if ((x = zminchar()) < 0) return(x);
  5171.         }
  5172.         } else if (x == 0x1b) {    /* <ESC><ESC> */
  5173.         jpnpnt = jpnpnd = 0;    /* Reset pointers, stay in state */
  5174.         if ((x = zminchar()) < 0) return(x);
  5175.         }
  5176.     } else {            /* Not <ESC> - just save it */
  5177.         jpnpbf[jpnpnd++] = x;
  5178.     }
  5179.     }
  5180.     jpnpnt = 0;
  5181.     x = (unsigned)jpnpbf[jpnpnt++];
  5182.     jpnpnd--;
  5183.     return((unsigned)x);
  5184. }
  5185.  
  5186. USHORT
  5187. #ifdef CK_ANSIC
  5188. eu_to_sj(USHORT eu)            /* EUC-JP to Shift-JIS */
  5189. #else
  5190. eu_to_sj(eu) USHORT eu;
  5191. #endif /* CK_ANSIC */
  5192. {
  5193.     int c1, c2;
  5194.     union ck_short jcode,scode;
  5195.  
  5196.     jcode.x_short = eu;
  5197.     c1 = (jcode.x_char[byteorder] & 0x7f);
  5198.     c2 = (jcode.x_char[1-byteorder] & 0x7f);
  5199.  
  5200.     if (c1 & 1)
  5201.       c2 += 0x1f;
  5202.     else
  5203.       c2 += 0x7d;
  5204.     if (c2 >= 0x7f)
  5205.       c2++;
  5206.     c1 = ((c1 - 0x21) >> 1) + 0x81;
  5207.     if (c1 > 0x9f)
  5208.       c1 += 0x40;
  5209.  
  5210.     scode.x_char[byteorder] = c1;
  5211.     scode.x_char[1-byteorder] = c2;
  5212.     return(scode.x_short);
  5213. }
  5214.  
  5215.  
  5216. USHORT
  5217. #ifdef CK_ANSIC
  5218. sj_to_eu(USHORT sj)            /* Shift-JIS to EUC-JP */
  5219. #else
  5220. sj_to_eu(sj) USHORT sj;
  5221. #endif /* CK_ANSIC */
  5222. {
  5223.     union ck_short jcode, scode;
  5224.     int c0, c1;
  5225.  
  5226.     scode.x_short = sj;
  5227.     c0 = scode.x_char[byteorder];    /* Left (hi order) byte */
  5228.     c1 = scode.x_char[1-byteorder];    /* Right (lo order) byte */
  5229.  
  5230.     if (((c0 >= 0x81) && (c0 <= 0x9f)) || /* High order byte has 8th bit set */
  5231.         ((c0 >= 0xe0) && (c0 <= 0xfc))) { /* Kanji */
  5232.     if (c0 <= 0x9f)              /* Two bytes in */
  5233.       c0 -= 0x71;              /* Do the shifting... */
  5234.     else
  5235.       c0 -= 0xb1;
  5236.     c0 = c0 * 2 + 1;
  5237.     if (c1 > 0x7f) c1 -= 1;
  5238.     if (c1 >= 0x9e) {
  5239.         c1 -= 0x7d;
  5240.         c0 += 1;
  5241.     } else {
  5242.         c1 -= 0x1f;
  5243.     }
  5244.     jcode.x_char[byteorder] = (c0 | 0x80); /* Two bytes out */
  5245.     jcode.x_char[1-byteorder] = (c1 | 0x80);
  5246.  
  5247.     } else if (c0 == 0) {        /* Single byte */
  5248.     if (c1 >= 0xa1 && c1 <= 0xdf) {    /* Katakana */
  5249.         jcode.x_char[byteorder] = 0x8e; /* SS2 */
  5250.         jcode.x_char[1-byteorder] = c1; /* Kana code */
  5251.     } else {            /* ASCII or C0 */
  5252.         jcode.x_short = c1;
  5253.     }
  5254.     } else {                /* Something bad */
  5255.     debug(F001,"sj_to_eu bad sj","",sj);
  5256.     jcode.x_short = 0xffff;
  5257.     }
  5258.     return(jcode.x_short);
  5259. }
  5260.  
  5261. int
  5262. zkanjf() {                /* Initialize */
  5263.     jpnstz = jpnpnd = jpnpnt = 0;
  5264.     return(0);
  5265. }
  5266.  
  5267. int
  5268. zkanjz() {
  5269.     return(0);
  5270. }
  5271.  
  5272. int
  5273. #ifdef CK_ANSIC
  5274. zkanji(int (*fn)(void))
  5275. #else
  5276. zkanji(fn) int (*fn)();
  5277. #endif /* CK_ANSIC */
  5278. { /* zkanji */
  5279.     /* Read Japanese local code and translate to Japanese EUC */
  5280.     int a;
  5281.     int sc[3];
  5282.  
  5283.     /* No pending characters */
  5284.     if (fcharset == FC_SHJIS) {        /* Translating from Shift-JIS */
  5285.         if (jpnpnd) {
  5286.             jpnpnd--;
  5287.             return(jpnpbf[jpnpnt++]);
  5288.         }
  5289.         a = (*fn)();
  5290.     jpnpnd = jpnpnt = 0;
  5291.     if (((a >= 0x81) && (a <= 0x9f)) ||
  5292.         ((a >= 0xe0) && (a <= 0xfc))) { /* 2-byte Kanji code */
  5293.         sc[0] = a;
  5294.         if ((sc[1] = (*fn)()) < 0)    /* Get second byte */
  5295.           return(sc[1]);
  5296.         if (sc[0] <= 0x9f)
  5297.           sc[0] -= 0x71;
  5298.         else
  5299.           sc[0] -= 0xb1;
  5300.         sc[0] = sc[0] * 2 + 1;
  5301.         if (sc[1] > 0x7f)
  5302.           sc[1]--;
  5303.         if (sc[1] >= 0x9e) {
  5304.             sc[1] -= 0x7d;
  5305.             sc[0]++;
  5306.         } else {
  5307.             sc[1] -= 0x1f;
  5308.         }
  5309.         a = (sc[0] | 0x80);
  5310.         jpnpbf[0] = (sc[1] | 0x80);
  5311.         jpnpnd = 1;
  5312.         jpnpnt = 0;
  5313.     } else if ((a >= 0xa1) && (a <= 0xdf)) { /* Katakana */
  5314.         jpnpbf[0] = a;
  5315.         jpnpnd = 1;
  5316.         jpnpnt = 0;
  5317.         a = 0x8e;
  5318.     }
  5319.     return(a);
  5320.     } else if (fcharset == FC_JIS7 ) {    /* 7-bit JIS X 0208 */
  5321.         if (jpnpnd) {
  5322.             a = jpnpbf[jpnpnt++];
  5323.         jpnpnd--;
  5324.             return(a);
  5325.         }
  5326.         jpnpnt = 0;
  5327.         if ((a = (*fn)()) < 0)
  5328.       return(a);
  5329.         while (jpnpnd == 0) {
  5330.             if ((a > 0x20) && (a < 0x7f)) {
  5331.                 switch (jpnstz) {
  5332.           case 1:
  5333.             jpnpbf[jpnpnd++] = 0x80; /* Katakana */
  5334.             jpnpbf[jpnpnd++] = (a | 0x80);
  5335.             break;
  5336.           case 2:
  5337.             jpnpbf[jpnpnd++] = (a | 0x80); /* Kanji */
  5338.             if ((a = (*fn)()) < 0)
  5339.               return(a);
  5340.             jpnpbf[jpnpnd++] = (a | 0x80);
  5341.             break;
  5342.           default:
  5343.             jpnpbf[jpnpnd++] = a; /* Single byte */
  5344.             break;
  5345.                 }
  5346.             } else if (a == 0x0e) {
  5347.                 jpnstz = 1;
  5348.                 if ((a = (*fn)()) < 0)
  5349.           return(a);
  5350.             } else if (a == 0x0f) {
  5351.                 jpnstz = 0;
  5352.                 if ((a = (*fn)()) < 0)
  5353.           return(a);
  5354.             } else if (a == 0x1b) {
  5355.                 jpnpbf[jpnpnd++] = a;    /* Escape */
  5356.                 if ((a = (*fn)()) < 0)
  5357.           return(a);
  5358.                 jpnpbf[jpnpnd++] = a;
  5359.                 if (a == '$') {
  5360.                     if ((a = (*fn)()) < 0)
  5361.               return(a);
  5362.                     jpnpbf[jpnpnd++] = a;
  5363.                     if ((a == '@') || (a == 'B')) {
  5364.                         jpnstz = 2;
  5365.             jpnpnt = jpnpnd = 0;
  5366.                         if ((a = (*fn)()) < 0)
  5367.               return(a);
  5368.                     }
  5369.                 } else if (a == '(') {
  5370.                     if ((a = (*fn)()) < 0)
  5371.               return(a);
  5372.                     jpnpbf[jpnpnd++] = a;
  5373.                     if ((a == 'B') || (a == 'J')) {
  5374.                         jpnstz = 0;
  5375.             jpnpnt = jpnpnd = 0;
  5376.                         if ((a = (*fn)()) < 0)
  5377.               return(a);
  5378.                     }
  5379.                 } else if (a == 0x1b) {
  5380.                     jpnpnt = jpnpnd = 0;
  5381.                     if ((a = (*fn)()) < 0)
  5382.               return(a);
  5383.                 }
  5384.             } else {
  5385.                 jpnpbf[jpnpnd++] = a;
  5386.             }
  5387.         }
  5388.         jpnpnt = 0;
  5389.         a = jpnpbf[jpnpnt++];
  5390.     jpnpnd--;
  5391.         return(a);
  5392.     } else {
  5393.         a = (*fn)();
  5394.         return(a);
  5395.     }
  5396. }
  5397. #endif /* KANJI */
  5398.  
  5399. /* Euro functions */
  5400.  
  5401. #ifdef LATIN2
  5402. CHAR
  5403. #ifdef CK_ANSIC
  5404. xl2l9(CHAR c)
  5405. #else
  5406. xl2l9(c) CHAR c;
  5407. #endif /* CK_ANSIC */
  5408. { /* xl2l9 */                 /* Latin-2 to Latin-9... */
  5409.     switch (c) {
  5410.       case 169: return((CHAR)166);    /* S caron */
  5411.       case 185: return((CHAR)168);    /* s caron */
  5412.       case 174: return((CHAR)180);    /* Z caron */
  5413.       case 190: return((CHAR)184);    /* z caron */
  5414.       default:
  5415.     return(yl2l1[c]);
  5416.     }
  5417.  
  5418. }
  5419.  
  5420. _PROTOTYP( CHAR xl258, ( CHAR ) );
  5421. CHAR
  5422. #ifdef CK_ANSIC
  5423. xl258(CHAR c)
  5424. #else
  5425. xl258(c) CHAR c;
  5426. #endif /* CK_ANSIC */
  5427. { /* xl258 */                 /* Latin-2 to CP858... */
  5428.     return(c);
  5429. }
  5430. #else
  5431. #define xl2l9 NULL
  5432. #define xl258 NULL
  5433. #endif /* LATIN2 */
  5434.  
  5435. CHAR
  5436. #ifdef CK_ANSIC
  5437. zl9as(CHAR c)
  5438. #else
  5439. zl9as(c) CHAR c;
  5440. #endif /* CK_ANSIC */
  5441. { /* zl9as */                 /* Latin-9 to US ASCII... */
  5442.     if (c < (CHAR)0x80) return(c);    /* Save a function call */
  5443.     switch (c) {
  5444.       case 0xa4: return(UNK);        /* Euro */
  5445.       case 0xa6: return('S');        /* S Caron */
  5446.       case 0xa8: return('s');        /* s Caron */
  5447.       case 0xb4: return('Z');        /* Z Caron */
  5448.       case 0xbc: return('O');        /* OE digraph */
  5449.       case 0xbd: return('o');        /* oe digraph */
  5450.       case 0xbe: return('Y');        /* Y diaeresis */
  5451.       default:   return(zl1as(c));    /* The rest is like Latin-1 */
  5452.     }
  5453. }
  5454.  
  5455. _PROTOTYP( CHAR xl9as, ( CHAR ) );
  5456. CHAR
  5457. #ifdef CK_ANSIC
  5458. xl9as(CHAR c)
  5459. #else
  5460. xl9as(c) CHAR c;
  5461. #endif /* CK_ANSIC */
  5462. { /* xl9as */                 /* Latin-9 to US ASCII... */
  5463.     if (c < (CHAR)0x80) return(c);    /* Save a function call */
  5464.     switch (c) {
  5465.       case 0xa4: return(UNK);        /* Euro */
  5466.       case 0xa6: return('S');        /* S Caron */
  5467.       case 0xa8: return('s');        /* s Caron */
  5468.       case 0xb4: return('Z');        /* Z Caron */
  5469.       case 0xb8: return('z');        /* z Caron */
  5470.       case 0xbc: return('O');        /* OE digraph */
  5471.       case 0xbd: return('o');        /* oe digraph */
  5472.       case 0xbe: return('Y');        /* Y diaeresis */
  5473.       default:   return(xl1as(c));    /* The rest is like Latin-1 */
  5474.     }
  5475. }
  5476.  
  5477. #ifdef LATIN2
  5478. CHAR
  5479. #ifdef CK_ANSIC
  5480. xl9l2(CHAR c)
  5481. #else
  5482. xl9l2(c) CHAR c;
  5483. #endif /* CK_ANSIC */
  5484. { /* xl9l2 */                 /* Latin-9 to Latin-2... */
  5485.     if (c < (CHAR)0x80) return(c);    /* Save a function call */
  5486.     switch (c) {
  5487.       case 0xa4: return(UNK);        /* Euro */
  5488.       case 0xa6: return((CHAR)0xa9);    /* S Caron */
  5489.       case 0xa8: return((CHAR)0xb9);    /* s Caron */
  5490.       case 0xb4: return((CHAR)0xae);    /* Z Caron */
  5491.       case 0xb8: return((CHAR)0xaf);    /* z Caron */
  5492.       case 0xbc: return('O');        /* OE digraph */
  5493.       case 0xbd: return('o');        /* oe digraph */
  5494.       case 0xbe: return('Y');        /* Y diaeresis */
  5495.       default:   return(xl1l2(c));    /* The rest is like Latin-1 */
  5496.     }
  5497. }
  5498. #else
  5499. #define xl9l2 NULL
  5500. #endif /* LATIN2 */
  5501.  
  5502. CHAR
  5503. #ifdef CK_ANSIC
  5504. xl958(CHAR c)
  5505. #else
  5506. xl958(c) CHAR c;
  5507. #endif /* CK_ANSIC */
  5508. { /* xl958 */                 /* Latin-9 to CP858... */
  5509.     if (c == 0xa4)            /* Euro Symbol */
  5510.       return((CHAR)0xd5);
  5511.     else if (c == 0x9e)            /* This was currency symbol */
  5512.       return((CHAR)0xcf);
  5513.     c = yl185[c];
  5514.     return(c);
  5515. }
  5516.  
  5517. CHAR
  5518. #ifdef CK_ANSIC
  5519. x58as(CHAR c)
  5520. #else
  5521. x58as(c) CHAR c;
  5522. #endif /* CK_ANSIC */
  5523. { /* x58as */                 /* CP858 to US ASCII... */
  5524.     if (c == 0xd5)            /* Euro rather than dotless i */
  5525.       return(UNK);
  5526.     else
  5527.       return(x85as(c));            /* The rest is like CP850 */
  5528. }
  5529.  
  5530. CHAR
  5531. #ifdef CK_ANSIC
  5532. x58l1(CHAR c)
  5533. #else
  5534. x58l1(c) CHAR c;
  5535. #endif /* CK_ANSIC */
  5536. { /* x58l1 */                 /* CP858 to Latin-1... */
  5537.     if (c == 0xd5)            /* Euro rather than dotless i */
  5538.       return((CHAR)0xa4);        /* Return currency symbol */
  5539.     else if (c == 0xcf)            /* This keeps it invertible */
  5540.       return((CHAR)0x9e);
  5541.     else
  5542.       return(x85l1(c));
  5543. }
  5544.  
  5545. #ifdef LATIN2
  5546. CHAR
  5547. #ifdef CK_ANSIC
  5548. x58l2(CHAR c)
  5549. #else
  5550. x58l2(c) CHAR c;
  5551. #endif /* CK_ANSIC */
  5552. { /* x58l2 */                 /* CP858 to Latin-2... */
  5553.     if (c == 0xd5)            /* Euro rather than dotless i */
  5554.       return((CHAR)0xa4);        /* Return currency symbol */
  5555.     else if (c == 0xcf)            /* This keeps it invertible */
  5556.       return((CHAR)0x9e);        /* (if it ever was...) */
  5557.     else                /* Otherwise like CP850 */
  5558.       return(x85l2(c));
  5559. }
  5560. #else
  5561. #define x58l2 NULL
  5562. #endif /* LATIN2 */
  5563.  
  5564. CHAR
  5565. #ifdef CK_ANSIC
  5566. x58l9(CHAR c)
  5567. #else
  5568. x58l9(c) CHAR c;
  5569. #endif /* CK_ANSIC */
  5570. { /* x58l9 */                 /* CP-858 to Latin-9... */
  5571.     if (c == 0xd5)            /* Euro rather than dotless i */
  5572.       return((CHAR)0xa4);        /* Return currency symbol */
  5573.     else if (c == 0xcf)            /* This keeps it invertible */
  5574.       return((CHAR)0x9e);        /* (if it ever was...) */
  5575.     else                /* Otherwise like CP850 */
  5576.       return(x85l1(c));            /* to Latin-1 */
  5577. }
  5578.  
  5579. /* End Euro functions */
  5580.  
  5581.  
  5582. /*  TABLES OF TRANSLATION FUNCTIONS */
  5583.  
  5584. /*
  5585.   First, the table of translation functions for RECEIVING files.  That is,
  5586.   *from* the TRANSFER character set *to* the FILE character set, an array of
  5587.   pointers to functions.  The first index is the TRANSFER CHARACTER-SET
  5588.   number, the second index is the FILE CHARACTER-SET number.
  5589.  
  5590.   These arrays must be fully populated, even if (as is the case with Kanji
  5591.   character sets), all the entries are NULL.  Otherwise, subscript
  5592.   calculations will be wrong and we'll use the wrong functions.
  5593. */
  5594.  
  5595. /* Pointers to byte-for-byte translation functions */
  5596.  
  5597. _PROTOTYP( CHAR (*rx), (CHAR) );
  5598. _PROTOTYP( CHAR (*sx), (CHAR) );
  5599.  
  5600. #ifdef UNICODE
  5601. _PROTOTYP( int (*xut), (USHORT) );    /* Translation function UCS to TCS */
  5602. _PROTOTYP( int (*xuf), (USHORT) );    /* Translation function UCS to FCS */
  5603. _PROTOTYP( USHORT (*xtu), (CHAR) );    /* Translation function TCS to UCS */
  5604. _PROTOTYP( USHORT (*xfu), (CHAR) );    /* Translation function FCS to UCS */
  5605. #endif /* UNICODE */
  5606.  
  5607. #ifdef CK_ANSIC
  5608. CHAR (*xlr[MAXTCSETS+1][MAXFCSETS+1])(CHAR) =
  5609. #else
  5610. CHAR (*xlr[MAXTCSETS+1][MAXFCSETS+1])() =
  5611. #endif /* CK_ANSIC */
  5612. {
  5613.     NULL,            /* 0,0 transparent to us ascii */
  5614.     NULL,            /* 0,1 transparent to uk ascii */
  5615.     NULL,            /* 0,2 transparent to dutch nrc */
  5616.     NULL,            /* 0,3 transparent to finnish nrc */
  5617.     NULL,            /* 0,4 transparent to french nrc */
  5618.     NULL,            /* 0,5 transparent to fr-canadian nrc */
  5619.     NULL,            /* 0,6 transparent to german nrc */
  5620.     NULL,            /* 0,7 transparent to hungarian nrc */
  5621.     NULL,            /* 0,8 transparent to italian nrc */
  5622.     NULL,            /* 0,9 transparent to norge/danish nrc */
  5623.     NULL,            /* 0,10 transparent to portuguese nrc */
  5624.     NULL,            /* 0,11 transparent to spanish nrc */
  5625.     NULL,            /* 0,12 transparent to swedish nrc */
  5626.     NULL,            /* 0,13 transparent to swiss nrc */
  5627.     NULL,            /* 0,14 transparent to latin-1 */
  5628.     NULL,            /* 0,15 transparent to latin-2 */
  5629.     NULL,            /* 0,16 transparent to DEC MCS */
  5630.     NULL,            /* 0,17 transparent to NeXT */
  5631.     NULL,            /* 0,18 transparent to CP437 */
  5632.     NULL,            /* 0,19 transparent to CP850 */
  5633.     NULL,            /* 0,20 transparent to CP852 */
  5634.     NULL,            /* 0,21 transparent to Macintosh Latin */
  5635.     NULL,            /* 0,22 transparent to DGI */
  5636.     NULL,            /* 0,23 transparent to HP */
  5637.     NULL,            /* 0,24 transparent to Latin/Cyrillic */
  5638.     NULL,                       /* 0,25 transparent to CP866 */
  5639.     NULL,            /* 0,26 transparent to Short KOI-7 */
  5640.     NULL,                       /* 0,27 transparent to Old KOI-8 Cyrillic */
  5641.     NULL,            /* 0,28 transparent to JIS-7 */
  5642.     NULL,            /* 0,29 transparent to Shift-JIS */
  5643.     NULL,            /* 0,30 transparent to J-EUC */
  5644.     NULL,            /* 0,31 transparent to DEC Kanji */
  5645.     NULL,            /* 0,32 transparent to Hebrew-7 */
  5646.     NULL,            /* 0,33 transparent to Latin/Hebrew */
  5647.     NULL,            /* 0,34 transparent to CP862 Hebrew */
  5648.     NULL,            /* 0,35 transparent to ELOT 927 Greek */
  5649.     NULL,            /* 0,36 transparent to Latin/Greek */
  5650.     NULL,            /* 0,37 transparent to CP869 */
  5651.     NULL,            /* 0,38 transparent to Latin-9 */
  5652.     NULL,            /* 0,39 transparent to CP858 */
  5653.     NULL,            /* 0,40 transparent to CP855 */
  5654.     NULL,            /* 0,41 transparent to CP1251 */
  5655.     NULL,            /* 0,42 transparent to Bulgarian */
  5656.     NULL,            /* 0,43 transparent to CP1250 */
  5657.     NULL,            /* 0,44 transparent to Mazovia */
  5658.     NULL,            /* 0,45 transparent to UCS-2 */
  5659.     NULL,            /* 0,46 transparent to UTF-8 */
  5660.     NULL,            /* 0,47 transparent to KOI8R */
  5661.     NULL,            /* 0,48 transparent to KOI8U */
  5662.     NULL,            /* 1,0 ascii to us ascii */
  5663.     NULL,            /* 1,1 ascii to uk ascii */
  5664.     NULL,            /* 1,2 ascii to dutch nrc */
  5665.     NULL,            /* 1,3 ascii to finnish nrc */
  5666.     NULL,            /* 1,4 ascii to french nrc */
  5667.     NULL,            /* 1,5 ascii to fr-canadian nrc */
  5668.     NULL,            /* 1,6 ascii to german nrc */
  5669.     NULL,            /* 1,7 ascii to hungarian nrc */
  5670.     NULL,            /* 1,8 ascii to italian nrc */
  5671.     NULL,            /* 1,9 ascii to norge/danish nrc */
  5672.     NULL,            /* 1,10 ascii to portuguese nrc */
  5673.     NULL,            /* 1,11 ascii to spanish nrc */
  5674.     NULL,            /* 1,12 ascii to swedish nrc */
  5675.     NULL,            /* 1,13 ascii to swiss nrc */
  5676.     NULL,            /* 1,14 ascii to latin-1 */
  5677.     NULL,            /* 1,15 ascii to latin-2 */
  5678.     NULL,            /* 1,16 ascii to DEC MCS */
  5679.     NULL,            /* 1,17 ascii to NeXT */
  5680.     NULL,            /* 1,18 ascii to CP437 */
  5681.     NULL,            /* 1,19 ascii to CP850 */
  5682.     NULL,            /* 1,20 ascii to CP852 */
  5683.     NULL,            /* 1,21 ascii to Macintosh Latin */
  5684.     NULL,            /* 1,22 ascii to DGI */
  5685.     NULL,            /* 1,23 ascii to HP */
  5686.     xaslc,                      /* 1,24 ascii to Latin/Cyrillic */
  5687.     xasac,                      /* 1,25 ascii to CP866 */
  5688.     xassk,                      /* 1,26 ascii to Short KOI */
  5689.     xask8,                      /* 1,27 ascii to Old KOI-8 Cyrillic */
  5690.     NULL,            /* 1,28 ascii to JIS-7 */
  5691.     NULL,            /* 1,29 ascii to Shift-JIS */
  5692.     NULL,            /* 1,30 ascii to J-EUC */
  5693.     NULL,            /* 1,31 ascii to DEC Kanji */
  5694.     xash7,            /* 1,32 ascii to Hebrew-7 */
  5695.     NULL,            /* 1,33 ascii to Latin/Hebrew */
  5696.     NULL,            /* 1,34 ascii to CP862 Hebrew */
  5697.     xaseg,            /* 1,35 ascii to ELOT 927 Greek */
  5698.     NULL,            /* 1,36 ascii to Latin/Greek */
  5699.     NULL,            /* 1,37 ascii to CP869 */
  5700.     NULL,            /* 1,38 ascii to Latin-9 */
  5701.     NULL,            /* 1,39 ascii to CP858 */
  5702.     xas55,            /* 1,40 ascii to CP855 */
  5703.     xas1251,            /* 1,41 ascii to CP1251 */
  5704.     xleft128,            /* 1,42 ascii to bulgarian */
  5705.     xleft128,            /* 1,43 ascii to CP1250 */
  5706.     xleft128,            /* 1,44 ascii to Mazovia */
  5707.     NULL,            /* 1,45 ascii to UCS-2 */
  5708.     NULL,            /* 1,46 ascii to UTF-8 */
  5709.     NULL,            /* 1,47 ascii to KOI8-R */
  5710.     NULL,            /* 1,48 ascii to KOI8-U */
  5711.     zl1as,            /* 2,0 latin-1 to us ascii */
  5712.     xl1uk,            /* 2,1 latin-1 to uk ascii */
  5713.     xl1du,            /* 2,2 latin-1 to dutch nrc */
  5714.     xl1fi,            /* 2,3 latin-1 to finnish nrc */
  5715.     xl1fr,            /* 2,4 latin-1 to french nrc */
  5716.     xl1fc,            /* 2,5 latin-1 to fr-canadian nrc */
  5717.     xl1ge,            /* 2,6 latin-1 to german nrc */
  5718.     xl1it,            /* 2,7 latin-1 to italian nrc */
  5719.     xl1hu,            /* 2,8 latin-1 to hungarian nrc */
  5720.     xl1no,            /* 2,9 latin-1 to norge/danish nrc */
  5721.     xl1po,            /* 2,10 latin-1 to portuguese nrc */
  5722.     xl1sp,            /* 2,11 latin-1 to spanish nrc */
  5723.     xl1sw,            /* 2,12 latin-1 to swedish nrc */
  5724.     xl1ch,            /* 2,13 latin-1 to swiss nrc */
  5725.     NULL,            /* 2,14 latin-1 to latin-1 */
  5726.     xl1l2,            /* 2,15 latin-1 to latin-2 */
  5727.     xl1dm,            /* 2,16 latin-1 to DEC MCS */
  5728.     xl1ne,            /* 2,17 latin-1 to NeXT */
  5729.     xl143,            /* 2,18 latin-1 to CP437 */
  5730.     xl185,            /* 2,19 latin-1 to CP850 */
  5731.     xl152,            /* 2,20 latin-1 to CP852 */
  5732.     xl1aq,            /* 2,21 latin-1 to Macintosh Latin */
  5733.     xl1dg,            /* 2,22 latin-1 to DGI */
  5734.     xl1r8,            /* 2,23 latin-1 to HP Roman8 */
  5735.     zl1as,            /* 2,24 latin-1 to Latin/Cyrillic */
  5736.     zl1as,                      /* 2,25 latin-1 to CP866 */
  5737.     xl1sk,                      /* 2,26 latin-1 to Short KOI */
  5738.     zl1as,                   /* 2,27 latin-1 to Old KOI-8 Cyrillic */
  5739.     NULL,            /* 2,28 latin-1 to JIS-7 */
  5740.     NULL,            /* 2,29 latin-1 to Shift-JIS */
  5741.     NULL,            /* 2,30 latin-1 to J-EUC */
  5742.     NULL,            /* 2,31 latin-1 to DEC Kanji */
  5743.     xl1h7,            /* 2,32 latin-1 to Hebrew-7 */
  5744.     xl1lh,            /* 2,33 latin-1 to Latin/Hebrew */
  5745.     xl162,            /* 2,34 latin-1 to CP862 Hebrew */
  5746.     xl1eg,            /* 2,35 latin-1 to ELOT 927 Greek */
  5747.     xl1lg,            /* 2,36 latin-1 to Latin/Greek */
  5748.     xl169,            /* 2,37 latin-1 to CP869 */
  5749.     NULL,            /* 2,38 latin-1 to Latin9 */
  5750.     xl185,            /* 2,39 latin-1 to CP858 */
  5751.     zl1as,            /* 2,40 latin-1 to CP855 */
  5752.     zl1as,            /* 2,41 latin-1 to CP1251 */
  5753.     zl1as,            /* 2,42 latin-1 to Bulgarian */
  5754.     xl11250,            /* 2,43 latin-1 to CP1250 */
  5755.     xl1mz,            /* 2,44 latin-1 to Mazovia */
  5756.     NULL,            /* 2,45 latin-1 to UCS-2 */
  5757.     NULL,            /* 2,46 latin-1 to UTF-8 */
  5758.     zl1as,            /* 2,47 latin-1 to KOI8R */
  5759.     zl1as,            /* 2,48 latin-1 to KOI8U */
  5760.     xl2as,            /* 3,0 latin-2 to us ascii */
  5761.     xl2as,            /* 3,1 latin-2 to uk ascii */
  5762.     xl2as,            /* 3,2 latin-2 to dutch nrc */
  5763.     xl2as,            /* 3,3 latin-2 to finnish nrc */
  5764.     xl2as,            /* 3,4 latin-2 to french nrc */
  5765.     xl2as,            /* 3,5 latin-2 to fr-canadian nrc */
  5766.     xl2as,            /* 3,6 latin-2 to german nrc */
  5767.     xl2as,            /* 3,7 latin-2 to italian nrc */
  5768.     xl2as,            /* 3,8 latin-2 to hungarian nrc */
  5769.     xl2as,            /* 3,9 latin-2 to norge/danish nrc */
  5770.     xl2as,            /* 3,10 latin-2 to portuguese nrc */
  5771.     xl2as,            /* 3,11 latin-2 to spanish nrc */
  5772.     xl2as,            /* 3,12 latin-2 to swedish nrc */
  5773.     xl2as,            /* 3,13 latin-2 to swiss nrc */
  5774.     xl2l1,            /* 3,14 latin-2 to latin-1 */
  5775.     NULL,            /* 3,15 latin-2 to latin-2 */
  5776.     xl2l1,            /* 3,16 latin-2 to DEC MCS */
  5777.     xl2ne,            /* 3,17 latin-2 to NeXT */
  5778.     xl243,            /* 3,18 latin-2 to CP437 */
  5779.     xl285,            /* 3,19 latin-2 to CP850 */
  5780.     xl252,            /* 3,20 latin-2 to CP852 */
  5781.     xl2aq,            /* 3,21 latin-2 to Macintosh Latin */
  5782.     xl2dg,            /* 3,22 latin-2 to DGI */
  5783.     xl2r8,            /* 3,23 latin-2 to HP */
  5784.     xl2as,            /* 3,24 latin-2 to Latin/Cyrillic */
  5785.     xl2as,                      /* 3,25 latin-2 to CP866 */
  5786.     xl2sk,                      /* 3,26 latin-2 to Short KOI */
  5787.     xl2as,                   /* 3,27 latin-2 to Old KOI-8 Cyrillic */
  5788.     NULL,            /* 3,28 latin-2 to JIS-7 */
  5789.     NULL,            /* 3,29 latin-2 to Shift-JIS */
  5790.     NULL,            /* 3,30 latin-2 to J-EUC */
  5791.     NULL,            /* 3,31 latin-2 to DEC Kanji */
  5792.     xl2h7,            /* 3,32 latin-2 to Hebrew-7 */
  5793.     xl2as,            /* 3,33 latin-2 to Latin/Hebrew */
  5794.     xl2as,            /* 3,34 latin-2 to CP862 Hebrew */
  5795.     xassk,            /* 3,35 latin-2 to ELOT 927 Greek */
  5796.     xl2as,            /* 3,36 latin-2 to Latin/Greek */
  5797.     xl2as,            /* 3,37 latin-2 to CP869 */
  5798.     xl2l9,            /* 3,38 latin-2 to Latin-9 */
  5799.     xl258,            /* 3,39 latin-2 to CP858 */
  5800.     xl2as,            /* 3,40 latin-2 to CP855 */
  5801.     xl2as,            /* 3,41 latin-2 to CP1251 */
  5802.     xl2as,            /* 3,42 latin-2 to Bulgarian */
  5803.     xl21250,            /* 3,43 latin-2 to CP1250 */
  5804.     xl2mz,            /* 3,44 latin-2 to Mazovia */
  5805.     NULL,            /* 3,45 latin-2 to UCS-2 */
  5806.     NULL,            /* 3,46 latin-2 to UTF-8 */
  5807.     xl2as,            /* 3,47 latin-2 to KOI8R */
  5808.     xl2as,            /* 3,48 latin-2 to KOI8U */
  5809.     xlcas,            /* 4,0 latin/cyrillic to us ascii */
  5810.     xlcas,            /* 4,1 latin/cyrillic to uk ascii */
  5811.     xlcas,                 /* 4,2 latin/cyrillic to dutch nrc */
  5812.     xlcas,            /* 4,3 latin/cyrillic to finnish ascii */
  5813.     xlcas,            /* 4,4 latin/cyrillic to french nrc */
  5814.     xlcas,            /* 4,5 latin/cyrillic to fr-canadian nrc */
  5815.     xlcas,            /* 4,6 latin/cyrillic to german nrc */
  5816.     xlcas,            /* 4,7 latin/cyrillic to italian nrc */
  5817.     xlcas,            /* 4,8 latin/cyrillic to hungarian nrc */
  5818.     xlcas,            /* 4,9 latin/cyrillic to norge/danish nrc */
  5819.     xlcas,            /* 4,10 latin/cyrillic to portuguese nrc */
  5820.     xlcas,            /* 4,11 latin/cyrillic to spanish nrc */
  5821.     xlcas,            /* 4,12 latin/cyrillic to swedish nrc */
  5822.     xlcas,            /* 4,13 latin/cyrillic to swiss nrc */
  5823.     xlcas,            /* 4,14 latin/cyrillic to latin-1 */
  5824.     xlcas,            /* 4,15 latin/cyrillic to latin-2 */
  5825.     xlcas,            /* 4,16 latin/cyrillic to DEC MCS */
  5826.     xlcas,            /* 4,17 latin/cyrillic to NeXT */
  5827.     xlcas,            /* 4,18 latin/cyrillic to CP437 */
  5828.     xlcas,            /* 4,19 latin/cyrillic to CP850 */
  5829.     xlcas,            /* 4,20 latin/cyrillic to CP852 */
  5830.     xlcas,            /* 4,21 latin/cyrillic to Macintosh Latin */
  5831.     xlcas,            /* 4,22 latin/cyrillic to DGI */
  5832.     xlcas,            /* 4,23 latin/cyrillic to HP */
  5833.     NULL,                       /* 4,24 latin/cyrillic to Latin/Cyrillic */
  5834.     xlcac,                      /* 4,25 latin/cyrillic to CP866 */
  5835.     xlcsk,                      /* 4,26 latin/cyrillic to Short KOI */
  5836.     xlck8,                   /* 4,27 latin/cyrillic to Old KOI-8 Cyrillic */
  5837.     NULL,            /* 4,28 latin/cyril to JIS-7 */
  5838.     NULL,            /* 4,29 latin/cyril to Shift-JIS */
  5839.     NULL,            /* 4,30 latin/cyril to J-EUC */
  5840.     NULL,            /* 4,31 latin/cyril to DEC Kanji */
  5841.     xlch7,            /* 4,32 latin/cyril to Hebrew-7 */
  5842.     xlcas,            /* 4,33 latin/cyril to Latin/Hebrew */
  5843.     xlcas,            /* 4,34 latin/cyril to CP862 Hebrew */
  5844.     xassk,            /* 4,35 latin/cyril to ELOT 927 Greek */
  5845.     xleft160,            /* 4,36 latin/cyril to Latin/Greek */
  5846.     xleft128,            /* 4,37 latin/cyril to CP869 */
  5847.     xlcas,            /* 4,38 latin/cyril to latin-9 */
  5848.     xlcas,            /* 4,39 latin/cyril to CP858 */
  5849.     xlc55,            /* 4,40 latin/cyril to CP855 */
  5850.     xlc1251,            /* 4,41 latin/cyril to CP1251 */
  5851.     xlcbu,            /* 4,42 latin/cyril to Bulgarian */
  5852.     xlcas,            /* 4,43 latin/cyril to CP1250 */
  5853.     xlcas,            /* 4,44 latin/cyril to Mazovia */
  5854.     NULL,            /* 4,45 latin/cyril to UCS-2 */
  5855.     NULL,            /* 4,46 latin/cyril to UTF-8 */
  5856.     xlckr,            /* 4,47 latin/cyril to KOI8R */
  5857.     xlcku,            /* 4,48 latin/cyril to KOI8U */
  5858.     NULL,            /* 5,00 */
  5859.     NULL,            /* 5,01 */
  5860.     NULL,            /* 5,02 */
  5861.     NULL,            /* 5,03 */
  5862.     NULL,            /* 5,04 */
  5863.     NULL,            /* 5,05 */
  5864.     NULL,            /* 5,06 */
  5865.     NULL,            /* 5,07 */
  5866.     NULL,            /* 5,08 */
  5867.     NULL,            /* 5,09 */
  5868.     NULL,            /* 5,10 */
  5869.     NULL,            /* 5,11 */
  5870.     NULL,            /* 5,12 */
  5871.     NULL,            /* 5,13 */
  5872.     NULL,            /* 5,14 */
  5873.     NULL,            /* 5,15 */
  5874.     NULL,            /* 5,16 */
  5875.     NULL,            /* 5,17 */
  5876.     NULL,            /* 5,18 */
  5877.     NULL,            /* 5,19 */
  5878.     NULL,            /* 5,20 */
  5879.     NULL,            /* 5,21 */
  5880.     NULL,            /* 5,22 */
  5881.     NULL,            /* 5,23 */
  5882.     NULL,            /* 5,24 */
  5883.     NULL,            /* 5,25 */
  5884.     NULL,            /* 5,26 */
  5885.     NULL,            /* 5,27 */
  5886.     NULL,            /* 5,28 */
  5887.     NULL,            /* 5,29 */
  5888.     NULL,            /* 5,30 */
  5889.     NULL,            /* 5,31 */
  5890.     NULL,            /* 5,32 */
  5891.     NULL,            /* 5,33 */
  5892.     NULL,            /* 5,34 */
  5893.     NULL,            /* 5,35 */
  5894.     NULL,            /* 5,36 */
  5895.     NULL,            /* 5,37 */
  5896.     NULL,            /* 5,38 */
  5897.     NULL,            /* 5,39 */
  5898.     NULL,            /* 5,40 */
  5899.     NULL,            /* 5,41 */
  5900.     NULL,            /* 5,42 */
  5901.     NULL,            /* 5,43 */
  5902.     NULL,            /* 5,44 */
  5903.     NULL,            /* 5,45 */
  5904.     NULL,            /* 5,46 */
  5905.     NULL,            /* 5,47 */
  5906.     NULL,            /* 5,48 */
  5907.     xlhas,            /* 6,0 latin/hebrew to us ascii */
  5908.     xlhas,            /* 6,1 latin/hebrew to uk ascii */
  5909.     xlhas,                 /* 6,2 latin/hebrew to dutch nrc */
  5910.     xlhas,            /* 6,3 latin/hebrew to finnish ascii */
  5911.     xlhas,            /* 6,4 latin/hebrew to french nrc */
  5912.     xlhas,            /* 6,5 latin/hebrew to fr-canadian nrc */
  5913.     xlhas,            /* 6,6 latin/hebrew to german nrc */
  5914.     xlhas,            /* 6,7 latin/hebrew to italian nrc */
  5915.     xlhas,            /* 6,8 latin/hebrew to hungarian nrc */
  5916.     xlhas,            /* 6,9 latin/hebrew to norge/danish nrc */
  5917.     xlhas,            /* 6,10 latin/hebrew to portuguese nrc */
  5918.     xlhas,            /* 6,11 latin/hebrew to spanish nrc */
  5919.     xlhas,            /* 6,12 latin/hebrew to swedish nrc */
  5920.     xlhas,            /* 6,13 latin/hebrew to swiss nrc */
  5921.     xlhl1,            /* 6,14 latin/hebrew to latin-1 */
  5922.     xlhas,            /* 6,15 latin/hebrew to latin-2 */
  5923.     xlhl1,            /* 6,16 latin/hebrew to DEC MCS */
  5924.     xlhas,            /* 6,17 latin/hebrew to NeXT */
  5925.     xlhas,            /* 6,18 latin/hebrew to CP437 */
  5926.     xlhas,            /* 6,19 latin/hebrew to CP850 */
  5927.     xlhas,            /* 6,20 latin/hebrew to CP852 */
  5928.     xlhas,            /* 6,21 latin/hebrew to Macintosh Latin */
  5929.     xlhas,            /* 6,22 latin/hebrew to DGI */
  5930.     xlhas,                      /* 6,23 latin/hebrew to HP */
  5931.     xlhas,                      /* 6,24 latin/hebrew to Latin/Cyrillic */
  5932.     xlhas,                      /* 6,25 latin/hebrew to CP866 */
  5933.     NULL,                       /* 6,26 latin/hebrew to Short KOI */
  5934.     xlhas,                   /* 6,27 latin/hebrew to Old KOI-8 Cyrillic */
  5935.     NULL,            /* 6,28 latin/hebrew to JIS-7 */
  5936.     NULL,            /* 6,29 latin/hebrew to Shift-JIS */
  5937.     NULL,            /* 6,30 latin/hebrew to J-EUC */
  5938.     NULL,            /* 6,31 latin/hebrew to DEC Kanji */
  5939.     xlhh7,            /* 6,32 latin/hebrew to Hebrew-7 */
  5940.     NULL,            /* 6,33 latin/hebrew to Latin/Hebrew */
  5941.     xlh62,            /* 6,34 latin/hebrew to CP862 Hebrew */
  5942.     NULL,            /* 6,35 latin/hebrew to ELOT 927 Greek */
  5943.     xlhas,            /* 6,36 latin/hebrew to Latin/Greek */
  5944.     xlhas,            /* 6,37 latin/hebrew to CP869 */
  5945.     xlhas,            /* 6,38 latin/hebrew to Latin-9 */
  5946.     xlhas,            /* 6,39 latin/hebrew to CP858 */
  5947.     xlhas,            /* 6,40 latin/hebrew to CP855 */
  5948.     xlhas,            /* 6,41 latin/hebrew to CP1251 */
  5949.     xlhas,            /* 6,42 latin/hebrew to Bulgarian */
  5950.     xlhas,            /* 6,43 latin/hebrew to CP1250 */
  5951.     xlhas,            /* 6,44 latin/hebrew to Mazovia */
  5952.     NULL,            /* 6,45 latin/hebrew to UCS-2 */
  5953.     NULL,            /* 6,46 latin/hebrew to UTF-8 */
  5954.     NULL,            /* 6,47 latin/hebrew to KOI8R */
  5955.     NULL,            /* 6,48 latin/hebrew to KOI8U */
  5956.     xlgas,            /* 7,0 latin/greek to us ascii */
  5957.     xlgas,            /* 7,1 latin/greek to uk ascii */
  5958.     xlgas,                 /* 7,2 latin/greek to dutch nrc */
  5959.     xlgas,            /* 7,3 latin/greek to finnish ascii */
  5960.     xlgas,            /* 7,4 latin/greek to french nrc */
  5961.     xlgas,            /* 7,5 latin/greek to fr-canadian nrc */
  5962.     xlgas,            /* 7,6 latin/greek to german nrc */
  5963.     xlgas,            /* 7,7 latin/greek to italian nrc */
  5964.     xlgas,            /* 7,8 latin/greek to hungarian nrc */
  5965.     xlgas,            /* 7,9 latin/greek to norge/danish nrc */
  5966.     xlgas,            /* 7,10 latin/greek to portuguese nrc */
  5967.     xlgas,            /* 7,11 latin/greek to spanish nrc */
  5968.     xlgas,            /* 7,12 latin/greek to swedish nrc */
  5969.     xlgas,            /* 7,13 latin/greek to swiss nrc */
  5970.     xlgas,            /* 7,14 latin/greek to latin-1 */
  5971.     xlgas,            /* 7,15 latin/greek to latin-2 */
  5972.     xlgas,            /* 7,16 latin/greek to DEC MCS */
  5973.     xlgas,            /* 7,17 latin/greek to NeXT */
  5974.     xlgas,            /* 7,18 latin/greek to CP437 */
  5975.     xlgas,            /* 7,19 latin/greek to CP850 */
  5976.     xlgas,            /* 7,20 latin/greek to CP852 */
  5977.     xlgas,            /* 7,21 latin/greek to Macintosh Latin */
  5978.     xlgas,            /* 7,22 latin/greek to DGI */
  5979.     xlgas,            /* 7,23 latin/greek to HP */
  5980.     xleft160,                   /* 7,24 latin/greek to Latin/Cyrillic */
  5981.     xleft128,                   /* 7,25 latin/greek to CP866 */
  5982.     xassk,                      /* 7,26 latin/greek to Short KOI */
  5983.     xleft160,                   /* 7,27 latin/greek to Old KOI-8 Greek */
  5984.     NULL,            /* 7,28 latin/greek to JIS-7 */
  5985.     NULL,            /* 7,29 latin/greek to Shift-JIS */
  5986.     NULL,            /* 7,30 latin/greek to J-EUC */
  5987.     NULL,            /* 7,31 latin/greek to DEC Kanji */
  5988.     NULL,            /* 7,32 latin/greek to Hebrew-7 */
  5989.     xlgas,            /* 7,33 latin/greek to Latin/Hebrew */
  5990.     xlgas,            /* 7,34 latin/greek to CP862 Hebrew */
  5991.     xlgeg,            /* 7,35 latin/greek to ELOT 927 Greek */
  5992.     NULL,            /* 7,36 latin/greek to Latin/Greek */
  5993.     xlg69,            /* 7,37 latin/greek to CP869 */
  5994.     xlgas,            /* 7,38 latin/greek to Latin-9 */
  5995.     xlgas,            /* 7,39 latin/greek to CP858 */
  5996.     xleft128,            /* 7,40 latin/greek to CP855 */
  5997.     xleft128,            /* 7,41 latin/greek to CP1251 */
  5998.     xleft128,            /* 7,42 latin/greek to Bulgarian */
  5999.     xleft128,            /* 7,43 latin/greek to CP1250 */
  6000.     xleft128,            /* 7,44 latin/greek to Mazovia */
  6001.     NULL,            /* 7,45 latin/greek to UCS-2 */
  6002.     NULL,            /* 7,46 latin/greek to UTF-8 */
  6003.     NULL,            /* 7,47 latin/greek to KOI8R */
  6004.     NULL,            /* 7,48 latin/greek to KOI8U */
  6005.     zl9as,            /* 8,0 latin-9 to us ascii */
  6006.     xl1uk,            /* 8,1 latin-9 to uk ascii */
  6007.     xl1du,            /* 8,2 latin-9 to dutch nrc */
  6008.     xl1fi,            /* 8,3 latin-9 to finnish nrc */
  6009.     xl1fr,            /* 8,4 latin-9 to french nrc */
  6010.     xl1fc,            /* 8,5 latin-9 to fr-canadian nrc */
  6011.     xl1ge,            /* 8,6 latin-9 to german nrc */
  6012.     xl1it,            /* 8,7 latin-9 to italian nrc */
  6013.     xl1hu,            /* 8,8 latin-9 to hungarian nrc */
  6014.     xl1no,            /* 8,9 latin-9 to norge/danish nrc */
  6015.     xl1po,            /* 8,10 latin-9 to portuguese nrc */
  6016.     xl1sp,            /* 8,11 latin-9 to spanish nrc */
  6017.     xl1sw,            /* 8,12 latin-9 to swedish nrc */
  6018.     xl1ch,            /* 8,13 latin-9 to swiss nrc */
  6019.     NULL,            /* 8,14 latin-9 to latin-1 */
  6020.     xl1l2,            /* 8,15 latin-9 to latin-2 */
  6021.     xl9dm,            /* 8,16 latin-9 to DEC MCS */
  6022.     xl9ne,            /* 8,17 latin-9 to NeXT */
  6023.     xl143,            /* 8,18 latin-9 to CP437 */
  6024.     xl185,            /* 8,19 latin-9 to CP850 */
  6025.     xl152,            /* 8,20 latin-9 to CP852 */
  6026.     xl1aq,            /* 8,21 latin-9 to Macintosh Latin */
  6027.     xl1dg,            /* 8,22 latin-9 to DGI */
  6028.     xl1r8,            /* 8,23 latin-9 to HP Roman8 */
  6029.     zl1as,            /* 8,24 latin-9 to Latin/Cyrillic */
  6030.     zl1as,                      /* 8,25 latin-9 to CP866 */
  6031.     xl1sk,                      /* 8,26 latin-9 to Short KOI */
  6032.     zl1as,                   /* 8,27 latin-9 to Old KOI-8 Cyrillic */
  6033.     NULL,            /* 8,28 latin-9 to JIS-7 */
  6034.     NULL,            /* 8,29 latin-9 to Shift-JIS */
  6035.     NULL,            /* 8,30 latin-9 to J-EUC */
  6036.     NULL,            /* 8,31 latin-9 to DEC Kanji */
  6037.     xl1h7,            /* 8,32 latin-9 to Hebrew-7 */
  6038.     xl1lh,            /* 8,33 latin-9 to Latin/Hebrew */
  6039.     xl162,            /* 8,34 latin-9 to CP862 Hebrew */
  6040.     xl1eg,            /* 8,35 latin-9 to ELOT 927 Greek */
  6041.     xl1lg,            /* 8,36 latin-9 to Latin/Greek */
  6042.     xl169,            /* 8,37 latin-9 to CP869 */
  6043.     NULL,            /* 8,38 latin-9 to Latin9 */
  6044.     xl958,            /* 8,39 latin-9 to CP858 */
  6045.     zl1as,            /* 8,40 latin-9 to CP855 */
  6046.     zl1as,            /* 8,41 latin-9 to CP1251 */
  6047.     xl1as,            /* 8,42 latin-9 to Bulgarian */
  6048.     xl91250,            /* 8,43 latin-9 to CP1250 */
  6049.     xl9mz,            /* 8,44 latin-9 to Mazovia */
  6050.     NULL,            /* 8,45 latin-9 to UCS-2 */
  6051.     NULL,            /* 8,46 latin-9 to UTF-8 */
  6052.     zl1as,            /* 8,47 latin-9 to KOI8-R */
  6053.     zl1as,            /* 8,48 latin-9 to KOI8-U */
  6054.     NULL,            /* 9,00 Unicode... */
  6055.     NULL,            /* 9,01 */
  6056.     NULL,            /* 9,02 */
  6057.     NULL,            /* 9,03 */
  6058.     NULL,            /* 9,04 */
  6059.     NULL,            /* 9,05 */
  6060.     NULL,            /* 9,06 */
  6061.     NULL,            /* 9,07 */
  6062.     NULL,            /* 9,08 */
  6063.     NULL,            /* 9,09 */
  6064.     NULL,            /* 9,10 */
  6065.     NULL,            /* 9,11 */
  6066.     NULL,            /* 9,12 */
  6067.     NULL,            /* 9,13 */
  6068.     NULL,            /* 9,14 */
  6069.     NULL,            /* 9,15 */
  6070.     NULL,            /* 9,16 */
  6071.     NULL,            /* 9,17 */
  6072.     NULL,            /* 9,18 */
  6073.     NULL,            /* 9,19 */
  6074.     NULL,            /* 9,20 */
  6075.     NULL,            /* 9,21 */
  6076.     NULL,            /* 9,22 */
  6077.     NULL,            /* 9,23 */
  6078.     NULL,            /* 9,24 */
  6079.     NULL,            /* 9,25 */
  6080.     NULL,            /* 9,26 */
  6081.     NULL,            /* 9,27 */
  6082.     NULL,            /* 9,28 */
  6083.     NULL,            /* 9,29 */
  6084.     NULL,            /* 9,30 */
  6085.     NULL,            /* 9,31 */
  6086.     NULL,            /* 9,32 */
  6087.     NULL,            /* 9,33 */
  6088.     NULL,            /* 9,34 */
  6089.     NULL,            /* 9,35 */
  6090.     NULL,            /* 9,36 */
  6091.     NULL,            /* 9,37 */
  6092.     NULL,            /* 9,38 */
  6093.     NULL,            /* 9,39 */
  6094.     NULL,            /* 9,40 */
  6095.     NULL,            /* 9,41 */
  6096.     NULL,            /* 9,42 */
  6097.     NULL,            /* 9,43 */
  6098.     NULL,            /* 9,44 */
  6099.     NULL,            /* 9,45 */
  6100.     NULL,            /* 9,46 */
  6101.     NULL,            /* 9,47 */
  6102.     NULL,            /* 9,48 */
  6103.     NULL,            /* 10,00 */
  6104.     NULL,            /* 10,01 */
  6105.     NULL,            /* 10,02 */
  6106.     NULL,            /* 10,03 */
  6107.     NULL,            /* 10,04 */
  6108.     NULL,            /* 10,05 */
  6109.     NULL,            /* 10,06 */
  6110.     NULL,            /* 10,07 */
  6111.     NULL,            /* 10,08 */
  6112.     NULL,            /* 10,09 */
  6113.     NULL,            /* 10,10 */
  6114.     NULL,            /* 10,11 */
  6115.     NULL,            /* 10,12 */
  6116.     NULL,            /* 10,13 */
  6117.     NULL,            /* 10,14 */
  6118.     NULL,            /* 10,15 */
  6119.     NULL,            /* 10,16 */
  6120.     NULL,            /* 10,17 */
  6121.     NULL,            /* 10,18 */
  6122.     NULL,            /* 10,19 */
  6123.     NULL,            /* 10,20 */
  6124.     NULL,            /* 10,21 */
  6125.     NULL,            /* 10,22 */
  6126.     NULL,            /* 10,23 */
  6127.     NULL,            /* 10,24 */
  6128.     NULL,            /* 10,25 */
  6129.     NULL,            /* 10,26 */
  6130.     NULL,            /* 10,27 */
  6131.     NULL,            /* 10,28 */
  6132.     NULL,            /* 10,29 */
  6133.     NULL,            /* 10,30 */
  6134.     NULL,            /* 10,31 */
  6135.     NULL,            /* 10,32 */
  6136.     NULL,            /* 10,33 */
  6137.     NULL,            /* 10,34 */
  6138.     NULL,            /* 10,35 */
  6139.     NULL,            /* 10,36 */
  6140.     NULL,            /* 10,37 */
  6141.     NULL,            /* 10,38 */
  6142.     NULL,            /* 10,39 */
  6143.     NULL,            /* 10,40 */
  6144.     NULL,            /* 10,41 */
  6145.     NULL,            /* 10,42 */
  6146.     NULL,            /* 10,43 */
  6147.     NULL,            /* 10,44 */
  6148.     NULL,            /* 10,45 */
  6149.     NULL,            /* 10,46 */
  6150.     NULL,            /* 10,47 */
  6151.     NULL            /* 10,48 */
  6152. };
  6153. int nxlr = (sizeof(xlr) / sizeof(CHAR *));
  6154.  
  6155. /*
  6156.   Translation function table for sending files.
  6157.   Array of pointers to functions for translating from the local file
  6158.   character set to the transfer character set.  Indexed in the same
  6159.   way as the xlr array above, but with the indices reversed.
  6160. */
  6161. #ifdef CK_ANSIC
  6162. CHAR (*xls[MAXTCSETS+1][MAXFCSETS+1])(CHAR) =
  6163. #else
  6164. CHAR (*xls[MAXTCSETS+1][MAXFCSETS+1])() =
  6165. #endif /* CK_ANSIC */
  6166. {
  6167.     NULL,            /* 0,0 us ascii to transparent */
  6168.     NULL,            /* 0,1 uk ascii to transparent */
  6169.     NULL,            /* 0,2 dutch nrc to transparent */
  6170.     NULL,            /* 0,3 finnish nrc to transparent */
  6171.     NULL,            /* 0,4 french nrc to transparent */
  6172.     NULL,            /* 0,5 fr-canadian nrc to transparent */
  6173.     NULL,            /* 0,6 german nrc to transparent */
  6174.     NULL,            /* 0,7 hungarian nrc to transparent */
  6175.     NULL,            /* 0,8 italian nrc to transparent */
  6176.     NULL,            /* 0,9 norge/danish nrc to transparent */
  6177.     NULL,            /* 0,10 portuguese nrc to transparent */
  6178.     NULL,            /* 0,11 spanish nrc to transparent */
  6179.     NULL,            /* 0,12 swedish nrc to transparent */
  6180.     NULL,            /* 0,13 swiss nrc to transparent */
  6181.     NULL,            /* 0,14 latin-1 to transparent */
  6182.     NULL,            /* 0,15 latin-2 to transparent */
  6183.     NULL,            /* 0,16 DEC MCS to transparent */
  6184.     NULL,            /* 0,17 NeXT to transparent */
  6185.     NULL,            /* 0,18 CP437 to transparent */
  6186.     NULL,            /* 0,19 CP850 to transparent */
  6187.     NULL,            /* 0,20 CP852 to transparent */
  6188.     NULL,            /* 0,21 Macintosh Latin to transparent */
  6189.     NULL,            /* 0,22 DGI to transparent */
  6190.     NULL,            /* 0,23 HP to transparent */
  6191.     NULL,            /* 0,24 Latin/Cyrillic to transparent */
  6192.     NULL,                       /* 0,25 CP866 to transparent */
  6193.     NULL,                       /* 0,26 Short KOI to transparent */
  6194.     NULL,                       /* 0,27 Old KOI-8 to transparent */
  6195.     NULL,            /* 0,28 JIS-7 to transparent */
  6196.     NULL,            /* 0,29 Shift JIS to transparent */
  6197.     NULL,            /* 0,30 Japanese EUC to transparent */
  6198.     NULL,            /* 0,31 DEC Kanji to transparent */
  6199.     NULL,            /* 0,32 Hebrew-7 to transparent */
  6200.     NULL,            /* 0,33 Latin/Hebrew to transparent */
  6201.     NULL,            /* 0,34 CP862 Hebrew to transparent */
  6202.     NULL,            /* 0,35 ELOT 927 Greek to transparent */
  6203.     NULL,            /* 0,36 Latin/Greek to transparent */
  6204.     NULL,            /* 0,37 CP869 to transparent */
  6205.     NULL,            /* 0,38 Latin-9 to transparent */
  6206.     NULL,            /* 0,39 CP858 to transparent */
  6207.     NULL,            /* 0,40 CP855 to transparent */
  6208.     NULL,            /* 0,41 CP1251 to transparent */
  6209.     NULL,            /* 0,42 Bulgarian to transparent */
  6210.     NULL,            /* 0,43 CP1250 to transparent */
  6211.     NULL,            /* 0,44 Mazovia to transparent */
  6212.     NULL,            /* 0,45 UCS-2 to transparent */
  6213.     NULL,            /* 0,46 UTF-8 to transparent */
  6214.     NULL,            /* 0,47 KOI8R to transparent */
  6215.     NULL,            /* 0,48 KOI8U to transparent */
  6216.     NULL,            /* 1,0 us ascii to ascii */
  6217.     NULL,            /* 1,1 uk ascii to ascii */
  6218.     xduas,            /* 1,2 dutch nrc to ascii */
  6219.     xfias,            /* 1,3 finnish nrc to ascii */
  6220.     xfras,            /* 1,4 french nrc to ascii */
  6221.     xfcas,            /* 1,5 french canadian nrc to ascii */
  6222.     xgeas,            /* 1,6 german nrc to ascii */
  6223.     xhuas,            /* 1,7 hungarian nrc to ascii */
  6224.     xitas,            /* 1,8 italian nrc to ascii */
  6225.     xnoas,            /* 1,9 norwegian/danish nrc to ascii */
  6226.     xpoas,            /* 1,10 portuguese nrc to ascii */
  6227.     xspas,            /* 1,11 spanish nrc to ascii */
  6228.     xswas,            /* 1,12 swedish nrc to ascii */
  6229.     xchas,            /* 1,13 swiss nrc to ascii */
  6230.     xl1as,            /* 1,14 latin-1 to ascii */
  6231.     xl2as,            /* 1,15 latin-2 to ascii */
  6232.     xdmas,            /* 1,16 dec mcs to ascii */
  6233.     xneas,            /* 1,17 NeXT to ascii */
  6234.     x43as,            /* 1,18 CP437 to ascii */
  6235.     x85as,            /* 1,19 CP850 to ascii */
  6236.     x52as,            /* 1,20 CP850 to ascii */
  6237.     xaqas,            /* 1,21 Macintosh Latin to ascii */
  6238.     xdgas,            /* 1,22 DGI to ascii */
  6239.     xr8as,            /* 1,23 HP to ASCII */
  6240.     xlcas,            /* 1,24 Latin/Cyrillic to ASCII */
  6241.     xacas,                      /* 1,25 CP866 to ASCII */
  6242.     xskas,            /* 1,26 Short KOI to ASCII */
  6243.     xk8as,                      /* 1,27 Old KOI-8 Cyrillic to ASCII */
  6244.     NULL,            /* 1,28 */
  6245.     NULL,            /* 1,29 */
  6246.     NULL,            /* 1,30 */
  6247.     NULL,            /* 1,31 */
  6248.     xh7as,            /* 1,32 Hebrew-7 to ASCII */
  6249.     xlhas,            /* 1,33 Latin/Hebrew to ASCII */
  6250.     x62as,            /* 1,34 CP862 Hebrew to ASCII */
  6251.     xegas,            /* 1,35 ELOT 927 Greek to ASCII */
  6252.     xlgas,            /* 1,36 Latin/Greek to ASCII */
  6253.     x69as,            /* 1,37 CP869 to ASCII */
  6254.     xl9as,            /* 1,38 Latin-9 to ASCII */
  6255.     x58as,            /* 1,39 CP858 to ASCII */
  6256.     x55as,            /* 1,40 CP855 to ASCII */
  6257.     x1251as,            /* 1,41 CP1251 to ASCII */
  6258.     xleft128,            /* 1,42 Bulgarian to ASCII */
  6259.     x1250as,            /* 1,43 CP1250 to ASCII */
  6260.     xmzas,            /* 1,44 Mazovia to ASCII */
  6261.     NULL,            /* 1,45 UCS-2 to ASCII */
  6262.     NULL,            /* 1,46 UTF-8 to ASCII */
  6263.     xk8as,            /* 1,47 KOI8R to ASCII */
  6264.     xk8as,            /* 1,48 KOI8U to ASCII */
  6265.     NULL,            /* 2,0 us ascii to latin-1 */
  6266.     xukl1,            /* 2,1 uk ascii to latin-1 */
  6267.     xdul1,            /* 2,2 dutch nrc to latin-1 */
  6268.     xfil1,            /* 2,3 finnish nrc to latin-1 */
  6269.     xfrl1,            /* 2,4 french nrc to latin-1 */
  6270.     xfcl1,            /* 2,5 french canadian nrc to latin-1 */
  6271.     xgel1,            /* 2,6 german nrc to latin-1 */
  6272.     xhul1,            /* 2,7 hungarian nrc to latin-1 */
  6273.     xitl1,            /* 2,8 italian nrc to latin-1 */
  6274.     xnol1,            /* 2,9 norwegian/danish nrc to latin-1 */
  6275.     xpol1,            /* 2,10 portuguese nrc to latin-1 */
  6276.     xspl1,            /* 2,11 spanish nrc to latin-1 */
  6277.     xswl1,            /* 2,12 swedish nrc to latin-1 */
  6278.     xchl1,            /* 2,13 swiss nrc to latin-1 */
  6279.     NULL,            /* 2,14 latin-1 to latin-1 */
  6280.     xl2l1,            /* 2,15 latin-2 to latin-1 */
  6281.     xdml1,            /* 2,16 dec mcs to latin-1 */
  6282.     xnel1,                      /* 2,17 NeXT to Latin-1 */
  6283.     x43l1,                      /* 2,18 CP437 to Latin-1 */
  6284.     x85l1,                      /* 2,19 CP850 to Latin-1 */
  6285.     x52l1,                      /* 2,20 CP852 to Latin-1 */
  6286.     xaql1,                      /* 2,21 Macintosh Latin to Latin-1 */
  6287.     xdgl1,                      /* 2,22 DGI to Latin-1 */
  6288.     xr8l1,                      /* 2,23 HP to Latin-1 */
  6289.     xlcas,                      /* 2,24 Latin/Cyrillic to Latin-1 */
  6290.     xacas,                      /* 2,25 CP866 to Latin-1 */
  6291.     xskas,                      /* 2,26 Short KOI to Latin-1 */
  6292.     xk8as,                      /* 2,27 Old KOI-8 Cyrillic to Latin-1 */
  6293.     NULL,            /* 2,28 Kanji ... */
  6294.     NULL,            /* 2,29 */
  6295.     NULL,            /* 2,30 */
  6296.     NULL,            /* 2,31 */
  6297.     xh7as,            /* 2,32 Hebrew-7 to Latin-1 */
  6298.     xlhl1,            /* 2,33 Latin/Hebrew to Latin-1 */
  6299.     x62l1,            /* 2,34 CP862 Hebrew to Latin-1 */
  6300.     xegas,            /* 2,35 ELOT 927 Greek to Latin-1 */
  6301.     xlgl1,            /* 2,36 Latin/Greek to Latin-1 */
  6302.     NULL,            /* 2,37 CP869 to Latin-1 */
  6303.     NULL,            /* 2,38 Latin-9 to Latin-1 */
  6304.     x58l1,            /* 2,39 CP858 to Latin-1 */
  6305.     x55as,            /* 2,40 CP855 to Latin-1 */
  6306.     x1251as,            /* 2,41 CP1251 to Latin-1 */
  6307.     xleft128,            /* 2,42 Bulgarian to Latin-1 */
  6308.     x1250l1,            /* 2,43 CP1250 to Latin-1 */
  6309.     xmzl1,            /* 2,44 Mazovia to Latin-1 */
  6310.     NULL,            /* 2,45 UCS-2 to Latin-1 */
  6311.     NULL,            /* 2,46 UTF-8 to Latin-1 */
  6312.     xk8as,            /* 2,47 KOI8R to Latin-1 */
  6313.     xk8as,            /* 2,48 KOI8U to Latin-1 */
  6314.     NULL,            /* 3,0 us ascii to latin-2 */
  6315.     NULL,            /* 3,1 uk ascii to latin-2 */
  6316.     xduas,            /* 3,2 dutch nrc to latin-2 */
  6317.     xfias,            /* 3,3 finnish nrc to latin-2 */
  6318.     xfras,            /* 3,4 french nrc to latin-2 */
  6319.     xfcas,            /* 3,5 french canadian nrc to latin-2 */
  6320.     xgel2,            /* 3,6 german nrc to latin-2 */
  6321.     xhul2,            /* 3,7 hungarian nrc to latin-2 */
  6322.     xitas,            /* 3,8 italian nrc to latin-2 */
  6323.     xnoas,            /* 3,9 norwegian/danish nrc to latin-2 */
  6324.     xpoas,            /* 3,10 portuguese nrc to latin-2 */
  6325.     xspas,            /* 3,11 spanish nrc to latin-2 */
  6326.     xswas,            /* 3,12 swedish nrc to latin-2 */
  6327.     xchas,            /* 3,13 swiss nrc to latin-2 */
  6328.     xl1l2,            /* 3,14 latin-1 to latin-2 */
  6329.     NULL,            /* 3,15 latin-2 to latin-2 */
  6330.     xl1l2,            /* 3,16 dec mcs to latin-2 */
  6331.     xnel2,                      /* 3,17 NeXT to Latin-2 */
  6332.     x43l2,                      /* 3,18 CP437 to Latin-2 */
  6333.     x85l2,                      /* 3,19 CP850 to Latin-2 */
  6334.     x52l2,                      /* 3,20 CP852 to Latin-2 */
  6335.     xaql2,                      /* 3,21 Macintosh Latin to Latin-2 */
  6336.     xdgl2,                      /* 3,22 DGI to Latin-2 */
  6337.     xr8l2,                      /* 3,23 HP to Latin-2 */
  6338.     xlcas,                      /* 3,24 Latin/Cyrillic to Latin-2 */
  6339.     xacas,                      /* 3,25 CP866 to Latin-2 */
  6340.     xskas,                      /* 3,26 Short KOI to Latin-2 */
  6341.     xk8as,                      /* 3,27 Old KOI-8 Cyrillic to Latin-2 */
  6342.     NULL,            /* 3,28 Kanji ... */
  6343.     NULL,            /* 3,29 */
  6344.     NULL,            /* 3,30 */
  6345.     NULL,            /* 3,31 */
  6346.     xh7as,            /* 3,32 Hebrew-7 to Latin-2 */
  6347.     xlhas,            /* 3,33 Latin/Hebrew to Latin-2 */
  6348.     x62as,            /* 3,34 CP862 Hebrew to Latin-2 */
  6349.     xegas,            /* 3,35 ELOT 927 Greek to Latin-2 */
  6350.     xl2lg,            /* 3,36 Latin/Greek to Latin-2 */
  6351.     xleft128,            /* 3,37 CP869 to Latin-2 */
  6352.     xl9l2,            /* 3,38 Latin-9 to Latin-2 */
  6353.     x58l2,            /* 3,39 CP858 to Latin-2 */
  6354.     x55as,            /* 3,40 CP855 to Latin-2 */
  6355.     x1251as,            /* 3,41 CP1251 to Latin-2 */
  6356.     xleft128,            /* 3,42 Bulgarian to Latin-2 */
  6357.     x1250l2,            /* 3,43 CP1250 to Latin-2 */
  6358.     xmzl2,            /* 3,44 Mazovia to Latin-2 */
  6359.     NULL,            /* 3,45 UCS-2 to Latin-2 */
  6360.     NULL,            /* 3,46 UTF-8 to Latin-2 */
  6361.     xk8as,            /* 3,47 KOI8R to Latin-2 */
  6362.     xk8as,            /* 3,48 KOI8U to Latin-2 */
  6363.     xaslc,            /* 4,0 us ascii to latin/cyrillic */
  6364.     xaslc,            /* 4,1 uk ascii to latin/cyrillic */
  6365.     xduas,            /* 4,2 dutch nrc to latin/cyrillic */
  6366.     xfias,            /* 4,3 finnish nrc to latin/cyrillic */
  6367.     xfras,            /* 4,4 french nrc to latin/cyrillic */
  6368.     xfcas,            /* 4,5 french canadian nrc to latin/cyrillic */
  6369.     xgeas,            /* 4,6 german nrc to latin/cyrillic */
  6370.     xhuas,            /* 4,7 hungarian nrc to latin/cyrillic */
  6371.     xitas,            /* 4,8 italian nrc to latin/cyrillic */
  6372.     xnoas,            /* 4,9 norge/danish nrc to latin/cyrillic */
  6373.     xpoas,            /* 4,10 portuguese nrc to latin/cyrillic */
  6374.     xspas,            /* 4,11 spanish nrc to latin/cyrillic */
  6375.     xswas,            /* 4,12 swedish nrc to latin/cyrillic */
  6376.     xchas,            /* 4,13 swiss nrc to latin/cyrillic */
  6377.     xl1as,            /* 4,14 latin-1 to latin/cyrillic */
  6378.     xl2as,            /* 4,15 latin-2 to latin/cyrillic */
  6379.     xdmas,            /* 4,16 dec mcs to latin/cyrillic */
  6380.     xneas,            /* 4,17 NeXT to latin/cyrillic */
  6381.     x43as,            /* 4,18 CP437 to latin/cyrillic */
  6382.     x85as,            /* 4,19 CP850 to latin/cyrillic */
  6383.     x52as,            /* 4,20 CP852 to latin/cyrillic */
  6384.     xaqas,            /* 4,21 Macintosh Latin to latin/cyrillic */
  6385.     xdgas,            /* 4,22 DGI to Latin/Cyrillic */
  6386.     xr8as,            /* 4,23 HP to Latin/Cyrillic */
  6387.     NULL,                       /* 4,24 Latin/Cyrillic to Latin/Cyrillic */
  6388.     xaclc,                      /* 4,25 CP866 to Latin/Cyrillic */
  6389.     xskcy,                      /* 4,26 Short KOI to Latin/Cyrillic */
  6390.     xk8lc,                      /* 4,27 Old KOI-8 Cyrillic to Latin/Cyrillic */
  6391.     NULL,            /* 4,28 Kanji... */
  6392.     NULL,            /* 4,29 */
  6393.     NULL,            /* 4,30 */
  6394.     NULL,            /* 4,31 */
  6395.     xh7as,            /* 4,32 Hebrew-7 to Latin/Cyrillic */
  6396.     xlhas,            /* 4,33 Latin/Hebrew to Latin/Cyrillic */
  6397.     x62as,            /* 4,34 CP862 Hebrew to Latin/Cyrillic */
  6398.     xegas,            /* 4,35 ELOT 927 Greek to Latin/Cyrillic */
  6399.     xleft160,            /* 4,36 Latin/Greek to Latin/Cyrillic */
  6400.     xleft128,            /* 4,37 CP869 to Latin/Cyrillic */
  6401.     xl1as,            /* 4,38 latin-9 to latin/cyrillic */
  6402.     xleft128,            /* 4,39 CP858 to Latin/Cyrillic */
  6403.     x55lc,            /* 4,40 CP855 to Latin/Cyrillic */
  6404.     x1251lc,            /* 4,41 CP1251 to Latin/Cyrillic */
  6405.     xbulc,            /* 4,42 Bulgarian to Latin/Cyrillic */
  6406.     x1250as,            /* 4,43 CP1250 to Latin/Cyrillic */
  6407.     xmzas,            /* 4,44 Mazovia to Latin/Cyrillic */
  6408.     NULL,            /* 4,45 UCS-2 to Latin/Cyrillic */
  6409.     NULL,            /* 4,46 UTF-8 to Latin/Cyrillic */
  6410.     xkrlc,            /* 4,47 KOI8R to Latin/Cyrillic */
  6411.     xkulc,            /* 4,48 KOI8U to Latin/Cyrillic */
  6412.     NULL,            /* 5,00 */
  6413.     NULL,            /* 5,01 */
  6414.     NULL,            /* 5,02 */
  6415.     NULL,            /* 5,03 */
  6416.     NULL,            /* 5,04 */
  6417.     NULL,            /* 5,05 */
  6418.     NULL,            /* 5,06 */
  6419.     NULL,            /* 4.07 */
  6420.     NULL,            /* 5,08 */
  6421.     NULL,            /* 5,09 */
  6422.     NULL,            /* 5,10 */
  6423.     NULL,            /* 5,11 */
  6424.     NULL,            /* 5,12 */
  6425.     NULL,            /* 5,13 */
  6426.     NULL,            /* 5,14 */
  6427.     NULL,            /* 5,15 */
  6428.     NULL,            /* 5,16 */
  6429.     NULL,            /* 5,17 */
  6430.     NULL,            /* 5,18 */
  6431.     NULL,            /* 5,19 */
  6432.     NULL,            /* 5,20 */
  6433.     NULL,            /* 5,21 */
  6434.     NULL,            /* 5,22 */
  6435.     NULL,            /* 5,23 */
  6436.     NULL,            /* 5,24 */
  6437.     NULL,            /* 5,25 */
  6438.     NULL,            /* 5,26 */
  6439.     NULL,            /* 5,27 */
  6440.     NULL,            /* 5,28 */
  6441.     NULL,            /* 5,29 */
  6442.     NULL,            /* 5,30 */
  6443.     NULL,            /* 5,31 */
  6444.     NULL,            /* 5,32 */
  6445.     NULL,            /* 5,33 */
  6446.     NULL,            /* 5,34 */
  6447.     NULL,            /* 5,35 */
  6448.     NULL,            /* 5,36 */
  6449.     NULL,            /* 5,37 */
  6450.     NULL,            /* 5,38 */
  6451.     NULL,            /* 5,39 */
  6452.     NULL,            /* 5,40 */
  6453.     NULL,            /* 5,41 */
  6454.     NULL,            /* 5,42 */
  6455.     NULL,            /* 5,43 */
  6456.     NULL,            /* 5,44 */
  6457.     NULL,            /* 5,45 */
  6458.     NULL,            /* 5,46 */
  6459.     NULL,            /* 5,47 */
  6460.     NULL,            /* 5,48 */
  6461.     NULL,            /* 6,0 us ascii to Latin/Hebrew */
  6462.     NULL,            /* 6,1 uk ascii to Latin/Hebrew */
  6463.     xduas,            /* 6,2 dutch nrc to Latin/Hebrew */
  6464.     xfias,            /* 6,3 finnish nrc to Latin/Hebrew */
  6465.     xfras,            /* 6,4 french nrc to Latin/Hebrew */
  6466.     xfcas,            /* 6,5 french canadian nrc to Latin/Hebrew */
  6467.     xgeas,            /* 6,6 german nrc to Latin/Hebrew */
  6468.     xhuas,            /* 6,7 hungarian nrc to Latin/Hebrew */
  6469.     xitas,            /* 6,8 italian nrc to Latin/Hebrew */
  6470.     xnoas,            /* 6,9 norge/danish nrc to Latin/Hebrew */
  6471.     xpoas,            /* 6,10 portuguese nrc to Latin/Hebrew */
  6472.     xspas,            /* 6,11 spanish nrc to Latin/Hebrew */
  6473.     xswas,            /* 6,12 swedish nrc to Latin/Hebrew */
  6474.     xchas,            /* 6,13 swiss nrc to Latin/Hebrew */
  6475.     xl1lh,            /* 6,14 latin-1 to Latin/Hebrew */
  6476.     xl2as,            /* 6,15 latin-2 to Latin/Hebrew */
  6477.     xdmas,            /* 6,16 dec mcs to Latin/Hebrew */
  6478.     xneas,            /* 6,17 NeXT to Latin/Hebrew */
  6479.     x43as,            /* 6,18 CP437 to Latin/Hebrew */
  6480.     x85as,            /* 6,19 CP850 to Latin/Hebrew */
  6481.     x52as,            /* 6,20 CP852 to Latin/Hebrew */
  6482.     xaqas,            /* 6,21 Macintosh Latin to Latin/Hebrew */
  6483.     xdgas,            /* 6,22 DGI to Latin/Hebrew */
  6484.     xr8as,            /* 6,23 HP to Latin/Hebrew */
  6485.     xlcas,                      /* 6,24 Latin/Cyrillic to Latin/Hebrew */
  6486.     xacas,                      /* 6,25 CP866 to Latin/Hebrew */
  6487.     xskas,                      /* 6,26 Short KOI to Latin/Hebrew */
  6488.     xk8as,                      /* 6,27 Old KOI-8 Cyrillic to Latin/Hebrew */
  6489.     NULL,            /* 6,28 Kanji... */
  6490.     NULL,            /* 6,29 */
  6491.     NULL,            /* 6,30 */
  6492.     NULL,            /* 6,31 */
  6493.     xh7lh,            /* 6,32 Hebrew-7 to Latin/Hebrew */
  6494.     NULL,            /* 6,33 Latin/Hebrew to Latin/Hebrew */
  6495.     x62lh,            /* 6,34 CP862 Hebrew to Latin/Hebrew */
  6496.     xegas,            /* 6,35 ELOT 927 Greek to Latin/Hebrew */
  6497.     xlgas,            /* 6,36 Latin/Greek to Latin/Hebrew */
  6498.     x69as,            /* 6,37 CP869 to Latin/Hebrew */
  6499.     xl1as,            /* 6,38 latin-9 to Latin/Hebrew */
  6500.     x58as,            /* 6,39 CP858 to Latin/Hebrew */
  6501.     x55as,            /* 6,40 CP855 to Latin/Hebrew */
  6502.     x1251as,            /* 6,41 CP1251 to Latin/Hebrew */
  6503.     xleft128,            /* 6,42 Bulgarian to Latin/Hebrew */
  6504.     x1250as,            /* 6,43 CP1250 to Latin/Hebrew */
  6505.     xmzas,            /* 6,44 Mazovia to Latin/Hebrew */
  6506.     NULL,            /* 6,45 UCS-2 to Latin/Hebrew */
  6507.     NULL,            /* 6,46 UTF-8 to Latin/Hebrew */
  6508.     NULL,            /* 6,47 KOI8R to Latin/Hebrew */
  6509.     NULL,            /* 6,48 KOI8U to Latin/Hebrew */
  6510.     NULL,            /* 7,0 us ascii to Latin/Greek */
  6511.     NULL,            /* 7,1 uk ascii to Latin/Greek */
  6512.     xduas,            /* 7,2 dutch nrc to Latin/Greek */
  6513.     xfias,            /* 7,3 finnish nrc to Latin/Greek */
  6514.     xfras,            /* 7,4 french nrc to Latin/Greek */
  6515.     xfcas,            /* 7,5 french canadian nrc to Latin/Greek */
  6516.     xgeas,            /* 7,6 german nrc to Latin/Greek */
  6517.     xhuas,            /* 7,7 hungarian nrc to Latin/Greek */
  6518.     xitas,            /* 7,8 italian nrc to Latin/Greek */
  6519.     xnoas,            /* 7,9 norge/danish nrc to Latin/Greek */
  6520.     xpoas,            /* 7,10 portuguese nrc to Latin/Greek */
  6521.     xspas,            /* 7,11 spanish nrc to Latin/Greek */
  6522.     xswas,            /* 7,12 swedish nrc to Latin/Greek */
  6523.     xchas,            /* 7,13 swiss nrc to Latin/Greek */
  6524.     xl1lg,            /* 7,14 latin-1 to Latin/Greek */
  6525.     xl2lg,            /* 7,15 latin-2 to Latin/Greek */
  6526.     xl1lg,            /* 7,16 dec mcs to Latin/Greek */
  6527.     xneas,            /* 7,17 NeXT to Latin/Greek */
  6528.     xleft128,            /* 7,18 CP437 to Latin/Greek */
  6529.     x85as,            /* 7,19 CP850 to Latin/Greek */
  6530.     x52as,            /* 7,20 CP852 to Latin/Greek */
  6531.     xaqas,            /* 7,21 Macintosh Latin to Latin/Greek */
  6532.     xdgas,            /* 7,22 DGI to Latin/Greek */
  6533.     xr8as,            /* 7,23 HP to Latin/Greek */
  6534.     xleft160,                   /* 7,24 Latin/Cyrillic to Latin/Greek */
  6535.     xleft128,                   /* 7,25 CP866 to Latin/Greek */
  6536.     xskas,                      /* 7,26 Short KOI to Latin/Greek */
  6537.     xk8as,                      /* 7,27 Old KOI-8 Cyrillic to Latin/Greek */
  6538.     NULL,            /* 7,28 Kanji... */
  6539.     NULL,            /* 7,29 */
  6540.     NULL,            /* 7,30 */
  6541.     NULL,            /* 7,31 */
  6542.     xh7as,            /* 7,32 Hebrew-7 to Latin/Greek */
  6543.     NULL,            /* 7,33 Latin/Hebrew to Latin/Greek */
  6544.     x62as,            /* 7,34 CP862 Hebrew to Latin/Greek */
  6545.     xeglg,            /* 7,35 ELOT 927 Greek to Latin/Greek */
  6546.     NULL,            /* 7,36 Latin/Greek to Latin/Greek */
  6547.     x69lg,            /* 7,37 CP869 to Latin/Greek */
  6548.     xl1as,            /* 7,38 latin-9 to Latin/Greek */
  6549.     xl1as,            /* 7,39 latin-9 to Latin/Hebrew*/
  6550.     xleft128,            /* 7,40 CP855 to Latin/Greek */
  6551.     xleft128,            /* 7,41 CP1251 to Latin/Greek */
  6552.     xleft128,            /* 7,42 Bulgarian to Latin/Greek */
  6553.     x1250as,            /* 7,43 CP1250 to Latin/Greek */
  6554.     xmzas,            /* 7,44 Mazovia to Latin/Greek */
  6555.     NULL,            /* 7,45 UCS-2 to Latin/Greek */
  6556.     NULL,            /* 7,46 UTF-8 to Latin/Greek */
  6557.     NULL,            /* 7,47 KOI8R to Latin/Greek */
  6558.     NULL,            /* 7,48 KOI8U to Latin/Greek */
  6559.     NULL,            /* 8,0 us ascii to latin-9 */
  6560.     xukl1,            /* 8,1 uk ascii to latin-9 */
  6561.     xdul1,            /* 8,2 dutch nrc to latin-9 */
  6562.     xfil1,            /* 8,3 finnish nrc to latin-9 */
  6563.     xfrl1,            /* 8,4 french nrc to latin-9 */
  6564.     xfcl1,            /* 8,5 french canadian nrc to latin-9 */
  6565.     xgel1,            /* 8,6 german nrc to latin-9 */
  6566.     xhul1,            /* 8,7 hungarian nrc to latin-9 */
  6567.     xitl1,            /* 8,8 italian nrc to latin-9 */
  6568.     xnol1,            /* 8,9 norwegian/danish nrc to latin-9 */
  6569.     xpol1,            /* 8,10 portuguese nrc to latin-9 */
  6570.     xspl1,            /* 8,11 spanish nrc to latin-9 */
  6571.     xswl1,            /* 8,12 swedish nrc to latin-9 */
  6572.     xchl1,            /* 8,13 swiss nrc to latin-9 */
  6573.     NULL,            /* 8,14 latin-1 to latin-9 */
  6574.     xl2l9,            /* 8,15 latin-2 to latin-9 */
  6575.     xdml9,            /* 8,16 dec mcs to latin-9 */
  6576.     xnel9,                      /* 8,17 NeXT To Latin-9 */
  6577.     x43l1,                      /* 8,18 CP437 To Latin-9 */
  6578.     x85l1,                      /* 8,19 CP850 To Latin-9 */
  6579.     x52l1,                      /* 8,20 CP852 To Latin-9 */
  6580.     xaql1,                      /* 8,21 Macintosh Latin To Latin-9 */
  6581.     xdgl1,                      /* 8,22 DGI To Latin-9 */
  6582.     xr8l1,                      /* 8,23 HP To Latin-9 */
  6583.     xlcas,                      /* 8,24 Latin/Cyrillic To Latin-9 */
  6584.     xacas,                      /* 8,25 CP866 To Latin-9 */
  6585.     xskas,                      /* 8,26 Short KOI To Latin-9 */
  6586.     xk8as,                      /* 8,27 Old KOI-8 Cyrillic To Latin-9 */
  6587.     NULL,            /* 8,28 Kanji ... */
  6588.     NULL,            /* 8,29 */
  6589.     NULL,            /* 8,30 */
  6590.     NULL,            /* 8,31 */
  6591.     xh7as,            /* 8,32 Hebrew-7 To Latin-9 */
  6592.     xlhl1,            /* 8,33 Latin/Hebrew To Latin-9 */
  6593.     x62l1,            /* 8,34 CP862 Hebrew To Latin-9 */
  6594.     xegas,            /* 8,35 ELOT 927 Greek To Latin-9 */
  6595.     xlgl1,            /* 8,36 Latin/Greek To Latin-9 */
  6596.     xl169,            /* 8,37 CP869 To Latin-9 */
  6597.     NULL,            /* 8,38 Latin-9 To Latin-9 */
  6598.     x58l9,            /* 8,39 cp858 To Latin-9 */
  6599.     x55as,            /* 8,40 cp855 To Latin-9 */
  6600.     x55as,            /* 8,41 cp1251 To Latin-9 */
  6601.     xleft128,            /* 8,42 Bulgarian To Latin-9 */
  6602.     x1250l9,            /* 8,43 CP1250 To Latin-9 */
  6603.     xmzl9,            /* 8,44 Mazovia To Latin-9 */
  6604.     NULL,            /* 8,45 UCS-2 to Latin-9 */
  6605.     NULL,            /* 8,46 UTF-8 to Latin-9 */
  6606.     NULL,            /* 8,47 KOI8R to Latin-9 */
  6607.     NULL,            /* 8,48 KOI8U to Latin-9 */
  6608.     NULL,            /* 9,00 Unicode... */
  6609.     NULL,            /* 9,01 */
  6610.     NULL,            /* 9,02 */
  6611.     NULL,            /* 9,03 */
  6612.     NULL,            /* 9,04 */
  6613.     NULL,            /* 9,05 */
  6614.     NULL,            /* 9,06 */
  6615.     NULL,            /* 9,07 */
  6616.     NULL,            /* 9,08 */
  6617.     NULL,            /* 9,09 */
  6618.     NULL,            /* 9,10 */
  6619.     NULL,            /* 9,11 */
  6620.     NULL,            /* 9,12 */
  6621.     NULL,            /* 9,13 */
  6622.     NULL,            /* 9,14 */
  6623.     NULL,            /* 9,15 */
  6624.     NULL,            /* 9,16 */
  6625.     NULL,            /* 9,17 */
  6626.     NULL,            /* 9,18 */
  6627.     NULL,            /* 9,19 */
  6628.     NULL,            /* 9,20 */
  6629.     NULL,            /* 9,21 */
  6630.     NULL,            /* 9,22 */
  6631.     NULL,            /* 9,23 */
  6632.     NULL,            /* 9,24 */
  6633.     NULL,            /* 9,25 */
  6634.     NULL,            /* 9,26 */
  6635.     NULL,            /* 9,27 */
  6636.     NULL,            /* 9,28 */
  6637.     NULL,            /* 9,29 */
  6638.     NULL,            /* 9,30 */
  6639.     NULL,            /* 9,31 */
  6640.     NULL,            /* 9,32 */
  6641.     NULL,            /* 9,33 */
  6642.     NULL,            /* 9,34 */
  6643.     NULL,            /* 9,35 */
  6644.     NULL,            /* 9,36 */
  6645.     NULL,            /* 9,37 */
  6646.     NULL,            /* 9,38 */
  6647.     NULL,            /* 9,39 */
  6648.     NULL,            /* 9,40 */
  6649.     NULL,            /* 9,41 */
  6650.     NULL,            /* 9,42 */
  6651.     NULL,            /* 9,43 */
  6652.     NULL,            /* 9,44 */
  6653.     NULL,            /* 9,45 */
  6654.     NULL,            /* 9,46 */
  6655.     NULL,            /* 9,47 */
  6656.     NULL,            /* 9,48 */
  6657.     NULL,            /* 10,00 */
  6658.     NULL,            /* 10,01 */
  6659.     NULL,            /* 10,02 */
  6660.     NULL,            /* 10,03 */
  6661.     NULL,            /* 10,04 */
  6662.     NULL,            /* 10,05 */
  6663.     NULL,            /* 10,06 */
  6664.     NULL,            /* 10,07 */
  6665.     NULL,            /* 10,08 */
  6666.     NULL,            /* 10,09 */
  6667.     NULL,            /* 10,10 */
  6668.     NULL,            /* 10,11 */
  6669.     NULL,            /* 10,12 */
  6670.     NULL,            /* 10,13 */
  6671.     NULL,            /* 10,14 */
  6672.     NULL,            /* 10,15 */
  6673.     NULL,            /* 10,16 */
  6674.     NULL,            /* 10,17 */
  6675.     NULL,            /* 10,18 */
  6676.     NULL,            /* 10,19 */
  6677.     NULL,            /* 10,20 */
  6678.     NULL,            /* 10,21 */
  6679.     NULL,            /* 10,22 */
  6680.     NULL,            /* 10,23 */
  6681.     NULL,            /* 10,24 */
  6682.     NULL,            /* 10,25 */
  6683.     NULL,            /* 10,26 */
  6684.     NULL,            /* 10,27 */
  6685.     NULL,            /* 10,28 */
  6686.     NULL,            /* 10,29 */
  6687.     NULL,            /* 10,30 */
  6688.     NULL,            /* 10,31 */
  6689.     NULL,            /* 10,32 */
  6690.     NULL,            /* 10,33 */
  6691.     NULL,            /* 10,34 */
  6692.     NULL,            /* 10,35 */
  6693.     NULL,            /* 10,36 */
  6694.     NULL,            /* 10,37 */
  6695.     NULL,            /* 10,38 */
  6696.     NULL,            /* 10,39 */
  6697.     NULL,            /* 10,40 */
  6698.     NULL,            /* 10,41 */
  6699.     NULL,            /* 10,42 */
  6700.     NULL,            /* 10,43 */
  6701.     NULL,            /* 10,44 */
  6702.     NULL,            /* 10,45 */
  6703.     NULL,            /* 10,46 */
  6704.     NULL,            /* 10,47 */
  6705.     NULL            /* 10,48 */
  6706. };
  6707. int nxls = (sizeof(xls) / sizeof(CHAR *));
  6708.  
  6709. #ifndef NOLOCAL
  6710. /*
  6711.   The following routines are useful only for terminal character sets, and so
  6712.   ifdef'd out for NOLOCAL compilations.
  6713. */
  6714.  
  6715. /*
  6716.   C S _ I S _ N R C
  6717.  
  6718.   Returns nonzero if argument indicates a 7-bit national character set,
  6719.   zero otherwise.
  6720. */
  6721. int
  6722. cs_is_nrc(x) int x; {
  6723. #ifdef UNICODE
  6724.     if (x == TX_J201R || x == TX_DECSPEC || x == TX_DECTECH
  6725.         || txrinfo[x] == NULL)
  6726.       return(0);
  6727.     else
  6728.       return(txrinfo[x]->flags & X2U_STD && txrinfo[x]->size == 94);
  6729. #else /* UNICODE */
  6730.     if ((cs_size(x) == 94))
  6731.       return(1);
  6732.     else
  6733.       return(0);
  6734. #endif /* UNICODE */
  6735. }
  6736.  
  6737. /*
  6738.   C S _ I S _ S T D
  6739.  
  6740.   Returns nonzero if argument indicates an ISO 4873-standard-format
  6741.   character set, i.e. one in which the control region is NOT used for
  6742.   graphics; zero otherwise.
  6743. */
  6744. int
  6745. cs_is_std(x) int x; {
  6746. #ifdef UNICODE
  6747.     if (!txrinfo[x])            /* Even more safety */
  6748.       return(0);
  6749.     else if (txrinfo[x]->size == 128)    /* Just for safety */
  6750.       return(0);
  6751.     else
  6752.       return(txrinfo[x]->flags & X2U_STD); /* Only this should be needed */
  6753. #else
  6754.     switch (x) {
  6755.       case FC_CP437:            /* Code pages use C1 graphics */
  6756.       case FC_CP850:
  6757.       case FC_CP852:
  6758.       case FC_CP862:
  6759.       case FC_CP866:
  6760.       case FC_CP869:
  6761.       case FC_CP858:
  6762.       case FC_APPQD:            /* So do Apple and NeXTSTEP */
  6763.       case FC_NEXT:
  6764.     return(0);
  6765.       default:                /* Others behave */
  6766.     return(1);
  6767.     }
  6768. #endif /* CKOUINI */
  6769. }
  6770.  
  6771. int
  6772. cs_size(x) int x; {
  6773. #ifdef UNICODE
  6774.     if (!txrinfo[x])
  6775.       return(128);
  6776.     return(txrinfo[x]->size);
  6777. #else
  6778.     switch(x) {
  6779.       case FC_USASCII:
  6780.       case FC_UKASCII:
  6781.       case FC_DUASCII:
  6782.       case FC_FIASCII:
  6783.       case FC_FRASCII:
  6784.       case FC_FCASCII:
  6785.       case FC_GEASCII:
  6786.       case FC_HUASCII:
  6787.       case FC_ITASCII:
  6788.       case FC_NOASCII:
  6789.       case FC_POASCII:
  6790.       case FC_SPASCII:
  6791.       case FC_SWASCII:
  6792.       case FC_CHASCII:
  6793.       case FC_KOI7:
  6794.       case FC_HE7:
  6795.       case FC_ELOT:
  6796.     return(94);
  6797.  
  6798.       case FC_1LATIN:
  6799.       case FC_2LATIN:
  6800.       case FC_DECMCS:
  6801.       case FC_DGMCS:
  6802.       case FC_HPR8:
  6803.       case FC_CYRILL:
  6804.       case FC_KOI8:
  6805.       case FC_HEBREW:
  6806.       case FC_GREEK:
  6807.       case FC_9LATIN:
  6808.     return(96);
  6809.  
  6810.       case FC_NEXT:
  6811.       case FC_CP437:
  6812.       case FC_CP850:
  6813.       case FC_CP852:
  6814.       case FC_CP855:
  6815.       case FC_CP862:
  6816.       case FC_CP866:
  6817.       case FC_CP1251:
  6818.       case FC_APPQD:
  6819.     return(128);
  6820. #ifdef KANJI
  6821.       case FC_JIS7:
  6822.     return(-94);
  6823.       case FC_SHJIS:
  6824.     return(-128);
  6825.       case FC_JEUC:
  6826.       case FC_JDEC:
  6827.     return(-96);
  6828. #endif /* KANJI */
  6829.       case FC_CP858:
  6830.       default:
  6831.     return(-1);
  6832.     }
  6833. #endif /* UNICODE */
  6834. }
  6835. #endif /* NOLOCAL */
  6836.  
  6837. /*
  6838.   S E T X L A T Y P E  --  Set Translation Type
  6839.  
  6840.   Sets global xlatype to indicate which kind of translation:
  6841.  
  6842.     XLA_NONE      No translation
  6843.     XLA_BYTE      Byte-for-Byte translation
  6844.     XLA_JAPAN     Japanese Kanji translation
  6845.     XLA_UNICODE   Unicode translations
  6846.  
  6847.   And sets up the appropriate translation function pointers as follows:
  6848.  
  6849.   For no translation:
  6850.     All function pointers are NULL.
  6851.  
  6852.   For Byte-for-Byte transation:
  6853.     rx  = TCS to FCS (these functions are in this module...)
  6854.     sx  = FCS to TCS
  6855.  
  6856.   For Unicode translations:
  6857.     xfu = FCS to UCS (these functions are in ckcuni.c...)
  6858.     xtu = TCS to UCS
  6859.     xuf = UCS to FCS
  6860.     xut = UCS to TCS
  6861. */
  6862. VOID
  6863. setxlatype(tcs, fcs) int tcs, fcs; {
  6864. #ifdef UNICODE
  6865.     xfu = NULL;                /* Unicode <-> TCS/FCS functions */
  6866.     xtu = NULL;
  6867.     xuf = NULL;
  6868.     xut = NULL;
  6869. #endif /* UNICODE */
  6870.     rx = sx = NULL;
  6871.     debug(F101,"setxlatype fcs","",fcs);
  6872.     debug(F101,"setxlatype tcs","",tcs);
  6873.  
  6874.     if (tcs < 0 || tcs > MAXTCSETS) {
  6875.     debug(F101,"setxlatype bad tcs","",tcs);
  6876.     return;
  6877.     }
  6878.     if (fcs < 0 || fcs > MAXFCSETS) {
  6879.     debug(F101,"setxlatype bad fcs","",fcs);
  6880.     return;
  6881.     }
  6882.     if (tcs == TC_TRANSP) {        /* Transfer charset is TRANSPARENT */
  6883.     debug(F101,"setxlatype transparent because TCS==Transparent","",tcs);
  6884.     xlatype = XLA_NONE;        /* Translation type is None */
  6885. #ifdef UNICODE
  6886.     /* If any of our charsets is Unicode we use Unicode functions */
  6887.     /* even if TCS and FCS are the same because of BOM and byte swapping */
  6888.     } else if (tcs == TC_UCS2 || tcs == TC_UTF8 ||
  6889.            fcs == FC_UCS2 || fcs == FC_UTF8) {
  6890.     debug(F101,"setxlatype Unicode tcs","",tcs);
  6891.     debug(F101,"setxlatype Unicode fcs","",fcs);
  6892.     /* Unicode <-> TCS/FCS functions */
  6893.     xfu = xl_fcu[fcs];        /* FCS -> UCS */
  6894.     xtu = xl_tcu[tcs];        /* TCS -> UCS */
  6895.     xuf = xl_ufc[fcs];        /* UCS -> FCS */
  6896.     xut = xl_utc[tcs];        /* UCS -> TCS */
  6897.         xlatype = XLA_UNICODE;        /* Translation type is Unicode */
  6898.     debug(F001,"setxlatype Unicode xfu","",(unsigned)xfu);
  6899.     debug(F001,"setxlatype Unicode xuf","",(unsigned)xuf);
  6900. #endif /* UNICODE */
  6901.     } else if (cseqtab[tcs] == fcs) {    /* Or if TCS == FCS */
  6902.     debug(F101,"setxlatype transparent because TCS==FCS","",tcs);
  6903.     xlatype = XLA_NONE;        /* translation type is also None */
  6904. #ifdef KANJI
  6905.     /* Otherwise if any of them is Japanese, we use Kanji functions */
  6906.     } else if (tcs == TC_JEUC || fcsinfo[fcs].alphabet == AL_JAPAN) {
  6907.     debug(F101,"setxlatype Japanese tcs","",tcs);
  6908.     debug(F101,"setxlatype Japanese fcs","",fcs);
  6909.         xlatype = XLA_JAPAN;        /* Translation type is Japanese */
  6910. #endif /* KANJI */
  6911.     /* Otherwise we use byte functions */
  6912.     } else {                /* Otherwise... */
  6913.     rx = xlr[tcs][fcs];        /* Input translation function */
  6914.     sx = xls[tcs][fcs];        /* Output translation function */
  6915.     debug(F101,"setxlatype Byte tcs","",tcs);
  6916.     debug(F101,"setxlatype Byte fcs","",fcs);
  6917.         xlatype = XLA_BYTE;        /* Translation type is Byte */
  6918.     }
  6919.     debug(F101,"setxlatype xlatype","",xlatype);
  6920. }
  6921.  
  6922. /* Set up translation between two file character sets with UCS intermediate */
  6923.  
  6924. #ifdef UNICODE
  6925. VOID
  6926. initxlate(csin, csout) int csin, csout; {
  6927.     xfu = NULL;
  6928.     xtu = NULL;
  6929.     xuf = NULL;
  6930.     xut = NULL;
  6931.  
  6932.     debug(F101,"initxlate csin","",csin);
  6933.     debug(F101,"initxlate csout","",csout);
  6934.  
  6935.     if (csin < 0 || csin > MAXFCSETS) {
  6936.     debug(F101,"initxlate bad csin","",csin);
  6937.     return;
  6938.     }
  6939.     if (csout < 0 || csout > MAXFCSETS) {
  6940.     debug(F101,"initxlate bad csout","",csout);
  6941.     return;
  6942.     }
  6943.     if (csin == csout && csin != FC_UCS2) {
  6944.     xlatype = XLA_NONE;        /* Translation type is None */
  6945.     return;
  6946.     }
  6947.     xlatype = XLA_UNICODE;        /* Translation type is Unicode */
  6948.     xfu = xl_fcu[csin];            /* FCS -> UCS */
  6949.     xuf = xl_ufc[csout];        /* UCS -> FCS */
  6950.     xpnbyte(-1,0,0,NULL);        /* Reset UCS-2 */
  6951.     debug(F001,"initxlate Unicode xfu","",(unsigned)xfu);
  6952.     debug(F001,"initxlate Unicode xuf","",(unsigned)xuf);
  6953.     debug(F101,"initxlate xlatype","",xlatype);
  6954. }
  6955. #endif /* UNICODE */
  6956.  
  6957. int csetsinited = 0;
  6958.  
  6959. VOID
  6960. initcsets() {                /* Routine to reset or initialize */
  6961.     int i;                /* character-set associations. */
  6962.  
  6963. #ifdef UNICODE
  6964.     if (ucsorder < 0)            /* for creating UCS-2 files. */
  6965.       ucsorder = byteorder;
  6966.     if (ucsorder < 0)
  6967.       ucsorder = 0;
  6968. #endif /* UNICODE */
  6969.  
  6970.     debug(F101,"initcsets nxls","",nxls);
  6971.     debug(F101,"initcsets nxlr","",nxlr);
  6972.  
  6973.     debug(F101,"initcsets TERM LOCAL CSET","",tcsl);
  6974.     debug(F101,"initcsets TERM REMOTE CSET","",tcsr);
  6975.  
  6976.     for (i = 0; i <= MAXFCSETS; i++)    /* First clear them all... */
  6977.       afcset[i] = -1;
  6978.     for (i = 0; i <= MAXTCSETS; i++)
  6979.       axcset[i] = -1;
  6980.  
  6981.     /* Now set specific defaults for incoming files */
  6982.  
  6983.     xlatype = XLA_NONE;
  6984.  
  6985.     axcset[TC_TRANSP]  = FC_TRANSP;
  6986.     axcset[TC_USASCII] = FC_USASCII;
  6987.  
  6988. #ifdef OS2
  6989.     switch (fcharset) {
  6990.       case FC_CP850:
  6991.       case FC_CP858:
  6992.       case FC_CP437:
  6993.       case FC_1LATIN:
  6994.     axcset[TC_1LATIN]  = fcharset;
  6995.     break;
  6996.       default:
  6997.     axcset[TC_1LATIN]  = FC_CP850;
  6998.     }
  6999. #else
  7000. #ifdef HPUX
  7001.     axcset[TC_1LATIN]  = FC_HPR8;
  7002. #else
  7003. #ifdef VMS
  7004.     axcset[TC_1LATIN]  = FC_DECMCS;
  7005. #else
  7006. #ifdef NEXT
  7007.     axcset[TC_1LATIN]  = FC_NEXT;
  7008. #else
  7009. #ifdef datageneral
  7010.     axcset[TC_1LATIN]  = FC_DGMCS;
  7011. #else
  7012.     /* Should we use code pages on some PC based UNIXes? */
  7013.     axcset[TC_1LATIN]  = FC_1LATIN;
  7014. #endif /* datageneral */
  7015. #endif /* NEXT */
  7016. #endif /* VMS */
  7017. #endif /* HPUX */
  7018. #endif /* OS2 */
  7019.  
  7020. #ifdef OS2
  7021.     axcset[TC_2LATIN]  = FC_CP852;
  7022.     axcset[TC_CYRILL]  = FC_CP866;
  7023.     axcset[TC_JEUC]    = FC_SHJIS;
  7024.     axcset[TC_HEBREW]  = FC_CP862;
  7025.     axcset[TC_GREEK]   = FC_CP869;
  7026.     axcset[TC_9LATIN]  = FC_CP858;
  7027.     axcset[TC_UCS2]    = FC_UCS2;
  7028.     axcset[TC_UTF8]    = FC_UCS2;
  7029. #else
  7030.     axcset[TC_2LATIN]  = FC_2LATIN;
  7031.     axcset[TC_CYRILL]  = FC_CYRILL;
  7032.     axcset[TC_JEUC]    = FC_JEUC;
  7033.     axcset[TC_HEBREW]  = FC_HEBREW;
  7034.     axcset[TC_GREEK]   = FC_GREEK;
  7035.     axcset[TC_9LATIN]  = FC_9LATIN;
  7036.     axcset[TC_UCS2]    = FC_UTF8;
  7037.     axcset[TC_UTF8]    = FC_UTF8;
  7038. #endif /* OS2 */
  7039.  
  7040.     /* And for outbound files */
  7041.  
  7042.     afcset[FC_USASCII] = TC_USASCII;
  7043.     afcset[FC_UKASCII] = TC_1LATIN;
  7044.     afcset[FC_DUASCII] = TC_1LATIN;
  7045.     afcset[FC_FIASCII] = TC_1LATIN;
  7046.     afcset[FC_FRASCII] = TC_1LATIN;
  7047.     afcset[FC_FCASCII] = TC_1LATIN;
  7048.     afcset[FC_GEASCII] = TC_1LATIN;
  7049.     afcset[FC_HUASCII] = TC_2LATIN;
  7050.     afcset[FC_ITASCII] = TC_1LATIN;
  7051.     afcset[FC_NOASCII] = TC_1LATIN;
  7052.     afcset[FC_POASCII] = TC_1LATIN;
  7053.     afcset[FC_SPASCII] = TC_1LATIN;
  7054.     afcset[FC_SWASCII] = TC_1LATIN;
  7055.     afcset[FC_CHASCII] = TC_1LATIN;
  7056.     afcset[FC_1LATIN]  = TC_1LATIN;
  7057.     afcset[FC_2LATIN]  = TC_2LATIN;
  7058.     afcset[FC_DECMCS]  = TC_1LATIN;
  7059.     afcset[FC_NEXT]    = TC_1LATIN;
  7060.     afcset[FC_CP437]   = TC_1LATIN;
  7061.     afcset[FC_CP850]   = TC_1LATIN;
  7062.     afcset[FC_CP852]   = TC_2LATIN;
  7063.     afcset[FC_APPQD]   = TC_1LATIN;
  7064.     afcset[FC_DGMCS]   = TC_1LATIN;
  7065.     afcset[FC_HPR8]    = TC_1LATIN;
  7066.     afcset[FC_CYRILL]  = TC_CYRILL;
  7067.     afcset[FC_CP866]   = TC_CYRILL;
  7068.     afcset[FC_KOI7]    = TC_CYRILL;
  7069.     afcset[FC_KOI8]    = TC_CYRILL;
  7070.     afcset[FC_JIS7]    = TC_JEUC;
  7071.     afcset[FC_SHJIS]   = TC_JEUC;
  7072.     afcset[FC_JEUC]    = TC_JEUC;
  7073.     afcset[FC_JDEC]    = TC_JEUC;
  7074.     afcset[FC_HE7]     = TC_HEBREW;
  7075.     afcset[FC_HEBREW]  = TC_HEBREW;
  7076.     afcset[FC_CP862]   = TC_HEBREW;
  7077.     afcset[FC_ELOT]    = TC_GREEK;
  7078.     afcset[FC_GREEK]   = TC_GREEK;
  7079.     afcset[FC_CP869]   = TC_GREEK;
  7080.     afcset[FC_9LATIN]  = TC_9LATIN;
  7081.     afcset[FC_CP923]   = TC_9LATIN;
  7082.     afcset[FC_CP858]   = TC_9LATIN;
  7083.     afcset[FC_CP855]   = TC_CYRILL;
  7084.     afcset[FC_CP1251]  = TC_CYRILL;
  7085.     afcset[FC_BULGAR]  = TC_CYRILL;
  7086.     afcset[FC_CP1250]  = TC_2LATIN;
  7087.     afcset[FC_MAZOVIA] = TC_2LATIN;
  7088. #ifdef COMMENT
  7089.     afcset[FC_UCS2]    = TC_UCS2;
  7090.     afcset[FC_UTF8]    = TC_UTF8;
  7091. #endif /* COMMENT */
  7092.     csetsinited++;
  7093.     return;
  7094. }
  7095. #endif /* NOCSETS */
  7096.