home *** CD-ROM | disk | FTP | other *** search
/ Big Green CD 8 / BGCD_8_Dev.iso / NEXTSTEP / UNIX / GNU / recode-3.4-MIHS / src / charset2.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-01-06  |  38.9 KB  |  1,047 lines
  1. /* DO NOT MODIFY THIS FILE!  It was generated by "charset.pl".  */
  2.  
  3. /* Conversion of files between different charsets and usages.
  4.    Copyright (C) 1990, 1993 Free Software Foundation, Inc.
  5.    Francois Pinard <pinard@iro.umontreal.ca>, 1993.
  6.  
  7.    This program is free software; you can redistribute it and/or modify
  8.    it under the terms of the GNU General Public License as published by
  9.    the Free Software Foundation; either version 2, or (at your option)
  10.    any later version.
  11.  
  12.    This program is distributed in the hope that it will be useful, but
  13.    WITHOUT ANY WARRANTY; without even the implied warranty of
  14.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15.    General Public License for more details.
  16.  
  17.    You should have received a copy of the GNU General Public License
  18.    along with this program; if not, write to the Free Software
  19.    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  20. */
  21.  
  22. #include "recode.h"
  23.  
  24. /* IBM038
  25.    EBCDIC-INT
  26.    cp038
  27. */
  28.  
  29. static DOUBLE_TABLE table_80 = 
  30.   {
  31.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  32.     NULL,
  33.     "SP                  <(. < ( + ! &                   )>DO* ) ; '>",
  34.     "- /                 BB, % _ > ?                   '!: NbAt' = \" ",
  35.     "  a b c d e f g h i               j k l m n o p q r             ",
  36.     "  '?s t u v w x y z                                             ",
  37.     "(!A B C D E F G H I             !)J K L M N O P Q R             ",
  38.     "//  S T U V W X Y Z             0 1 2 3 4 5 6 7 8 9           DT",
  39.   };
  40.  
  41. /* IBM273
  42.    CP273
  43. */
  44.  
  45. static DOUBLE_TABLE table_81 = 
  46.   {
  47.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  48.     NULL,
  49.     "SPNSa>(!a!a'a?aac,n?A:. < ( + ! & e'e>e:e!i'i>i:i!'?U:DO* ) ; '>",
  50.     "- / A><(A!A'A?AAC,N?o:, % _ > ? o/E'E>E:E!I'I>I:I!'!: NbSE' = \" ",
  51.     "O/a b c d e f g h i <<>>d-y'th+-DGj k l m n o p q r -a-oae',AECu",
  52.     "Mysss t u v w x y z !I?ID-Y'THRgCtPdYe.MCoAtPI141234NO!!'-':''*X",
  53.     "a:A B C D E F G H I --o>BBo!o'o?u:J K L M N O P Q R 1Su>!)u!u'y:",
  54.     "O:-:S T U V W X Y Z 2SO>//O!O'O?0 1 2 3 4 5 6 7 8 9 3SU>)>U!U'DT",
  55.   };
  56.  
  57. /* IBM274
  58.    EBCDIC-BE
  59.    CP274
  60. */
  61.  
  62. static DOUBLE_TABLE table_82 = 
  63.   {
  64.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  65.     NULL,
  66.     "SP                  <(. < ( + ! &                   )>DO* ) ; '>",
  67.     "- /                 u!, % _ > ?                   '!: Nba!' = \" ",
  68.     "  a b c d e f g h i               j k l m n o p q r             ",
  69.     "  ':s t u v w x y z                                             ",
  70.     "e'A B C D E F G H I             e!J K L M N O P Q R             ",
  71.     "c,  S T U V W X Y Z             0 1 2 3 4 5 6 7 8 9           DT",
  72.   };
  73.  
  74. /* IBM275
  75.    EBCDIC-BR
  76.    cp275
  77. */
  78.  
  79. static DOUBLE_TABLE table_83 = 
  80.   {
  81.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  82.     NULL,
  83.     "SP                  E'. < ( + ! &                   DOC,* ) ; '>",
  84.     "- /                 c,, % _ > ?                   a?: O?A?' = \" ",
  85.     "  a b c d e f g h i               j k l m n o p q r             ",
  86.     "  '?s t u v w x y z                                             ",
  87.     "o?A B C D E F G H I             e'J K L M N O P Q R             ",
  88.     "//  S T U V W X Y Z             0 1 2 3 4 5 6 7 8 9           DT",
  89.   };
  90.  
  91. /* IBM277
  92.    EBCDIC-CP-DK
  93.    EBCDIC-CP-NO
  94. */
  95.  
  96. static DOUBLE_TABLE table_84 = 
  97.   {
  98.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  99.     NULL,
  100.     "SPNSa>a:a!a'a?!)c,n?Nb. < ( + ! & e'e>e:e!i'i>i:i!ssCuAA* ) ; '>",
  101.     "- / A>A:A!A'A?DOC,N?o/, % _ > ? BBE'E>E:E!I'I>I:I!'!: AEO/' = \" ",
  102.     "Ata b c d e f g h i <<>>d-y'th+-DGj k l m n o p q r -a-o(!',<()>",
  103.     "Myu:s t u v w x y z !I?ID-Y'THRgCtPdYe.MCoSEPI141234NO!!'-':''*X",
  104.     "aeA B C D E F G H I --o>o:o!o'o?aaJ K L M N O P Q R 1Su>'?u!u'y:",
  105.     "//-:S T U V W X Y Z 2SO>O:O!O'O?0 1 2 3 4 5 6 7 8 9 3SU>U:U!U'DT",
  106.   };
  107.  
  108. /* IBM278
  109.    CP278
  110.    ebcdic-cp-fi
  111.    ebcdic-cp-se
  112. */
  113.  
  114. static DOUBLE_TABLE table_85 = 
  115.   {
  116.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  117.     NULL,
  118.     "SPNSa>(!a!a'a?!)c,n?SE. < ( + ! & '!e>e:e!i'i>i:i!ssCuAA* ) ; '>",
  119.     "- / A>NbA!A'A?DOC,N?o:, % _ > ? o/E'E>E:E!I'I>I:I!e': A:O:' = \" ",
  120.     "O/a b c d e f g h i <<>>d-y'th+-DGj k l m n o p q r -a-oae',AE)>",
  121.     "Myu:s t u v w x y z !I?ID-Y'THRgCtPdYe.MCo<(PI141234NO!!'-':''*X",
  122.     "a:A B C D E F G H I --o>BBo!o'o?aaJ K L M N O P Q R 1Su>'?u!u'y:",
  123.     "//-:S T U V W X Y Z 2SO>AtO!O'O?0 1 2 3 4 5 6 7 8 9 3SU>U:U!U'DT",
  124.   };
  125.  
  126. /* IBM280
  127.    CP280
  128.    ebcdic-cp-it
  129. */
  130.  
  131. static DOUBLE_TABLE table_86 = 
  132.   {
  133.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  134.     NULL,
  135.     "SPNSa>a:(!a'a?aa//n?DG. < ( + ! & )>e>e:!)i'i>i:'?sse'DO* ) ; '>",
  136.     "- / A>A:A!A'A?AAC,N?o!, % _ > ? o/E'E>E:E!I'I>I:I!u!: PdSE' = \" ",
  137.     "O/a b c d e f g h i <<>>d-y'th+-<(j k l m n o p q r -a-oae',AECu",
  138.     "Myi!s t u v w x y z !I?ID-Y'THRgCtNbYe.MCoAtPI141234NO!!'-':''*X",
  139.     "a!A B C D E F G H I --o>o:BBo'o?e!J K L M N O P Q R 1Su>u:'!u'y:",
  140.     "c,-:S T U V W X Y Z 2SO>O:O!O'O?0 1 2 3 4 5 6 7 8 9 3SU>U:U!U'DT",
  141.   };
  142.  
  143. /* IBM281
  144.    EBCDIC-JP-E
  145.    cp281
  146. */
  147.  
  148. static DOUBLE_TABLE table_87 = 
  149.   {
  150.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  151.     NULL,
  152.     "SP                  Pd. < ( + !!&                   ! Ye* ) ; NO",
  153.     "- /                 BB, % _ > ?                   '!: NbAt' = \" ",
  154.     "  a b c d e f g h i               j k l m n o p q r             ",
  155.     "  '-s t u v w x y z                                             ",
  156.     "(!A B C D E F G H I             !)J K L M N O P Q R             ",
  157.     "DO  S T U V W X Y Z             0 1 2 3 4 5 6 7 8 9           DT",
  158.   };
  159.  
  160. /* IBM284
  161.    CP284
  162.    ebcdic-cp-es
  163. */
  164.  
  165. static DOUBLE_TABLE table_88 = 
  166.   {
  167.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  168.     NULL,
  169.     "SPNSa>a:a!a'a?aac,BB<(. < ( + !!& e'e>e:e!i'i>i:i!ss)>DO* ) ; NO",
  170.     "- / A>A:A!A'A?AAC,Nbn?, % _ > ? o/E'E>E:E!I'I>I:I!'!: N?At' = \" ",
  171.     "O/a b c d e f g h i <<>>d-y'th+-DGj k l m n o p q r -a-oae',AECu",
  172.     "My':s t u v w x y z !I?ID-Y'THRgCtPdYe.MCoSEPI141234'>! '-'?''*X",
  173.     "(!A B C D E F G H I --o>o:o!o'o?!)J K L M N O P Q R 1Su>u:u!u'y:",
  174.     "//-:S T U V W X Y Z 2SO>O:O!O'O?0 1 2 3 4 5 6 7 8 9 3SU>U:U!U'DT",
  175.   };
  176.  
  177. /* IBM285
  178.    CP285
  179.    ebcdic-cp-gb
  180. */
  181.  
  182. static DOUBLE_TABLE table_89 = 
  183.   {
  184.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  185.     NULL,
  186.     "SPNSa>a:a!a'a?aac,n?DO. < ( + !!& e'e>e:e!i'i>i:i!ss! Pd* ) ; NO",
  187.     "- / A>A:A!A'A?AAC,N?BB, % _ > ? o/E'E>E:E!I'I>I:I!'!: NbAt' = \" ",
  188.     "O/a b c d e f g h i <<>>d-y'th+-DGj k l m n o p q r -a-oae',AECu",
  189.     "My'?s t u v w x y z !I?ID-Y'THRgCt<(Ye.MCoSEPI141234'>)>'-':''*X",
  190.     "(!A B C D E F G H I --o>o:o!o'o?!)J K L M N O P Q R 1Su>u:u!u'y:",
  191.     "//-:S T U V W X Y Z 2SO>O:O!O'O?0 1 2 3 4 5 6 7 8 9 3SU>U:U!U'DT",
  192.   };
  193.  
  194. /* IBM290
  195.    cp290
  196.    EBCDIC-JP-kana
  197. */
  198.  
  199. static DOUBLE_TABLE table_90 = 
  200.   {
  201.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  202.     NULL,
  203.     "SP._<'>',_.6Woa6i6u6Pd. < ( + !!& e6o6YAYUYOTU  -6  ! Ye* ) ; NO",
  204.     "- /                 BB, % _ > ?                   '!: NbAt' = \" ",
  205.     "  A6I6U6E6O6KaKiKuKeKo  SaSiSuSeSoTaTiTuTeToNaNiNuNeNo    HaHiHu",
  206.     "  '-HeHoMaMiMuMeMoYaYu  YoRaRiRu                    ReRoWaN6\"505",
  207.     "  A B C D E F G H I               J K L M N O P Q R             ",
  208.     "DO  S T U V W X Y Z             0 1 2 3 4 5 6 7 8 9           DT",
  209.   };
  210.  
  211. /* IBM297
  212.    cp297
  213.    ebcdic-cp-fr
  214. */
  215.  
  216. static DOUBLE_TABLE table_91 = 
  217.   {
  218.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  219.     NULL,
  220.     "SPNSa>a:Ata'a?aa//n?DG. < ( + ! & (!e>e:!)i'i>i:i!ssSEDO* ) ; '>",
  221.     "- / A>A:A!A'A?AAC,N?u!, % _ > ? o/E'E>E:E!I'I>I:I!My: Pda!' = \" ",
  222.     "O/a b c d e f g h i <<>>d-y'th+-<(j k l m n o p q r -a-oae',AECu",
  223.     "'!':s t u v w x y z !I?ID-Y'THRgCtNbYe.MCo)>PI141234NO!!'-'?''*X",
  224.     "e'A B C D E F G H I --o>o:o!o'o?e!J K L M N O P Q R 1Su>u:BBu'y:",
  225.     "c,-:S T U V W X Y Z 2SO>O:O!O'O?0 1 2 3 4 5 6 7 8 9 3SU>U:U!U'DT",
  226.   };
  227.  
  228. /* IBM420
  229.    cp420
  230.    ebcdic-cp-ar1
  231. */
  232.  
  233. static DOUBLE_TABLE table_92 = 
  234.   {
  235.     "NU SH SX EX ET EQ AK BL BS HT LF VT FF CR SO SI DL D1 D2 D3 D4 NK SY EB CN EM SB EC FS GS RS US ",
  236.     NULL,
  237.     "SP NS 3+ 3+;++    H' aM aM.aH Ct .  <  (  +  !! &  aH.wH       yH a+ a+.b+ b+,!  DO *  )  ;  NO ",
  238.     "-  /  tm t+ t+,tk tk,g+ g+,hk BB ,  %  _  >  ?  hk,x+ x+,d+ dk r+ z+ s+ s+,,+ :  Nb At '  =  \"  ",
  239.     "sn a  b  c  d  e  f  g  h  i  sn,c+ c+,dd dd,tj zH j  k  l  m  n  o  p  q  r  e+ e+.e+,e+;i+ i+.",
  240.     "i+,-: s  t  u  v  w  x  y  z  i+;f+ f+,q+ q+,k+ k+,l+ lM-lM.lH-lH.      la-la.l+,m+ m+,n+ n+,h+ ",
  241.     ";+ A  B  C  D  E  F  G  H  I  -- h+,   h+;   w+ ?+ J  K  L  M  N  O  P  Q  R  j+ j+.y+ y+.y+,0a ",
  242.     "*X    S  T  U  V  W  X  Y  Z  1a 2a    3a 4a 5a 0  1  2  3  4  5  6  7  8  9     6a 7a 8a 9a DT ",
  243.   };
  244.  
  245. /* IBM423
  246.    cp423
  247.    ebcdic-cp-gr
  248. */
  249.  
  250. static DOUBLE_TABLE table_93 = 
  251.   {
  252.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  253.     NULL,
  254.     "SPA*B*G*D*E*Z*Y*H*I*<(. < ( + ! & K*L*M*N*C*O*P*R*S*)>DO* ) ; '>",
  255.     "- / T*U*F*X*Q*W*      , % _ > ?   A%E%Y%  I%O%U%W%'!: PdSE' = \" ",
  256.     "A:a b c d e f g h i a*b*g*d*e*z*O:j k l m n o p q r y*h*i*k*l*m*",
  257.     "U:':s t u v w x y z n*c*o*p*r**s  a%e%y%j*i%o%u%v*w%s*t*u*f*x*q*",
  258.     "%'y=z=s%jescc%='JUA=B=C=D=E=F=G=',A B C D E F G H I   w*A>a!a:e>",
  259.     "''J K L M N O P Q R +-e'e!e:i>i:DG  S T U V W X Y Z 12o:o>u>u!u:",
  260.   };
  261.  
  262. /* IBM424
  263.    cp424
  264.    ebcdic-cp-he
  265. */
  266.  
  267. static DOUBLE_TABLE table_94 = 
  268.   {
  269.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  270.     NULL,
  271.     "SPA+B+G+D+H+W+Z+X+TjCt. < ( + !!& J+K%K+L+M%M+N%N+S+! DO* ) ; NO",
  272.     "- / E+P%P+ZjZJQ+R+ShBB, % _ > ?   T+    NS      =='!: NbAt' = \" ",
  273.     "  a b c d e f g h i <<>>        DGj k l m n o p q r       ',  Cu",
  274.     "My'?s t u v w x y z           Rg'>PdYe.MCoSEPI141234<()>'-':''*X",
  275.     "(!A B C D E F G H I --          !)J K L M N O P Q R 1S          ",
  276.     "//-:S T U V W X Y Z 2S          0 1 2 3 4 5 6 7 8 9 3S        DT",
  277.   };
  278.  
  279. /* IBM437
  280.    cp437
  281.    437
  282. */
  283.  
  284. static DOUBLE_TABLE table_95 = 
  285.   {
  286.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  287.     "SP! \" NbDO% & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? ",
  288.     "AtA B C D E F G H I J K L M N O P Q R S T U V W X Y Z <(//)>'>_ ",
  289.     "'!a b c d e f g h i j k l m n o p q r s t u v w x y z (!!!!)'?DT",
  290.     "C,u:e'a>a:a!aac,e>e:e!i:i>i!A:AAE'aeAEo>o:o!u>u!y:O:U:CtPdYePtFl",
  291.     "a'i'o'u'n?N?-a-o?ININO1214!I<<>>.S:S?SvvvlvLVlDldLVLVVLDULUluLdl",
  292.     "uruhdhvrhhvhvRVrURDRUHDHVRHHVHuHUhdHDhUruRdRDrVhvHuldrFBLBlBRBTB",
  293.     "a*b*G*p*S*s*m*t*F*H*W*d*00/0e*(U=3+->==<IuIl-:?2Ob.MSbRTnS2SfSNS",
  294.   };
  295.  
  296. /* IBM500
  297.    CP500
  298.    ebcdic-cp-be
  299.    ebcdic-cp-ch
  300. */
  301.  
  302. static DOUBLE_TABLE table_96 = 
  303.   {
  304.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  305.     NULL,
  306.     "SPNSa>a:a!a'a?aac,n?<(. < ( + ! & e'e>e:e!i'i>i:i!ss)>DO* ) ; '>",
  307.     "- / A>A:A!A'A?AAC,N?BB, % _ > ? o/E'E>E:E!I'I>I:I!'!: NbAt' = \" ",
  308.     "O/a b c d e f g h i <<>>d-y'th+-DGj k l m n o p q r -a-oae',AECu",
  309.     "My'?s t u v w x y z !I?ID-Y'THRgCtPdYe.MCoSEPI141234NO!!'-':''*X",
  310.     "(!A B C D E F G H I --o>o:o!o'o?!)J K L M N O P Q R 1Su>u:u!u'y:",
  311.     "//-:S T U V W X Y Z 2SO>O:O!O'O?0 1 2 3 4 5 6 7 8 9 3SU>U:U!U'DT",
  312.   };
  313.  
  314. /* IBM850
  315.    cp850
  316.    850
  317. */
  318.  
  319. static DOUBLE_TABLE table_97 = 
  320.   {
  321.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  322.     "SP! \" NbDO% & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? ",
  323.     "AtA B C D E F G H I J K L M N O P Q R S T U V W X Y Z <(//)>'>_ ",
  324.     "'!a b c d e f g h i j k l m n o p q r s t u v w x y z (!!!!)'?DT",
  325.     "C,u:e'a>a:a!aac,e>e:e!i:i>i!A:AAE'aeAEo>o:o!u>u!y:O:U:o/PdO/*XFl",
  326.     "a'i'o'u'n?N?-a-o?IRgNO1214!I<<>>.S:S?SvvvlA'A>A!CoVLVVLDULCtYedl",
  327.     "uruhdhvrhhvha?A?URDRUHDHVRHHVHCud-D-E>E:E!i.I'I>I:uldrFBLBBBI!TB",
  328.     "O'ssO>O!o?O?m*THthU'U>U!y'Y'-M''--+-==34PISE-:';DG':'.1S3S2SfSNS",
  329.   };
  330.  
  331. /* IBM851
  332.    cp851
  333.    851
  334. */
  335.  
  336. static DOUBLE_TABLE table_98 = 
  337.   {
  338.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  339.     "SP! \" NbDO% & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? ",
  340.     "AtA B C D E F G H I J K L M N O P Q R S T U V W X Y Z <(//)>'>_ ",
  341.     "'!a b c d e f g h i j k l m n o p q r s t u v w x y z (!!!!)'?DT",
  342.     "C,u:e'a>a:a!A%c,e>e:e!i:i>E%A:Y%I%  O%o>o:U%u>u!W%O:U:a%Pde%y%i%",
  343.     "j*i3o%u%A*B*G*D*E*Z*Y*12H*I*<<>>.S:S?SvvvlK*L*N*M*VLVVLDULC*O*dl",
  344.     "uruhdhvrhhvhP*R*URDRUHDHVRHHVHS*T*U*F*X*Q*W*a*b*g*uldrFBLBd*e*TB",
  345.     "z*y*h*i*k*l*m*n*c*o*p*r*s**st*''--+-u*f*x*SEq*';DG':w*v*u3w%fSNS",
  346.   };
  347.  
  348. /* IBM852
  349.    cp852
  350.    852
  351. */
  352.  
  353. static DOUBLE_TABLE table_99 = 
  354.   {
  355.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  356.     "SP! \" NbDO% & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? ",
  357.     "AtA B C D E F G H I J K L M N O P Q R S T U V W X Y Z <(//)>'>_ ",
  358.     "'!a b c d e f g h i j k l m n o p q r s t u v w x y z (!!!!)'?DT",
  359.     "C,u:e'a>a:u0c'c,l/e:O\"o\"i>Z'A:C'E'L'l'o>o:L<l<S's'O:U:T<t<L/*Xc<",
  360.     "a'i'o'u'A;a;Z<z<E;e;  z'C<s,<<>>.S:S?SvvvlA'A>E<S,VLVVLDULZ.z.dl",
  361.     "uruhdhvrhhvhA(a(URDRUHDHVRHHVHCud/D/D<E:d<N<I'U>e<uldrFBLBT,U0TB",
  362.     "O'ssO>N'n'n<S<s<R'U'r'U\"y'Y't,''--'\"','<'(SE-:';DG':'.u\"R<r<fSNS",
  363.   };
  364.  
  365. /* IBM855
  366.    cp855
  367.    855
  368. */
  369.  
  370. static DOUBLE_TABLE table_100 = 
  371.   {
  372.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  373.     "SP! \" NbDO% & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? ",
  374.     "AtA B C D E F G H I J K L M N O P Q R S T U V W X Y Z <(//)>'>_ ",
  375.     "'!a b c d e f g h i j k l m n o p q r s t u v w x y z (!!!!)'?DT",
  376.     "d%D%g%G%ioIOieIEdsDSiiIIyiYIj%J%ljLJnjNJtsTSkjKJv%V%dzDZjuJU='=\"",
  377.     "a=A=b=B=c=C=d=D=e=E=f=F=g=G=<<>>.S:S?Svvvlh=H=i=I=VLVVLDULj=J=dl",
  378.     "uruhdhvrhhvhk=K=URDRUHDHVRHHVHCul=L=m=M=n=N=o=O=p=uldrFBLBP=jaTB",
  379.     "JAr=R=s=S=t=T=u=U=z%Z%v=V=%'%\"''--y=Y=z=Z=s%S%jeJEscScc%C%  fSNS",
  380.   };
  381.  
  382. /* IBM857
  383.    cp857
  384.    857
  385. */
  386.  
  387. static DOUBLE_TABLE table_101 = 
  388.   {
  389.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  390.     "SP! \" NbDO% & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? ",
  391.     "AtA B C D E F G H I J K L M N O P Q R S T U V W X Y Z <(//)>'>_ ",
  392.     "'!a b c d e f g h i j k l m n o p q r s t u v w x y z (!!!!)'?DT",
  393.     "C,u:e'a>a:a!aac,e>e:e!i:i>i.A:AAE'aeAEo>o:o!u>u!I.O:U:o/PdO/S,s,",
  394.     "a'i'o'u'n?N?G(g(?IRgNO1214!I<<>>.S:S?SvvvlA'A>A!CoVLVVLDULCtYedl",
  395.     "uruhdhvrhhvha?A?URDRUHDHVRHHVHCu-o-aE>E:E!  I'I>I:uldrFBLBBBI!TB",
  396.     "O'ssO>O!o?O?m*  *XU'U>U!i!y:-M''--+-  34PISE-:';DG':'.1S3S2SfSNS",
  397.   };
  398.  
  399. /* IBM860
  400.    cp860
  401.    860
  402. */
  403.  
  404. static DOUBLE_TABLE table_102 = 
  405.   {
  406.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  407.     "SP! \" NbDO% & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? ",
  408.     "AtA B C D E F G H I J K L M N O P Q R S T U V W X Y Z <(//)>'>_ ",
  409.     "'!a b c d e f g h i j k l m n o p q r s t u v w x y z (!!!!)'?DT",
  410.     "C,u:e'a>a?a!A'c,e>E>e!I>O>i!A?A>E'A!E!o>o?o!U'u!I!O?U:CtPdU!PtO!",
  411.     "a'i'o'u'n?N?-a-o?IO'NO1214!I<<>>.S:S?SvvvlvLVlDldLVLVVLDULUluLdl",
  412.     "uruhdhvrhhvhvRVrURDRUHDHVRHHVHuHUhdHDhUruRdRDrVhvHuldrFBLBlBRBTB",
  413.     "a*b*G*p*S*s*m*t*F*H*W*d*00/0e*(U=3+->==<IuIl-:?2Ob.MSbRTnS2SfSNS",
  414.   };
  415.  
  416. /* IBM861
  417.    cp861
  418.    861
  419.    cp-is
  420. */
  421.  
  422. static DOUBLE_TABLE table_103 = 
  423.   {
  424.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  425.     "SP! \" NbDO% & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? ",
  426.     "AtA B C D E F G H I J K L M N O P Q R S T U V W X Y Z <(//)>'>_ ",
  427.     "'!a b c d e f g h i j k l m n o p q r s t u v w x y z (!!!!)'?DT",
  428.     "C,u:e'a>a:a!aac,e>e:e!D-d-THA:AAE'aeAEo>o:thu>Y'y'O:U:o/PdO/PtO!",
  429.     "a'i'o'u'A'I'O'U'?I  NO1214!I<<>>.S:S?SvvvlvLVlDldLVLVVLDULUluLdl",
  430.     "uruhdhvrhhvhvRVrURDRUHDHVRHHVHuHUhdHDhUruRdRDrVhvHuldrFBLBlBRBTB",
  431.     "a*b*G*p*S*s*m*t*F*H*W*d*00/0e*(U=3+->==<IuIl-:?2Ob.MSbRTnS2SfSNS",
  432.   };
  433.  
  434. /* IBM862
  435.    cp862
  436.    862
  437. */
  438.  
  439. static DOUBLE_TABLE table_104 = 
  440.   {
  441.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  442.     "SP! \" NbDO% & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? ",
  443.     "AtA B C D E F G H I J K L M N O P Q R S T U V W X Y Z <(//)>'>_ ",
  444.     "'!a b c d e f g h i j k l m n o p q r s t u v w x y z (!!!!)'?DT",
  445.     "A+B+G+D+H+W+Z+X+TjJ+K%K+L+M%M+N%N+S+E+P%P+ZjZJQ+R+ShT+CtPdU!PtO!",
  446.     "a'i'o'u'n?N?-a-o?I  NO1214!I<<>>.S:S?SvvvlvLVlDldLVLVVLDULUluLdl",
  447.     "uruhdhvrhhvhvRVrURDRUHDHVRHHVHuHUhdHDhUruRdRDrVhvHuldrFBLBlBRBTB",
  448.     "a*b*G*p*S*s*m*t*F*H*W*d*00/0e*(U=3+->==<IuIl-:?2Ob.MSbRTnS2SfSNS",
  449.   };
  450.  
  451. /* IBM863
  452.    cp863
  453.    863
  454. */
  455.  
  456. static DOUBLE_TABLE table_105 = 
  457.   {
  458.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  459.     "SP! \" NbDO% & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? ",
  460.     "AtA B C D E F G H I J K L M N O P Q R S T U V W X Y Z <(//)>'>_ ",
  461.     "'!a b c d e f g h i j k l m n o p q r s t u v w x y z (!!!!)'?DT",
  462.     "C,u:e'a>A>a!PIc,e>e:e!i:i>i!A!SEE'E!E>o>E:I:u>u!CuO>U:CtPdU!U>Fl",
  463.     "BB''o'u'':',3S'-I>NINO121434<<>>.S:S?SvvvlvLVlDldLVLVVLDULUluLdl",
  464.     "uruhdhvrhhvhvRVrURDRUHDHVRHHVHuHUhdHDhUruRdRDrVhvHuldrFBLBlBRBTB",
  465.     "a*b*G*p*S*s*m*t*F*H*W*d*00/0e*(U=3+->==<IuIl-:?2Ob.MSbRTnS2SfSNS",
  466.   };
  467.  
  468. /* IBM864
  469.    cp864
  470. */
  471.  
  472. static DOUBLE_TABLE table_106 = 
  473.   {
  474.     "NU SH SX EX ET EQ AK BL BS HT LF VT FF CR SO SI DL D1 D2 D3 D4 NK SY EB CN EM SB EC FS GS RS US ",
  475.     "SP !  \"  Nb DO %  &  '  (  )  *  +  ,  -  .  /  0  1  2  3  4  5  6  7  8  9  :  ;  <  =  >  ?  ",
  476.     "At A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z  <( // )> '> _  ",
  477.     "'! a  b  c  d  e  f  g  h  i  j  k  l  m  n  o  p  q  r  s  t  u  v  w  x  y  z  (! !! !) '? DT ",
  478.     "DG .M Ob RT :S hh vv vh vl dh vr uh dl dr ur ul ss 00 o/ +- 12 14 ?2 << >> lH-lH.      la-la.a+:",
  479.     "   -- aM.Pd Cu aH.      a+.b+ t+ tk ,+ g+ hk x+ 0a 1a 2a 3a 4a 5a 6a 7a 8a 9a v+ ;+ s+ sn c+ ?+ ",
  480.     "Ct H' aM aH wH e+.yH a+ b+,tm t+,tk,g+,hk,x+,d+ dk r+ z+ s+,sn,c+,dd,tj zH e+,i+,BB NO -: *X e+ ",
  481.     "++ f+.q+.k+,l+.m+,n+.h+,w+ j+ y+,dd m+.i+.i+ m+ 3+;3+ n+ h+ h+;j+.y+.f+ q+ lM-lM.l+ k+ y+ fS NS ",
  482.   };
  483.  
  484. /* IBM865
  485.    cp865
  486.    865
  487. */
  488.  
  489. static DOUBLE_TABLE table_107 = 
  490.   {
  491.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  492.     "SP! \" NbDO% & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? ",
  493.     "AtA B C D E F G H I J K L M N O P Q R S T U V W X Y Z <(//)>'>_ ",
  494.     "'!a b c d e f g h i j k l m n o p q r s t u v w x y z (!!!!)'?DT",
  495.     "C,u:e'a>a:a!aac,e>e:e!i:i>i!A:AAE'aeAEo>o:o!u>u!y:O:U:o/PdO/PtFl",
  496.     "a'i'o'u'n?N?-a-o?ININO1214!I<<>>.S:S?SvvvlvLVlDldLVLVVLDULUluLdl",
  497.     "uruhdhvrhhvhvRVrURDRUHDHVRHHVHuHUhdHDhUruRdRDrVhvHuldrFBLBlBRBTB",
  498.     "a*b*G*p*S*s*m*t*F*H*W*d*00/0e*(U=3+->==<IuIl-:?2Ob.MSbRTnS2SfSNS",
  499.   };
  500.  
  501. /* IBM868
  502.    CP868
  503.    cp-ar
  504. */
  505.  
  506. static DOUBLE_TABLE table_108 = 
  507.   {
  508.     "NU SH SX EX ET EQ AK BL BS HT LF VT FF CR SO SI DL D1 D2 D3 D4 NK SY EB CN EM SB EC FS GS RS US ",
  509.     "SP !  \"  Nb DO %  &  '  (  )  *  +  ,  -  .  /  0  1  2  3  4  5  6  7  8  9  :  ;  <  =  >  ?  ",
  510.     "At A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z  <( // )> '> _  ",
  511.     "'! a  b  c  d  e  f  g  h  i  j  k  l  m  n  o  p  q  r  s  t  u  v  w  x  y  z  (! !! !) '? DT ",
  512.     "0a 1a 2a 3a 4a 5a 6a 7a 8a 9a ,+ ;+ ?+ aM a+ a+.a+:b+ b+,p+    tm t+ t+,      tk tk,g+ g+,      ",
  513.     "hk hk,x+ x+,d+    dk r+    z+    s+ s+,sn << >> sn,c+ .S :S ?S vv vl c+,dd dd,tj VL VV LD UL zH ",
  514.     "e+ dl ur uh dh vr hh vh e+.e+,UR DR UH DH VR HH VH e+;i+ i+.i+,i+;f+ f+,q+ q+,k+.ul dr FB TB k+,",
  515.     "   LB    l+ l+.l+;m+ m+,   n+ n+,   w+             H' --                         3+ 3+;   fS NS ",
  516.   };
  517.  
  518. /* IBM869
  519.    cp869
  520.    869
  521.    cp-gr
  522. */
  523.  
  524. static DOUBLE_TABLE table_109 = 
  525.   {
  526.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  527.     "SP! \" NbDO% & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? ",
  528.     "AtA B C D E F G H I J K L M N O P Q R S T U V W X Y Z <(//)>'>_ ",
  529.     "'!a b c d e f g h i j k l m n o p q r s t u v w x y z (!!!!)'?DT",
  530.     "            A%  .MNOBB9''9E%-MY%I%J*O%    U%V*CoW%2S3Sa%Pde%y%i%",
  531.     "j*i3o%u%A*B*G*D*E*Z*Y*12H*I*<<>>.S:S?SvvvlK*L*M*N*VLVVLDULC*O*dl",
  532.     "uruhdhvrhhvhP*R*URDRUHDHVRHHVHS*T*U*F*X*Q*W*a*b*g*uldrFBLBd*e*TB",
  533.     "z*y*h*i*k*l*m*n*c*o*p*r*s**st*''--+-u*f*x*SEq*'%DG':w*v*u3w%fSNS",
  534.   };
  535.  
  536. /* IBM870
  537.    CP870
  538.    ebcdic-cp-roece
  539.    ebcdic-cp-yu
  540. */
  541.  
  542. static DOUBLE_TABLE table_110 = 
  543.   {
  544.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  545.     NULL,
  546.     "SPNS  a:  a'a(c<c,c'<(. < ( + ! & e'  e:u0i'  l<l'ss)>DO* ) ; '>",
  547.     "- /   A:'\"A'  C<C,C'!!, % _ > ? '<E'  E:U0I'  L<L''!: NbAt' = \" ",
  548.     "'(a b c d e f g h i s'n<d/y'r<  DGj k l m n o p q r l/n's<',';Cu",
  549.     "a;'?s t u v w x y z S'N<D/Y'R<  .MA;z.  Z.SEPIz<z'Z<Z'N'S<':''*X",
  550.     "(!A B C D E F G H I --o>o:r'o'o\"!)J K L M N O P Q R E<u\"u:t<u'e<",
  551.     "//-:S T U V W X Y Z d<O>O:R'O'O\"0 1 2 3 4 5 6 7 8 9 D<U\"U:T<U'DT",
  552.   };
  553.  
  554. /* IBM871
  555.    CP871
  556.    ebcdic-cp-is
  557. */
  558.  
  559. static DOUBLE_TABLE table_111 = 
  560.   {
  561.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  562.     NULL,
  563.     "SPNSa>a:a!a'a?aac,n?th. < ( + ! & e'e>e:e!i'i>i:i!ssAEDO* ) ; O:",
  564.     "- / A>A:A!A'A?AAC,N?BB, % _ > ? o/E'E>E:E!I'I>I:I!d-: NbD-' = \" ",
  565.     "O/a b c d e f g h i <<>>'!y'(!+-DGj k l m n o p q r -a-o!)',)>Cu",
  566.     "Myo:s t u v w x y z !I?IAtY'<(RgCtPdYe.MCoSEPI141234NO!!'-'://*X",
  567.     "THA B C D E F G H I --o>'?o!o'o?aeJ K L M N O P Q R 1Su>u:u!u'y:",
  568.     "''-:S T U V W X Y Z 2SO>'>O!O'O?0 1 2 3 4 5 6 7 8 9 3SU>U:U!U'DT",
  569.   };
  570.  
  571. /* IBM880
  572.    cp880
  573.    EBCDIC-Cyrillic
  574. */
  575.  
  576. static DOUBLE_TABLE table_112 = 
  577.   {
  578.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  579.     NULL,
  580.     "SP  d%g%io  dsiiyij%<(. < ( + ! & ljnjtskj  dz=\"N0D%)>DO* ) ; '>",
  581.     "- / G%IO  DSIIYIJ%LJBB, % _ > ? NJTsKJ    DZjua=b=  : NbAt' = \" ",
  582.     "c=a b c d e f g h i d=e=f=g=h=i=j=j k l m n o p q r k=l=m=n=o=p=",
  583.     "ja  s t u v w x y z r=s=t=u=z%v=%'y=z=s%jescc%='JUA=B=C=D=E=F=G=",
  584.     "  A B C D E F G H I H=I=J=K=L=M=  J K L M N O P Q R N=O=P=JAR=S=",
  585.     "//CuS T U V W X Y Z T=U=Z%V=%\"Y=0 1 2 3 4 5 6 7 8 9 Z=S%JEScC%DT",
  586.   };
  587.  
  588. /* IBM891
  589.    cp891
  590. */
  591.  
  592. static DOUBLE_TABLE table_113 = 
  593.   {
  594.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  595.     "SP! \" NbDO% & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? ",
  596.     "AtA B C D E F G H I J K L M N O P Q R S T U V W X Y Z <(//)>'>_ ",
  597.     "'!a b c d e f g h i j k l m n o p q r s t u v w x y z (!!!!)'?DT",
  598.     NULL,
  599.     NULL,
  600.     NULL,
  601.     NULL,
  602.   };
  603.  
  604. /* IBM903
  605.    cp903
  606. */
  607.  
  608. static DOUBLE_TABLE table_114 = 
  609.   {
  610.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  611.     "SP! \" NbDO% & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? ",
  612.     "AtA B C D E F G H I J K L M N O P Q R S T U V W X Y Z <(//)>'>_ ",
  613.     "'!a b c d e f g h i j k l m n o p q r s t u v w x y z (!!!!)'?DT",
  614.     NULL,
  615.     NULL,
  616.     NULL,
  617.     NULL,
  618.   };
  619.  
  620. /* IBM904
  621.    cp904
  622.    904
  623. */
  624.  
  625. static DOUBLE_TABLE table_115 = 
  626.   {
  627.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  628.     "SP! \" NbDO% & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? ",
  629.     "AtA B C D E F G H I J K L M N O P Q R S T U V W X Y Z <(//)>'>_ ",
  630.     "'!a b c d e f g h i j k l m n o p q r s t u v w x y z (!!!!)'?DT",
  631.     "Ct                                                              ",
  632.     NULL,
  633.     NULL,
  634.     "                                                          NOBB  ",
  635.   };
  636.  
  637. /* IBM905
  638.    CP905
  639.    ebcdic-cp-tr
  640. */
  641.  
  642. static DOUBLE_TABLE table_116 = 
  643.   {
  644.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  645.     NULL,
  646.     "SP  a>a:a!a'  c.(!n?C,. < ( + ! & e'e>e:e!i'i>i:i!ssG(I.* ) ; '>",
  647.     "- / A>A:A!A'  C.<(N?s,, % _ > ?   E'E>E:E!I'I>I:I!i.: O:S,' = U:",
  648.     "'(a b c d e f g h i h/c>s>u(  !!DGj k l m n o p q r h>g>j>';  Cu",
  649.     "Myo:s t u v w x y z H/C>S>U(  At.MPdz.!)Z.SE)>  12DOH>G>J>':''*X",
  650.     "c,A B C D E F G H I --o>'?o!o'g.g(J K L M N O P Q R '!u>//u!u'  ",
  651.     "u:-:S T U V W X Y Z 2SO>NbO!O'G.0 1 2 3 4 5 6 7 8 9 3SU>\" U!U'DT",
  652.   };
  653.  
  654. /* IBM918
  655.    CP918
  656.    ebcdic-cp-ar2
  657. */
  658.  
  659. static DOUBLE_TABLE table_117 = 
  660.   {
  661.     "NU SH SX EX ET EQ AK BL BS HT LF VT FF CR SO SI DL D1 D2 D3 D4 NK SY EB CN EM SB EC FS GS RS US ",
  662.     NULL,
  663.     "SP NS ,+ ;+ ?+ aH a+ a+.   b+ <( .  <  (  +  !  &  b+,p+    tm t+ t+,      tk )> DO *  )  ;  '> ",
  664.     "-  /  tk,g+ g+,      hk hk,x+ '! ,  %  _  >  ?  0a 1a 2a 3a 4a 5a 6a 7a 8a 9a :  Nb At '  =  \"  ",
  665.     "x+,a  b  c  d  e  f  g  h  i  d+    dk r+    z+    j  k  l  m  n  o  p  q  r  s+ s+,sn sn,c+ c+,",
  666.     "dd '? s  t  u  v  w  x  y  z  dd,tj zH e+ e+.e+,e+;i+ i+.i+,i+;f+ f+,q+ q+,k+ k+,!!       l+ l+.",
  667.     "(! A  B  C  D  E  F  G  H  I  --    m+ m+,   n+ !) J  K  L  M  N  O  P  Q  R  n+,   w+          ",
  668.     "//    S  T  U  V  W  X  Y  Z  H'                0  1  2  3  4  5  6  7  8  9           3+ 3+;DT ",
  669.   };
  670.  
  671. /* IBM1026
  672.    CP1026
  673. */
  674.  
  675. static DOUBLE_TABLE table_118 = 
  676.   {
  677.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  678.     NULL,
  679.     "SPNSa>a:a!a'a?aa(!n?C,. < ( + ! & e'e>e:e!i'i>i:i!ssG(I.* ) ; '>",
  680.     "- / A>A:A!A'A?AA<(N?s,, % _ > ? o/E'E>E:E!I'I>I:I!i.: O:S,' = U:",
  681.     "O/a b c d e f g h i <<>>!)'!BB+-DGj k l m n o p q r -a-oae';AECu",
  682.     "Myo:s t u v w x y z !I?I)>DOAtRgCtPdYe.MCoSEPI141234NO!!-M':''*X",
  683.     "c,A B C D E F G H I --o>'?o!o'o?g(J K L M N O P Q R 1Su>//u!u'y:",
  684.     "u:-:S T U V W X Y Z 2SO>NbO!O'O?0 1 2 3 4 5 6 7 8 9 3SU>\" U!U'DT",
  685.   };
  686.  
  687. /* EBCDIC-AT-DE
  688. */
  689.  
  690. static DOUBLE_TABLE table_119 = 
  691.   {
  692.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  693.     NULL,
  694.     "SP                  A:. < ( + ! &                   U:DO* ) ; '>",
  695.     "- /                 o:, % _ > ?                   '!: NbSE' = \" ",
  696.     "  a b c d e f g h i               j k l m n o p q r             ",
  697.     "  sss t u v w x y z                                             ",
  698.     "a:A B C D E F G H I             u:J K L M N O P Q R             ",
  699.     "O:  S T U V W X Y Z             0 1 2 3 4 5 6 7 8 9           DT",
  700.   };
  701.  
  702. /* EBCDIC-AT-DE-A
  703. */
  704.  
  705. static DOUBLE_TABLE table_120 = 
  706.   {
  707.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  708.     NULL,
  709.     "SP                  o:. < ( + !!&                   u:U:* ) ; NO",
  710.     "- /                 ss, % _ > ?                     : A:O:' = a:",
  711.     "  a b c d e f g h i               j k l m n o p q r             ",
  712.     "    s t u v w x y z                                             ",
  713.     "  A B C D E F G H I               J K L M N O P Q R             ",
  714.     "    S T U V W X Y Z             0 1 2 3 4 5 6 7 8 9           DT",
  715.   };
  716.  
  717. /* EBCDIC-CA-FR
  718. */
  719.  
  720. static DOUBLE_TABLE table_121 = 
  721.   {
  722.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  723.     NULL,
  724.     "SP  a>          c,  a!. < ( + ! &   e>e:    i>i:    ''DO* ) ; '>",
  725.     "- / A>  A!      C,  u!, % _ > ?   E'E>E:  I>I:    '!: NbAt' = \" ",
  726.     "  a b c d e f g h i               j k l m n o p q r             ",
  727.     "  ':s t u v w x y z                                             ",
  728.     "e'A B C D E F G H I   o>        e!J K L M N O P Q R   u>u:      ",
  729.     "',  S T U V W X Y Z   O>        0 1 2 3 4 5 6 7 8 9   U>U:U!  DT",
  730.   };
  731.  
  732. /* EBCDIC-DK-NO
  733. */
  734.  
  735. static DOUBLE_TABLE table_122 = 
  736.   {
  737.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  738.     NULL,
  739.     "SP                  Nb. < ( + ! &                   CuAA* ) ; '>",
  740.     "- /                 o/, % _ > ?                   '!: AEO/' = \" ",
  741.     "  a b c d e f g h i               j k l m n o p q r             ",
  742.     "  u:s t u v w x y z                                             ",
  743.     "aeA B C D E F G H I             aaJ K L M N O P Q R             ",
  744.     "//  S T U V W X Y Z             0 1 2 3 4 5 6 7 8 9           DT",
  745.   };
  746.  
  747. /* EBCDIC-DK-NO-A
  748. */
  749.  
  750. static DOUBLE_TABLE table_123 = 
  751.   {
  752.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  753.     NULL,
  754.     "SP                  o/. < ( + !!&                   aaAA* ) ; NO",
  755.     "- /                 BB, % _ > ?                     : AEO/' = ae",
  756.     "  a b c d e f g h i               j k l m n o p q r             ",
  757.     "    s t u v w x y z                                             ",
  758.     "  A B C D E F G H I               J K L M N O P Q R             ",
  759.     "    S T U V W X Y Z             0 1 2 3 4 5 6 7 8 9           DT",
  760.   };
  761.  
  762. /* EBCDIC-FI-SE
  763. */
  764.  
  765. static DOUBLE_TABLE table_124 = 
  766.   {
  767.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  768.     NULL,
  769.     "SP                  SE. < ( + ! &                   CuAA* ) ; '>",
  770.     "- /                 o:, % _ > ?                   e': A:O:' = \" ",
  771.     "  a b c d e f g h i               j k l m n o p q r             ",
  772.     "  u:s t u v w x y z                                             ",
  773.     "a:A B C D E F G H I             aaJ K L M N O P Q R             ",
  774.     "E'  S T U V W X Y Z             0 1 2 3 4 5 6 7 8 9           DT",
  775.   };
  776.  
  777. /* EBCDIC-FI-SE-A
  778. */
  779.  
  780. static DOUBLE_TABLE table_125 = 
  781.   {
  782.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  783.     NULL,
  784.     "SP                  o:. < ( + !!&                   aaAA* ) ; NO",
  785.     "- /                 BB, % _ > ?                     : A:O:' = a:",
  786.     "  a b c d e f g h i               j k l m n o p q r             ",
  787.     "    s t u v w x y z                                             ",
  788.     "  A B C D E F G H I               J K L M N O P Q R             ",
  789.     "    S T U V W X Y Z             0 1 2 3 4 5 6 7 8 9           DT",
  790.   };
  791.  
  792. /* EBCDIC-FR
  793. */
  794.  
  795. static DOUBLE_TABLE table_126 = 
  796.   {
  797.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  798.     NULL,
  799.     "SP                  DG. < ( + ! &                   SEDO* ) ; '>",
  800.     "- /                 u!, % _ > ?                   '!: Pda!' = \" ",
  801.     "  a b c d e f g h i               j k l m n o p q r             ",
  802.     "  ':s t u v w x y z                                             ",
  803.     "e'A B C D E F G H I             e!J K L M N O P Q R             ",
  804.     "c,  S T U V W X Y Z             0 1 2 3 4 5 6 7 8 9           DT",
  805.   };
  806.  
  807. /* EBCDIC-IT
  808. */
  809.  
  810. static DOUBLE_TABLE table_127 = 
  811.   {
  812.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  813.     NULL,
  814.     "SP                  DG. < ( + ! &                   e'DO* ) ; '>",
  815.     "- /                 o!, % _ > ?                   u!: PdSE' = \" ",
  816.     "  a b c d e f g h i               j k l m n o p q r             ",
  817.     "  i!s t u v w x y z                                             ",
  818.     "a!A B C D E F G H I             e!J K L M N O P Q R             ",
  819.     "c,  S T U V W X Y Z             0 1 2 3 4 5 6 7 8 9           DT",
  820.   };
  821.  
  822. /* EBCDIC-PT
  823. */
  824.  
  825. static DOUBLE_TABLE table_128 = 
  826.   {
  827.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  828.     NULL,
  829.     "SP                  <(. < ( + ! &                   )>DO* ) ; '>",
  830.     "- /                 o?, % _ > ?                   '!: A?O?' = \" ",
  831.     "  a b c d e f g h i               j k l m n o p q r             ",
  832.     "  c,s t u v w x y z                                             ",
  833.     "a?A B C D E F G H I             ''J K L M N O P Q R             ",
  834.     "C,  S T U V W X Y Z             0 1 2 3 4 5 6 7 8 9           DT",
  835.   };
  836.  
  837. /* EBCDIC-ES
  838. */
  839.  
  840. static DOUBLE_TABLE table_129 = 
  841.   {
  842.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  843.     NULL,
  844.     "SP                  Ct. < ( + !!&                   ! Pt* ) ; NO",
  845.     "- /                 n?, % _ > ?                   '!: N?At' = \" ",
  846.     "  a b c d e f g h i               j k l m n o p q r             ",
  847.     "  ':s t u v w x y z                                             ",
  848.     "(!A B C D E F G H I             !)J K L M N O P Q R             ",
  849.     "//  S T U V W X Y Z             0 1 2 3 4 5 6 7 8 9           DT",
  850.   };
  851.  
  852. /* EBCDIC-ES-A
  853. */
  854.  
  855. static DOUBLE_TABLE table_130 = 
  856.   {
  857.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  858.     NULL,
  859.     "SP                  Ct. < ( + !!&                   ! Pt* ) ; NO",
  860.     "- /                 BB, % _ > ?                     : N?At' = n?",
  861.     "  a b c d e f g h i               j k l m n o p q r             ",
  862.     "    s t u v w x y z                                             ",
  863.     "  A B C D E F G H I               J K L M N O P Q R             ",
  864.     "    S T U V W X Y Z             0 1 2 3 4 5 6 7 8 9           DT",
  865.   };
  866.  
  867. /* EBCDIC-ES-S
  868. */
  869.  
  870. static DOUBLE_TABLE table_131 = 
  871.   {
  872.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  873.     NULL,
  874.     "SP                  Ct. < ( + !!&                   ! DO* ) ; NO",
  875.     "- /                 n?, % _ > ?                   '!: N?At' = \" ",
  876.     "  a b c d e f g h i               j k l m n o p q r             ",
  877.     "  ':s t u v w x y z                                             ",
  878.     "(!A B C D E F G H I             !)J K L M N O P Q R             ",
  879.     "//  S T U V W X Y Z             0 1 2 3 4 5 6 7 8 9           DT",
  880.   };
  881.  
  882. /* EBCDIC-UK
  883. */
  884.  
  885. static DOUBLE_TABLE table_132 = 
  886.   {
  887.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  888.     NULL,
  889.     "SP                  DO. < ( + !!&                   ! Pd* ) ; NO",
  890.     "- /                 BB, % _ > ?                   '!: NbAt' = \" ",
  891.     "  a b c d e f g h i               j k l m n o p q r             ",
  892.     "  '-s t u v w x y z                                             ",
  893.     "(!A B C D E F G H I             !)J K L M N O P Q R             ",
  894.     "//  S T U V W X Y Z             0 1 2 3 4 5 6 7 8 9           DT",
  895.   };
  896.  
  897. /* EBCDIC-US
  898. */
  899.  
  900. static DOUBLE_TABLE table_133 = 
  901.   {
  902.     "NUSHSXEXETEQAKBLBSHTLFVTFFCRSOSIDLD1D2D3D4NKSYEBCNEMSBECFSGSRSUS",
  903.     NULL,
  904.     "SP                  Ct. < ( + !!&                   ! DO* ) ; NO",
  905.     "- /                 BB, % _ > ?                   '!: NbAt' = \" ",
  906.     "  a b c d e f g h i               j k l m n o p q r             ",
  907.     "  '?s t u v w x y z                                             ",
  908.     "(!A B C D E F G H I             !)J K L M N O P Q R             ",
  909.     "//  S T U V W X Y Z             0 1 2 3 4 5 6 7 8 9           DT",
  910.   };
  911.  
  912. void
  913. module_charset2 (void)
  914. {
  915.   declare_double_step (&table_80, "IBM038", 2);
  916.   declare_double_step (&table_81, "IBM273", 2);
  917.   declare_double_step (&table_82, "IBM274", 2);
  918.   declare_double_step (&table_83, "IBM275", 2);
  919.   declare_double_step (&table_84, "IBM277", 2);
  920.   declare_double_step (&table_85, "IBM278", 2);
  921.   declare_double_step (&table_86, "IBM280", 2);
  922.   declare_double_step (&table_87, "IBM281", 2);
  923.   declare_double_step (&table_88, "IBM284", 2);
  924.   declare_double_step (&table_89, "IBM285", 2);
  925.   declare_double_step (&table_90, "IBM290", 2);
  926.   declare_double_step (&table_91, "IBM297", 2);
  927.   declare_double_step (&table_92, "IBM420", 3);
  928.   declare_double_step (&table_93, "IBM423", 2);
  929.   declare_double_step (&table_94, "IBM424", 2);
  930.   declare_double_step (&table_95, "IBM437", 2);
  931.   declare_double_step (&table_96, "IBM500", 2);
  932.   declare_double_step (&table_97, "IBM850", 2);
  933.   declare_double_step (&table_98, "IBM851", 2);
  934.   declare_double_step (&table_99, "IBM852", 2);
  935.   declare_double_step (&table_100, "IBM855", 2);
  936.   declare_double_step (&table_101, "IBM857", 2);
  937.   declare_double_step (&table_102, "IBM860", 2);
  938.   declare_double_step (&table_103, "IBM861", 2);
  939.   declare_double_step (&table_104, "IBM862", 2);
  940.   declare_double_step (&table_105, "IBM863", 2);
  941.   declare_double_step (&table_106, "IBM864", 3);
  942.   declare_double_step (&table_107, "IBM865", 2);
  943.   declare_double_step (&table_108, "IBM868", 3);
  944.   declare_double_step (&table_109, "IBM869", 2);
  945.   declare_double_step (&table_110, "IBM870", 2);
  946.   declare_double_step (&table_111, "IBM871", 2);
  947.   declare_double_step (&table_112, "IBM880", 2);
  948.   declare_double_step (&table_113, "IBM891", 2);
  949.   declare_double_step (&table_114, "IBM903", 2);
  950.   declare_double_step (&table_115, "IBM904", 2);
  951.   declare_double_step (&table_116, "IBM905", 2);
  952.   declare_double_step (&table_117, "IBM918", 3);
  953.   declare_double_step (&table_118, "IBM1026", 2);
  954.   declare_double_step (&table_119, "EBCDIC-AT-DE", 2);
  955.   declare_double_step (&table_120, "EBCDIC-AT-DE-A", 2);
  956.   declare_double_step (&table_121, "EBCDIC-CA-FR", 2);
  957.   declare_double_step (&table_122, "EBCDIC-DK-NO", 2);
  958.   declare_double_step (&table_123, "EBCDIC-DK-NO-A", 2);
  959.   declare_double_step (&table_124, "EBCDIC-FI-SE", 2);
  960.   declare_double_step (&table_125, "EBCDIC-FI-SE-A", 2);
  961.   declare_double_step (&table_126, "EBCDIC-FR", 2);
  962.   declare_double_step (&table_127, "EBCDIC-IT", 2);
  963.   declare_double_step (&table_128, "EBCDIC-PT", 2);
  964.   declare_double_step (&table_129, "EBCDIC-ES", 2);
  965.   declare_double_step (&table_130, "EBCDIC-ES-A", 2);
  966.   declare_double_step (&table_131, "EBCDIC-ES-S", 2);
  967.   declare_double_step (&table_132, "EBCDIC-UK", 2);
  968.   declare_double_step (&table_133, "EBCDIC-US", 2);
  969.  
  970.   declare_alias ("CP273", "IBM273");
  971.   declare_alias ("EBCDIC-BE", "IBM274");
  972.   declare_alias ("CP274", "IBM274");
  973.   declare_alias ("EBCDIC-BR", "IBM275");
  974.   declare_alias ("cp275", "IBM275");
  975.   declare_alias ("EBCDIC-CP-DK", "IBM277");
  976.   declare_alias ("EBCDIC-CP-NO", "IBM277");
  977.   declare_alias ("CP278", "IBM278");
  978.   declare_alias ("ebcdic-cp-fi", "IBM278");
  979.   declare_alias ("ebcdic-cp-se", "IBM278");
  980.   declare_alias ("CP280", "IBM280");
  981.   declare_alias ("ebcdic-cp-it", "IBM280");
  982.   declare_alias ("EBCDIC-JP-E", "IBM281");
  983.   declare_alias ("cp281", "IBM281");
  984.   declare_alias ("CP284", "IBM284");
  985.   declare_alias ("ebcdic-cp-es", "IBM284");
  986.   declare_alias ("CP285", "IBM285");
  987.   declare_alias ("ebcdic-cp-gb", "IBM285");
  988.   declare_alias ("cp290", "IBM290");
  989.   declare_alias ("EBCDIC-JP-kana", "IBM290");
  990.   declare_alias ("cp297", "IBM297");
  991.   declare_alias ("ebcdic-cp-fr", "IBM297");
  992.   declare_alias ("cp420", "IBM420");
  993.   declare_alias ("ebcdic-cp-ar1", "IBM420");
  994.   declare_alias ("cp423", "IBM423");
  995.   declare_alias ("ebcdic-cp-gr", "IBM423");
  996.   declare_alias ("cp424", "IBM424");
  997.   declare_alias ("ebcdic-cp-he", "IBM424");
  998.   declare_alias ("cp437", "IBM437");
  999.   declare_alias ("437", "IBM437");
  1000.   declare_alias ("CP500", "IBM500");
  1001.   declare_alias ("ebcdic-cp-be", "IBM500");
  1002.   declare_alias ("ebcdic-cp-ch", "IBM500");
  1003.   declare_alias ("cp850", "IBM850");
  1004.   declare_alias ("850", "IBM850");
  1005.   declare_alias ("cp851", "IBM851");
  1006.   declare_alias ("851", "IBM851");
  1007.   declare_alias ("cp852", "IBM852");
  1008.   declare_alias ("852", "IBM852");
  1009.   declare_alias ("cp855", "IBM855");
  1010.   declare_alias ("855", "IBM855");
  1011.   declare_alias ("cp857", "IBM857");
  1012.   declare_alias ("857", "IBM857");
  1013.   declare_alias ("cp860", "IBM860");
  1014.   declare_alias ("860", "IBM860");
  1015.   declare_alias ("cp861", "IBM861");
  1016.   declare_alias ("861", "IBM861");
  1017.   declare_alias ("cp-is", "IBM861");
  1018.   declare_alias ("cp862", "IBM862");
  1019.   declare_alias ("862", "IBM862");
  1020.   declare_alias ("cp863", "IBM863");
  1021.   declare_alias ("863", "IBM863");
  1022.   declare_alias ("cp864", "IBM864");
  1023.   declare_alias ("cp865", "IBM865");
  1024.   declare_alias ("865", "IBM865");
  1025.   declare_alias ("CP868", "IBM868");
  1026.   declare_alias ("cp-ar", "IBM868");
  1027.   declare_alias ("cp869", "IBM869");
  1028.   declare_alias ("869", "IBM869");
  1029.   declare_alias ("cp-gr", "IBM869");
  1030.   declare_alias ("CP870", "IBM870");
  1031.   declare_alias ("ebcdic-cp-roece", "IBM870");
  1032.   declare_alias ("ebcdic-cp-yu", "IBM870");
  1033.   declare_alias ("CP871", "IBM871");
  1034.   declare_alias ("ebcdic-cp-is", "IBM871");
  1035.   declare_alias ("cp880", "IBM880");
  1036.   declare_alias ("EBCDIC-Cyrillic", "IBM880");
  1037.   declare_alias ("cp891", "IBM891");
  1038.   declare_alias ("cp903", "IBM903");
  1039.   declare_alias ("cp904", "IBM904");
  1040.   declare_alias ("904", "IBM904");
  1041.   declare_alias ("CP905", "IBM905");
  1042.   declare_alias ("ebcdic-cp-tr", "IBM905");
  1043.   declare_alias ("CP918", "IBM918");
  1044.   declare_alias ("ebcdic-cp-ar2", "IBM918");
  1045.   declare_alias ("CP1026", "IBM1026");
  1046. }
  1047.