开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 通讯/手机编程 > 查看源码
ckuxla.c
资源名称：cku197.tar.Z　[点击查看]
上传用户：dufan58
上传日期：2007-01-05
资源大小：3407k
文件大小：255k
源码类别：

通讯/手机编程

开发平台：

Windows_Unix

ckuxla.c：源码内容
  1. #endif /* CK_ANSIC */
  2. { /* xll252 */
  3.     return(yl252[c]);
  4. }
  6. CHAR /* Latin-2 to Mazovia */
  7. #ifdef CK_ANSIC
  8. xl2mz(CHAR c)
  9. #else
  10. xl2mz(c) CHAR c;
  11. #endif /* CK_ANSIC */
  12. { /* xll2mz */
  13.     return(yl2mz[c]);
  14. }
  16. CHAR /* Latin-1 to Mazovia */
  17. #ifdef CK_ANSIC
  18. xl1mz(CHAR c)
  19. #else
  20. xl1mz(c) CHAR c;
  21. #endif /* CK_ANSIC */
  22. { /* xll1mz */
  23.     return(yl2mz[yl1l2[c]]);
  24. }
  26. CHAR /* Mazovia to Latin-1 */
  27. #ifdef CK_ANSIC
  28. xmzl1(CHAR c)
  29. #else
  30. xmzl1(c) CHAR c;
  31. #endif /* CK_ANSIC */
  32. { /* xmzl1 */
  33.     return(yl2l1[ymzl2[c]]);
  34. }
  36. CHAR /* Mazovia to Latin-9 */
  37. #ifdef CK_ANSIC
  38. xmzl9(CHAR c)
  39. #else
  40. xmzl9(c) CHAR c;
  41. #endif /* CK_ANSIC */
  42. { /* xmzl9 */
  43.     return(xl2l9(ymzl2[c]));
  44. }
  46. CHAR /* CP852 to Latin-2 */
  47. #ifdef CK_ANSIC
  48. x52l2(CHAR c)
  49. #else
  50. x52l2(c) CHAR c;
  51. #endif /* CK_ANSIC */
  52. { /* x52l2 */
  53.     return(y52l2[c]);
  54. }
  56. CHAR /* Mazovia to Latin-2 */
  57. #ifdef CK_ANSIC
  58. xmzl2(CHAR c)
  59. #else
  60. xmzl2(c) CHAR c;
  61. #endif /* CK_ANSIC */
  62. { /* xmzl2 */
  63.     return(ymzl2[c]);
  64. }
  66. CHAR /* Latin-2 to CP1250 */
  67. #ifdef CK_ANSIC
  68. xl21250(CHAR c)
  69. #else
  70. xl21250(c) CHAR c;
  71. #endif /* CK_ANSIC */
  72. { /* xll21250 */
  73.     return(yl21250[c]);
  74. }
  76. CHAR /* CP1250 to Latin-2 */
  77. #ifdef CK_ANSIC
  78. x1250l2(CHAR c)
  79. #else
  80. x1250l2(c) CHAR c;
  81. #endif /* CK_ANSIC */
  82. { /* x1250l2 */
  83.     return(y1250l2[c]);
  84. }
  86. CHAR /* CP852 to ASCII */
  87. #ifdef CK_ANSIC
  88. x52as(CHAR c)
  89. #else
  90. x52as(c) CHAR c;
  91. #endif /* CK_ANSIC */
  92. { /* xl52as */
  93.     return(yl2as[y52l2[c]]); /* CP852 -> Latin-2 -> ASCII */
  94. }
  96. CHAR /* CP1250 to ASCII */
  97. #ifdef CK_ANSIC
  98. x1250as(CHAR c)
  99. #else
  100. x1250as(c) CHAR c;
  101. #endif /* CK_ANSIC */
  102. { /* xl1250as */
  103.     return(yl2as[y1250l2[c]]); /* CP81250 -> Latin-2 -> ASCII */
  104. }
  107. CHAR /* CP852 to Latin-1 */
  108. #ifdef CK_ANSIC
  109. x52l1(CHAR c)
  110. #else
  111. x52l1(c) CHAR c;
  112. #endif /* CK_ANSIC */
  113. { /* xl52l1 */
  114.     return(yl2l1[y52l2[c]]); /* CP852 -> Latin-2 -> Latin-1 */
  115. }
  117. CHAR /* CP1250 to Latin-1 */
  118. #ifdef CK_ANSIC
  119. x1250l1(CHAR c)
  120. #else
  121. x1250l1(c) CHAR c;
  122. #endif /* CK_ANSIC */
  123. { /* xl1250l1 */
  124.     return(yl2l1[y1250l2[c]]); /* CP1250 -> Latin-2 -> Latin-1 */
  125. }
  127. CHAR /* CP1250 to Latin-9 */
  128. #ifdef CK_ANSIC
  129. x1250l9(CHAR c)
  130. #else
  131. x1250l9(c) CHAR c;
  132. #endif /* CK_ANSIC */
  133. { /* x1250l9 */
  134.     if (c == (CHAR)128) /* Euro */
  135.       return((CHAR)164);
  136.     else
  137.       return(xl2l9(y1250l2[c])); /* CP1250 -> Latin-2 -> Latin-9 */
  138. }
  140. CHAR /* Latin-1 to CP852 */
  141. #ifdef CK_ANSIC
  142. xl152(CHAR c)
  143. #else
  144. xl152(c) CHAR c;
  145. #endif /* CK_ANSIC */
  146. { /* xll152 */
  147.     return(yl252[yl1l2[c]]); /* Latin-1 -> Latin-2 -> CP852 */
  148. }
  150. CHAR /* Latin-1 to CP1250 */
  151. #ifdef CK_ANSIC
  152. xl11250(CHAR c)
  153. #else
  154. xl11250(c) CHAR c;
  155. #endif /* CK_ANSIC */
  156. { /* xll11250 */
  157.     return(yl21250[yl1l2[c]]); /* Latin-1 -> Latin-2 -> CP1250 */
  158. }
  160. CHAR /* Latin-9 to CP1250 */
  161. #ifdef CK_ANSIC
  162. xl91250(CHAR c)
  163. #else
  164. xl91250(c) CHAR c;
  165. #endif /* CK_ANSIC */
  166. { /* xll91250 */
  167.     if (c == (CHAR)164) /* Euro */
  168.       return((CHAR)128);
  169.     else
  170.       return(yl21250[xl9l2(c)]); /* Latin-9 -> Latin-2 -> CP1250 */
  171. }
  173. CHAR /* Latin-9 to Mazovia */
  174. #ifdef CK_ANSIC
  175. xl9mz(CHAR c)
  176. #else
  177. xl9mz(c) CHAR c;
  178. #endif /* CK_ANSIC */
  179. { /* xll9mz */
  180.     return(yl2mz[xl9l2(c)]); /* Latin-9 -> Latin-2 -> Mazovia */
  181. }
  183. CHAR /* Latin-9 to Mazovia */
  184. #ifdef CK_ANSIC
  185. xmzas(CHAR c)
  186. #else
  187. xmzas(c) CHAR c;
  188. #endif /* CK_ANSIC */
  189. { /* xmzas */
  190.     return(yl2as[xmzl2(c)]); /* Mazovia -> Latin-2 -> ASCII */
  191. }
  193. CHAR /* Latin-2 to NeXT */
  194. #ifdef CK_ANSIC
  195. xl2ne(CHAR c)
  196. #else
  197. xl2ne(c) CHAR c;
  198. #endif /* CK_ANSIC */
  199. { /* xll2ne */
  200.     switch(c) {
  201.       case 162: return(198); /* Breve */
  202.       case 163: return(232); /* L with stroke */
  203.       case 178: return(206); /* Ogonek */
  204.       case 179: return(248); /* l with stroke */
  205.       case 183: return(207); /* Caron */
  206.       case 189: return(205); /* Double acute */
  207.       case 208: return(144); /* D stroke = Eth */
  208.       case 240: return(230); /* d stroke = eth */
  209.       case 255: return(199); /* Dot above */
  210.       default:  return(yl1ne[yl2l1[c]]);
  211.     }
  212. }
  214. CHAR /* Latin-2 to CP437 */
  215. #ifdef CK_ANSIC
  216. xl243(CHAR c)
  217. #else
  218. xl243(c) CHAR c;
  219. #endif /* CK_ANSIC */
  220. { /* xll243 */
  221.     return(yl1l2[y43l1[c]]);
  222. }
  224. CHAR /* Latin-2 to CP850 */
  225. #ifdef CK_ANSIC
  226. xl285(CHAR c)
  227. #else
  228. xl285(c) CHAR c;
  229. #endif /* CK_ANSIC */
  230. { /* xll285 */
  231.     return(yl1l2[y85l1[c]]);
  232. }
  234. CHAR /* Latin-2 to Apple */
  235. #ifdef CK_ANSIC
  236. xl2aq(CHAR c)
  237. #else
  238. xl2aq(c) CHAR c;
  239. #endif /* CK_ANSIC */
  240. { /* xl2aq */
  241.     return(yl1aq[yl2l1[c]]); /* Could do more... */
  242. }
  244. CHAR /* Latin-2 to DGI */
  245. #ifdef CK_ANSIC
  246. xl2dg(CHAR c)
  247. #else
  248. xl2dg(c) CHAR c;
  249. #endif /* CK_ANSIC */
  250. { /* xll2dg */
  251.     return(ydgl1[yl1l2[c]]);
  252. }
  254. CHAR /* Latin-2 to Short KOI */
  255. #ifdef CK_ANSIC
  256. xl2sk(CHAR c)
  257. #else
  258. xl2sk(c) CHAR c;
  259. #endif /* CK_ANSIC */
  260. { /* xll2sk */
  261.     return(islower(c) ? toupper(c) : c);
  262. }
  264. CHAR /* NeXT to Latin-2 */
  265. #ifdef CK_ANSIC
  266. xnel2(CHAR c)
  267. #else
  268. xnel2(c) CHAR c;
  269. #endif /* CK_ANSIC */
  270. { /* xnel2 */
  271.     switch (c) {
  272.       case 144: return(208); /* D stroke = Eth */
  273.       case 198: return(162); /* Breve */
  274.       case 199: return(255); /* Dot above */
  275.       case 205: return(189); /* Double acute */
  276.       case 206: return(178); /* Ogonek */
  277.       case 207: return(183); /* Caron */
  278.       case 230: return(240); /* d stroke = eth */
  279.       case 232: return(163); /* L with stroke */
  280.       case 248: return(179); /* l with stroke */
  281.       default:  return(yl1l2[ynel1[c]]); /* Others, go thru Latin-1 */
  282.     }
  283. }
  285. CHAR /* CP437 to Latin-2 */
  286. #ifdef CK_ANSIC
  287. x43l2(CHAR c)
  288. #else
  289. x43l2(c) CHAR c;
  290. #endif /* CK_ANSIC */
  291. { /* xl43l2 */
  292.     return(yl1l2[y43l1[c]]);
  293. }
  295. CHAR /* CP850 to Latin-2 */
  296. #ifdef CK_ANSIC
  297. x85l2(CHAR c)
  298. #else
  299. x85l2(c) CHAR c;
  300. #endif /* CK_ANSIC */
  301. { /* xl85l2 */
  302.     return(yl1l2[y85l1[c]]);
  303. }
  305. CHAR /* Apple to Latin-2 */
  306. #ifdef CK_ANSIC
  307. xaql2(CHAR c)
  308. #else
  309. xaql2(c) CHAR c;
  310. #endif /* CK_ANSIC */
  311. { /* xlaql2 */
  312.     switch (c) {
  313.       case 249: return(162); /* Breve accent */
  314.       case 250: return(255); /* Dot accent */
  315.       case 253: return(189); /* Double acute */
  316.       default: return(yl1l2[yaql1[c]]);
  317.     }
  318. }
  320. CHAR /* DGI to Latin-2 */
  321. #ifdef CK_ANSIC
  322. xdgl2(CHAR c)
  323. #else
  324. xdgl2(c) CHAR c;
  325. #endif /* CK_ANSIC */
  326. { /* xldgl2 */
  327.     return(yl1l2[ydgl1[c]]); /* (for now) */
  328. }
  330. CHAR /* Short KOI to Latin-2 */
  331. #ifdef CK_ANSIC
  332. xskl2(CHAR c)
  333. #else
  334. xskl2(c) CHAR c;
  335. #endif /* CK_ANSIC */
  336. { /* xlskl2 */
  337.     return(islower(c) ? toupper(c) : c);
  338. }
  340. CHAR /* Latin-2 to German */
  341. #ifdef CK_ANSIC
  342. xl2ge(CHAR c)
  343. #else
  344. xl2ge(c) CHAR c;
  345. #endif /* CK_ANSIC */
  346. { /* xll2ge */
  347.     switch(c) {
  348.       case 167: return(64); /* Paragraph sign */
  349.       case 196: return(91); /* A-diaeresis */
  350.       case 214: return(92); /* O-diaeresis */
  351.       case 220: return(93); /* U-diaeresis */
  352.       case 223: return(126); /* double-s */
  353.       case 228: return(123); /* a-diaeresis */
  354.       case 246: return(124); /* o-diaeresis */
  355.       case 252: return(125); /* u-diaeresis */
  356.       default:  return(yl2as[c]); /* Others */
  357.     }
  358. }
  360. CHAR /* German to Latin-2 */
  361. #ifdef CK_ANSIC
  362. xgel2(CHAR c)
  363. #else
  364. xgel2(c) CHAR c;
  365. #endif /* CK_ANSIC */
  366. { /* xlgel2 */
  367.     switch(c) {
  368.       case 64:  return(167); /* Paragraph sign */
  369.       case 91:  return(196); /* A-diaeresis */
  370.       case 92:  return(214); /* O-diaeresis */
  371.       case 93:  return(220); /* U-diaeresis */
  372.       case 123: return(228); /* a-diaeresis */
  373.       case 126: return(223); /* double-s */
  374.       case 124: return(246); /* o-diaeresis */
  375.       case 125: return(252); /* u-diaeresis */
  376.       default:  return(c); /* Others */
  377.     }
  378. }
  380. CHAR /* Latin-2 to Hungarian */
  381. #ifdef CK_ANSIC
  382. xl2hu(CHAR c)
  383. #else
  384. xl2hu(c) CHAR c;
  385. #endif /* CK_ANSIC */
  386. { /* xll2hu */
  387.     switch(c) {
  388.       case 164: return(36); /* Currency symbol */
  389.       case 189: return(126); /* Double acute accent */
  390.       case 193: return(64); /* A-acute */
  391.       case 201: return(91); /* E-acute */
  392.       case 214: return(92); /* O-diaeresis */
  393.       case 220: return(93); /* U-diaeresis */
  394.       case 225: return(96); /* a-acute */
  395.       case 233: return(123); /* e-acute */
  396.       case 246: return(124); /* o-diaeresis */
  397.       case 252: return(125); /* u-diaeresis */
  398.       default:  return(yl2as[c]); /* Others */
  399.     }
  400. }
  402. CHAR /* Hungarian to Latin-2 */
  403. #ifdef CK_ANSIC
  404. xhul2(CHAR c)
  405. #else
  406. xhul2(c) CHAR c;
  407. #endif /* CK_ANSIC */
  408. { /* xlhul2 */
  409.     switch(c) {
  410.       case 36:  return(164); /* Currency symbol */
  411.       case 64:  return(193); /* A-acute */
  412.       case 91:  return(201); /* E-acute */
  413.       case 92:  return(214); /* O-diaeresis */
  414.       case 93:  return(220); /* U-diaeresis */
  415.       case 96:  return(225); /* a-acute */
  416.       case 123: return(233); /* e-acute */
  417.       case 124: return(246); /* o-diaeresis */
  418.       case 125: return(252); /* u-diaeresis */
  419.       case 126: return(189); /* Double acute accent */
  420.       default:  return(c); /* Others */
  421.     }
  422. }
  424. CHAR
  425. #ifdef CK_ANSIC
  426. xr8l2(CHAR c)
  427. #else
  428. xr8l2(c) CHAR c;
  429. #endif /* CK_ANSIC */
  430. { /* xr8l2 */ /* Hewlett Packard Roman8 to Latin-2 */
  431.     switch (c) {
  432.       case 235: return(169); /* S caron */
  433.       case 236: return(185); /* s caron */
  434.       default:  return(yl1l2[yr8l1[c]]);
  435.     }
  436. }
  438. CHAR
  439. #ifdef CK_ANSIC
  440. xl2r8(CHAR c)
  441. #else
  442. xl2r8(c) CHAR c;
  443. #endif /* CK_ANSIC */
  444. { /* xl2r8 */ /* Latin-2 to Hewlett Packard Roman8 Character Set */
  445.     switch (c) {
  446.       case 169: return(235); /* S caron */
  447.       case 185: return(236); /* s caron */
  448.       default:  return(yr8l1[yl1l2[c]]);
  449.     }
  450. }
  452. #else /* NOLATIN2 */
  454. #define xl1mz NULL
  455. #define xmzl1 NULL
  456. #define xl2mz NULL
  457. #define xmzl2 NULL
  458. #define xl9mz NULL
  459. #define xmzl9 NULL
  460. #define xmzas NULL
  462. #define xl11250 NULL
  463. #define xl21250 NULL
  464. #define xl91250 NULL
  466. #define x1250as NULL
  467. #define x1250l1 NULL
  468. #define x1250l2 NULL
  469. #define x1250l9 NULL
  471. #define xl2l1 NULL
  472. #define xl1l2 NULL
  473. #define xl2as NULL
  474. #define xl252 NULL
  475. #define x52l2 NULL
  476. #define x52as NULL
  477. #define x52l1 NULL
  478. #define xl152 NULL
  479. #define xl2ne NULL
  480. #define xl243 NULL
  481. #define xl285 NULL
  482. #define xl2aq NULL
  483. #define xl2dg NULL
  484. #define xl2sk NULL
  485. #define xnel2 NULL
  486. #define x43l2 NULL
  487. #define x85l2 NULL
  488. #define xaql2 NULL
  489. #define xdgl2 NULL
  490. #define xskl2 NULL
  491. #define xl2ge NULL
  492. #define xgel2 NULL
  493. #define xl2hu NULL
  494. #define xhul2 NULL
  495. #define xl2r8 NULL
  496. #define xr8l2 NULL
  497. #endif /* LATIN2 */
  499. /* This one can also be used for ELOT 927, Hebrew 7, etc */
  501. CHAR
  502. #ifdef CK_ANSIC
  503. xassk(CHAR c)
  504. #else
  505. xassk(c) CHAR c;
  506. #endif /* CK_ANSIC */
  507. { /* xassk */ /* ASCII to Short KOI */
  508.     c &= 0x77; /* Force it to be ASCII */
  509.     return((c > 95) ? (c - 32) : c); /* Fold columns 6-7 to 4-5 */
  510. }
  512. #ifdef CYRILLIC
  513. /* Translation functions for Cyrillic character sets */
  515. CHAR /* Latin/Cyrillic to */
  516. #ifdef CK_ANSIC
  517. xlcac(CHAR c)
  518. #else
  519. xlcac(c) CHAR c;
  520. #endif /* CK_ANSIC */
  521. { /* xlcac */ /* PC Code Page 866 */
  522.     return(ylcac[c]);
  523. }
  525. CHAR /* Latin/Cyrillic to */
  526. #ifdef CK_ANSIC
  527. xlc55(CHAR c)
  528. #else
  529. xlc55(c) CHAR c;
  530. #endif /* CK_ANSIC */
  531. { /* xlc55 */ /* PC Code Page 855 */
  532.     return(ylc55[c]);
  533. }
  535. CHAR /* Latin/Cyrillic to */
  536. #ifdef CK_ANSIC
  537. xlc1251(CHAR c)
  538. #else
  539. xlc1251(c) CHAR c;
  540. #endif /* CK_ANSIC */
  541. { /* xlc1251 */ /* PC Code Page 81251 */
  542.     return(ylc1251[c]);
  543. }
  545. CHAR /* Latin/Cyrillic to... */
  546. #ifdef CK_ANSIC
  547. xlcbu(CHAR c)
  548. #else
  549. xlcbu(c) CHAR c;
  550. #endif /* CK_ANSIC */
  551. { /* xlcbu */ /* Bulgarian PC Code Page */
  552.     return(ylcbu[c]);
  553. }
  555. CHAR /* Latin/Cyrillic to Old KOI-8 */
  556. #ifdef CK_ANSIC
  557. xlck8(CHAR c)
  558. #else
  559. xlck8(c) CHAR c;
  560. #endif /* CK_ANSIC */
  561. { /* xlck8 */
  562.     return(ylck8[c]);
  563. }
  565. CHAR /* Latin/Cyrillic to KOI8-R */
  566. #ifdef CK_ANSIC
  567. xlckr(CHAR c)
  568. #else
  569. xlckr(c) CHAR c;
  570. #endif /* CK_ANSIC */
  571. { /* xlckr */
  572.     switch(c) {
  573.       case 0xa1: return(0xb3); /* Io */
  574.       case 0xf1: return(0xa3); /* io */
  575.       default:
  576. if (c > 0x7f && c < 0xc0)
  577.   return(UNK);
  578. return(ylck8[c]);
  579.     }
  580. }
  582. CHAR /* Latin/Cyrillic to  KOI8-U */
  583. #ifdef CK_ANSIC
  584. xlcku(CHAR c)
  585. #else
  586. xlcku(c) CHAR c;
  587. #endif /* CK_ANSIC */
  588. { /* xlcku */
  589.     switch(c) {
  590.       case 0xa1: return(0xb3); /* Io */
  591.       case 0xf1: return(0xa3); /* io */
  592.       case 0xf4: return(0xa4); /* Ukrainian ie */
  593.       case 0xf6: return(0xa6); /* Ukrainian i */
  594.       case 0xf7: return(0xa7); /* Ukrainian yi */
  595.       case 0xf3: return(0xad); /* Ukrainian ghe with upturn */
  596.       case 0xa4: return(0xb4); /* Ukrainian Ie */
  597.       case 0xa6: return(0xb6); /* Ukrainian I */
  598.       case 0xa7: return(0xb7); /* Ukrainian Yi */
  599.       case 0xa3: return(0xbd); /* Ukrainian Ghe with upturn */
  600.       default:
  601. if (c > 0x7f && c < 0xc0)
  602.   return(UNK);
  603. return(ylck8[c]);
  604.     }
  605. }
  607. CHAR
  608. #ifdef CK_ANSIC
  609. xlcsk(CHAR c)
  610. #else
  611. xlcsk(c) CHAR c;
  612. #endif /* CK_ANSIC */
  613. { /* xlcsk */ /* Latin/Cyrillic to Short KOI */
  614.     return(ylcsk[c]);
  615. }
  617. CHAR
  618. #ifdef CK_ANSIC
  619. xlcas(CHAR c)
  620. #else
  621. xlcas(c) CHAR c;
  622. #endif /* CK_ANSIC */
  623. { /* xlcas */ /* Latin/Cyrillic to ASCII */
  624.     if (langs[language].id == L_RUSSIAN)
  625.       return(ylcsk[c]);
  626.     else
  627.       return((c > 127) ? '?' : c);
  628. }
  630. CHAR /* CP866 */
  631. #ifdef CK_ANSIC
  632. xaclc(CHAR c)
  633. #else
  634. xaclc(c) CHAR c;
  635. #endif /* CK_ANSIC */
  636. { /* xaclc */ /* to Latin/Cyrillic */
  637.     return(yaclc[c]);
  638. }
  640. CHAR /* CP855 */
  641. #ifdef CK_ANSIC
  642. x55lc(CHAR c)
  643. #else
  644. x55lc(c) CHAR c;
  645. #endif /* CK_ANSIC */
  646. { /* x55lc */ /* to Latin/Cyrillic */
  647.     return(y55lc[c]);
  648. }
  650. CHAR /* Bulgarian PC Code Page ... */
  651. #ifdef CK_ANSIC
  652. xbulc(CHAR c)
  653. #else
  654. xbulc(c) CHAR c;
  655. #endif /* CK_ANSIC */
  656. { /* xbulc */ /* to Latin/Cyrillic */
  657.     return(ybulc[c]);
  658. }
  660. CHAR /* CP1251 */
  661. #ifdef CK_ANSIC
  662. x1251lc(CHAR c)
  663. #else
  664. x1251lc(c) CHAR c;
  665. #endif /* CK_ANSIC */
  666. { /* x1251lc */ /* to Latin/Cyrillic */
  667.     return(y1251lc[c]);
  668. }
  670. CHAR /* Old KOI-8 to Latin/Cyrillic */
  671. #ifdef CK_ANSIC
  672. xk8lc(CHAR c)
  673. #else
  674. xk8lc(c) CHAR c;
  675. #endif /* CK_ANSIC */
  676. { /* xk8lc */
  677.     return(yk8lc[c]);
  678. }
  680. CHAR /* KOI8-R to Latin/Cyrillic */
  681. #ifdef CK_ANSIC
  682. xkrlc(CHAR c)
  683. #else
  684. xkrlc(c) CHAR c;
  685. #endif /* CK_ANSIC */
  686. { /* xkrlc */
  687.     if (c == 0xb3) return(0xa1);
  688.     else if (c == 0xa3) return(0xf1);
  689.     else if (c > 0x7f && c < 0xc0)
  690.       return(UNK);
  691.     return(yk8lc[c]);
  692. }
  694. CHAR /* KOI8-U to Latin/Cyrillic */
  695. #ifdef CK_ANSIC
  696. xkulc(CHAR c)
  697. #else
  698. xkulc(c) CHAR c;
  699. #endif /* CK_ANSIC */
  700. { /* xkulc */
  701.     switch (c) {
  702.       case 0xb3: return(0xa1); /* Io */
  703.       case 0xa3: return(0xf1); /* io */
  704.       case 0xa4: return(0xf4); /* Ukrainian ie */
  705.       case 0xa6: return(0xf6); /* Ukrainian i */
  706.       case 0xa7: return(0xf7); /* Ukrainian yi */
  707.       case 0xad: return(0xf3); /* Ukrainian ghe with upturn */
  708.       case 0xb4: return(0xa4); /* Ukrainian Ie */
  709.       case 0xb6: return(0xa6); /* Ukrainian I */
  710.       case 0xb7: return(0xa7); /* Ukrainian Yi */
  711.       case 0xbd: return(0xa3); /* Ukrainian Ghe with upturn */
  712.       /* Note substitution of Gje for Ghe-Upturn, which is not in 8859-5 */
  713.       default:
  714. if (c > 0x7f && c < 0xc0)
  715.   return(UNK);
  716. return(yk8lc[c]);
  717.     }
  718. }
  720. CHAR
  721. #ifdef CK_ANSIC
  722. xskcy(CHAR c)
  723. #else
  724. xskcy(c) CHAR c;
  725. #endif /* CK_ANSIC */
  726. { /* xskcy */ /* Short KOI to Latin/Cyrillic */
  727.     return(yskcy[c & 0x7f]);
  728. }
  730. CHAR
  731. #ifdef CK_ANSIC
  732. xascy(CHAR c)
  733. #else
  734. xascy(c) CHAR c;
  735. #endif /* CK_ANSIC */
  736. { /* xascy */ /* ASCII to Latin/Cyrillic */
  737.     if (langs[language].id == L_RUSSIAN) { /* If LANGUAGE == RUSSIAN  */
  738. return(yskcy[c & 0x7f]); /* treat ASCII as Short KOI */
  739.     } else return((c > 127) ? '?' : c);
  740. }
  742. CHAR
  743. #ifdef CK_ANSIC
  744. xacas(CHAR c)
  745. #else
  746. xacas(c) CHAR c;
  747. #endif /* CK_ANSIC */
  748. { /* xacas */ /* CP866 to ASCII */
  749.     if (langs[language].id == L_RUSSIAN) {
  750. c = yaclc[c]; /* First to Latin/Cyrillic */
  751. return(ylcsk[c]); /* Then to Short KOI */
  752.     } else return((c > 127) ? '?' : c);
  753. }
  755. CHAR
  756. #ifdef CK_ANSIC
  757. x55as(CHAR c)
  758. #else
  759. x55as(c) CHAR c;
  760. #endif /* CK_ANSIC */
  761. { /* x55as */ /* CP855 to ASCII */
  762.     if (langs[language].id == L_RUSSIAN) {
  763. c = y55lc[c]; /* First to Latin/Cyrillic */
  764. return(ylcsk[c]); /* Then to Short KOI */
  765.     } else return((c > 127) ? '?' : c);
  766. }
  768. CHAR
  769. #ifdef CK_ANSIC
  770. x1251as(CHAR c)
  771. #else
  772. x1251as(c) CHAR c;
  773. #endif /* CK_ANSIC */
  774. { /* x1251as */ /* CP81251 to ASCII */
  775.     if (langs[language].id == L_RUSSIAN) {
  776. c = y1251lc[c]; /* First to Latin/Cyrillic */
  777. return(ylcsk[c]); /* Then to Short KOI */
  778.     } else return((c > 127) ? '?' : c);
  779. }
  781. CHAR
  782. #ifdef CK_ANSIC
  783. xskas(CHAR c)
  784. #else
  785. xskas(c) CHAR c;
  786. #endif /* CK_ANSIC */
  787. { /* xskas */ /* Short KOI to ASCII */
  788.     return((c > 95) ? '?' : c);
  789. }
  791. CHAR
  792. #ifdef CK_ANSIC
  793. xk8as(CHAR c)
  794. #else
  795. xk8as(c) CHAR c;
  796. #endif /* CK_ANSIC */
  797. { /* xk8as */ /* Old KOI-8 Cyrillic to ASCII */
  798.     if (langs[language].id == L_RUSSIAN) {
  799. c = yk8lc[c]; /* First to Latin/Cyrillic */
  800. return(ylcsk[c]); /* Then to Short KOI */
  801.     } else return((c > 127) ? '?' : c);
  802. }
  804. CHAR
  805. #ifdef CK_ANSIC
  806. xl1sk(CHAR c)
  807. #else
  808. xl1sk(c) CHAR c;
  809. #endif /* CK_ANSIC */
  810. { /* xl1sk */ /* Latin-1 to Short KOI */
  811.     c = zl1as(c); /* Convert to ASCII */
  812.     return(c = xassk(c)); /* Convert ASCII to Short KOI */
  813. }
  815. CHAR
  816. #ifdef CK_ANSIC
  817. xaslc(CHAR c)
  818. #else
  819. xaslc(c) CHAR c;
  820. #endif /* CK_ANSIC */
  821. { /* xaslc */ /* ASCII to Latin/Cyrillic */
  822.     if (langs[language].id == L_RUSSIAN)
  823.       return(yskcy[c & 0x7f]);
  824.     else return(c & 0x7f);
  825. }
  827. CHAR
  828. #ifdef CK_ANSIC
  829. xasac(CHAR c)
  830. #else
  831. xasac(c) CHAR c;
  832. #endif /* CK_ANSIC */
  833. { /* xasac */ /* ASCII to CP866 */
  834.     if (langs[language].id == L_RUSSIAN) { /* Use Short KOI */
  835. c = xskcy(c); /* Translate to Latin/Cyrillic */
  836. return(ylcac[c]); /* Then to CP866 */
  837.     } else return(c & 0x7f);
  838. }
  840. CHAR
  841. #ifdef CK_ANSIC
  842. xas55(CHAR c)
  843. #else
  844. xas55(c) CHAR c;
  845. #endif /* CK_ANSIC */
  846. { /* xas55 */ /* ASCII to CP855 */
  847.     if (langs[language].id == L_RUSSIAN) { /* Use Short KOI */
  848. c = xskcy(c); /* Translate to Latin/Cyrillic */
  849. return(ylc55[c]); /* Then to CP866 */
  850.     } else return(c & 0x7f);
  851. }
  853. CHAR
  854. #ifdef CK_ANSIC
  855. xas1251(CHAR c)
  856. #else
  857. xas1251(c) CHAR c;
  858. #endif /* CK_ANSIC */
  859. { /* xas1251 */ /* ASCII to CP81251 */
  860.     if (langs[language].id == L_RUSSIAN) { /* Use Short KOI */
  861. c = xskcy(c); /* Translate to Latin/Cyrillic */
  862. return(ylc1251[c]); /* Then to CP866 */
  863.     } else return(c & 0x7f);
  864. }
  866. CHAR
  867. #ifdef CK_ANSIC
  868. xask8(CHAR c)
  869. #else
  870. xask8(c) CHAR c;
  871. #endif /* CK_ANSIC */
  872. { /* xask8 */ /* ASCII to KOI-8 */
  873.     if (langs[language].id == L_RUSSIAN) { /* Use Short KOI */
  874. c = xskcy(c); /* Translate to Latin/Cyrillic */
  875. return(ylck8[c]); /* Then to KOI-8 */
  876.     } else return(c & 0x7f);
  877. }
  878. #else /* No Cyrillic */
  879. #define xacas NULL
  880. #define x55as NULL
  881. #define x1251as NULL
  882. #define xaclc NULL
  883. #define x55lc NULL
  884. #define x1251lc NULL
  885. #define xasac NULL
  886. #define xas55 NULL
  887. #define xas1251 NULL
  888. #define xascy NULL
  889. #define xask8 NULL
  890. #define xaslc NULL
  891. #define xassk NULL
  892. #define xk8as NULL
  893. #define xk8lc NULL
  894. #define xkrlc NULL
  895. #define xkulc NULL
  896. #define xl1sk NULL
  897. #define xlcac NULL
  898. #define xlc55 NULL
  899. #define xlc1251 NULL
  900. #define xlcas NULL
  901. #define xlck8 NULL
  902. #define xlckr NULL
  903. #define xlcku NULL
  904. #define xlch7 NULL
  905. #define xlcsk NULL
  906. #define xskas NULL
  907. #define xskcy NULL
  908. #define xbulc NULL
  909. #define xlcbu NULL
  910. #endif /* CYRILLIC */
  912. /* Translation functions for Hebrew character sets */
  914. #ifdef HEBREW
  916. CHAR
  917. #ifdef CK_ANSIC
  918. xash7(CHAR c)
  919. #else
  920. xash7(c) CHAR c;
  921. #endif /* CK_ANSIC */
  922. { /* xash7 */ /* ASCII to Hebrew-7 */
  923.     if (c == 96) return('?');
  924.     if (c > 96 && c < 123) return(c - 32);
  925.     else return(c);
  926. }
  928. CHAR
  929. #ifdef CK_ANSIC
  930. xl1h7(CHAR c)
  931. #else
  932. xl1h7(c) CHAR c;
  933. #endif /* CK_ANSIC */
  934. { /* xl1h7 */ /* Latin-1 to Hebrew-7 */
  935.     return(xash7(xl1as(c)));
  936. }
  938. CHAR
  939. #ifdef CK_ANSIC
  940. xl1lh(CHAR c)
  941. #else
  942. xl1lh(c) CHAR c;
  943. #endif /* CK_ANSIC */
  944. { /* xl1lh */ /* Latin-1 to Latin/Hebrew */
  945.     switch(c) {
  946.       case 170: return('a'); /* Feminine ordinal */
  947.       case 186: return('o'); /* Masculine ordinal */
  948.       case 215: return(170); /* Times */
  949.       case 247: return(186); /* Divide */
  950.       default:  return( (c > 190) ? xl1as(c) : c );
  951.     }
  952. }
  955. #ifdef LATIN2
  956. CHAR
  957. #ifdef CK_ANSIC
  958. xl2h7(CHAR c)
  959. #else
  960. xl2h7(c) CHAR c;
  961. #endif /* CK_ANSIC */
  962. { /* xl2h7 */ /* Latin-2 to Hebrew-7 */
  963.     return(xash7(xl2as(c)));
  964. }
  965. #else
  966. #define xl2h7 NULL
  967. #endif /* LATIN2 */
  969. #ifndef NOCYRIL
  970. CHAR
  971. #ifdef CK_ANSIC
  972. xlch7(CHAR c)
  973. #else
  974. xlch7(c) CHAR c;
  975. #endif /* CK_ANSIC */
  976. { /* xlch7 */ /* Latin/Cyrillic to Hebrew-7 */
  977.     return(xash7(xlcas(c)));
  978. }
  979. #endif /* NOCYRIL */
  981. CHAR
  982. #ifdef CK_ANSIC
  983. xlhas(CHAR c)
  984. #else
  985. xlhas(c) CHAR c;
  986. #endif /* CK_ANSIC */
  987. { /* xlhas */ /* Latin/Hebrew to ASCII */
  988.     return( (c > 127) ? '?' : c );
  989. }
  991. CHAR
  992. #ifdef CK_ANSIC
  993. xlhl1(CHAR c)
  994. #else
  995. xlhl1(c) CHAR c;
  996. #endif /* CK_ANSIC */
  997. { /* xlhl1 */ /* Latin/Hebrew to Latin-1 */
  998.     switch (c) {
  999.       case 170: return(215);
  1000.       case 186: return(247);
  1001.       default: return( (c > 190) ? '?' : c );
  1002.     }
  1003. }
  1005. CHAR
  1006. #ifdef CK_ANSIC
  1007. xlh62(CHAR c)
  1008. #else
  1009. xlh62(c) CHAR c;
  1010. #endif /* CK_ANSIC */
  1011. { /* xlh62 */ /* Latin/Hebrew to CP862 */
  1012.     return(ylh62[c]);
  1013. }
  1015. CHAR
  1016. #ifdef CK_ANSIC
  1017. xl162(CHAR c)
  1018. #else
  1019. xl162(c) CHAR c;
  1020. #endif /* CK_ANSIC */
  1021. { /* xl162 */ /* Latin-1 to CP862 */
  1022.     return(xlh62(xl1lh(c))); /* Via Latin/Hebrew */
  1023. }
  1025. CHAR
  1026. #ifdef CK_ANSIC
  1027. xlhh7(CHAR c)
  1028. #else
  1029. xlhh7(c) CHAR c;
  1030. #endif /* CK_ANSIC */
  1031. { /* xlhh7 */ /* Latin/Hebrew to Hebrew-7 */
  1032.     return(ylhh7[c]);
  1033. }
  1035. CHAR
  1036. #ifdef CK_ANSIC
  1037. xh7as(CHAR c)
  1038. #else
  1039. xh7as(c) CHAR c;
  1040. #endif /* CK_ANSIC */
  1041. { /* xh7as */ /* Hebrew-7 to ASCII */
  1042.     return( (c > 95 && c < 123) ? '?' : c );
  1043. }
  1045. CHAR
  1046. #ifdef CK_ANSIC
  1047. x62lh(CHAR c)
  1048. #else
  1049. x62lh(c) CHAR c;
  1050. #endif /* CK_ANSIC */
  1051. { /* x62lh */ /* CP862 to Latin/Hebrew */
  1052.     return(y62lh[c]);
  1053. }
  1055. CHAR
  1056. #ifdef CK_ANSIC
  1057. x62as(CHAR c)
  1058. #else
  1059. x62as(c) CHAR c;
  1060. #endif /* CK_ANSIC */
  1061. { /* x62as */ /* CP862 to ASCII */
  1062.     return( xlhas(x62lh(c)) );
  1063. }
  1065. CHAR
  1066. #ifdef CK_ANSIC
  1067. x62l1(CHAR c)
  1068. #else
  1069. x62l1(c) CHAR c;
  1070. #endif /* CK_ANSIC */
  1071. { /* x62l1 */ /* CP862 to Latin-1 */
  1072.     return( xlhl1(x62lh(c)) );
  1073. }
  1075. CHAR
  1076. #ifdef CK_ANSIC
  1077. xh7lh(CHAR c)
  1078. #else
  1079. xh7lh(c) CHAR c;
  1080. #endif /* CK_ANSIC */
  1081. { /* xh7lh */ /* Hebrew-7 to Latin/Hebrew */
  1082.     return(yh7lh[c]);
  1083. }
  1085. #else /* No Hebrew */
  1087. #define xash7 NULL
  1088. #define xl1h7 NULL
  1089. #define xl2h7 NULL
  1090. #define xlch7 NULL
  1091. #define xl1lh NULL
  1092. #define xlhas NULL
  1093. #define xlhl1 NULL
  1094. #define xl162 NULL
  1095. #define xlhh7 NULL
  1096. #define xlh62 NULL
  1097. #define xh7as NULL
  1098. #define x62as NULL
  1099. #define x62l1 NULL
  1100. #define xh7lh NULL
  1101. #define x62lh NULL
  1103. #endif /* HEBREW */
  1105. /* Translation functions for Greek character sets */
  1107. #ifdef GREEK
  1109. CHAR
  1110. #ifdef CK_ANSIC
  1111. xaseg(CHAR c)
  1112. #else
  1113. xaseg(c) CHAR c;
  1114. #endif /* CK_ANSIC */
  1115. { /* xaseg */ /* ASCII to ELOT 927 */
  1116.     if (c > 96 && c < 123) return(c - 32);
  1117.     else return(c);
  1118. }
  1120. CHAR
  1121. #ifdef CK_ANSIC
  1122. xl1eg(CHAR c)
  1123. #else
  1124. xl1eg(c) CHAR c;
  1125. #endif /* CK_ANSIC */
  1126. { /* xl1ge */ /* Latin-1 to ELOT 927 */
  1127.     return(xaseg(xl1as(c)));
  1128. }
  1130. CHAR
  1131. #ifdef CK_ANSIC
  1132. xl2lg(CHAR c)
  1133. #else
  1134. xl2lg(c) CHAR c;
  1135. #endif /* CK_ANSIC */
  1136. { /* xl2lg */ /* Latin-1 to Latin/Greek */
  1137.     if (c < 160) return(c);
  1138.     else if (c == 160 || c == 168 || c == 173 || c == 174)
  1139.       return(c);
  1140.     else return('?');
  1141. }
  1143. CHAR
  1144. #ifdef CK_ANSIC
  1145. xl1lg(CHAR c)
  1146. #else
  1147. xl1lg(c) CHAR c;
  1148. #endif /* CK_ANSIC */
  1149. { /* xl1lg */ /* Latin-1 to Latin/Greek */
  1150.     if (c < 160) return(c);
  1151.     switch(c) {
  1152.       case 160: /* Themselves */
  1153.       case 164:
  1154.       case 166:
  1155.       case 167:
  1156.       case 168:
  1157.       case 169:
  1158.       case 171:
  1159.       case 172:
  1160.       case 173:
  1161.       case 176:
  1162.       case 177:
  1163.       case 178:
  1164.       case 179:
  1165.       case 180:
  1166.       case 187:
  1167.       case 189:
  1168. return(c);
  1169.       case 181: /* Lowercase mu */
  1170. return(236);
  1171.       default:
  1172. return(UNK);
  1173.     }
  1174. }
  1176. #ifdef LATIN2
  1177. CHAR
  1178. #ifdef CK_ANSIC
  1179. xl2eg(CHAR c)
  1180. #else
  1181. xl2eg(c) CHAR c;
  1182. #endif /* CK_ANSIC */
  1183. { /* xl2eg */ /* Latin-2 to ELOT 927 */
  1184.     return(xaseg(xl2as(c)));
  1185. }
  1186. #else
  1187. #define xl2eg NULL
  1188. #endif /* LATIN2 */
  1190. #ifndef NOCYRIL
  1191. CHAR
  1192. #ifdef CK_ANSIC
  1193. xlceg(CHAR c)
  1194. #else
  1195. xlceg(c) CHAR c;
  1196. #endif /* CK_ANSIC */
  1197. { /* xlceg */ /* Latin/Cyrillic to ELOT 927 */
  1198.     return(xaseg(xlcas(c)));
  1199. }
  1200. #endif /* NOCYRIL */
  1202. CHAR
  1203. #ifdef CK_ANSIC
  1204. xlgas(CHAR c)
  1205. #else
  1206. xlgas(c) CHAR c;
  1207. #endif /* CK_ANSIC */
  1208. { /* xlgas */ /* Latin/Greek to ASCII */
  1209.     return( (c > 127) ? '?' : c );
  1210. }
  1212. CHAR
  1213. #ifdef CK_ANSIC
  1214. xlgl1(CHAR c)
  1215. #else
  1216. xlgl1(c) CHAR c;
  1217. #endif /* CK_ANSIC */
  1218. { /* xlgl1 */ /* Latin/Greek to Latin-1 */
  1219.     if (c == 236)
  1220.       return(181);
  1221.     else
  1222.       return(xl1lg(c));
  1223. }
  1225. CHAR
  1226. #ifdef CK_ANSIC
  1227. xlg69(CHAR c)
  1228. #else
  1229. xlg69(c) CHAR c;
  1230. #endif /* CK_ANSIC */
  1231. { /* xlg69 */ /* Latin/Greek to CP869 */
  1232.     return(ylg69[c]);
  1233. }
  1235. CHAR
  1236. #ifdef CK_ANSIC
  1237. xl169(CHAR c)
  1238. #else
  1239. xl169(c) CHAR c;
  1240. #endif /* CK_ANSIC */
  1241. { /* xl169 */ /* Latin-1 to CP869 */
  1242.     return(xlg69(xl1lg(c))); /* Via Latin/Greek */
  1243. }
  1245. CHAR
  1246. #ifdef CK_ANSIC
  1247. xlgeg(CHAR c)
  1248. #else
  1249. xlgeg(c) CHAR c;
  1250. #endif /* CK_ANSIC */
  1251. { /* xlgeg */ /* Latin/Greek to ELOT 927 */
  1252.     return(ylgeg[c]);
  1253. }
  1255. CHAR
  1256. #ifdef CK_ANSIC
  1257. xegas(CHAR c)
  1258. #else
  1259. xegas(c) CHAR c;
  1260. #endif /* CK_ANSIC */
  1261. { /* xegas */ /* ELOT 927 to ASCII */
  1262.     return( (c > 96 && c < 123) ? '?' : c );
  1263. }
  1265. CHAR
  1266. #ifdef CK_ANSIC
  1267. x69lg(CHAR c)
  1268. #else
  1269. x69lg(c) CHAR c;
  1270. #endif /* CK_ANSIC */
  1271. { /* x69lg */ /* CP869 to Latin/Greek */
  1272.     return(y69lg[c]);
  1273. }
  1275. CHAR
  1276. #ifdef CK_ANSIC
  1277. x69as(CHAR c)
  1278. #else
  1279. x69as(c) CHAR c;
  1280. #endif /* CK_ANSIC */
  1281. { /* x69as */ /* CP869 to ASCII */
  1282.     return( xlgas(x69lg(c)) );
  1283. }
  1285. CHAR
  1286. #ifdef CK_ANSIC
  1287. x69l1(CHAR c)
  1288. #else
  1289. x69l1(c) CHAR c;
  1290. #endif /* CK_ANSIC */
  1291. { /* x69l1 */ /* CP869 to Latin-1 */
  1292.     return( xlgl1(x69lg(c)) );
  1293. }
  1295. CHAR
  1296. #ifdef CK_ANSIC
  1297. xeglg(CHAR c)
  1298. #else
  1299. xeglg(c) CHAR c;
  1300. #endif /* CK_ANSIC */
  1301. { /* xeglg */ /* ELOT 927 to Latin/Greek */
  1302.     return(yeglg[c]);
  1303. }
  1305. #else /* No Greek */
  1307. #define xasge NULL
  1308. #define xl1ge NULL
  1309. #define xl2ge NULL
  1310. #define xlcge NULL
  1311. #define xl1lg NULL
  1312. #define xlgas NULL
  1313. #define xlgl1 NULL
  1314. #define xl169 NULL
  1315. #define xlgge NULL
  1316. #define xlg69 NULL
  1317. #define xegas NULL
  1318. #define x69as NULL
  1319. #define x69l1 NULL
  1320. #define xeglg NULL
  1321. #define x69lg NULL
  1323. #endif /* GREEK */
  1326. /* Translation functions for Japanese Kanji character sets */
  1328. #ifdef KANJI
  1329. /*
  1330.   Translate Kanji Transfer Character Set (EUC) to local file character set,
  1331.   contributed by Dr. Hirofumi Fujii, Japan High Energy Research Laboratory
  1332.   (KEK), Tokyo, Japan.
  1334.   a is a byte to be translated, which may be a single-byte character,
  1335.   the Katakana prefix, the first byte of a two-byte Kanji character, or the
  1336.   second byte of 2-byte Kanji character.
  1338.   fn is the output function.
  1340.   Returns 0 on success, -1 on failure.
  1341. */
  1343. _PROTOTYP(static int jpnxas, (int, int[]) );
  1344. _PROTOTYP(static int jpnxkt, (int, int[]) );
  1345. _PROTOTYP(static int jpnxkn, (int[], int[]) );
  1347. static int jpncnt; /* Byte count for Japanese */
  1348. static int jpnlst; /* Last status (for JIS7) */
  1350. static int
  1351. jpnxas(a, obuf) int a; int obuf[]; { /* Translate ASCII to local file code */
  1352.     int r;
  1354.     r = 0;
  1355.     if (fcharset == FC_JIS7) {
  1356. switch (jpnlst) {
  1357.   case 1:
  1358.     obuf[0] = 0x0f;
  1359.     obuf[1] = a;
  1360.     r = 2;
  1361.     break;
  1362.   case 2:
  1363.     obuf[0] = 0x1b;
  1364.     obuf[1] = 0x28;
  1365.     obuf[2] = 0x4a;
  1366.     obuf[3] = a;
  1367.     r = 4;
  1368.     break;
  1369.   default:
  1370.     obuf[0] = a;
  1371.     r = 1;
  1372.     break;
  1373. }
  1374.     } else {
  1375. obuf[0] = a;
  1376. r = 1;
  1377.     }
  1378.     return(r);
  1379. }
  1381. static int
  1382. jpnxkt(a, obuf) int a; int obuf[]; {
  1383. /* Translate JIS X 201 Katakana to local code */
  1385.     int r;
  1387.     r = 0;
  1388.     if (fcharset == FC_JIS7) {
  1389. switch (jpnlst) {
  1390.   case 2: /* from Kanji */
  1391.     obuf[r++] = 0x1b;
  1392.     obuf[r++] = 0x28;
  1393.     obuf[r++] = 0x4a;
  1394.   case 0: /* from Roman */
  1395.     obuf[r++] = 0x0e;
  1396.   default:
  1397.     obuf[r++] = (a & 0x7f);
  1398.   break;
  1399. }
  1400.     } else {
  1401. if (fcharset == FC_JEUC)
  1402.   obuf[r++] = 0x8e;
  1403. obuf[r++] = (a | 0x80);
  1404.     }
  1405.     return(r);
  1406. }
  1408. static int
  1409. jpnxkn(ibuf, obuf) int ibuf[], obuf[]; {
  1410.     /* Translate JIS X 0208 Kanji to local code */
  1411.     int c1, c2;
  1412.     int r;
  1414.     c1 = ibuf[0] & 0x7f;
  1415.     c2 = ibuf[1] & 0x7f;
  1417.     if (fcharset == FC_SHJIS) {
  1418. if (c1 & 1)
  1419.   c2 += 0x1f;
  1420. else
  1421.   c2 += 0x7d;
  1423.         if (c2 >= 0x7f) c2++;
  1425.         c1 = ((c1 - 0x21) >> 1) + 0x81;
  1426.         if (c1 > 0x9f) c1 += 0x40;
  1428.         obuf[0] = c1;
  1429.         obuf[1] = c2;
  1430.         r = 2;
  1431.     } else if (fcharset == FC_JIS7) {
  1432.         r = 0;
  1433.         switch (jpnlst) {
  1434.      case 1:
  1435.     obuf[r++] = 0x0f; /* From Katakana */
  1436.      case 0:
  1437.     obuf[r++] = 0x1b;
  1438.     obuf[r++] = 0x24;
  1439.     obuf[r++] = 0x42;
  1440.   default:
  1441.     obuf[r++] = c1;
  1442.     obuf[r++] = c2;
  1443.     break;
  1444. }
  1445.     } else {
  1446.         obuf[0] = (c1 | 0x80);
  1447.         obuf[1] = (c2 | 0x80);
  1448.         r = 2;
  1449.     }
  1450.     return(r);
  1451. }
  1453. int
  1454. xkanjf() {
  1455. /* Initialize parameters for xkanji */
  1456. /* This function should be called when F/X-packet is received */
  1457.     jpncnt = jpnlst = 0;
  1458.     return(0);
  1459. }
  1461. int
  1462. #ifdef CK_ANSIC
  1463. xkanjz(int (*fn)(char))
  1464. #else
  1465. xkanjz(fn) int (*fn)();
  1466. #endif /* CK_ANSIC */
  1467. { /* xkanjz */
  1468. /*
  1469.   Terminate xkanji
  1470.   This function must be called when Z-packet is received
  1471.   (before closing the file).
  1472. */
  1473.     static int obuf[6];
  1474.     int r, i, c;
  1476.     if (fcharset == FC_JIS7) {
  1477.         c = 'A'; /* Dummy Roman character */
  1478.         r = jpnxas(c, obuf) - 1; /* -1 removes Dummy character */
  1479.         if (r > 0) {
  1480.     for (i = 0; i < r; i++)
  1481.       if (((*fn)((char) obuf[i])) < 0)
  1482. return(-1);
  1483. }
  1484.     }
  1485.     return(0);
  1486. }
  1488. int
  1489. #ifdef CK_ANSIC
  1490. xkanji(int a, int (*fn)(char))
  1491. #else
  1492. xkanji(a, fn) int a; int (*fn)();
  1493. #endif /* CK_ANSIC */
  1494. { /* xkanji */
  1495.     static int xbuf[2];
  1496.     static int obuf[8];
  1498.     int i, r;
  1499.     int c7;
  1500.     int state=0;
  1502.     r = 0;
  1503.     if (jpncnt == 0) {
  1504. /* 1st byte */
  1505. if ((a & 0x80) == 0) {
  1506.     /* 8th bit is 0, i.e., single-byte code */
  1507.     r = jpnxas(a, obuf);
  1508.     state = 0;
  1509. } else {
  1510.     /* 8th bit is 1, check the range */
  1511.     c7 = a & 0x7f;
  1512.     if (((c7 > 0x20) && (c7 < 0x7f)) || (c7 == 0x0e)) {
  1513.         /* double byte code */
  1514.         xbuf[jpncnt++] = a;
  1515.     } else {
  1516.         /* single byte code */
  1517.         r = jpnxas(a, obuf);
  1518.         state = 0;
  1519.     }
  1520. }
  1521.     } else {
  1522. /* not the 1st byte */
  1523. xbuf[jpncnt++] = a;
  1524. if (xbuf[0] == 0x8e) {
  1525.     r = jpnxkt(xbuf[1], obuf);
  1526.     state = 1;
  1527. } else {
  1528.     r = jpnxkn(xbuf, obuf);
  1529.     state = 2;
  1530. }
  1531.     }
  1532.     if (r > 0) {
  1533.         for (i = 0; i < r; i++ )
  1534.   if (((*fn)((char) obuf[i])) < 0)
  1535.     return(-1);
  1536.         jpnlst = state;
  1537.         jpncnt = 0;
  1538.     }
  1539.     return(0);
  1540. }
  1542. /*
  1543.   Function for translating from Japanese file character set
  1544.   to Japanese EUC transfer character set.
  1545.   Returns a pointer to a string containing 0, 1, or 2 bytes.
  1546. */
  1548. /* zkanji */
  1549. static int jpnstz; /* status for JIS-7 */
  1550. static int jpnpnd; /* number of pending bytes */
  1551. static int jpnpnt; /* pending buffer index */
  1552. static int jpnpbf[8]; /* pending buffer */
  1554. /* There is some duplication here between the old and new JIS-7 parsers */
  1555. /* to be cleaned up later... */
  1557. VOID
  1558. j7init() { /* Initialize JIS-7 parser */
  1559.     jpnstz = 0;
  1560.     jpnpnd = 0;
  1561.     jpnpnt = 0;
  1562. }
  1564. int
  1565. getj7() { /* Reads JIS-7 returns next EUC byte */
  1566.     int x;
  1568.     if (jpnpnd > 0) { /* If something is pending */
  1569. x = (unsigned) jpnpbf[jpnpnt++]; /* Get it */
  1570. jpnpnd--;
  1571. if (jpnpnd < 0) jpnpnd = 0;
  1572. return((unsigned)x);
  1573.     }
  1574.     jpnpnt = 0;
  1576.     if ((x = zminchar()) < 0) return(x);
  1577.     while (jpnpnd == 0) { /* While something is pending... */
  1578. if ((x > 0x20) && (x < 0x7f)) { /* 7-bit graphic character */
  1579.     switch (jpnstz) {
  1580.       case 1:  /* Katakana */
  1581. #ifdef COMMENT
  1582. /* This can't be right... */
  1583. jpnpbf[jpnpnd++] = 0x80; /* Insert flag (NOT SS2???) */
  1584. #else
  1585. jpnpbf[jpnpnd++] = 0x8e; /* Insert SS2 */
  1586. #endif /* COMMENT */
  1587. jpnpbf[jpnpnd++] = (x | 0x80); /* Insert Kana + 8th bit */
  1588. break;
  1589.       case 2: /* Kanji */
  1590. jpnpbf[jpnpnd++] = (x | 0x80); /* Get another byte */
  1591. if ((x = zminchar()) < 0) return(x);
  1592. jpnpbf[jpnpnd++] = (x | 0x80);
  1593. break;
  1594.       default: /* ASCII / JIS Roman */
  1595. jpnpbf[jpnpnd++] = x;
  1596. break;
  1597.     }
  1598. } else if (x == 0x0e) { /* ^N = SO */
  1599.     jpnstz = 1; /* Katakana */
  1600.     if ((x = zminchar()) < 0) return(x);
  1601. } else if (x == 0x0f) { /* ^O = SI */
  1602.     jpnstz = 0; /* ASCII / JIS Roman */
  1603.     if ((x = zminchar()) < 0) return(x);
  1604. } else if (x == 0x1b) { /* Escape */
  1605.     jpnpbf[jpnpnd++] = x; /* Save in buffer */
  1606.     if ((x = zminchar()) < 0) return(x);
  1607.     jpnpbf[jpnpnd++] = x; /* Save in buffer */
  1608.     if (x == '$') { /* <ESC>$ */
  1609. if ((x = zminchar()) < 0) return(x);
  1610. jpnpbf[jpnpnd++] = x;
  1611. if ((x == '@') || (x == 'B')) { /* Kanji */
  1612.     jpnstz = 2;
  1613.     jpnpnt = jpnpnd = 0;
  1614.     if ((x = zminchar()) < 0) return(x);
  1615. }
  1616.     } else if (x == '(') { /* <ESC>( == 94-byte single-byte set */
  1617. if ((x = zminchar()) < 0) return(x);
  1618. jpnpbf[jpnpnd++] = x;
  1619. if ((x == 'B') || (x == 'J')) { /* ASCII or JIS Roman */
  1620.     jpnstz = 0;         /* Set state */
  1621.     jpnpnt = jpnpnd = 0;        /* Reset pointers */
  1622.     if ((x = zminchar()) < 0) return(x);
  1623. }
  1624.     } else if (x == 0x1b) { /* <ESC><ESC> */
  1625. jpnpnt = jpnpnd = 0; /* Reset pointers, stay in state */
  1626. if ((x = zminchar()) < 0) return(x);
  1627.     }
  1628. } else { /* Not <ESC> - just save it */
  1629.     jpnpbf[jpnpnd++] = x;
  1630. }
  1631.     }
  1632.     jpnpnt = 0;
  1633.     x = (unsigned)jpnpbf[jpnpnt++];
  1634.     jpnpnd--;
  1635.     return((unsigned)x);
  1636. }
  1638. USHORT
  1639. #ifdef CK_ANSIC
  1640. eu_to_sj(USHORT eu) /* EUC-JP to Shift-JIS */
  1641. #else
  1642. eu_to_sj(eu) USHORT eu;
  1643. #endif /* CK_ANSIC */
  1644. {
  1645.     int c1, c2;
  1646.     union ck_short jcode,scode;
  1648.     jcode.x_short = eu;
  1649.     c1 = (jcode.x_char[byteorder] & 0x7f);
  1650.     c2 = (jcode.x_char[1-byteorder] & 0x7f);
  1652.     if (c1 & 1)
  1653.       c2 += 0x1f;
  1654.     else
  1655.       c2 += 0x7d;
  1656.     if (c2 >= 0x7f)
  1657.       c2++;
  1658.     c1 = ((c1 - 0x21) >> 1) + 0x81;
  1659.     if (c1 > 0x9f)
  1660.       c1 += 0x40;
  1662.     scode.x_char[byteorder] = c1;
  1663.     scode.x_char[1-byteorder] = c2;
  1664.     return(scode.x_short);
  1665. }
  1668. USHORT
  1669. #ifdef CK_ANSIC
  1670. sj_to_eu(USHORT sj) /* Shift-JIS to EUC-JP */
  1671. #else
  1672. sj_to_eu(sj) USHORT sj;
  1673. #endif /* CK_ANSIC */
  1674. {
  1675.     union ck_short jcode, scode;
  1676.     int c0, c1;
  1678.     scode.x_short = sj;
  1679.     c0 = scode.x_char[byteorder]; /* Left (hi order) byte */
  1680.     c1 = scode.x_char[1-byteorder]; /* Right (lo order) byte */
  1682.     if (((c0 >= 0x81) && (c0 <= 0x9f)) || /* High order byte has 8th bit set */
  1683.         ((c0 >= 0xe0) && (c0 <= 0xfc))) { /* Kanji */
  1684. if (c0 <= 0x9f)   /* Two bytes in */
  1685.   c0 -= 0x71;   /* Do the shifting... */
  1686. else
  1687.   c0 -= 0xb1;
  1688. c0 = c0 * 2 + 1;
  1689. if (c1 > 0x7f) c1 -= 1;
  1690. if (c1 >= 0x9e) {
  1691.     c1 -= 0x7d;
  1692.     c0 += 1;
  1693. } else {
  1694.     c1 -= 0x1f;
  1695. }
  1696. jcode.x_char[byteorder] = (c0 | 0x80); /* Two bytes out */
  1697. jcode.x_char[1-byteorder] = (c1 | 0x80);
  1699.     } else if (c0 == 0) { /* Single byte */
  1700. if (c1 >= 0xa1 && c1 <= 0xdf) { /* Katakana */
  1701.     jcode.x_char[byteorder] = 0x8e; /* SS2 */
  1702.     jcode.x_char[1-byteorder] = c1; /* Kana code */
  1703. } else { /* ASCII or C0 */
  1704.     jcode.x_short = c1;
  1705. }
  1706.     } else { /* Something bad */
  1707. debug(F001,"sj_to_eu bad sj","",sj);
  1708. jcode.x_short = 0xffff;
  1709.     }
  1710.     return(jcode.x_short);
  1711. }
  1713. int
  1714. zkanjf() { /* Initialize */
  1715.     jpnstz = jpnpnd = jpnpnt = 0;
  1716.     return(0);
  1717. }
  1719. int
  1720. zkanjz() {
  1721.     return(0);
  1722. }
  1724. int
  1725. #ifdef CK_ANSIC
  1726. zkanji(int (*fn)(void))
  1727. #else
  1728. zkanji(fn) int (*fn)();
  1729. #endif /* CK_ANSIC */
  1730. { /* zkanji */
  1731.     /* Read Japanese local code and translate to Japanese EUC */
  1732.     int a;
  1733.     int sc[3];
  1735.     /* No pending characters */
  1736.     if (fcharset == FC_SHJIS) { /* Translating from Shift-JIS */
  1737.         if (jpnpnd) {
  1738.             jpnpnd--;
  1739.             return(jpnpbf[jpnpnt++]);
  1740.         }
  1741.         a = (*fn)();
  1742. jpnpnd = jpnpnt = 0;
  1743. if (((a >= 0x81) && (a <= 0x9f)) ||
  1744.     ((a >= 0xe0) && (a <= 0xfc))) { /* 2-byte Kanji code */
  1745.     sc[0] = a;
  1746.     if ((sc[1] = (*fn)()) < 0) /* Get second byte */
  1747.       return(sc[1]);
  1748.     if (sc[0] <= 0x9f)
  1749.       sc[0] -= 0x71;
  1750.     else
  1751.       sc[0] -= 0xb1;
  1752.     sc[0] = sc[0] * 2 + 1;
  1753.     if (sc[1] > 0x7f)
  1754.       sc[1]--;
  1755.     if (sc[1] >= 0x9e) {
  1756.         sc[1] -= 0x7d;
  1757.         sc[0]++;
  1758.     } else {
  1759.         sc[1] -= 0x1f;
  1760.     }
  1761.     a = (sc[0] | 0x80);
  1762.     jpnpbf[0] = (sc[1] | 0x80);
  1763.     jpnpnd = 1;
  1764.     jpnpnt = 0;
  1765. } else if ((a >= 0xa1) && (a <= 0xdf)) { /* Katakana */
  1766.     jpnpbf[0] = a;
  1767.     jpnpnd = 1;
  1768.     jpnpnt = 0;
  1769.     a = 0x8e;
  1770. }
  1771. return(a);
  1772.     } else if (fcharset == FC_JIS7 ) { /* 7-bit JIS X 0208 */
  1773.         if (jpnpnd) {
  1774.             a = jpnpbf[jpnpnt++];
  1775.     jpnpnd--;
  1776.             return(a);
  1777.         }
  1778.         jpnpnt = 0;
  1779.         if ((a = (*fn)()) < 0)
  1780.   return(a);
  1781.         while (jpnpnd == 0) {
  1782.             if ((a > 0x20) && (a < 0x7f)) {
  1783.                 switch (jpnstz) {
  1784.   case 1:
  1785.     jpnpbf[jpnpnd++] = 0x80; /* Katakana */
  1786.     jpnpbf[jpnpnd++] = (a | 0x80);
  1787.     break;
  1788.   case 2:
  1789.     jpnpbf[jpnpnd++] = (a | 0x80); /* Kanji */
  1790.     if ((a = (*fn)()) < 0)
  1791.       return(a);
  1792.     jpnpbf[jpnpnd++] = (a | 0x80);
  1793.     break;
  1794.   default:
  1795.     jpnpbf[jpnpnd++] = a; /* Single byte */
  1796.     break;
  1797.                 }
  1798.             } else if (a == 0x0e) {
  1799.                 jpnstz = 1;
  1800.                 if ((a = (*fn)()) < 0)
  1801.   return(a);
  1802.             } else if (a == 0x0f) {
  1803.                 jpnstz = 0;
  1804.                 if ((a = (*fn)()) < 0)
  1805.   return(a);
  1806.             } else if (a == 0x1b) {
  1807.                 jpnpbf[jpnpnd++] = a; /* Escape */
  1808.                 if ((a = (*fn)()) < 0)
  1809.   return(a);
  1810.                 jpnpbf[jpnpnd++] = a;
  1811.                 if (a == '$') {
  1812.                     if ((a = (*fn)()) < 0)
  1813.       return(a);
  1814.                     jpnpbf[jpnpnd++] = a;
  1815.                     if ((a == '@') || (a == 'B')) {
  1816.                         jpnstz = 2;
  1817. jpnpnt = jpnpnd = 0;
  1818.                         if ((a = (*fn)()) < 0)
  1819.   return(a);
  1820.                     }
  1821.                 } else if (a == '(') {
  1822.                     if ((a = (*fn)()) < 0)
  1823.       return(a);
  1824.                     jpnpbf[jpnpnd++] = a;
  1825.                     if ((a == 'B') || (a == 'J')) {
  1826.                         jpnstz = 0;
  1827. jpnpnt = jpnpnd = 0;
  1828.                         if ((a = (*fn)()) < 0)
  1829.   return(a);
  1830.                     }
  1831.                 } else if (a == 0x1b) {
  1832.                     jpnpnt = jpnpnd = 0;
  1833.                     if ((a = (*fn)()) < 0)
  1834.       return(a);
  1835.                 }
  1836.             } else {
  1837.                 jpnpbf[jpnpnd++] = a;
  1838.             }
  1839.         }
  1840.         jpnpnt = 0;
  1841.         a = jpnpbf[jpnpnt++];
  1842. jpnpnd--;
  1843.         return(a);
  1844.     } else {
  1845.         a = (*fn)();
  1846.         return(a);
  1847.     }
  1848. }
  1849. #endif /* KANJI */
  1851. /* Euro functions */
  1853. #ifdef LATIN2
  1854. CHAR
  1855. #ifdef CK_ANSIC
  1856. xl2l9(CHAR c)
  1857. #else
  1858. xl2l9(c) CHAR c;
  1859. #endif /* CK_ANSIC */
  1860. { /* xl2l9 */  /* Latin-2 to Latin-9... */
  1861.     switch (c) {
  1862.       case 169: return((CHAR)166); /* S caron */
  1863.       case 185: return((CHAR)168); /* s caron */
  1864.       case 174: return((CHAR)180); /* Z caron */
  1865.       case 190: return((CHAR)184); /* z caron */
  1866.       default:
  1867. return(yl2l1[c]);
  1868.     }
  1870. }
  1872. _PROTOTYP( CHAR xl258, ( CHAR ) );
  1873. CHAR
  1874. #ifdef CK_ANSIC
  1875. xl258(CHAR c)
  1876. #else
  1877. xl258(c) CHAR c;
  1878. #endif /* CK_ANSIC */
  1879. { /* xl258 */  /* Latin-2 to CP858... */
  1880.     return(c);
  1881. }
  1882. #else
  1883. #define xl2l9 NULL
  1884. #define xl258 NULL
  1885. #endif /* LATIN2 */
  1887. CHAR
  1888. #ifdef CK_ANSIC
  1889. zl9as(CHAR c)
  1890. #else
  1891. zl9as(c) CHAR c;
  1892. #endif /* CK_ANSIC */
  1893. { /* zl9as */  /* Latin-9 to US ASCII... */
  1894.     if (c < (CHAR)0x80) return(c); /* Save a function call */
  1895.     switch (c) {
  1896.       case 0xa4: return(UNK); /* Euro */
  1897.       case 0xa6: return('S'); /* S Caron */
  1898.       case 0xa8: return('s'); /* s Caron */
  1899.       case 0xb4: return('Z'); /* Z Caron */
  1900.       case 0xbc: return('O'); /* OE digraph */
  1901.       case 0xbd: return('o'); /* oe digraph */
  1902.       case 0xbe: return('Y'); /* Y diaeresis */
  1903.       default:   return(zl1as(c)); /* The rest is like Latin-1 */
  1904.     }
  1905. }
  1907. _PROTOTYP( CHAR xl9as, ( CHAR ) );
  1908. CHAR
  1909. #ifdef CK_ANSIC
  1910. xl9as(CHAR c)
  1911. #else
  1912. xl9as(c) CHAR c;
  1913. #endif /* CK_ANSIC */
  1914. { /* xl9as */  /* Latin-9 to US ASCII... */
  1915.     if (c < (CHAR)0x80) return(c); /* Save a function call */
  1916.     switch (c) {
  1917.       case 0xa4: return(UNK); /* Euro */
  1918.       case 0xa6: return('S'); /* S Caron */
  1919.       case 0xa8: return('s'); /* s Caron */
  1920.       case 0xb4: return('Z'); /* Z Caron */
  1921.       case 0xb8: return('z'); /* z Caron */
  1922.       case 0xbc: return('O'); /* OE digraph */
  1923.       case 0xbd: return('o'); /* oe digraph */
  1924.       case 0xbe: return('Y'); /* Y diaeresis */
  1925.       default:   return(xl1as(c)); /* The rest is like Latin-1 */
  1926.     }
  1927. }
  1929. #ifdef LATIN2
  1930. CHAR
  1931. #ifdef CK_ANSIC
  1932. xl9l2(CHAR c)
  1933. #else
  1934. xl9l2(c) CHAR c;
  1935. #endif /* CK_ANSIC */
  1936. { /* xl9l2 */  /* Latin-9 to Latin-2... */
  1937.     if (c < (CHAR)0x80) return(c); /* Save a function call */
  1938.     switch (c) {
  1939.       case 0xa4: return(UNK); /* Euro */
  1940.       case 0xa6: return((CHAR)0xa9); /* S Caron */
  1941.       case 0xa8: return((CHAR)0xb9); /* s Caron */
  1942.       case 0xb4: return((CHAR)0xae); /* Z Caron */
  1943.       case 0xb8: return((CHAR)0xaf); /* z Caron */
  1944.       case 0xbc: return('O'); /* OE digraph */
  1945.       case 0xbd: return('o'); /* oe digraph */
  1946.       case 0xbe: return('Y'); /* Y diaeresis */
  1947.       default:   return(xl1l2(c)); /* The rest is like Latin-1 */
  1948.     }
  1949. }
  1950. #else
  1951. #define xl9l2 NULL
  1952. #endif /* LATIN2 */
  1954. CHAR
  1955. #ifdef CK_ANSIC
  1956. xl958(CHAR c)
  1957. #else
  1958. xl958(c) CHAR c;
  1959. #endif /* CK_ANSIC */
  1960. { /* xl958 */  /* Latin-9 to CP858... */
  1961.     if (c == 0xa4) /* Euro Symbol */
  1962.       return((CHAR)0xd5);
  1963.     else if (c == 0x9e) /* This was currency symbol */
  1964.       return((CHAR)0xcf);
  1965.     c = yl185[c];
  1966.     return(c);
  1967. }
  1969. CHAR
  1970. #ifdef CK_ANSIC
  1971. x58as(CHAR c)
  1972. #else
  1973. x58as(c) CHAR c;
  1974. #endif /* CK_ANSIC */
  1975. { /* x58as */  /* CP858 to US ASCII... */
  1976.     if (c == 0xd5) /* Euro rather than dotless i */
  1977.       return(UNK);
  1978.     else
  1979.       return(x85as(c)); /* The rest is like CP850 */
  1980. }
  1982. CHAR
  1983. #ifdef CK_ANSIC
  1984. x58l1(CHAR c)
  1985. #else
  1986. x58l1(c) CHAR c;
  1987. #endif /* CK_ANSIC */
  1988. { /* x58l1 */  /* CP858 to Latin-1... */
  1989.     if (c == 0xd5) /* Euro rather than dotless i */
  1990.       return((CHAR)0xa4); /* Return currency symbol */
  1991.     else if (c == 0xcf) /* This keeps it invertible */
  1992.       return((CHAR)0x9e);
  1993.     else
  1994.       return(x85l1(c));
  1995. }
  1997. #ifdef LATIN2
  1998. CHAR
  1999. #ifdef CK_ANSIC
  2000. x58l2(CHAR c)
  2001. #else
  2002. x58l2(c) CHAR c;
  2003. #endif /* CK_ANSIC */
  2004. { /* x58l2 */  /* CP858 to Latin-2... */
  2005.     if (c == 0xd5) /* Euro rather than dotless i */
  2006.       return((CHAR)0xa4); /* Return currency symbol */
  2007.     else if (c == 0xcf) /* This keeps it invertible */
  2008.       return((CHAR)0x9e); /* (if it ever was...) */
  2009.     else /* Otherwise like CP850 */
  2010.       return(x85l2(c));
  2011. }
  2012. #else
  2013. #define x58l2 NULL
  2014. #endif /* LATIN2 */
  2016. CHAR
  2017. #ifdef CK_ANSIC
  2018. x58l9(CHAR c)
  2019. #else
  2020. x58l9(c) CHAR c;
  2021. #endif /* CK_ANSIC */
  2022. { /* x58l9 */  /* CP-858 to Latin-9... */
  2023.     if (c == 0xd5) /* Euro rather than dotless i */
  2024.       return((CHAR)0xa4); /* Return currency symbol */
  2025.     else if (c == 0xcf) /* This keeps it invertible */
  2026.       return((CHAR)0x9e); /* (if it ever was...) */
  2027.     else /* Otherwise like CP850 */
  2028.       return(x85l1(c)); /* to Latin-1 */
  2029. }
  2031. /* End Euro functions */
  2034. /*  TABLES OF TRANSLATION FUNCTIONS */
  2036. /*
  2037.   First, the table of translation functions for RECEIVING files.  That is,
  2038.   *from* the TRANSFER character set *to* the FILE character set, an array of
  2039.   pointers to functions.  The first index is the TRANSFER CHARACTER-SET
  2040.   number, the second index is the FILE CHARACTER-SET number.
  2042.   These arrays must be fully populated, even if (as is the case with Kanji
  2043.   character sets), all the entries are NULL.  Otherwise, subscript
  2044.   calculations will be wrong and we'll use the wrong functions.
  2045. */
  2047. /* Pointers to byte-for-byte translation functions */
  2049. _PROTOTYP( CHAR (*rx), (CHAR) );
  2050. _PROTOTYP( CHAR (*sx), (CHAR) );
  2052. #ifdef UNICODE
  2053. _PROTOTYP( int (*xut), (USHORT) ); /* Translation function UCS to TCS */
  2054. _PROTOTYP( int (*xuf), (USHORT) ); /* Translation function UCS to FCS */
  2055. _PROTOTYP( USHORT (*xtu), (CHAR) ); /* Translation function TCS to UCS */
  2056. _PROTOTYP( USHORT (*xfu), (CHAR) ); /* Translation function FCS to UCS */
  2057. #endif /* UNICODE */
  2059. #ifdef CK_ANSIC
  2060. CHAR (*xlr[MAXTCSETS+1][MAXFCSETS+1])(CHAR) =
  2061. #else
  2062. CHAR (*xlr[MAXTCSETS+1][MAXFCSETS+1])() =
  2063. #endif /* CK_ANSIC */
  2064. {
  2065.     NULL, /* 0,0 transparent to us ascii */
  2066.     NULL, /* 0,1 transparent to uk ascii */
  2067.     NULL, /* 0,2 transparent to dutch nrc */
  2068.     NULL, /* 0,3 transparent to finnish nrc */
  2069.     NULL, /* 0,4 transparent to french nrc */
  2070.     NULL, /* 0,5 transparent to fr-canadian nrc */
  2071.     NULL, /* 0,6 transparent to german nrc */
  2072.     NULL, /* 0,7 transparent to hungarian nrc */
  2073.     NULL, /* 0,8 transparent to italian nrc */
  2074.     NULL, /* 0,9 transparent to norge/danish nrc */
  2075.     NULL, /* 0,10 transparent to portuguese nrc */
  2076.     NULL, /* 0,11 transparent to spanish nrc */
  2077.     NULL, /* 0,12 transparent to swedish nrc */
  2078.     NULL, /* 0,13 transparent to swiss nrc */
  2079.     NULL, /* 0,14 transparent to latin-1 */
  2080.     NULL, /* 0,15 transparent to latin-2 */
  2081.     NULL, /* 0,16 transparent to DEC MCS */
  2082.     NULL, /* 0,17 transparent to NeXT */
  2083.     NULL, /* 0,18 transparent to CP437 */
  2084.     NULL, /* 0,19 transparent to CP850 */
  2085.     NULL, /* 0,20 transparent to CP852 */
  2086.     NULL, /* 0,21 transparent to Macintosh Latin */
  2087.     NULL, /* 0,22 transparent to DGI */
  2088.     NULL, /* 0,23 transparent to HP */
  2089.     NULL, /* 0,24 transparent to Latin/Cyrillic */
  2090.     NULL,                       /* 0,25 transparent to CP866 */
  2091.     NULL, /* 0,26 transparent to Short KOI-7 */
  2092.     NULL,                       /* 0,27 transparent to Old KOI-8 Cyrillic */
  2093.     NULL, /* 0,28 transparent to JIS-7 */
  2094.     NULL, /* 0,29 transparent to Shift-JIS */
  2095.     NULL, /* 0,30 transparent to J-EUC */
  2096.     NULL, /* 0,31 transparent to DEC Kanji */
  2097.     NULL, /* 0,32 transparent to Hebrew-7 */
  2098.     NULL, /* 0,33 transparent to Latin/Hebrew */
  2099.     NULL, /* 0,34 transparent to CP862 Hebrew */
  2100.     NULL, /* 0,35 transparent to ELOT 927 Greek */
  2101.     NULL, /* 0,36 transparent to Latin/Greek */
  2102.     NULL, /* 0,37 transparent to CP869 */
  2103.     NULL, /* 0,38 transparent to Latin-9 */
  2104.     NULL, /* 0,39 transparent to CP858 */
  2105.     NULL, /* 0,40 transparent to CP855 */
  2106.     NULL, /* 0,41 transparent to CP1251 */
  2107.     NULL, /* 0,42 transparent to Bulgarian */
  2108.     NULL, /* 0,43 transparent to CP1250 */
  2109.     NULL, /* 0,44 transparent to Mazovia */
  2110.     NULL, /* 0,45 transparent to UCS-2 */
  2111.     NULL, /* 0,46 transparent to UTF-8 */
  2112.     NULL, /* 0,47 transparent to KOI8R */
  2113.     NULL, /* 0,48 transparent to KOI8U */
  2114.     NULL, /* 1,0 ascii to us ascii */
  2115.     NULL, /* 1,1 ascii to uk ascii */
  2116.     NULL, /* 1,2 ascii to dutch nrc */
  2117.     NULL, /* 1,3 ascii to finnish nrc */
  2118.     NULL, /* 1,4 ascii to french nrc */
  2119.     NULL, /* 1,5 ascii to fr-canadian nrc */
  2120.     NULL, /* 1,6 ascii to german nrc */
  2121.     NULL, /* 1,7 ascii to hungarian nrc */
  2122.     NULL, /* 1,8 ascii to italian nrc */
  2123.     NULL, /* 1,9 ascii to norge/danish nrc */
  2124.     NULL, /* 1,10 ascii to portuguese nrc */
  2125.     NULL, /* 1,11 ascii to spanish nrc */
  2126.     NULL, /* 1,12 ascii to swedish nrc */
  2127.     NULL, /* 1,13 ascii to swiss nrc */
  2128.     NULL, /* 1,14 ascii to latin-1 */
  2129.     NULL, /* 1,15 ascii to latin-2 */
  2130.     NULL, /* 1,16 ascii to DEC MCS */
  2131.     NULL, /* 1,17 ascii to NeXT */
  2132.     NULL, /* 1,18 ascii to CP437 */
  2133.     NULL, /* 1,19 ascii to CP850 */
  2134.     NULL, /* 1,20 ascii to CP852 */
  2135.     NULL, /* 1,21 ascii to Macintosh Latin */
  2136.     NULL, /* 1,22 ascii to DGI */
  2137.     NULL, /* 1,23 ascii to HP */
  2138.     xaslc,                      /* 1,24 ascii to Latin/Cyrillic */
  2139.     xasac,                      /* 1,25 ascii to CP866 */
  2140.     xassk,                      /* 1,26 ascii to Short KOI */
  2141.     xask8,                      /* 1,27 ascii to Old KOI-8 Cyrillic */
  2142.     NULL, /* 1,28 ascii to JIS-7 */
  2143.     NULL, /* 1,29 ascii to Shift-JIS */
  2144.     NULL, /* 1,30 ascii to J-EUC */
  2145.     NULL, /* 1,31 ascii to DEC Kanji */
  2146.     xash7, /* 1,32 ascii to Hebrew-7 */
  2147.     NULL, /* 1,33 ascii to Latin/Hebrew */
  2148.     NULL, /* 1,34 ascii to CP862 Hebrew */
  2149.     xaseg, /* 1,35 ascii to ELOT 927 Greek */
  2150.     NULL, /* 1,36 ascii to Latin/Greek */
  2151.     NULL, /* 1,37 ascii to CP869 */
  2152.     NULL, /* 1,38 ascii to Latin-9 */
  2153.     NULL, /* 1,39 ascii to CP858 */
  2154.     xas55, /* 1,40 ascii to CP855 */
  2155.     xas1251, /* 1,41 ascii to CP1251 */
  2156.     xleft128, /* 1,42 ascii to bulgarian */
  2157.     xleft128, /* 1,43 ascii to CP1250 */
  2158.     xleft128, /* 1,44 ascii to Mazovia */
  2159.     NULL, /* 1,45 ascii to UCS-2 */
  2160.     NULL, /* 1,46 ascii to UTF-8 */
  2161.     NULL, /* 1,47 ascii to KOI8-R */
  2162.     NULL, /* 1,48 ascii to KOI8-U */
  2163.     zl1as, /* 2,0 latin-1 to us ascii */
  2164.     xl1uk, /* 2,1 latin-1 to uk ascii */
  2165.     xl1du, /* 2,2 latin-1 to dutch nrc */
  2166.     xl1fi, /* 2,3 latin-1 to finnish nrc */
  2167.     xl1fr, /* 2,4 latin-1 to french nrc */
  2168.     xl1fc, /* 2,5 latin-1 to fr-canadian nrc */
  2169.     xl1ge, /* 2,6 latin-1 to german nrc */
  2170.     xl1it, /* 2,7 latin-1 to italian nrc */
  2171.     xl1hu, /* 2,8 latin-1 to hungarian nrc */
  2172.     xl1no, /* 2,9 latin-1 to norge/danish nrc */
  2173.     xl1po, /* 2,10 latin-1 to portuguese nrc */
  2174.     xl1sp, /* 2,11 latin-1 to spanish nrc */
  2175.     xl1sw, /* 2,12 latin-1 to swedish nrc */
  2176.     xl1ch, /* 2,13 latin-1 to swiss nrc */
  2177.     NULL, /* 2,14 latin-1 to latin-1 */
  2178.     xl1l2, /* 2,15 latin-1 to latin-2 */
  2179.     xl1dm, /* 2,16 latin-1 to DEC MCS */
  2180.     xl1ne, /* 2,17 latin-1 to NeXT */
  2181.     xl143, /* 2,18 latin-1 to CP437 */
  2182.     xl185, /* 2,19 latin-1 to CP850 */
  2183.     xl152, /* 2,20 latin-1 to CP852 */
  2184.     xl1aq, /* 2,21 latin-1 to Macintosh Latin */
  2185.     xl1dg, /* 2,22 latin-1 to DGI */
  2186.     xl1r8, /* 2,23 latin-1 to HP Roman8 */
  2187.     zl1as, /* 2,24 latin-1 to Latin/Cyrillic */
  2188.     zl1as,                      /* 2,25 latin-1 to CP866 */
  2189.     xl1sk,                      /* 2,26 latin-1 to Short KOI */
  2190.     zl1as,         /* 2,27 latin-1 to Old KOI-8 Cyrillic */
  2191.     NULL, /* 2,28 latin-1 to JIS-7 */
  2192.     NULL, /* 2,29 latin-1 to Shift-JIS */
  2193.     NULL, /* 2,30 latin-1 to J-EUC */
  2194.     NULL, /* 2,31 latin-1 to DEC Kanji */
  2195.     xl1h7, /* 2,32 latin-1 to Hebrew-7 */
  2196.     xl1lh, /* 2,33 latin-1 to Latin/Hebrew */
  2197.     xl162, /* 2,34 latin-1 to CP862 Hebrew */
  2198.     xl1eg, /* 2,35 latin-1 to ELOT 927 Greek */
  2199.     xl1lg, /* 2,36 latin-1 to Latin/Greek */
  2200.     xl169, /* 2,37 latin-1 to CP869 */
  2201.     NULL, /* 2,38 latin-1 to Latin9 */
  2202.     xl185, /* 2,39 latin-1 to CP858 */
  2203.     zl1as, /* 2,40 latin-1 to CP855 */
  2204.     zl1as, /* 2,41 latin-1 to CP1251 */
  2205.     zl1as, /* 2,42 latin-1 to Bulgarian */
  2206.     xl11250, /* 2,43 latin-1 to CP1250 */
  2207.     xl1mz, /* 2,44 latin-1 to Mazovia */
  2208.     NULL, /* 2,45 latin-1 to UCS-2 */
  2209.     NULL, /* 2,46 latin-1 to UTF-8 */
  2210.     zl1as, /* 2,47 latin-1 to KOI8R */
  2211.     zl1as, /* 2,48 latin-1 to KOI8U */
  2212.     xl2as, /* 3,0 latin-2 to us ascii */
  2213.     xl2as, /* 3,1 latin-2 to uk ascii */
  2214.     xl2as, /* 3,2 latin-2 to dutch nrc */
  2215.     xl2as, /* 3,3 latin-2 to finnish nrc */
  2216.     xl2as, /* 3,4 latin-2 to french nrc */
  2217.     xl2as, /* 3,5 latin-2 to fr-canadian nrc */
  2218.     xl2as, /* 3,6 latin-2 to german nrc */
  2219.     xl2as, /* 3,7 latin-2 to italian nrc */
  2220.     xl2as, /* 3,8 latin-2 to hungarian nrc */
  2221.     xl2as, /* 3,9 latin-2 to norge/danish nrc */
  2222.     xl2as, /* 3,10 latin-2 to portuguese nrc */
  2223.     xl2as, /* 3,11 latin-2 to spanish nrc */
  2224.     xl2as, /* 3,12 latin-2 to swedish nrc */
  2225.     xl2as, /* 3,13 latin-2 to swiss nrc */
  2226.     xl2l1, /* 3,14 latin-2 to latin-1 */
  2227.     NULL, /* 3,15 latin-2 to latin-2 */
  2228.     xl2l1, /* 3,16 latin-2 to DEC MCS */
  2229.     xl2ne, /* 3,17 latin-2 to NeXT */
  2230.     xl243, /* 3,18 latin-2 to CP437 */
  2231.     xl285, /* 3,19 latin-2 to CP850 */
  2232.     xl252, /* 3,20 latin-2 to CP852 */
  2233.     xl2aq, /* 3,21 latin-2 to Macintosh Latin */
  2234.     xl2dg, /* 3,22 latin-2 to DGI */
  2235.     xl2r8, /* 3,23 latin-2 to HP */
  2236.     xl2as, /* 3,24 latin-2 to Latin/Cyrillic */
  2237.     xl2as,                      /* 3,25 latin-2 to CP866 */
  2238.     xl2sk,                      /* 3,26 latin-2 to Short KOI */
  2239.     xl2as,         /* 3,27 latin-2 to Old KOI-8 Cyrillic */
  2240.     NULL, /* 3,28 latin-2 to JIS-7 */
  2241.     NULL, /* 3,29 latin-2 to Shift-JIS */
  2242.     NULL, /* 3,30 latin-2 to J-EUC */
  2243.     NULL, /* 3,31 latin-2 to DEC Kanji */
  2244.     xl2h7, /* 3,32 latin-2 to Hebrew-7 */
  2245.     xl2as, /* 3,33 latin-2 to Latin/Hebrew */
  2246.     xl2as, /* 3,34 latin-2 to CP862 Hebrew */
  2247.     xassk, /* 3,35 latin-2 to ELOT 927 Greek */
  2248.     xl2as, /* 3,36 latin-2 to Latin/Greek */
  2249.     xl2as, /* 3,37 latin-2 to CP869 */
  2250.     xl2l9, /* 3,38 latin-2 to Latin-9 */
  2251.     xl258, /* 3,39 latin-2 to CP858 */
  2252.     xl2as, /* 3,40 latin-2 to CP855 */
  2253.     xl2as, /* 3,41 latin-2 to CP1251 */
  2254.     xl2as, /* 3,42 latin-2 to Bulgarian */
  2255.     xl21250, /* 3,43 latin-2 to CP1250 */
  2256.     xl2mz, /* 3,44 latin-2 to Mazovia */
  2257.     NULL, /* 3,45 latin-2 to UCS-2 */
  2258.     NULL, /* 3,46 latin-2 to UTF-8 */
  2259.     xl2as, /* 3,47 latin-2 to KOI8R */
  2260.     xl2as, /* 3,48 latin-2 to KOI8U */
  2261.     xlcas, /* 4,0 latin/cyrillic to us ascii */
  2262.     xlcas, /* 4,1 latin/cyrillic to uk ascii */
  2263.     xlcas,          /* 4,2 latin/cyrillic to dutch nrc */
  2264.     xlcas, /* 4,3 latin/cyrillic to finnish ascii */
  2265.     xlcas, /* 4,4 latin/cyrillic to french nrc */
  2266.     xlcas, /* 4,5 latin/cyrillic to fr-canadian nrc */
  2267.     xlcas, /* 4,6 latin/cyrillic to german nrc */
  2268.     xlcas, /* 4,7 latin/cyrillic to italian nrc */
  2269.     xlcas, /* 4,8 latin/cyrillic to hungarian nrc */
  2270.     xlcas, /* 4,9 latin/cyrillic to norge/danish nrc */
  2271.     xlcas, /* 4,10 latin/cyrillic to portuguese nrc */
  2272.     xlcas, /* 4,11 latin/cyrillic to spanish nrc */
  2273.     xlcas, /* 4,12 latin/cyrillic to swedish nrc */
  2274.     xlcas, /* 4,13 latin/cyrillic to swiss nrc */
  2275.     xlcas, /* 4,14 latin/cyrillic to latin-1 */
  2276.     xlcas, /* 4,15 latin/cyrillic to latin-2 */
  2277.     xlcas, /* 4,16 latin/cyrillic to DEC MCS */
  2278.     xlcas, /* 4,17 latin/cyrillic to NeXT */
  2279.     xlcas, /* 4,18 latin/cyrillic to CP437 */
  2280.     xlcas, /* 4,19 latin/cyrillic to CP850 */
  2281.     xlcas, /* 4,20 latin/cyrillic to CP852 */
  2282.     xlcas, /* 4,21 latin/cyrillic to Macintosh Latin */
  2283.     xlcas, /* 4,22 latin/cyrillic to DGI */
  2284.     xlcas, /* 4,23 latin/cyrillic to HP */
  2285.     NULL,                       /* 4,24 latin/cyrillic to Latin/Cyrillic */
  2286.     xlcac,                      /* 4,25 latin/cyrillic to CP866 */
  2287.     xlcsk,                      /* 4,26 latin/cyrillic to Short KOI */
  2288.     xlck8,         /* 4,27 latin/cyrillic to Old KOI-8 Cyrillic */
  2289.     NULL, /* 4,28 latin/cyril to JIS-7 */
  2290.     NULL, /* 4,29 latin/cyril to Shift-JIS */
  2291.     NULL, /* 4,30 latin/cyril to J-EUC */
  2292.     NULL, /* 4,31 latin/cyril to DEC Kanji */
  2293.     xlch7, /* 4,32 latin/cyril to Hebrew-7 */
  2294.     xlcas, /* 4,33 latin/cyril to Latin/Hebrew */
  2295.     xlcas, /* 4,34 latin/cyril to CP862 Hebrew */
  2296.     xassk, /* 4,35 latin/cyril to ELOT 927 Greek */
  2297.     xleft160, /* 4,36 latin/cyril to Latin/Greek */
  2298.     xleft128, /* 4,37 latin/cyril to CP869 */
  2299.     xlcas, /* 4,38 latin/cyril to latin-9 */
  2300.     xlcas, /* 4,39 latin/cyril to CP858 */
  2301.     xlc55, /* 4,40 latin/cyril to CP855 */
  2302.     xlc1251, /* 4,41 latin/cyril to CP1251 */
  2303.     xlcbu, /* 4,42 latin/cyril to Bulgarian */
  2304.     xlcas, /* 4,43 latin/cyril to CP1250 */
  2305.     xlcas, /* 4,44 latin/cyril to Mazovia */
  2306.     NULL, /* 4,45 latin/cyril to UCS-2 */
  2307.     NULL, /* 4,46 latin/cyril to UTF-8 */
  2308.     xlckr, /* 4,47 latin/cyril to KOI8R */
  2309.     xlcku, /* 4,48 latin/cyril to KOI8U */
  2310.     NULL, /* 5,00 */
  2311.     NULL, /* 5,01 */
  2312.     NULL, /* 5,02 */
  2313.     NULL, /* 5,03 */
  2314.     NULL, /* 5,04 */
  2315.     NULL, /* 5,05 */
  2316.     NULL, /* 5,06 */
  2317.     NULL, /* 5,07 */
  2318.     NULL, /* 5,08 */
  2319.     NULL, /* 5,09 */
  2320.     NULL, /* 5,10 */
  2321.     NULL, /* 5,11 */
  2322.     NULL, /* 5,12 */
  2323.     NULL, /* 5,13 */
  2324.     NULL, /* 5,14 */
  2325.     NULL, /* 5,15 */
  2326.     NULL, /* 5,16 */
  2327.     NULL, /* 5,17 */
  2328.     NULL, /* 5,18 */
  2329.     NULL, /* 5,19 */
  2330.     NULL, /* 5,20 */
  2331.     NULL, /* 5,21 */
  2332.     NULL, /* 5,22 */
  2333.     NULL, /* 5,23 */
  2334.     NULL, /* 5,24 */
  2335.     NULL, /* 5,25 */
  2336.     NULL, /* 5,26 */
  2337.     NULL, /* 5,27 */
  2338.     NULL, /* 5,28 */
  2339.     NULL, /* 5,29 */
  2340.     NULL, /* 5,30 */
  2341.     NULL, /* 5,31 */
  2342.     NULL, /* 5,32 */
  2343.     NULL, /* 5,33 */
  2344.     NULL, /* 5,34 */
  2345.     NULL, /* 5,35 */
  2346.     NULL, /* 5,36 */
  2347.     NULL, /* 5,37 */
  2348.     NULL, /* 5,38 */
  2349.     NULL, /* 5,39 */
  2350.     NULL, /* 5,40 */
  2351.     NULL, /* 5,41 */
  2352.     NULL, /* 5,42 */
  2353.     NULL, /* 5,43 */
  2354.     NULL, /* 5,44 */
  2355.     NULL, /* 5,45 */
  2356.     NULL, /* 5,46 */
  2357.     NULL, /* 5,47 */
  2358.     NULL, /* 5,48 */
  2359.     xlhas, /* 6,0 latin/hebrew to us ascii */
  2360.     xlhas, /* 6,1 latin/hebrew to uk ascii */
  2361.     xlhas,          /* 6,2 latin/hebrew to dutch nrc */
  2362.     xlhas, /* 6,3 latin/hebrew to finnish ascii */
  2363.     xlhas, /* 6,4 latin/hebrew to french nrc */
  2364.     xlhas, /* 6,5 latin/hebrew to fr-canadian nrc */
  2365.     xlhas, /* 6,6 latin/hebrew to german nrc */
  2366.     xlhas, /* 6,7 latin/hebrew to italian nrc */
  2367.     xlhas, /* 6,8 latin/hebrew to hungarian nrc */
  2368.     xlhas, /* 6,9 latin/hebrew to norge/danish nrc */
  2369.     xlhas, /* 6,10 latin/hebrew to portuguese nrc */
  2370.     xlhas, /* 6,11 latin/hebrew to spanish nrc */
  2371.     xlhas, /* 6,12 latin/hebrew to swedish nrc */
  2372.     xlhas, /* 6,13 latin/hebrew to swiss nrc */
  2373.     xlhl1, /* 6,14 latin/hebrew to latin-1 */
  2374.     xlhas, /* 6,15 latin/hebrew to latin-2 */
  2375.     xlhl1, /* 6,16 latin/hebrew to DEC MCS */
  2376.     xlhas, /* 6,17 latin/hebrew to NeXT */
  2377.     xlhas, /* 6,18 latin/hebrew to CP437 */
  2378.     xlhas, /* 6,19 latin/hebrew to CP850 */
  2379.     xlhas, /* 6,20 latin/hebrew to CP852 */
  2380.     xlhas, /* 6,21 latin/hebrew to Macintosh Latin */
  2381.     xlhas, /* 6,22 latin/hebrew to DGI */
  2382.     xlhas,                      /* 6,23 latin/hebrew to HP */
  2383.     xlhas,                      /* 6,24 latin/hebrew to Latin/Cyrillic */
  2384.     xlhas,                      /* 6,25 latin/hebrew to CP866 */
  2385.     NULL,                       /* 6,26 latin/hebrew to Short KOI */
  2386.     xlhas,         /* 6,27 latin/hebrew to Old KOI-8 Cyrillic */
  2387.     NULL, /* 6,28 latin/hebrew to JIS-7 */
  2388.     NULL, /* 6,29 latin/hebrew to Shift-JIS */
  2389.     NULL, /* 6,30 latin/hebrew to J-EUC */
  2390.     NULL, /* 6,31 latin/hebrew to DEC Kanji */
  2391.     xlhh7, /* 6,32 latin/hebrew to Hebrew-7 */
  2392.     NULL, /* 6,33 latin/hebrew to Latin/Hebrew */
  2393.     xlh62, /* 6,34 latin/hebrew to CP862 Hebrew */
  2394.     NULL, /* 6,35 latin/hebrew to ELOT 927 Greek */
  2395.     xlhas, /* 6,36 latin/hebrew to Latin/Greek */
  2396.     xlhas, /* 6,37 latin/hebrew to CP869 */
  2397.     xlhas, /* 6,38 latin/hebrew to Latin-9 */
  2398.     xlhas, /* 6,39 latin/hebrew to CP858 */
  2399.     xlhas, /* 6,40 latin/hebrew to CP855 */
  2400.     xlhas, /* 6,41 latin/hebrew to CP1251 */
  2401.     xlhas, /* 6,42 latin/hebrew to Bulgarian */
  2402.     xlhas, /* 6,43 latin/hebrew to CP1250 */
  2403.     xlhas, /* 6,44 latin/hebrew to Mazovia */
  2404.     NULL, /* 6,45 latin/hebrew to UCS-2 */
  2405.     NULL, /* 6,46 latin/hebrew to UTF-8 */
  2406.     NULL, /* 6,47 latin/hebrew to KOI8R */
  2407.     NULL, /* 6,48 latin/hebrew to KOI8U */
  2408.     xlgas, /* 7,0 latin/greek to us ascii */
  2409.     xlgas, /* 7,1 latin/greek to uk ascii */
  2410.     xlgas,          /* 7,2 latin/greek to dutch nrc */
  2411.     xlgas, /* 7,3 latin/greek to finnish ascii */
  2412.     xlgas, /* 7,4 latin/greek to french nrc */
  2413.     xlgas, /* 7,5 latin/greek to fr-canadian nrc */
  2414.     xlgas, /* 7,6 latin/greek to german nrc */
  2415.     xlgas, /* 7,7 latin/greek to italian nrc */
  2416.     xlgas, /* 7,8 latin/greek to hungarian nrc */
  2417.     xlgas, /* 7,9 latin/greek to norge/danish nrc */
  2418.     xlgas, /* 7,10 latin/greek to portuguese nrc */
  2419.     xlgas, /* 7,11 latin/greek to spanish nrc */
  2420.     xlgas, /* 7,12 latin/greek to swedish nrc */
  2421.     xlgas, /* 7,13 latin/greek to swiss nrc */
  2422.     xlgas, /* 7,14 latin/greek to latin-1 */
  2423.     xlgas, /* 7,15 latin/greek to latin-2 */
  2424.     xlgas, /* 7,16 latin/greek to DEC MCS */
  2425.     xlgas, /* 7,17 latin/greek to NeXT */
  2426.     xlgas, /* 7,18 latin/greek to CP437 */
  2427.     xlgas, /* 7,19 latin/greek to CP850 */
  2428.     xlgas, /* 7,20 latin/greek to CP852 */
  2429.     xlgas, /* 7,21 latin/greek to Macintosh Latin */
  2430.     xlgas, /* 7,22 latin/greek to DGI */
  2431.     xlgas, /* 7,23 latin/greek to HP */
  2432.     xleft160,                   /* 7,24 latin/greek to Latin/Cyrillic */
  2433.     xleft128,                   /* 7,25 latin/greek to CP866 */
  2434.     xassk,                      /* 7,26 latin/greek to Short KOI */
  2435.     xleft160,         /* 7,27 latin/greek to Old KOI-8 Greek */
  2436.     NULL, /* 7,28 latin/greek to JIS-7 */
  2437.     NULL, /* 7,29 latin/greek to Shift-JIS */
  2438.     NULL, /* 7,30 latin/greek to J-EUC */
  2439.     NULL, /* 7,31 latin/greek to DEC Kanji */
  2440.     NULL, /* 7,32 latin/greek to Hebrew-7 */
  2441.     xlgas, /* 7,33 latin/greek to Latin/Hebrew */
  2442.     xlgas, /* 7,34 latin/greek to CP862 Hebrew */
  2443.     xlgeg, /* 7,35 latin/greek to ELOT 927 Greek */
  2444.     NULL, /* 7,36 latin/greek to Latin/Greek */
  2445.     xlg69, /* 7,37 latin/greek to CP869 */
  2446.     xlgas, /* 7,38 latin/greek to Latin-9 */
  2447.     xlgas, /* 7,39 latin/greek to CP858 */
  2448.     xleft128, /* 7,40 latin/greek to CP855 */
  2449.     xleft128, /* 7,41 latin/greek to CP1251 */
  2450.     xleft128, /* 7,42 latin/greek to Bulgarian */
  2451.     xleft128, /* 7,43 latin/greek to CP1250 */
  2452.     xleft128, /* 7,44 latin/greek to Mazovia */
  2453.     NULL, /* 7,45 latin/greek to UCS-2 */
  2454.     NULL, /* 7,46 latin/greek to UTF-8 */
  2455.     NULL, /* 7,47 latin/greek to KOI8R */
  2456.     NULL, /* 7,48 latin/greek to KOI8U */
  2457.     zl9as, /* 8,0 latin-9 to us ascii */
  2458.     xl1uk, /* 8,1 latin-9 to uk ascii */
  2459.     xl1du, /* 8,2 latin-9 to dutch nrc */
  2460.     xl1fi, /* 8,3 latin-9 to finnish nrc */
  2461.     xl1fr, /* 8,4 latin-9 to french nrc */
  2462.     xl1fc, /* 8,5 latin-9 to fr-canadian nrc */
  2463.     xl1ge, /* 8,6 latin-9 to german nrc */
  2464.     xl1it, /* 8,7 latin-9 to italian nrc */
  2465.     xl1hu, /* 8,8 latin-9 to hungarian nrc */
  2466.     xl1no, /* 8,9 latin-9 to norge/danish nrc */
  2467.     xl1po, /* 8,10 latin-9 to portuguese nrc */
  2468.     xl1sp, /* 8,11 latin-9 to spanish nrc */
  2469.     xl1sw, /* 8,12 latin-9 to swedish nrc */
  2470.     xl1ch, /* 8,13 latin-9 to swiss nrc */
  2471.     NULL, /* 8,14 latin-9 to latin-1 */
  2472.     xl1l2, /* 8,15 latin-9 to latin-2 */
  2473.     xl9dm, /* 8,16 latin-9 to DEC MCS */
  2474.     xl9ne, /* 8,17 latin-9 to NeXT */
  2475.     xl143, /* 8,18 latin-9 to CP437 */
  2476.     xl185, /* 8,19 latin-9 to CP850 */
  2477.     xl152, /* 8,20 latin-9 to CP852 */
  2478.     xl1aq, /* 8,21 latin-9 to Macintosh Latin */
  2479.     xl1dg, /* 8,22 latin-9 to DGI */
  2480.     xl1r8, /* 8,23 latin-9 to HP Roman8 */
  2481.     zl1as, /* 8,24 latin-9 to Latin/Cyrillic */
  2482.     zl1as,                      /* 8,25 latin-9 to CP866 */
  2483.     xl1sk,                      /* 8,26 latin-9 to Short KOI */
  2484.     zl1as,         /* 8,27 latin-9 to Old KOI-8 Cyrillic */
  2485.     NULL, /* 8,28 latin-9 to JIS-7 */
  2486.     NULL, /* 8,29 latin-9 to Shift-JIS */
  2487.     NULL, /* 8,30 latin-9 to J-EUC */
  2488.     NULL, /* 8,31 latin-9 to DEC Kanji */
  2489.     xl1h7, /* 8,32 latin-9 to Hebrew-7 */
  2490.     xl1lh, /* 8,33 latin-9 to Latin/Hebrew */
  2491.     xl162, /* 8,34 latin-9 to CP862 Hebrew */
  2492.     xl1eg, /* 8,35 latin-9 to ELOT 927 Greek */
  2493.     xl1lg, /* 8,36 latin-9 to Latin/Greek */
  2494.     xl169, /* 8,37 latin-9 to CP869 */
  2495.     NULL, /* 8,38 latin-9 to Latin9 */
  2496.     xl958, /* 8,39 latin-9 to CP858 */
  2497.     zl1as, /* 8,40 latin-9 to CP855 */
  2498.     zl1as, /* 8,41 latin-9 to CP1251 */
  2499.     xl1as, /* 8,42 latin-9 to Bulgarian */
  2500.     xl91250, /* 8,43 latin-9 to CP1250 */
  2501.     xl9mz, /* 8,44 latin-9 to Mazovia */
  2502.     NULL, /* 8,45 latin-9 to UCS-2 */
  2503.     NULL, /* 8,46 latin-9 to UTF-8 */
  2504.     zl1as, /* 8,47 latin-9 to KOI8-R */
  2505.     zl1as, /* 8,48 latin-9 to KOI8-U */
  2506.     NULL, /* 9,00 Unicode... */
  2507.     NULL, /* 9,01 */
  2508.     NULL, /* 9,02 */
  2509.     NULL, /* 9,03 */
  2510.     NULL, /* 9,04 */
  2511.     NULL, /* 9,05 */
  2512.     NULL, /* 9,06 */
  2513.     NULL, /* 9,07 */
  2514.     NULL, /* 9,08 */
  2515.     NULL, /* 9,09 */
  2516.     NULL, /* 9,10 */
  2517.     NULL, /* 9,11 */
  2518.     NULL, /* 9,12 */
  2519.     NULL, /* 9,13 */
  2520.     NULL, /* 9,14 */
  2521.     NULL, /* 9,15 */
  2522.     NULL, /* 9,16 */
  2523.     NULL, /* 9,17 */
  2524.     NULL, /* 9,18 */
  2525.     NULL, /* 9,19 */
  2526.     NULL, /* 9,20 */
  2527.     NULL, /* 9,21 */
  2528.     NULL, /* 9,22 */
  2529.     NULL, /* 9,23 */
  2530.     NULL, /* 9,24 */
  2531.     NULL, /* 9,25 */
  2532.     NULL, /* 9,26 */
  2533.     NULL, /* 9,27 */
  2534.     NULL, /* 9,28 */
  2535.     NULL, /* 9,29 */
  2536.     NULL, /* 9,30 */
  2537.     NULL, /* 9,31 */
  2538.     NULL, /* 9,32 */
  2539.     NULL, /* 9,33 */
  2540.     NULL, /* 9,34 */
  2541.     NULL, /* 9,35 */
  2542.     NULL, /* 9,36 */
  2543.     NULL, /* 9,37 */
  2544.     NULL, /* 9,38 */
  2545.     NULL, /* 9,39 */
  2546.     NULL, /* 9,40 */
  2547.     NULL, /* 9,41 */
  2548.     NULL, /* 9,42 */
  2549.     NULL, /* 9,43 */
  2550.     NULL, /* 9,44 */
  2551.     NULL, /* 9,45 */
  2552.     NULL, /* 9,46 */
  2553.     NULL, /* 9,47 */
  2554.     NULL, /* 9,48 */
  2555.     NULL, /* 10,00 */
  2556.     NULL, /* 10,01 */
  2557.     NULL, /* 10,02 */
  2558.     NULL, /* 10,03 */
  2559.     NULL, /* 10,04 */
  2560.     NULL, /* 10,05 */
  2561.     NULL, /* 10,06 */
  2562.     NULL, /* 10,07 */
  2563.     NULL, /* 10,08 */
  2564.     NULL, /* 10,09 */
  2565.     NULL, /* 10,10 */
  2566.     NULL, /* 10,11 */
  2567.     NULL, /* 10,12 */
  2568.     NULL, /* 10,13 */
  2569.     NULL, /* 10,14 */
  2570.     NULL, /* 10,15 */
  2571.     NULL, /* 10,16 */
  2572.     NULL, /* 10,17 */
  2573.     NULL, /* 10,18 */
  2574.     NULL, /* 10,19 */
  2575.     NULL, /* 10,20 */
  2576.     NULL, /* 10,21 */
  2577.     NULL, /* 10,22 */
  2578.     NULL, /* 10,23 */
  2579.     NULL, /* 10,24 */
  2580.     NULL, /* 10,25 */
  2581.     NULL, /* 10,26 */
  2582.     NULL, /* 10,27 */
  2583.     NULL, /* 10,28 */
  2584.     NULL, /* 10,29 */
  2585.     NULL, /* 10,30 */
  2586.     NULL, /* 10,31 */
  2587.     NULL, /* 10,32 */
  2588.     NULL, /* 10,33 */
  2589.     NULL, /* 10,34 */
  2590.     NULL, /* 10,35 */
  2591.     NULL, /* 10,36 */
  2592.     NULL, /* 10,37 */
  2593.     NULL, /* 10,38 */
  2594.     NULL, /* 10,39 */
  2595.     NULL, /* 10,40 */
  2596.     NULL, /* 10,41 */
  2597.     NULL, /* 10,42 */
  2598.     NULL, /* 10,43 */
  2599.     NULL, /* 10,44 */
  2600.     NULL, /* 10,45 */
  2601.     NULL, /* 10,46 */
  2602.     NULL, /* 10,47 */
  2603.     NULL /* 10,48 */
  2604. };
  2605. int nxlr = (sizeof(xlr) / sizeof(CHAR *));
  2607. /*
  2608.   Translation function table for sending files.
  2609.   Array of pointers to functions for translating from the local file
  2610.   character set to the transfer character set.  Indexed in the same
  2611.   way as the xlr array above, but with the indices reversed.
  2612. */
  2613. #ifdef CK_ANSIC
  2614. CHAR (*xls[MAXTCSETS+1][MAXFCSETS+1])(CHAR) =
  2615. #else
  2616. CHAR (*xls[MAXTCSETS+1][MAXFCSETS+1])() =
  2617. #endif /* CK_ANSIC */
  2618. {
  2619.     NULL, /* 0,0 us ascii to transparent */
  2620.     NULL, /* 0,1 uk ascii to transparent */
  2621.     NULL, /* 0,2 dutch nrc to transparent */
  2622.     NULL, /* 0,3 finnish nrc to transparent */
  2623.     NULL, /* 0,4 french nrc to transparent */
  2624.     NULL, /* 0,5 fr-canadian nrc to transparent */
  2625.     NULL, /* 0,6 german nrc to transparent */
  2626.     NULL, /* 0,7 hungarian nrc to transparent */
  2627.     NULL, /* 0,8 italian nrc to transparent */
  2628.     NULL, /* 0,9 norge/danish nrc to transparent */
  2629.     NULL, /* 0,10 portuguese nrc to transparent */
  2630.     NULL, /* 0,11 spanish nrc to transparent */
  2631.     NULL, /* 0,12 swedish nrc to transparent */
  2632.     NULL, /* 0,13 swiss nrc to transparent */
  2633.     NULL, /* 0,14 latin-1 to transparent */
  2634.     NULL, /* 0,15 latin-2 to transparent */
  2635.     NULL, /* 0,16 DEC MCS to transparent */
  2636.     NULL, /* 0,17 NeXT to transparent */
  2637.     NULL, /* 0,18 CP437 to transparent */
  2638.     NULL, /* 0,19 CP850 to transparent */
  2639.     NULL, /* 0,20 CP852 to transparent */
  2640.     NULL, /* 0,21 Macintosh Latin to transparent */
  2641.     NULL, /* 0,22 DGI to transparent */
  2642.     NULL, /* 0,23 HP to transparent */
  2643.     NULL, /* 0,24 Latin/Cyrillic to transparent */
  2644.     NULL,                       /* 0,25 CP866 to transparent */
  2645.     NULL,                       /* 0,26 Short KOI to transparent */
  2646.     NULL,                       /* 0,27 Old KOI-8 to transparent */
  2647.     NULL, /* 0,28 JIS-7 to transparent */
  2648.     NULL, /* 0,29 Shift JIS to transparent */
  2649.     NULL, /* 0,30 Japanese EUC to transparent */
  2650.     NULL, /* 0,31 DEC Kanji to transparent */
  2651.     NULL, /* 0,32 Hebrew-7 to transparent */
  2652.     NULL, /* 0,33 Latin/Hebrew to transparent */
  2653.     NULL, /* 0,34 CP862 Hebrew to transparent */
  2654.     NULL, /* 0,35 ELOT 927 Greek to transparent */
  2655.     NULL, /* 0,36 Latin/Greek to transparent */
  2656.     NULL, /* 0,37 CP869 to transparent */
  2657.     NULL, /* 0,38 Latin-9 to transparent */
  2658.     NULL, /* 0,39 CP858 to transparent */
  2659.     NULL, /* 0,40 CP855 to transparent */
  2660.     NULL, /* 0,41 CP1251 to transparent */
  2661.     NULL, /* 0,42 Bulgarian to transparent */
  2662.     NULL, /* 0,43 CP1250 to transparent */
  2663.     NULL, /* 0,44 Mazovia to transparent */
  2664.     NULL, /* 0,45 UCS-2 to transparent */
  2665.     NULL, /* 0,46 UTF-8 to transparent */
  2666.     NULL, /* 0,47 KOI8R to transparent */
  2667.     NULL, /* 0,48 KOI8U to transparent */
  2668.     NULL, /* 1,0 us ascii to ascii */
  2669.     NULL, /* 1,1 uk ascii to ascii */
  2670.     xduas, /* 1,2 dutch nrc to ascii */
  2671.     xfias, /* 1,3 finnish nrc to ascii */
  2672.     xfras, /* 1,4 french nrc to ascii */
  2673.     xfcas, /* 1,5 french canadian nrc to ascii */
  2674.     xgeas, /* 1,6 german nrc to ascii */
  2675.     xhuas, /* 1,7 hungarian nrc to ascii */
  2676.     xitas, /* 1,8 italian nrc to ascii */
  2677.     xnoas, /* 1,9 norwegian/danish nrc to ascii */
  2678.     xpoas, /* 1,10 portuguese nrc to ascii */
  2679.     xspas, /* 1,11 spanish nrc to ascii */
  2680.     xswas, /* 1,12 swedish nrc to ascii */
  2681.     xchas, /* 1,13 swiss nrc to ascii */
  2682.     xl1as, /* 1,14 latin-1 to ascii */
  2683.     xl2as, /* 1,15 latin-2 to ascii */
  2684.     xdmas, /* 1,16 dec mcs to ascii */
  2685.     xneas, /* 1,17 NeXT to ascii */
  2686.     x43as, /* 1,18 CP437 to ascii */
  2687.     x85as, /* 1,19 CP850 to ascii */
  2688.     x52as, /* 1,20 CP850 to ascii */
  2689.     xaqas, /* 1,21 Macintosh Latin to ascii */
  2690.     xdgas, /* 1,22 DGI to ascii */
  2691.     xr8as, /* 1,23 HP to ASCII */
  2692.     xlcas, /* 1,24 Latin/Cyrillic to ASCII */
  2693.     xacas,                      /* 1,25 CP866 to ASCII */
  2694.     xskas, /* 1,26 Short KOI to ASCII */
  2695.     xk8as,                      /* 1,27 Old KOI-8 Cyrillic to ASCII */
  2696.     NULL, /* 1,28 */
  2697.     NULL, /* 1,29 */
  2698.     NULL, /* 1,30 */
  2699.     NULL, /* 1,31 */
  2700.     xh7as, /* 1,32 Hebrew-7 to ASCII */
  2701.     xlhas, /* 1,33 Latin/Hebrew to ASCII */
  2702.     x62as, /* 1,34 CP862 Hebrew to ASCII */
  2703.     xegas, /* 1,35 ELOT 927 Greek to ASCII */
  2704.     xlgas, /* 1,36 Latin/Greek to ASCII */
  2705.     x69as, /* 1,37 CP869 to ASCII */
  2706.     xl9as, /* 1,38 Latin-9 to ASCII */
  2707.     x58as, /* 1,39 CP858 to ASCII */
  2708.     x55as, /* 1,40 CP855 to ASCII */
  2709.     x1251as, /* 1,41 CP1251 to ASCII */
  2710.     xleft128, /* 1,42 Bulgarian to ASCII */
  2711.     x1250as, /* 1,43 CP1250 to ASCII */
  2712.     xmzas, /* 1,44 Mazovia to ASCII */
  2713.     NULL, /* 1,45 UCS-2 to ASCII */
  2714.     NULL, /* 1,46 UTF-8 to ASCII */
  2715.     xk8as, /* 1,47 KOI8R to ASCII */
  2716.     xk8as, /* 1,48 KOI8U to ASCII */
  2717.     NULL, /* 2,0 us ascii to latin-1 */
  2718.     xukl1, /* 2,1 uk ascii to latin-1 */
  2719.     xdul1, /* 2,2 dutch nrc to latin-1 */
  2720.     xfil1, /* 2,3 finnish nrc to latin-1 */
  2721.     xfrl1, /* 2,4 french nrc to latin-1 */
  2722.     xfcl1, /* 2,5 french canadian nrc to latin-1 */
  2723.     xgel1, /* 2,6 german nrc to latin-1 */
  2724.     xhul1, /* 2,7 hungarian nrc to latin-1 */
  2725.     xitl1, /* 2,8 italian nrc to latin-1 */
  2726.     xnol1, /* 2,9 norwegian/danish nrc to latin-1 */
  2727.     xpol1, /* 2,10 portuguese nrc to latin-1 */
  2728.     xspl1, /* 2,11 spanish nrc to latin-1 */
  2729.     xswl1, /* 2,12 swedish nrc to latin-1 */
  2730.     xchl1, /* 2,13 swiss nrc to latin-1 */
  2731.     NULL, /* 2,14 latin-1 to latin-1 */
  2732.     xl2l1, /* 2,15 latin-2 to latin-1 */
  2733.     xdml1, /* 2,16 dec mcs to latin-1 */
  2734.     xnel1,                      /* 2,17 NeXT to Latin-1 */
  2735.     x43l1,                      /* 2,18 CP437 to Latin-1 */
  2736.     x85l1,                      /* 2,19 CP850 to Latin-1 */
  2737.     x52l1,                      /* 2,20 CP852 to Latin-1 */
  2738.     xaql1,                      /* 2,21 Macintosh Latin to Latin-1 */
  2739.     xdgl1,                      /* 2,22 DGI to Latin-1 */
  2740.     xr8l1,                      /* 2,23 HP to Latin-1 */
  2741.     xlcas,                      /* 2,24 Latin/Cyrillic to Latin-1 */
  2742.     xacas,                      /* 2,25 CP866 to Latin-1 */
  2743.     xskas,                      /* 2,26 Short KOI to Latin-1 */
  2744.     xk8as,                      /* 2,27 Old KOI-8 Cyrillic to Latin-1 */
  2745.     NULL, /* 2,28 Kanji ... */
  2746.     NULL, /* 2,29 */
  2747.     NULL, /* 2,30 */
  2748.     NULL, /* 2,31 */
  2749.     xh7as, /* 2,32 Hebrew-7 to Latin-1 */
  2750.     xlhl1, /* 2,33 Latin/Hebrew to Latin-1 */
  2751.     x62l1, /* 2,34 CP862 Hebrew to Latin-1 */
  2752.     xegas, /* 2,35 ELOT 927 Greek to Latin-1 */
  2753.     xlgl1, /* 2,36 Latin/Greek to Latin-1 */
  2754.     NULL, /* 2,37 CP869 to Latin-1 */
  2755.     NULL, /* 2,38 Latin-9 to Latin-1 */
  2756.     x58l1, /* 2,39 CP858 to Latin-1 */
  2757.     x55as, /* 2,40 CP855 to Latin-1 */
  2758.     x1251as, /* 2,41 CP1251 to Latin-1 */
  2759.     xleft128, /* 2,42 Bulgarian to Latin-1 */
  2760.     x1250l1, /* 2,43 CP1250 to Latin-1 */
  2761.     xmzl1, /* 2,44 Mazovia to Latin-1 */
  2762.     NULL, /* 2,45 UCS-2 to Latin-1 */
  2763.     NULL, /* 2,46 UTF-8 to Latin-1 */
  2764.     xk8as, /* 2,47 KOI8R to Latin-1 */
  2765.     xk8as, /* 2,48 KOI8U to Latin-1 */
  2766.     NULL, /* 3,0 us ascii to latin-2 */
  2767.     NULL, /* 3,1 uk ascii to latin-2 */
  2768.     xduas, /* 3,2 dutch nrc to latin-2 */
  2769.     xfias, /* 3,3 finnish nrc to latin-2 */
  2770.     xfras, /* 3,4 french nrc to latin-2 */
  2771.     xfcas, /* 3,5 french canadian nrc to latin-2 */
  2772.     xgel2, /* 3,6 german nrc to latin-2 */
  2773.     xhul2, /* 3,7 hungarian nrc to latin-2 */
  2774.     xitas, /* 3,8 italian nrc to latin-2 */
  2775.     xnoas, /* 3,9 norwegian/danish nrc to latin-2 */
  2776.     xpoas, /* 3,10 portuguese nrc to latin-2 */
  2777.     xspas, /* 3,11 spanish nrc to latin-2 */
  2778.     xswas, /* 3,12 swedish nrc to latin-2 */
  2779.     xchas, /* 3,13 swiss nrc to latin-2 */
  2780.     xl1l2, /* 3,14 latin-1 to latin-2 */
  2781.     NULL, /* 3,15 latin-2 to latin-2 */
  2782.     xl1l2, /* 3,16 dec mcs to latin-2 */
  2783.     xnel2,                      /* 3,17 NeXT to Latin-2 */
  2784.     x43l2,                      /* 3,18 CP437 to Latin-2 */
  2785.     x85l2,                      /* 3,19 CP850 to Latin-2 */
  2786.     x52l2,                      /* 3,20 CP852 to Latin-2 */
  2787.     xaql2,                      /* 3,21 Macintosh Latin to Latin-2 */
  2788.     xdgl2,                      /* 3,22 DGI to Latin-2 */
  2789.     xr8l2,                      /* 3,23 HP to Latin-2 */
  2790.     xlcas,                      /* 3,24 Latin/Cyrillic to Latin-2 */
  2791.     xacas,                      /* 3,25 CP866 to Latin-2 */
  2792.     xskas,                      /* 3,26 Short KOI to Latin-2 */
  2793.     xk8as,                      /* 3,27 Old KOI-8 Cyrillic to Latin-2 */
  2794.     NULL, /* 3,28 Kanji ... */
  2795.     NULL, /* 3,29 */
  2796.     NULL, /* 3,30 */
  2797.     NULL, /* 3,31 */
  2798.     xh7as, /* 3,32 Hebrew-7 to Latin-2 */
  2799.     xlhas, /* 3,33 Latin/Hebrew to Latin-2 */
  2800.     x62as, /* 3,34 CP862 Hebrew to Latin-2 */
  2801.     xegas, /* 3,35 ELOT 927 Greek to Latin-2 */
  2802.     xl2lg, /* 3,36 Latin/Greek to Latin-2 */
  2803.     xleft128, /* 3,37 CP869 to Latin-2 */
  2804.     xl9l2, /* 3,38 Latin-9 to Latin-2 */
  2805.     x58l2, /* 3,39 CP858 to Latin-2 */
  2806.     x55as, /* 3,40 CP855 to Latin-2 */
  2807.     x1251as, /* 3,41 CP1251 to Latin-2 */
  2808.     xleft128, /* 3,42 Bulgarian to Latin-2 */
  2809.     x1250l2, /* 3,43 CP1250 to Latin-2 */
  2810.     xmzl2, /* 3,44 Mazovia to Latin-2 */
  2811.     NULL, /* 3,45 UCS-2 to Latin-2 */
  2812.     NULL, /* 3,46 UTF-8 to Latin-2 */
  2813.     xk8as, /* 3,47 KOI8R to Latin-2 */
  2814.     xk8as, /* 3,48 KOI8U to Latin-2 */
  2815.     xaslc, /* 4,0 us ascii to latin/cyrillic */
  2816.     xaslc, /* 4,1 uk ascii to latin/cyrillic */
  2817.     xduas, /* 4,2 dutch nrc to latin/cyrillic */
  2818.     xfias, /* 4,3 finnish nrc to latin/cyrillic */
  2819.     xfras, /* 4,4 french nrc to latin/cyrillic */
  2820.     xfcas, /* 4,5 french canadian nrc to latin/cyrillic */
  2821.     xgeas, /* 4,6 german nrc to latin/cyrillic */
  2822.     xhuas, /* 4,7 hungarian nrc to latin/cyrillic */
  2823.     xitas, /* 4,8 italian nrc to latin/cyrillic */
  2824.     xnoas, /* 4,9 norge/danish nrc to latin/cyrillic */
  2825.     xpoas, /* 4,10 portuguese nrc to latin/cyrillic */
  2826.     xspas, /* 4,11 spanish nrc to latin/cyrillic */
  2827.     xswas, /* 4,12 swedish nrc to latin/cyrillic */
  2828.     xchas, /* 4,13 swiss nrc to latin/cyrillic */
  2829.     xl1as, /* 4,14 latin-1 to latin/cyrillic */
  2830.     xl2as, /* 4,15 latin-2 to latin/cyrillic */
  2831.     xdmas, /* 4,16 dec mcs to latin/cyrillic */
  2832.     xneas, /* 4,17 NeXT to latin/cyrillic */
  2833.     x43as, /* 4,18 CP437 to latin/cyrillic */
  2834.     x85as, /* 4,19 CP850 to latin/cyrillic */
  2835.     x52as, /* 4,20 CP852 to latin/cyrillic */
  2836.     xaqas, /* 4,21 Macintosh Latin to latin/cyrillic */
  2837.     xdgas, /* 4,22 DGI to Latin/Cyrillic */
  2838.     xr8as, /* 4,23 HP to Latin/Cyrillic */
  2839.     NULL,                       /* 4,24 Latin/Cyrillic to Latin/Cyrillic */
  2840.     xaclc,                      /* 4,25 CP866 to Latin/Cyrillic */
  2841.     xskcy,                      /* 4,26 Short KOI to Latin/Cyrillic */
  2842.     xk8lc,                      /* 4,27 Old KOI-8 Cyrillic to Latin/Cyrillic */
  2843.     NULL, /* 4,28 Kanji... */
  2844.     NULL, /* 4,29 */
  2845.     NULL, /* 4,30 */
  2846.     NULL, /* 4,31 */
  2847.     xh7as, /* 4,32 Hebrew-7 to Latin/Cyrillic */
  2848.     xlhas, /* 4,33 Latin/Hebrew to Latin/Cyrillic */
  2849.     x62as, /* 4,34 CP862 Hebrew to Latin/Cyrillic */
  2850.     xegas, /* 4,35 ELOT 927 Greek to Latin/Cyrillic */
  2851.     xleft160, /* 4,36 Latin/Greek to Latin/Cyrillic */
  2852.     xleft128, /* 4,37 CP869 to Latin/Cyrillic */
  2853.     xl1as, /* 4,38 latin-9 to latin/cyrillic */
  2854.     xleft128, /* 4,39 CP858 to Latin/Cyrillic */
  2855.     x55lc, /* 4,40 CP855 to Latin/Cyrillic */
  2856.     x1251lc, /* 4,41 CP1251 to Latin/Cyrillic */
  2857.     xbulc, /* 4,42 Bulgarian to Latin/Cyrillic */
  2858.     x1250as, /* 4,43 CP1250 to Latin/Cyrillic */
  2859.     xmzas, /* 4,44 Mazovia to Latin/Cyrillic */
  2860.     NULL, /* 4,45 UCS-2 to Latin/Cyrillic */
  2861.     NULL, /* 4,46 UTF-8 to Latin/Cyrillic */
  2862.     xkrlc, /* 4,47 KOI8R to Latin/Cyrillic */
  2863.     xkulc, /* 4,48 KOI8U to Latin/Cyrillic */
  2864.     NULL, /* 5,00 */
  2865.     NULL, /* 5,01 */
  2866.     NULL, /* 5,02 */
  2867.     NULL, /* 5,03 */
  2868.     NULL, /* 5,04 */
  2869.     NULL, /* 5,05 */
  2870.     NULL, /* 5,06 */
  2871.     NULL, /* 4.07 */
  2872.     NULL, /* 5,08 */
  2873.     NULL, /* 5,09 */
  2874.     NULL, /* 5,10 */
  2875.     NULL, /* 5,11 */
  2876.     NULL, /* 5,12 */
  2877.     NULL, /* 5,13 */
  2878.     NULL, /* 5,14 */
  2879.     NULL, /* 5,15 */
  2880.     NULL, /* 5,16 */
  2881.     NULL, /* 5,17 */
  2882.     NULL, /* 5,18 */
  2883.     NULL, /* 5,19 */
  2884.     NULL, /* 5,20 */
  2885.     NULL, /* 5,21 */
  2886.     NULL, /* 5,22 */
  2887.     NULL, /* 5,23 */
  2888.     NULL, /* 5,24 */
  2889.     NULL, /* 5,25 */
  2890.     NULL, /* 5,26 */
  2891.     NULL, /* 5,27 */
  2892.     NULL, /* 5,28 */
  2893.     NULL, /* 5,29 */
  2894.     NULL, /* 5,30 */
  2895.     NULL, /* 5,31 */
  2896.     NULL, /* 5,32 */
  2897.     NULL, /* 5,33 */
  2898.     NULL, /* 5,34 */
  2899.     NULL, /* 5,35 */
  2900.     NULL, /* 5,36 */
  2901.     NULL, /* 5,37 */
  2902.     NULL, /* 5,38 */
  2903.     NULL, /* 5,39 */
  2904.     NULL, /* 5,40 */
  2905.     NULL, /* 5,41 */
  2906.     NULL, /* 5,42 */
  2907.     NULL, /* 5,43 */
  2908.     NULL, /* 5,44 */
  2909.     NULL, /* 5,45 */
  2910.     NULL, /* 5,46 */
  2911.     NULL, /* 5,47 */
  2912.     NULL, /* 5,48 */
  2913.     NULL, /* 6,0 us ascii to Latin/Hebrew */
  2914.     NULL, /* 6,1 uk ascii to Latin/Hebrew */
  2915.     xduas, /* 6,2 dutch nrc to Latin/Hebrew */
  2916.     xfias, /* 6,3 finnish nrc to Latin/Hebrew */
  2917.     xfras, /* 6,4 french nrc to Latin/Hebrew */
  2918.     xfcas, /* 6,5 french canadian nrc to Latin/Hebrew */
  2919.     xgeas, /* 6,6 german nrc to Latin/Hebrew */
  2920.     xhuas, /* 6,7 hungarian nrc to Latin/Hebrew */
  2921.     xitas, /* 6,8 italian nrc to Latin/Hebrew */
  2922.     xnoas, /* 6,9 norge/danish nrc to Latin/Hebrew */
  2923.     xpoas, /* 6,10 portuguese nrc to Latin/Hebrew */
  2924.     xspas, /* 6,11 spanish nrc to Latin/Hebrew */
  2925.     xswas, /* 6,12 swedish nrc to Latin/Hebrew */
  2926.     xchas, /* 6,13 swiss nrc to Latin/Hebrew */
  2927.     xl1lh, /* 6,14 latin-1 to Latin/Hebrew */
  2928.     xl2as, /* 6,15 latin-2 to Latin/Hebrew */
  2929.     xdmas, /* 6,16 dec mcs to Latin/Hebrew */
  2930.     xneas, /* 6,17 NeXT to Latin/Hebrew */
  2931.     x43as, /* 6,18 CP437 to Latin/Hebrew */
  2932.     x85as, /* 6,19 CP850 to Latin/Hebrew */
  2933.     x52as, /* 6,20 CP852 to Latin/Hebrew */
  2934.     xaqas, /* 6,21 Macintosh Latin to Latin/Hebrew */
  2935.     xdgas, /* 6,22 DGI to Latin/Hebrew */
  2936.     xr8as, /* 6,23 HP to Latin/Hebrew */
  2937.     xlcas,                      /* 6,24 Latin/Cyrillic to Latin/Hebrew */
  2938.     xacas,                      /* 6,25 CP866 to Latin/Hebrew */
  2939.     xskas,                      /* 6,26 Short KOI to Latin/Hebrew */
  2940.     xk8as,                      /* 6,27 Old KOI-8 Cyrillic to Latin/Hebrew */
  2941.     NULL, /* 6,28 Kanji... */
  2942.     NULL, /* 6,29 */
  2943.     NULL, /* 6,30 */
  2944.     NULL, /* 6,31 */
  2945.     xh7lh, /* 6,32 Hebrew-7 to Latin/Hebrew */
  2946.     NULL, /* 6,33 Latin/Hebrew to Latin/Hebrew */
  2947.     x62lh, /* 6,34 CP862 Hebrew to Latin/Hebrew */
  2948.     xegas, /* 6,35 ELOT 927 Greek to Latin/Hebrew */
  2949.     xlgas, /* 6,36 Latin/Greek to Latin/Hebrew */
  2950.     x69as, /* 6,37 CP869 to Latin/Hebrew */
  2951.     xl1as, /* 6,38 latin-9 to Latin/Hebrew */
  2952.     x58as, /* 6,39 CP858 to Latin/Hebrew */
  2953.     x55as, /* 6,40 CP855 to Latin/Hebrew */
  2954.     x1251as, /* 6,41 CP1251 to Latin/Hebrew */
  2955.     xleft128, /* 6,42 Bulgarian to Latin/Hebrew */
  2956.     x1250as, /* 6,43 CP1250 to Latin/Hebrew */
  2957.     xmzas, /* 6,44 Mazovia to Latin/Hebrew */
  2958.     NULL, /* 6,45 UCS-2 to Latin/Hebrew */
  2959.     NULL, /* 6,46 UTF-8 to Latin/Hebrew */
  2960.     NULL, /* 6,47 KOI8R to Latin/Hebrew */
  2961.     NULL, /* 6,48 KOI8U to Latin/Hebrew */
  2962.     NULL, /* 7,0 us ascii to Latin/Greek */
  2963.     NULL, /* 7,1 uk ascii to Latin/Greek */
  2964.     xduas, /* 7,2 dutch nrc to Latin/Greek */
  2965.     xfias, /* 7,3 finnish nrc to Latin/Greek */
  2966.     xfras, /* 7,4 french nrc to Latin/Greek */
  2967.     xfcas, /* 7,5 french canadian nrc to Latin/Greek */
  2968.     xgeas, /* 7,6 german nrc to Latin/Greek */
  2969.     xhuas, /* 7,7 hungarian nrc to Latin/Greek */
  2970.     xitas, /* 7,8 italian nrc to Latin/Greek */
  2971.     xnoas, /* 7,9 norge/danish nrc to Latin/Greek */
  2972.     xpoas, /* 7,10 portuguese nrc to Latin/Greek */
  2973.     xspas, /* 7,11 spanish nrc to Latin/Greek */
  2974.     xswas, /* 7,12 swedish nrc to Latin/Greek */
  2975.     xchas, /* 7,13 swiss nrc to Latin/Greek */
  2976.     xl1lg, /* 7,14 latin-1 to Latin/Greek */
  2977.     xl2lg, /* 7,15 latin-2 to Latin/Greek */
  2978.     xl1lg, /* 7,16 dec mcs to Latin/Greek */
  2979.     xneas, /* 7,17 NeXT to Latin/Greek */
  2980.     xleft128, /* 7,18 CP437 to Latin/Greek */
  2981.     x85as, /* 7,19 CP850 to Latin/Greek */
  2982.     x52as, /* 7,20 CP852 to Latin/Greek */
  2983.     xaqas, /* 7,21 Macintosh Latin to Latin/Greek */
  2984.     xdgas, /* 7,22 DGI to Latin/Greek */
  2985.     xr8as, /* 7,23 HP to Latin/Greek */
  2986.     xleft160,                   /* 7,24 Latin/Cyrillic to Latin/Greek */
  2987.     xleft128,                   /* 7,25 CP866 to Latin/Greek */
  2988.     xskas,                      /* 7,26 Short KOI to Latin/Greek */
  2989.     xk8as,                      /* 7,27 Old KOI-8 Cyrillic to Latin/Greek */
  2990.     NULL, /* 7,28 Kanji... */
  2991.     NULL, /* 7,29 */
  2992.     NULL, /* 7,30 */
  2993.     NULL, /* 7,31 */
  2994.     xh7as, /* 7,32 Hebrew-7 to Latin/Greek */
  2995.     NULL, /* 7,33 Latin/Hebrew to Latin/Greek */
  2996.     x62as, /* 7,34 CP862 Hebrew to Latin/Greek */
  2997.     xeglg, /* 7,35 ELOT 927 Greek to Latin/Greek */
  2998.     NULL, /* 7,36 Latin/Greek to Latin/Greek */
  2999.     x69lg, /* 7,37 CP869 to Latin/Greek */
  3000.     xl1as, /* 7,38 latin-9 to Latin/Greek */
  3001.     xl1as, /* 7,39 latin-9 to Latin/Hebrew*/
  3002.     xleft128, /* 7,40 CP855 to Latin/Greek */
  3003.     xleft128, /* 7,41 CP1251 to Latin/Greek */
  3004.     xleft128, /* 7,42 Bulgarian to Latin/Greek */
  3005.     x1250as, /* 7,43 CP1250 to Latin/Greek */
  3006.     xmzas, /* 7,44 Mazovia to Latin/Greek */
  3007.     NULL, /* 7,45 UCS-2 to Latin/Greek */
  3008.     NULL, /* 7,46 UTF-8 to Latin/Greek */
  3009.     NULL, /* 7,47 KOI8R to Latin/Greek */
  3010.     NULL, /* 7,48 KOI8U to Latin/Greek */
  3011.     NULL, /* 8,0 us ascii to latin-9 */
  3012.     xukl1, /* 8,1 uk ascii to latin-9 */
  3013.     xdul1, /* 8,2 dutch nrc to latin-9 */
  3014.     xfil1, /* 8,3 finnish nrc to latin-9 */
  3015.     xfrl1, /* 8,4 french nrc to latin-9 */
  3016.     xfcl1, /* 8,5 french canadian nrc to latin-9 */
  3017.     xgel1, /* 8,6 german nrc to latin-9 */
  3018.     xhul1, /* 8,7 hungarian nrc to latin-9 */
  3019.     xitl1, /* 8,8 italian nrc to latin-9 */
  3020.     xnol1, /* 8,9 norwegian/danish nrc to latin-9 */
  3021.     xpol1, /* 8,10 portuguese nrc to latin-9 */
  3022.     xspl1, /* 8,11 spanish nrc to latin-9 */
  3023.     xswl1, /* 8,12 swedish nrc to latin-9 */
  3024.     xchl1, /* 8,13 swiss nrc to latin-9 */
  3025.     NULL, /* 8,14 latin-1 to latin-9 */
  3026.     xl2l9, /* 8,15 latin-2 to latin-9 */
  3027.     xdml9, /* 8,16 dec mcs to latin-9 */
  3028.     xnel9,                      /* 8,17 NeXT To Latin-9 */
  3029.     x43l1,                      /* 8,18 CP437 To Latin-9 */
  3030.     x85l1,                      /* 8,19 CP850 To Latin-9 */
  3031.     x52l1,                      /* 8,20 CP852 To Latin-9 */
  3032.     xaql1,                      /* 8,21 Macintosh Latin To Latin-9 */
  3033.     xdgl1,                      /* 8,22 DGI To Latin-9 */
  3034.     xr8l1,                      /* 8,23 HP To Latin-9 */
  3035.     xlcas,                      /* 8,24 Latin/Cyrillic To Latin-9 */
  3036.     xacas,                      /* 8,25 CP866 To Latin-9 */
  3037.     xskas,                      /* 8,26 Short KOI To Latin-9 */
  3038.     xk8as,                      /* 8,27 Old KOI-8 Cyrillic To Latin-9 */
  3039.     NULL, /* 8,28 Kanji ... */
  3040.     NULL, /* 8,29 */
  3041.     NULL, /* 8,30 */
  3042.     NULL, /* 8,31 */
  3043.     xh7as, /* 8,32 Hebrew-7 To Latin-9 */
  3044.     xlhl1, /* 8,33 Latin/Hebrew To Latin-9 */
  3045.     x62l1, /* 8,34 CP862 Hebrew To Latin-9 */
  3046.     xegas, /* 8,35 ELOT 927 Greek To Latin-9 */
  3047.     xlgl1, /* 8,36 Latin/Greek To Latin-9 */
  3048.     xl169, /* 8,37 CP869 To Latin-9 */
  3049.     NULL, /* 8,38 Latin-9 To Latin-9 */
  3050.     x58l9, /* 8,39 cp858 To Latin-9 */
  3051.     x55as, /* 8,40 cp855 To Latin-9 */
  3052.     x55as, /* 8,41 cp1251 To Latin-9 */
  3053.     xleft128, /* 8,42 Bulgarian To Latin-9 */
  3054.     x1250l9, /* 8,43 CP1250 To Latin-9 */
  3055.     xmzl9, /* 8,44 Mazovia To Latin-9 */
  3056.     NULL, /* 8,45 UCS-2 to Latin-9 */
  3057.     NULL, /* 8,46 UTF-8 to Latin-9 */
  3058.     NULL, /* 8,47 KOI8R to Latin-9 */
  3059.     NULL, /* 8,48 KOI8U to Latin-9 */
  3060.     NULL, /* 9,00 Unicode... */
  3061.     NULL, /* 9,01 */
  3062.     NULL, /* 9,02 */
  3063.     NULL, /* 9,03 */
  3064.     NULL, /* 9,04 */
  3065.     NULL, /* 9,05 */
  3066.     NULL, /* 9,06 */
  3067.     NULL, /* 9,07 */
  3068.     NULL, /* 9,08 */
  3069.     NULL, /* 9,09 */
  3070.     NULL, /* 9,10 */
  3071.     NULL, /* 9,11 */
  3072.     NULL, /* 9,12 */
  3073.     NULL, /* 9,13 */
  3074.     NULL, /* 9,14 */
  3075.     NULL, /* 9,15 */
  3076.     NULL, /* 9,16 */
  3077.     NULL, /* 9,17 */
  3078.     NULL, /* 9,18 */
  3079.     NULL, /* 9,19 */
  3080.     NULL, /* 9,20 */
  3081.     NULL, /* 9,21 */
  3082.     NULL, /* 9,22 */
  3083.     NULL, /* 9,23 */
  3084.     NULL, /* 9,24 */
  3085.     NULL, /* 9,25 */
  3086.     NULL, /* 9,26 */
  3087.     NULL, /* 9,27 */
  3088.     NULL, /* 9,28 */
  3089.     NULL, /* 9,29 */
  3090.     NULL, /* 9,30 */
  3091.     NULL, /* 9,31 */
  3092.     NULL, /* 9,32 */
  3093.     NULL, /* 9,33 */
  3094.     NULL, /* 9,34 */
  3095.     NULL, /* 9,35 */
  3096.     NULL, /* 9,36 */
  3097.     NULL, /* 9,37 */
  3098.     NULL, /* 9,38 */
  3099.     NULL, /* 9,39 */
  3100.     NULL, /* 9,40 */
  3101.     NULL, /* 9,41 */
  3102.     NULL, /* 9,42 */
  3103.     NULL, /* 9,43 */
  3104.     NULL, /* 9,44 */
  3105.     NULL, /* 9,45 */
  3106.     NULL, /* 9,46 */
  3107.     NULL, /* 9,47 */
  3108.     NULL, /* 9,48 */
  3109.     NULL, /* 10,00 */
  3110.     NULL, /* 10,01 */
  3111.     NULL, /* 10,02 */
  3112.     NULL, /* 10,03 */
  3113.     NULL, /* 10,04 */
  3114.     NULL, /* 10,05 */
  3115.     NULL, /* 10,06 */
  3116.     NULL, /* 10,07 */
  3117.     NULL, /* 10,08 */
  3118.     NULL, /* 10,09 */
  3119.     NULL, /* 10,10 */
  3120.     NULL, /* 10,11 */
  3121.     NULL, /* 10,12 */
  3122.     NULL, /* 10,13 */
  3123.     NULL, /* 10,14 */
  3124.     NULL, /* 10,15 */
  3125.     NULL, /* 10,16 */
  3126.     NULL, /* 10,17 */
  3127.     NULL, /* 10,18 */
  3128.     NULL, /* 10,19 */
  3129.     NULL, /* 10,20 */
  3130.     NULL, /* 10,21 */
  3131.     NULL, /* 10,22 */
  3132.     NULL, /* 10,23 */
  3133.     NULL, /* 10,24 */
  3134.     NULL, /* 10,25 */
  3135.     NULL, /* 10,26 */
  3136.     NULL, /* 10,27 */
  3137.     NULL, /* 10,28 */
  3138.     NULL, /* 10,29 */
  3139.     NULL, /* 10,30 */
  3140.     NULL, /* 10,31 */
  3141.     NULL, /* 10,32 */
  3142.     NULL, /* 10,33 */
  3143.     NULL, /* 10,34 */
  3144.     NULL, /* 10,35 */
  3145.     NULL, /* 10,36 */
  3146.     NULL, /* 10,37 */
  3147.     NULL, /* 10,38 */
  3148.     NULL, /* 10,39 */
  3149.     NULL, /* 10,40 */
  3150.     NULL, /* 10,41 */
  3151.     NULL, /* 10,42 */
  3152.     NULL, /* 10,43 */
  3153.     NULL, /* 10,44 */
  3154.     NULL, /* 10,45 */
  3155.     NULL, /* 10,46 */
  3156.     NULL, /* 10,47 */
  3157.     NULL /* 10,48 */
  3158. };
  3159. int nxls = (sizeof(xls) / sizeof(CHAR *));
  3161. #ifndef NOLOCAL
  3162. /*
  3163.   The following routines are useful only for terminal character sets, and so
  3164.   ifdef'd out for NOLOCAL compilations.
  3165. */
  3167. /*
  3168.   C S _ I S _ N R C
  3170.   Returns nonzero if argument indicates a 7-bit national character set,
  3171.   zero otherwise.
  3172. */
  3173. int
  3174. cs_is_nrc(x) int x; {
  3175. #ifdef UNICODE
  3176.     if (x == TX_J201R || x == TX_DECSPEC || x == TX_DECTECH
  3177.         || txrinfo[x] == NULL)
  3178.       return(0);
  3179.     else
  3180.       return(txrinfo[x]->flags & X2U_STD && txrinfo[x]->size == 94);
  3181. #else /* UNICODE */
  3182.     if ((cs_size(x) == 94))
  3183.       return(1);
  3184.     else
  3185.       return(0);
  3186. #endif /* UNICODE */
  3187. }
  3189. /*
  3190.   C S _ I S _ S T D
  3192.   Returns nonzero if argument indicates an ISO 4873-standard-format
  3193.   character set, i.e. one in which the control region is NOT used for
  3194.   graphics; zero otherwise.
  3195. */
  3196. int
  3197. cs_is_std(x) int x; {
  3198. #ifdef UNICODE
  3199.     if (!txrinfo[x]) /* Even more safety */
  3200.       return(0);
  3201.     else if (txrinfo[x]->size == 128) /* Just for safety */
  3202.       return(0);
  3203.     else
  3204.       return(txrinfo[x]->flags & X2U_STD); /* Only this should be needed */
  3205. #else
  3206.     switch (x) {
  3207.       case FC_CP437: /* Code pages use C1 graphics */
  3208.       case FC_CP850:
  3209.       case FC_CP852:
  3210.       case FC_CP862:
  3211.       case FC_CP866:
  3212.       case FC_CP869:
  3213.       case FC_CP858:
  3214.       case FC_APPQD: /* So do Apple and NeXTSTEP */
  3215.       case FC_NEXT:
  3216. return(0);
  3217.       default: /* Others behave */
  3218. return(1);
  3219.     }
  3220. #endif /* CKOUINI */
  3221. }
  3223. int
  3224. cs_size(x) int x; {
  3225. #ifdef UNICODE
  3226.     if (!txrinfo[x])
  3227.       return(128);
  3228.     return(txrinfo[x]->size);
  3229. #else
  3230.     switch(x) {
  3231.       case FC_USASCII:
  3232.       case FC_UKASCII:
  3233.       case FC_DUASCII:
  3234.       case FC_FIASCII:
  3235.       case FC_FRASCII:
  3236.       case FC_FCASCII:
  3237.       case FC_GEASCII:
  3238.       case FC_HUASCII:
  3239.       case FC_ITASCII:
  3240.       case FC_NOASCII:
  3241.       case FC_POASCII:
  3242.       case FC_SPASCII:
  3243.       case FC_SWASCII:
  3244.       case FC_CHASCII:
  3245.       case FC_KOI7:
  3246.       case FC_HE7:
  3247.       case FC_ELOT:
  3248. return(94);
  3250.       case FC_1LATIN:
  3251.       case FC_2LATIN:
  3252.       case FC_DECMCS:
  3253.       case FC_DGMCS:
  3254.       case FC_HPR8:
  3255.       case FC_CYRILL:
  3256.       case FC_KOI8:
  3257.       case FC_HEBREW:
  3258.       case FC_GREEK:
  3259.       case FC_9LATIN:
  3260. return(96);
  3262.       case FC_NEXT:
  3263.       case FC_CP437:
  3264.       case FC_CP850:
  3265.       case FC_CP852:
  3266.       case FC_CP855:
  3267.       case FC_CP862:
  3268.       case FC_CP866:
  3269.       case FC_CP1251:
  3270.       case FC_APPQD:
  3271. return(128);
  3272. #ifdef KANJI
  3273.       case FC_JIS7:
  3274. return(-94);
  3275.       case FC_SHJIS:
  3276. return(-128);
  3277.       case FC_JEUC:
  3278.       case FC_JDEC:
  3279. return(-96);
  3280. #endif /* KANJI */
  3281.       case FC_CP858:
  3282.       default:
  3283. return(-1);
  3284.     }
  3285. #endif /* UNICODE */
  3286. }
  3287. #endif /* NOLOCAL */
  3289. /*
  3290.   S E T X L A T Y P E  --  Set Translation Type
  3292.   Sets global xlatype to indicate which kind of translation:
  3294.     XLA_NONE      No translation
  3295.     XLA_BYTE      Byte-for-Byte translation
  3296.     XLA_JAPAN     Japanese Kanji translation
  3297.     XLA_UNICODE   Unicode translations
  3299.   And sets up the appropriate translation function pointers as follows:
  3301.   For no translation:
  3302.     All function pointers are NULL.
  3304.   For Byte-for-Byte transation:
  3305.     rx  = TCS to FCS (these functions are in this module...)
  3306.     sx  = FCS to TCS
  3308.   For Unicode translations:
  3309.     xfu = FCS to UCS (these functions are in ckcuni.c...)
  3310.     xtu = TCS to UCS
  3311.     xuf = UCS to FCS
  3312.     xut = UCS to TCS
  3313. */
  3314. VOID
  3315. setxlatype(tcs, fcs) int tcs, fcs; {
  3316. #ifdef UNICODE
  3317.     xfu = NULL; /* Unicode <-> TCS/FCS functions */
  3318.     xtu = NULL;
  3319.     xuf = NULL;
  3320.     xut = NULL;
  3321. #endif /* UNICODE */
  3322.     rx = sx = NULL;
  3323.     debug(F101,"setxlatype fcs","",fcs);
  3324.     debug(F101,"setxlatype tcs","",tcs);
  3326.     if (tcs < 0 || tcs > MAXTCSETS) {
  3327. debug(F101,"setxlatype bad tcs","",tcs);
  3328. return;
  3329.     }
  3330.     if (fcs < 0 || fcs > MAXFCSETS) {
  3331. debug(F101,"setxlatype bad fcs","",fcs);
  3332. return;
  3333.     }
  3334.     if (tcs == TC_TRANSP) { /* Transfer charset is TRANSPARENT */
  3335. debug(F101,"setxlatype transparent because TCS==Transparent","",tcs);
  3336. xlatype = XLA_NONE; /* Translation type is None */
  3337. #ifdef UNICODE
  3338.     /* If any of our charsets is Unicode we use Unicode functions */
  3339.     /* even if TCS and FCS are the same because of BOM and byte swapping */
  3340.     } else if (tcs == TC_UCS2 || tcs == TC_UTF8 ||
  3341.        fcs == FC_UCS2 || fcs == FC_UTF8) {
  3342. debug(F101,"setxlatype Unicode tcs","",tcs);
  3343. debug(F101,"setxlatype Unicode fcs","",fcs);
  3344. /* Unicode <-> TCS/FCS functions */
  3345. xfu = xl_fcu[fcs]; /* FCS -> UCS */
  3346. xtu = xl_tcu[tcs]; /* TCS -> UCS */
  3347. xuf = xl_ufc[fcs]; /* UCS -> FCS */
  3348. xut = xl_utc[tcs]; /* UCS -> TCS */
  3349.         xlatype = XLA_UNICODE; /* Translation type is Unicode */
  3350. debug(F001,"setxlatype Unicode xfu","",(unsigned)xfu);
  3351. debug(F001,"setxlatype Unicode xuf","",(unsigned)xuf);
  3352. #endif /* UNICODE */
  3353.     } else if (cseqtab[tcs] == fcs) { /* Or if TCS == FCS */
  3354. debug(F101,"setxlatype transparent because TCS==FCS","",tcs);
  3355. xlatype = XLA_NONE; /* translation type is also None */
  3356. #ifdef KANJI
  3357.     /* Otherwise if any of them is Japanese, we use Kanji functions */
  3358.     } else if (tcs == TC_JEUC || fcsinfo[fcs].alphabet == AL_JAPAN) {
  3359. debug(F101,"setxlatype Japanese tcs","",tcs);
  3360. debug(F101,"setxlatype Japanese fcs","",fcs);
  3361.         xlatype = XLA_JAPAN; /* Translation type is Japanese */
  3362. #endif /* KANJI */
  3363.     /* Otherwise we use byte functions */
  3364.     } else { /* Otherwise... */
  3365. rx = xlr[tcs][fcs]; /* Input translation function */
  3366. sx = xls[tcs][fcs]; /* Output translation function */
  3367. debug(F101,"setxlatype Byte tcs","",tcs);
  3368. debug(F101,"setxlatype Byte fcs","",fcs);
  3369.         xlatype = XLA_BYTE; /* Translation type is Byte */
  3370.     }
  3371.     debug(F101,"setxlatype xlatype","",xlatype);
  3372. }
  3374. /* Set up translation between two file character sets with UCS intermediate */
  3376. #ifdef UNICODE
  3377. VOID
  3378. initxlate(csin, csout) int csin, csout; {
  3379.     xfu = NULL;
  3380.     xtu = NULL;
  3381.     xuf = NULL;
  3382.     xut = NULL;
  3384.     debug(F101,"initxlate csin","",csin);
  3385.     debug(F101,"initxlate csout","",csout);
  3387.     if (csin < 0 || csin > MAXFCSETS) {
  3388. debug(F101,"initxlate bad csin","",csin);
  3389. return;
  3390.     }
  3391.     if (csout < 0 || csout > MAXFCSETS) {
  3392. debug(F101,"initxlate bad csout","",csout);
  3393. return;
  3394.     }
  3395.     if (csin == csout && csin != FC_UCS2) {
  3396. xlatype = XLA_NONE; /* Translation type is None */
  3397. return;
  3398.     }
  3399.     xlatype = XLA_UNICODE; /* Translation type is Unicode */
  3400.     xfu = xl_fcu[csin]; /* FCS -> UCS */
  3401.     xuf = xl_ufc[csout]; /* UCS -> FCS */
  3402.     xpnbyte(-1,0,0,NULL); /* Reset UCS-2 */
  3403.     debug(F001,"initxlate Unicode xfu","",(unsigned)xfu);
  3404.     debug(F001,"initxlate Unicode xuf","",(unsigned)xuf);
  3405.     debug(F101,"initxlate xlatype","",xlatype);
  3406. }
  3407. #endif /* UNICODE */
  3409. int csetsinited = 0;
  3411. VOID
  3412. initcsets() { /* Routine to reset or initialize */
  3413.     int i; /* character-set associations. */
  3415. #ifdef UNICODE
  3416.     if (ucsorder < 0) /* for creating UCS-2 files. */
  3417.       ucsorder = byteorder;
  3418.     if (ucsorder < 0)
  3419.       ucsorder = 0;
  3420. #endif /* UNICODE */
  3422.     debug(F101,"initcsets nxls","",nxls);
  3423.     debug(F101,"initcsets nxlr","",nxlr);
  3425.     debug(F101,"initcsets TERM LOCAL CSET","",tcsl);
  3426.     debug(F101,"initcsets TERM REMOTE CSET","",tcsr);
  3428.     for (i = 0; i <= MAXFCSETS; i++) /* First clear them all... */
  3429.       afcset[i] = -1;
  3430.     for (i = 0; i <= MAXTCSETS; i++)
  3431.       axcset[i] = -1;
  3433.     /* Now set specific defaults for incoming files */
  3435.     xlatype = XLA_NONE;
  3437.     axcset[TC_TRANSP]  = FC_TRANSP;
  3438.     axcset[TC_USASCII] = FC_USASCII;
  3440. #ifdef OS2
  3441.     switch (fcharset) {
  3442.       case FC_CP850:
  3443.       case FC_CP858:
  3444.       case FC_CP437:
  3445.       case FC_1LATIN:
  3446. axcset[TC_1LATIN]  = fcharset;
  3447. break;
  3448.       default:
  3449. axcset[TC_1LATIN]  = FC_CP850;
  3450.     }
  3451. #else
  3452. #ifdef HPUX
  3453.     axcset[TC_1LATIN]  = FC_HPR8;
  3454. #else
  3455. #ifdef VMS
  3456.     axcset[TC_1LATIN]  = FC_DECMCS;
  3457. #else
  3458. #ifdef NEXT
  3459.     axcset[TC_1LATIN]  = FC_NEXT;
  3460. #else
  3461. #ifdef datageneral
  3462.     axcset[TC_1LATIN]  = FC_DGMCS;
  3463. #else
  3464.     /* Should we use code pages on some PC based UNIXes? */
  3465.     axcset[TC_1LATIN]  = FC_1LATIN;
  3466. #endif /* datageneral */
  3467. #endif /* NEXT */
  3468. #endif /* VMS */
  3469. #endif /* HPUX */
  3470. #endif /* OS2 */
  3472. #ifdef OS2
  3473.     axcset[TC_2LATIN]  = FC_CP852;
  3474.     axcset[TC_CYRILL]  = FC_CP866;
  3475.     axcset[TC_JEUC]    = FC_SHJIS;
  3476.     axcset[TC_HEBREW]  = FC_CP862;
  3477.     axcset[TC_GREEK]   = FC_CP869;
  3478.     axcset[TC_9LATIN]  = FC_CP858;
  3479.     axcset[TC_UCS2]    = FC_UCS2;
  3480.     axcset[TC_UTF8]    = FC_UCS2;
  3481. #else
  3482.     axcset[TC_2LATIN]  = FC_2LATIN;
  3483.     axcset[TC_CYRILL]  = FC_CYRILL;
  3484.     axcset[TC_JEUC]    = FC_JEUC;
  3485.     axcset[TC_HEBREW]  = FC_HEBREW;
  3486.     axcset[TC_GREEK]   = FC_GREEK;
  3487.     axcset[TC_9LATIN]  = FC_9LATIN;
  3488.     axcset[TC_UCS2]    = FC_UTF8;
  3489.     axcset[TC_UTF8]    = FC_UTF8;
  3490. #endif /* OS2 */
  3492.     /* And for outbound files */
  3494.     afcset[FC_USASCII] = TC_USASCII;
  3495.     afcset[FC_UKASCII] = TC_1LATIN;
  3496.     afcset[FC_DUASCII] = TC_1LATIN;
  3497.     afcset[FC_FIASCII] = TC_1LATIN;
  3498.     afcset[FC_FRASCII] = TC_1LATIN;
  3499.     afcset[FC_FCASCII] = TC_1LATIN;
  3500.     afcset[FC_GEASCII] = TC_1LATIN;
  3501.     afcset[FC_HUASCII] = TC_2LATIN;
  3502.     afcset[FC_ITASCII] = TC_1LATIN;
  3503.     afcset[FC_NOASCII] = TC_1LATIN;
  3504.     afcset[FC_POASCII] = TC_1LATIN;
  3505.     afcset[FC_SPASCII] = TC_1LATIN;
  3506.     afcset[FC_SWASCII] = TC_1LATIN;
  3507.     afcset[FC_CHASCII] = TC_1LATIN;
  3508.     afcset[FC_1LATIN]  = TC_1LATIN;
  3509.     afcset[FC_2LATIN]  = TC_2LATIN;
  3510.     afcset[FC_DECMCS]  = TC_1LATIN;
  3511.     afcset[FC_NEXT]    = TC_1LATIN;
  3512.     afcset[FC_CP437]   = TC_1LATIN;
  3513.     afcset[FC_CP850]   = TC_1LATIN;
  3514.     afcset[FC_CP852]   = TC_2LATIN;
  3515.     afcset[FC_APPQD]   = TC_1LATIN;
  3516.     afcset[FC_DGMCS]   = TC_1LATIN;
  3517.     afcset[FC_HPR8]    = TC_1LATIN;
  3518.     afcset[FC_CYRILL]  = TC_CYRILL;
  3519.     afcset[FC_CP866]   = TC_CYRILL;
  3520.     afcset[FC_KOI7]    = TC_CYRILL;
  3521.     afcset[FC_KOI8]    = TC_CYRILL;
  3522.     afcset[FC_JIS7]    = TC_JEUC;
  3523.     afcset[FC_SHJIS]   = TC_JEUC;
  3524.     afcset[FC_JEUC]    = TC_JEUC;
  3525.     afcset[FC_JDEC]    = TC_JEUC;
  3526.     afcset[FC_HE7]     = TC_HEBREW;
  3527.     afcset[FC_HEBREW]  = TC_HEBREW;
  3528.     afcset[FC_CP862]   = TC_HEBREW;
  3529.     afcset[FC_ELOT]    = TC_GREEK;
  3530.     afcset[FC_GREEK]   = TC_GREEK;
  3531.     afcset[FC_CP869]   = TC_GREEK;
  3532.     afcset[FC_9LATIN]  = TC_9LATIN;
  3533.     afcset[FC_CP923]   = TC_9LATIN;
  3534.     afcset[FC_CP858]   = TC_9LATIN;
  3535.     afcset[FC_CP855]   = TC_CYRILL;
  3536.     afcset[FC_CP1251]  = TC_CYRILL;
  3537.     afcset[FC_BULGAR]  = TC_CYRILL;
  3538.     afcset[FC_CP1250]  = TC_2LATIN;
  3539.     afcset[FC_MAZOVIA] = TC_2LATIN;
  3540. #ifdef COMMENT
  3541.     afcset[FC_UCS2]    = TC_UCS2;
  3542.     afcset[FC_UTF8]    = TC_UTF8;
  3543. #endif /* COMMENT */
  3544.     csetsinited++;
  3545.     return;
  3546. }
  3547. #endif /* NOCSETS */