home *** CD-ROM | disk | FTP | other *** search
/ Dream 52 / Amiga_Dream_52.iso / Linux / Divers / lynx2.8.1dev.10.tar.gz / lynx2.8.1dev.10.tar / lynx2-8 / src / LYCharSets.c < prev    next >
C/C++ Source or Header  |  1998-03-25  |  34KB  |  976 lines
  1. #include <HTUtils.h>
  2. #include <tcp.h>
  3. #include <HTCJK.h>
  4. #include <HTMLDTD.h>
  5.  
  6. #include <LYGlobalDefs.h>
  7. #include <UCMap.h>
  8. #include <UCDefs.h>
  9. #include <LYCharSets.h>
  10. #include <LYCharUtils.h>
  11. #include <HTFont.h>
  12. #include <GridText.h>
  13. #include <LYCurses.h>
  14. #include <LYStrings.h>
  15.  
  16. #include <LYexit.h>
  17. #include <LYLeaks.h>
  18.  
  19. extern BOOL HTPassEightBitRaw;
  20. extern BOOL HTPassEightBitNum;
  21. extern BOOL HTPassHighCtrlRaw;
  22. extern BOOL HTPassHighCtrlNum;
  23. extern HTCJKlang HTCJK;
  24. PUBLIC HTkcode kanji_code = NOKANJI;
  25. PUBLIC BOOLEAN LYHaveCJKCharacterSet = FALSE;
  26. PUBLIC BOOLEAN DisplayCharsetMatchLocale = TRUE;
  27. extern void UCInit NOARGS;
  28. extern int UCInitialized;
  29. PUBLIC int LYNumCharsets = 0; /* Will be initialized later by UC_Register. */
  30.  
  31. /*
  32.  *  INSTRUCTIONS for adding new character sets which do not have
  33.  *         Unicode tables.
  34.  *
  35.  *  Currently we only declare some charset's properties here
  36.  *  (such as MIME names, etc.), it does not include real mapping.
  37.  *
  38.  *  [We hope you need not correct/add old-style mapping
  39.  *  as in ISO_LATIN1[] or SevenBitApproximations[] any more -
  40.  *  it works now via new chartrans mechanism, but kept for compatibility only:
  41.  *  we should cleanup the stuff, but this is not so easy...]
  42.  *
  43.  *  There is a place marked "Add your new character sets HERE" in this file.
  44.  *  Make up a character set and add it in the same
  45.  *  style as the ISO_LATIN1 set below, giving it a unique name.
  46.  *
  47.  *  Add the name of the set to LYCharSets.
  48.  *  Similarly add the appropriate information to the tables below:
  49.  *  LYchar_set_names, LYCharSet_UC, LYlowest_eightbit.
  50.  *  These 4 tables all MUST have the same order.
  51.  *  (And this is the order you will see in Lynx Options Menu,
  52.  *  which is why few unicode-based charsets are listed here).
  53.  *
  54.  */
  55.  
  56. /*    Entity values -- for ISO Latin 1 local representation
  57. **
  58. **    This MUST match exactly the table referred to in the DTD!
  59. */
  60. PRIVATE char * ISO_Latin1[] = {
  61.     "\306", /* capital AE diphthong (ligature) (Æ) - AElig */
  62.     "\301", /* capital A, acute accent (Á) - Aacute */
  63.     "\302", /* capital A, circumflex accent (Â) - Acirc */
  64.     "\300", /* capital A, grave accent (À) - Agrave */
  65.     "\305", /* capital A, ring - Aring (Å) */
  66.     "\303", /* capital A, tilde - Atilde (Ã) */
  67.     "\304", /* capital A, dieresis or umlaut mark (Ä) - Auml */
  68.     "\307", /* capital C, cedilla - Ccedil (Ç) */
  69.     "\320", /* capital Eth or D with stroke (Ð) - Dstrok */
  70.     "\320", /* capital Eth, Icelandic (Ð) - ETH */
  71.     "\311", /* capital E, acute accent (É) - Eacute */
  72.     "\312", /* capital E, circumflex accent (Ê) - Ecirc */
  73.     "\310", /* capital E, grave accent (È) - Egrave */
  74.     "\313", /* capital E, dieresis or umlaut mark (Ë) - Euml */
  75.     "\315", /* capital I, acute accent (Í) - Iacute */
  76.     "\316", /* capital I, circumflex accent (Î) - Icirc */
  77.     "\314", /* capital I, grave accent (È) - Igrave */
  78.     "\317", /* capital I, dieresis or umlaut mark (Ï) - Iuml */
  79.     "\321", /* capital N, tilde (Ñ) - Ntilde */
  80.     "\323", /* capital O, acute accent (Ó) - Oacute */
  81.     "\324", /* capital O, circumflex accent (Ô) - Ocirc */
  82.     "\322", /* capital O, grave accent (Ò) - Ograve */
  83.     "\330", /* capital O, slash (Ø) - Oslash */
  84.     "\325", /* capital O, tilde (Õ) - Otilde */
  85.     "\326", /* capital O, dieresis or umlaut mark (Ö) - Ouml */
  86.     "\336", /* capital THORN, Icelandic (Þ) - THORN */
  87.     "\332", /* capital U, acute accent (Ú) - Uacute */
  88.     "\333", /* capital U, circumflex accent (Û) - Ucirc */
  89.     "\331", /* capital U, grave accent (Ù) - Ugrave */
  90.     "\334", /* capital U, dieresis or umlaut mark (Ü) - Uuml */
  91.     "\335", /* capital Y, acute accent (Ý) - Yacute */
  92.     "\341", /* small a, acute accent (á) - aacute */
  93.     "\342", /* small a, circumflex accent (â) - acirc */
  94.     "\264", /* spacing acute (´) - acute */
  95.     "\346", /* small ae diphthong (ligature) (æ) - aelig */
  96.     "\340", /* small a, grave accent (à) - agrave */
  97.     "\046", /* ampersand (&) - amp */
  98.     "\345", /* small a, ring (å) - aring */
  99.     "\343", /* small a, tilde (ã) - atilde */
  100.     "\344", /* small a, dieresis or umlaut mark (ä) - auml */
  101.     "\246", /* broken vertical bar (¦) - brkbar */
  102.     "\246", /* broken vertical bar (¦) - brvbar */
  103.     "\347", /* small c, cedilla (ç) - ccedil */
  104.     "\270", /* spacing cedilla (¸) - cedil */
  105.     "\242", /* cent sign (¢) - cent */
  106.     "\251", /* copyright sign (©) - copy */
  107.     "\244", /* currency sign (¤) - curren */
  108.     "\260", /* degree sign (°) - deg */
  109.     "\250", /* spacing dieresis (¨) - die */
  110.     "\367", /* division sign (÷) - divide */
  111.     "\351", /* small e, acute accent (é) - eacute */
  112.     "\352", /* small e, circumflex accent (ê) - ecirc */
  113.     "\350", /* small e, grave accent (è) - egrave */
  114.     "-",    /* dash the width of emsp - emdash */
  115.     "\002", /* emsp, em space - not collapsed NEVER CHANGE THIS - emsp */
  116.     "-",    /* dash the width of ensp - endash */
  117.     "\002", /* ensp, en space - not collapsed NEVER CHANGE THIS - ensp */
  118.     "\360", /* small eth, Icelandic (ð) - eth */
  119.     "\353", /* small e, dieresis or umlaut mark (ë) - euml */
  120.     "\275", /* fraction 1/2 (½) - frac12 */
  121.     "\274", /* fraction 1/4 (¼) - frac14 */
  122.     "\276", /* fraction 3/4 (¾) - frac34 */
  123.     "\076", /* greater than (>) - gt */
  124.     "\257", /* spacing macron (¯) - hibar */
  125.     "\355", /* small i, acute accent (í) - iacute */
  126.     "\356", /* small i, circumflex accent (î) - icirc */
  127.     "\241", /* inverted exclamation mark (¡) - iexcl */
  128.     "\354", /* small i, grave accent (ì) - igrave */
  129.     "\277", /* inverted question mark (¿) - iquest */
  130.     "\357", /* small i, dieresis or umlaut mark (ï) - iuml */
  131.     "\253", /* angle quotation mark, left («) - laquo */
  132.     "\074", /* less than (<) - lt */
  133.     "\257", /* spacing macron (¯) - macr */
  134.     "-",    /* dash the width of emsp - mdash */
  135.     "\265", /* micro sign (µ) - micro */
  136.     "\267", /* middle dot (·) - middot */
  137.     "\001", /* nbsp non-breaking space NEVER CHANGE THIS - nbsp */
  138.     "-",    /* dash the width of ensp - ndash */
  139.     "\254", /* negation sign (¬) - not */
  140.     "\361", /* small n, tilde (ñ) - ntilde */
  141.     "\363", /* small o, acute accent (ó) - oacute */
  142.     "\364", /* small o, circumflex accent (ô) - ocirc */
  143.     "\362", /* small o, grave accent (ò) - ograve */
  144.     "\252", /* feminine ordinal indicator (ª) - ordf */
  145.     "\272", /* masculine ordinal indicator (º) - ordm */
  146.     "\370", /* small o, slash (ø) - oslash */
  147.     "\365", /* small o, tilde (õ) - otilde */
  148.     "\366", /* small o, dieresis or umlaut mark (ö) - ouml */
  149.     "\266", /* paragraph sign (¶) - para */
  150.     "\261", /* plus-or-minus sign (±) - plusmn */
  151.     "\243", /* pound sign (£) - pound */
  152.     "\042", /* quote '"' (") - quot */
  153.     "\273", /* angle quotation mark, right (») - raquo */
  154.     "\256", /* circled R registered sign (®) - reg */
  155.     "\247", /* section sign (§) - sect */
  156.     "\007", /* soft hyphen (­) NEVER CHANGE THIS - shy */
  157.     "\271", /* superscript 1 (¹) - sup1 */
  158.     "\262", /* superscript 2 (²) - sup2 */
  159.     "\263", /* superscript 3 (³) - sup3 */
  160.     "\337", /* small sharp s, German (sz ligature) (ß) - szlig */
  161.     "\002", /* thin space - not collapsed NEVER CHANGE THIS - thinsp */
  162.     "\376", /* small thorn, Icelandic (þ) - thorn */
  163.     "\327", /* multiplication sign (×) - times */
  164.     "(TM)", /* circled TM trade mark sign (™) - trade */
  165.     "\372", /* small u, acute accent (ú) - uacute */
  166.     "\373", /* small u, circumflex accent (û) - ucirc */
  167.     "\371", /* small u, grave accent (ù) - ugrave */
  168.     "\250", /* spacing dieresis (¨) - uml */
  169.     "\374", /* small u, dieresis or umlaut mark (ü) - uuml */
  170.     "\375", /* small y, acute accent (ý) - yacute */
  171.     "\245", /* yen sign (¥) - yen */
  172.     "\377", /* small y, dieresis or umlaut mark (ÿ) - yuml */
  173. };
  174.  
  175. /*    Entity values -- 7 bit character approximations
  176. **
  177. **    This MUST match exactly the table referred to in the DTD!
  178. */
  179. PUBLIC char * SevenBitApproximations[] = {
  180.     "AE",    /* capital AE diphthong (ligature) (Æ) - AElig */
  181.     "A",    /* capital A, acute accent (Á) - Aacute */
  182.     "A",    /* capital A, circumflex accent (Â) - Acirc */
  183.     "A",    /* capital A, grave accent (À) - Agrave */
  184.     "A",    /* capital A, ring - Aring (Å) */
  185.     "A",    /* capital A, tilde - Atilde (Ã) */
  186. #ifdef LY_UMLAUT
  187.     "Ae",    /* capital A, dieresis or umlaut mark (Ä) - Auml*/
  188. #else
  189.     "A",    /* capital A, dieresis or umlaut mark (Ä) - Auml*/
  190. #endif /* LY_UMLAUT */
  191.     "C",    /* capital C, cedilla (Ç) - Ccedil */
  192.     "Dj",    /* capital D with stroke (Ð) - Dstrok */
  193.     "DH",    /* capital Eth, Icelandic (Ð) - ETH */
  194.     "E",    /* capital E, acute accent (É) - Eacute */
  195.     "E",    /* capital E, circumflex accent (Ê) - Ecirc */
  196.     "E",    /* capital E, grave accent (È) - Egrave */
  197.     "E",    /* capital E, dieresis or umlaut mark (Ë) - Euml */
  198.     "I",    /* capital I, acute accent (Í) - Iacute */
  199.     "I",    /* capital I, circumflex accent (Î) - Icirc */
  200.     "I",    /* capital I, grave accent (Ì) - Igrave */
  201.     "I",    /* capital I, dieresis or umlaut mark (Ï) - Iuml */
  202.     "N",    /* capital N, tilde - Ntilde (Ñ) */
  203.     "O",    /* capital O, acute accent (Ó) - Oacute */
  204.     "O",    /* capital O, circumflex accent (Ô) - Ocirc */
  205.     "O",    /* capital O, grave accent (Ò) - Ograve */
  206.     "O",    /* capital O, slash (Ø) - Oslash */
  207.     "O",    /* capital O, tilde (Õ) - Otilde */
  208. #ifdef LY_UMLAUT
  209.     "Oe",    /* capital O, dieresis or umlaut mark (Ö) - Ouml */
  210. #else
  211.     "O",    /* capital O, dieresis or umlaut mark (Ö) - Ouml */
  212. #endif /* LY_UMLAUT */
  213.     "P",    /* capital THORN, Icelandic (Þ) - THORN */
  214.     "U",    /* capital U, acute accent (Ú) - Uacute */
  215.     "U",    /* capital U, circumflex accent (Û) - Ucirc */
  216.     "U",    /* capital U, grave accent (Ù) - Ugrave */
  217. #ifdef LY_UMLAUT
  218.     "Ue",    /* capital U, dieresis or umlaut mark (Ü) - Uuml */
  219. #else
  220.     "U",    /* capital U, dieresis or umlaut mark (Ü) - Uuml */
  221. #endif /* LY_UMLAUT */
  222.     "Y",    /* capital Y, acute accent (Ý) - Yacute */
  223.     "a",    /* small a, acute accent (á) - aacute */
  224.     "a",    /* small a, circumflex accent (â) - acirc */
  225.     "'",    /* spacing acute (´) - acute */
  226.     "ae",    /* small ae diphthong (ligature) (æ) - aelig */
  227.     "`a",    /* small a, grave accent (è) - agrave */
  228.     "&",    /* ampersand (&) - amp */
  229.     "a",    /* small a, ring (å) - aring */
  230.     "a",    /* small a, tilde (ã) - atilde */
  231. #ifdef LY_UMLAUT
  232.     "ae",    /* small a, dieresis or umlaut mark (ä) - auml */
  233. #else
  234.     "a",    /* small a, dieresis or umlaut mark (ä) - auml */
  235. #endif /* LY_UMLAUT */
  236.     "|",    /* broken vertical bar (¦) - brkbar */
  237.     "|",    /* broken vertical bar (¦) - brvbar */
  238.     "c",    /* small c, cedilla (ç) - ccedil */
  239.     ",",    /* spacing cedilla (¸) - cedil */
  240.     "-c-",    /* cent sign (¢) - cent */
  241.     "(c)",    /* copyright sign (©) - copy */
  242.     "CUR",    /* currency sign (¤) - curren */
  243.     "DEG",    /* degree sign (°) - deg */
  244.     "\042", /* spacing dieresis (¨) - die */
  245.     "/",    /* division sign (÷) - divide */
  246.     "e",    /* small e, acute accent (é) - eacute */
  247.     "e",    /* small e, circumflex accent (ê) - ecirc */
  248.     "e",    /* small e, grave accent (è) - egrave */
  249.     "-",    /* dash the width of emsp - emdash */
  250.     "\002", /* emsp NEVER CHANGE THIS - emsp */
  251.     "-",    /* dash the width of ensp - endash */
  252.     "\002", /* ensp NEVER CHANGE THIS - ensp */
  253.     "dh",    /* small eth, Icelandic eth (ð) */
  254.     "e",    /* small e, dieresis or umlaut mark (ë) - euml */
  255.     " 1/2", /* fraction 1/2 (½) - frac12 */
  256.     " 1/4", /* fraction 1/4 (¼) - frac14 */
  257.     " 3/4", /* fraction 3/4 (¾) - frac34 */
  258.     ">",    /* greater than (>) - gt */
  259.     "-",    /* spacing macron (¯) - hibar */
  260.     "i",    /* small i, acute accent (í) - iacute */
  261.     "i",    /* small i, circumflex accent (î) - icirc*/
  262.     "!",    /* inverted exclamation mark (¡) - iexcl */
  263.     "`i",    /* small i, grave accent (ì) - igrave */
  264.     "?",    /* inverted question mark (¿) - iquest */
  265.     "i",    /* small i, dieresis or umlaut mark (ï) - iuml */
  266.     "<<",    /* angle quotation mark, left («) - laquo */
  267.     "<",    /* less than - lt (<) */
  268.     "-",    /* spacing macron (¯) - macr */
  269.     "-",    /* dash the width of emsp - mdash */
  270.     "u",    /* micro sign (µ) - micro */
  271.     ".",    /* middle dot (·) - middot */
  272.     "\001", /* nbsp non-breaking space NEVER CHANGE THIS - nbsp */
  273.     "-",    /* dash the width of ensp - ndash */
  274.     "NOT",    /* negation sign (¬) - not */
  275.     "n",    /* small n, tilde (ñ) - ntilde */
  276.     "o",    /* small o, acute accent (ó) - oacute */
  277.     "o",    /* small o, circumflex accent (ô) - ocirc */
  278.     "o",    /* small o, grave accent (ò) - ograve */
  279.     "-a",    /* feminine ordinal indicator (ª) - ordf */
  280.     "-o",    /* masculine ordinal indicator (º) - ordm */
  281.     "o",    /* small o, slash (ø) - oslash */
  282.     "o",    /* small o, tilde (õ) - otilde */
  283. #ifdef LY_UMLAUT
  284.     "oe",    /* small o, dieresis or umlaut mark (ö) - ouml */
  285. #else
  286.     "o",    /* small o, dieresis or umlaut mark (ö) - ouml */
  287. #endif /* LY_UMLAUT */
  288.     "P:",    /* paragraph sign (¶) - para */
  289.     "+-",    /* plus-or-minus sign (±) - plusmn */
  290.     "-L-",    /* pound sign (£) - pound */
  291.     "\"",    /* quote '"' (") - quot */
  292.     ">>",    /* angle quotation mark, right (») - raquo */
  293.     "(R)",    /* circled R registered sign (®) - reg */
  294.     "S:",    /* section sign (§) - sect */
  295.     "\007", /* soft hyphen (­) NEVER CHANGE THIS - shy */
  296.     "^1",    /* superscript 1 (¹) - sup1 */
  297.     "^2",    /* superscript 2 (²) - sup2 */
  298.     "^3",    /* superscript 3 (³) - sup3 */
  299.     "ss",    /* small sharp s, German (sz ligature) (ß) - szlig */
  300.     "\002", /* thin space - not collapsed NEVER CHANGE THIS - thinsp */
  301.     "p",    /* small thorn, Icelandic (þ) - thorn */
  302.     "*",    /* multiplication sign (×) - times */
  303.     "(TM)", /* circled TM trade mark sign (™) - trade */
  304.     "u",    /* small u, acute accent (ú) - uacute */
  305.     "u",    /* small u, circumflex accent (û) - ucirc */
  306.     "u",    /* small u, grave accent (ù) - ugrave */
  307.     "\042", /* spacing dieresis (¨) - uml */
  308. #ifdef LY_UMLAUT
  309.     "ue",    /* small u, dieresis or umlaut mark (ü) - uuml */
  310. #else
  311.     "u",    /* small u, dieresis or umlaut mark (ü) - uuml */
  312. #endif /* LY_UMLAUT */
  313.     "y",    /* small y, acute accent (ý) - yacute */
  314.     "YEN",    /* yen sign (¥) - yen */
  315.     "y",    /* small y, dieresis or umlaut mark (ÿ) - yuml */
  316. };
  317.  
  318. /*
  319.  *  Add your new character sets HERE (but only if you
  320.  *  can't construct Unicode tables for them). - FM
  321.  */
  322.  
  323. /*
  324.  *  Add the array name to LYCharSets
  325.  */
  326. PUBLIC char ** LYCharSets[MAXCHARSETS]={
  327.     ISO_Latin1,        /* ISO Latin 1        */
  328.     SevenBitApproximations, /* DosLatin1 (cp850)    */
  329.     SevenBitApproximations, /* WinLatin1 (cp1252)    */
  330.     SevenBitApproximations, /* DosLatinUS (cp437)    */
  331.     SevenBitApproximations, /* DEC Multinational    */
  332.     SevenBitApproximations, /* Macintosh (8 bit)    */
  333.     SevenBitApproximations, /* NeXT character set    */
  334.     SevenBitApproximations, /* Chinese        */
  335.     SevenBitApproximations, /* Japanese (EUC)    */
  336.     SevenBitApproximations, /* Japanese (SJIS)    */
  337.     SevenBitApproximations, /* Korean        */
  338.     SevenBitApproximations, /* Taipei (Big5)    */
  339.     SevenBitApproximations, /* Vietnamese (VISCII)    */
  340.     SevenBitApproximations, /* 7 Bit Approximations */
  341.     SevenBitApproximations, /* Transparent        */
  342. };
  343.  
  344. /*
  345.  *  Add the name that the user will see below.
  346.  *  The order of LYCharSets and LYchar_set_names MUST be the same
  347.  */
  348. PUBLIC CONST char * LYchar_set_names[MAXCHARSETSP]={
  349.     "ISO Latin 1         ",
  350.     "DosLatin1 (cp850)   ",
  351.     "WinLatin1 (cp1252)  ",
  352.     "DosLatinUS (cp437)  ",
  353.     "DEC Multinational   ",
  354.     "Macintosh (8 bit)   ",
  355.     "NeXT character set  ",
  356.     "Chinese             ",
  357.     "Japanese (EUC)      ",
  358.     "Japanese (SJIS)     ",
  359.     "Korean              ",
  360.     "Taipei (Big5)       ",
  361.     "Vietnamese (VISCII) ",
  362.     "7 bit approximations",
  363.     "Transparent         ",
  364.     (char *) 0
  365. };
  366.  
  367. /*
  368.  *  Associate additional pieces of info with each of the charsets listed
  369.  *  above.
  370.  *  Will be automatically modified (and extended) by charset translations
  371.  *  which are loaded using the chartrans mechanism.
  372.  *  Most important piece of info to put here is a MIME charset name.
  373.  *  Used for chartrans.
  374.  *  The order of LYCharSets and LYCharSet_UC MUST be the same.
  375.  *
  376.  *  Note that most of the charsets added by the new mechanism in src/chrtrans
  377.  *  don't show up here at all.    They don't have to.
  378.  */
  379. PUBLIC LYUCcharset LYCharSet_UC[MAXCHARSETS]=
  380. {
  381.   /*
  382.    *  Zero position placeholder and HTMLGetEntityUCValue() reference. - FM
  383.    */
  384.   {-1,"iso-8859-1",    UCT_ENC_8BIT,
  385.             UCT_REP_IS_LAT1,
  386.             UCT_CP_IS_LAT1,     UCT_R_LAT1,UCT_R_LAT1},
  387.  
  388.   /*
  389.    *  Placeholders for Unicode tables. - FM
  390.    */
  391.   {-1,"cp850",        UCT_ENC_8BIT,
  392.             UCT_REP_SUPERSETOF_LAT1,
  393.             0,            UCT_R_8BIT,UCT_R_ASCII},
  394.   {-1,"cp1252",     UCT_ENC_8BIT,
  395.             UCT_REP_SUPERSETOF_LAT1,
  396.             0,            UCT_R_8BIT,UCT_R_ASCII},
  397.   {-1,"cp437",        UCT_ENC_8BIT,0,0,    UCT_R_8BIT,UCT_R_ASCII},
  398.   {-1,"dec-mcs",    UCT_ENC_8BIT,0,0,    UCT_R_8BIT,UCT_R_ASCII},
  399.   {-1,"macintosh",    UCT_ENC_8BIT,0,0,    UCT_R_8BIT,UCT_R_ASCII},
  400.   {-1,"next",        UCT_ENC_8BIT,0,0,    UCT_R_8BIT,UCT_R_ASCII},
  401.  
  402.   /*
  403.    *  There is no strict correlation for the next five, since the transfer
  404.    *  charset gets decoded into Display Char Set by the CJK code (separate
  405.    *  from Unicode mechanism).    For now we use the MIME name that describes
  406.    *  what is output to the terminal. - KW
  407.    */
  408.   {-1,"euc-cn",     UCT_ENC_CJK,0,0,    UCT_R_8BIT,UCT_R_ASCII},
  409.   {-1,"euc-jp",     UCT_ENC_CJK,0,0,    UCT_R_8BIT,UCT_R_ASCII},
  410.   {-1,"shift_jis",    UCT_ENC_CJK,0,0,    UCT_R_8BIT,UCT_R_ASCII},
  411.   {-1,"euc-kr",     UCT_ENC_CJK,0,0,    UCT_R_8BIT,UCT_R_ASCII},
  412.   {-1,"big5",        UCT_ENC_CJK,0,0,    UCT_R_8BIT,UCT_R_ASCII},
  413.  
  414.   /*
  415.    *  Placeholders for Unicode tables. - FM
  416.    */
  417.   {-1,"viscii",     UCT_ENC_8BIT_C0,0,0,    UCT_R_8BIT,UCT_R_ASCII},
  418.   {-1,"us-ascii",    UCT_ENC_7BIT,
  419.             UCT_REP_SUBSETOF_LAT1,
  420.             UCT_CP_SUBSETOF_LAT1,    UCT_R_ASCII,UCT_R_ASCII},
  421.  
  422.   /*
  423.    *  Placeholder for non-translation mode. - FM
  424.    */
  425.   {-1,"x-transparent",    UCT_ENC_8BIT,0,0,    UCT_R_8BIT,UCT_R_ASCII}
  426.  
  427. };
  428.  
  429. /*
  430.  *  Add the code of the the lowest character with the high bit set
  431.  *  that can be directly displayed.
  432.  *  The order of LYCharSets and LYlowest_eightbit MUST be the same.
  433.  *
  434.  *  (If charset have chartrans unicode table,
  435.  *  LYlowest_eightbit will be verified/modified anyway.)
  436.  */
  437. PUBLIC int LYlowest_eightbit[MAXCHARSETS]={
  438.     160,    /* ISO Latin 1        */
  439.     128,    /* DosLatin1 (cp850)    */
  440.     130,    /* WinLatin1 (cp1252)    */
  441.     128,    /* DosLatinUS (cp437)    */
  442.     160,    /* DEC Multinational    */
  443.     128,    /* Macintosh (8 bit)    */
  444.     128,    /* NeXT character set    */
  445.     128,    /* Chinese        */
  446.     128,    /* Japanese (EUC)    */
  447.     128,    /* Japanese (SJIS)    */
  448.     128,    /* Korean        */
  449.     128,    /* Taipei (Big5)    */
  450.     128,    /* Vietnamese (VISCII)    */
  451.     999,    /* 7 bit approximations */
  452.     128    /* Transparent    (???)    */
  453. };
  454.  
  455. /*
  456.  *  The default character set.
  457.  *  --------------------------
  458.  *  Use lynx.cfg and/or user
  459.  *  'o'ptions (.lynxrc) to
  460.  *  set a different default.
  461.  */
  462. PUBLIC char** p_entity_values = ISO_Latin1;    /* Pointer to translation */
  463. PUBLIC int current_char_set = 0;        /* Index for translation */
  464.  
  465. /*
  466.  *  Function to set the handling of selected character sets
  467.  *  based on the current LYUseDefaultRawMode value. - FM
  468.  */
  469. PUBLIC void HTMLSetCharacterHandling ARGS1(int,i)
  470. {
  471.     int chndl = -2;
  472.     if (LYCharSet_UC[i].enc != UCT_ENC_CJK) {
  473.     chndl = 0;
  474.  
  475.     if (UCAssume_MIMEcharset)
  476.         chndl = UCGetLYhndl_byMIME(UCAssume_MIMEcharset);
  477.     HTCJK = NOCJK;
  478.     kanji_code = NOKANJI;
  479.  
  480.     HTPassEightBitNum =
  481.         ((LYCharSet_UC[i].codepoints & UCT_CP_SUPERSETOF_LAT1) ||
  482.         (LYCharSet_UC[i].like8859 & UCT_R_HIGH8BIT));
  483.  
  484.     if (i == (chndl < 0 ? 0 : chndl)) {
  485.         LYRawMode = LYUseDefaultRawMode ? TRUE : FALSE;
  486.     } else {
  487.         LYRawMode = LYUseDefaultRawMode ? FALSE : TRUE;
  488.     }
  489.     if (LYRawMode) {
  490.         HTPassEightBitRaw = (LYlowest_eightbit[i] <= 160);
  491.     } else {
  492.         HTPassEightBitRaw = FALSE;
  493.     }
  494.     if (LYRawMode || i == chndl) {
  495.         HTPassHighCtrlRaw = (LYlowest_eightbit[i] <= 130);
  496.     } else {
  497.         HTPassHighCtrlRaw = FALSE;
  498.     }
  499.  
  500.     HTPassHighCtrlNum = FALSE;
  501.  
  502.     } else if (!strncmp(LYchar_set_names[i], "Chinese", 7)) {
  503.     HTCJK = LYUseDefaultRawMode ? CHINESE : NOCJK;
  504.     LYRawMode = (HTCJK != NOCJK) ? TRUE : FALSE;
  505.     kanji_code = EUC;
  506.     HTPassEightBitRaw = FALSE;
  507.     HTPassEightBitNum = FALSE;
  508.     HTPassHighCtrlRaw = (HTCJK != NOCJK) ? TRUE : FALSE;
  509.     HTPassHighCtrlNum = FALSE;
  510.  
  511.     } else if (!strncmp(LYchar_set_names[i], "Japanese (EUC)", 14)) {
  512.     HTCJK = LYUseDefaultRawMode ? JAPANESE : NOCJK;
  513.     LYRawMode = (HTCJK != NOCJK) ? TRUE : FALSE;
  514.     kanji_code = EUC;
  515.     HTPassEightBitRaw = FALSE;
  516.     HTPassEightBitNum = FALSE;
  517.     HTPassHighCtrlRaw = (HTCJK != NOCJK) ? TRUE : FALSE;
  518.     HTPassHighCtrlNum = FALSE;
  519.  
  520.     } else if (!strncmp(LYchar_set_names[i], "Japanese (SJIS)", 15)) {
  521.     HTCJK = LYUseDefaultRawMode ? JAPANESE : NOCJK;
  522.     LYRawMode = (HTCJK != NOCJK) ? TRUE : FALSE;
  523.     kanji_code = SJIS;
  524.     HTPassEightBitRaw = FALSE;
  525.     HTPassEightBitNum = FALSE;
  526.     HTPassHighCtrlRaw = (HTCJK != NOCJK) ? TRUE : FALSE;
  527.     HTPassHighCtrlNum = FALSE;
  528.  
  529.     } else if (!strncmp(LYchar_set_names[i], "Korean", 6)) {
  530.     HTCJK = LYUseDefaultRawMode ? KOREAN : NOCJK;
  531.     LYRawMode = (HTCJK != NOCJK) ? TRUE : FALSE;
  532.     kanji_code = EUC;
  533.     HTPassEightBitRaw = FALSE;
  534.     HTPassEightBitNum = FALSE;
  535.     HTPassHighCtrlRaw = (HTCJK != NOCJK) ? TRUE : FALSE;
  536.     HTPassHighCtrlNum = FALSE;
  537.  
  538.     } else if (!strncmp(LYchar_set_names[i], "Taipei (Big5)", 13)) {
  539.     HTCJK = LYUseDefaultRawMode ? TAIPEI : NOCJK;
  540.     LYRawMode = (HTCJK != NOCJK) ? TRUE : FALSE;
  541.     kanji_code = EUC;
  542.     HTPassEightBitRaw = FALSE;
  543.     HTPassEightBitNum = FALSE;
  544.     HTPassHighCtrlRaw = (HTCJK != NOCJK) ? TRUE : FALSE;
  545.     HTPassHighCtrlNum = FALSE;
  546.  
  547.     } else {
  548.     HTCJK = NOCJK;
  549.     kanji_code = NOKANJI;
  550.     HTPassEightBitRaw = LYUseDefaultRawMode ? FALSE : TRUE;
  551.     LYRawMode = HTPassEightBitRaw;
  552.     HTPassEightBitNum = FALSE;
  553.     HTPassHighCtrlRaw = FALSE;
  554.     HTPassHighCtrlNum = FALSE;
  555.     }
  556.  
  557.     if (LYRawMode) {
  558.     UCLYhndl_for_unspec = i;
  559.     } else {
  560.     if (chndl == -2) {
  561.         chndl = 0;
  562.  
  563.         if (UCAssume_MIMEcharset)
  564.         chndl = UCGetLYhndl_byMIME(UCAssume_MIMEcharset);
  565.     }
  566.     if (chndl != i && chndl >= 0 &&
  567.         (LYCharSet_UC[i].enc != UCT_ENC_CJK ||
  568.          LYCharSet_UC[chndl].enc != UCT_ENC_CJK)) {
  569.         UCLYhndl_for_unspec = chndl;
  570.     } else {
  571.         UCLYhndl_for_unspec = 0;
  572.     }
  573.     }
  574.  
  575. #ifdef USE_SLANG
  576.     if (LYlowest_eightbit[i] > 191) {
  577.     /*
  578.      *  Higher than this may output cntrl chars to screen. - KW
  579.      */
  580.     SLsmg_Display_Eight_Bit = 191;
  581.     } else {
  582.     SLsmg_Display_Eight_Bit = LYlowest_eightbit[i];
  583.     }
  584. #endif /* USE_SLANG */
  585.  
  586.     ena_csi((LYlowest_eightbit[current_char_set] > 155));
  587.  
  588.     return;
  589. }
  590.  
  591. /*
  592.  *  Function to set the LYDefaultRawMode value
  593.  *  based on the selected character set. - FM
  594.  */
  595. PUBLIC void HTMLSetRawModeDefault ARGS1(int,i)
  596. {
  597.     if (!strncmp(LYchar_set_names[i], "ISO Latin 1", 11) ||
  598.     !strncmp(LYchar_set_names[i], "Chinese", 7) ||
  599.     !strncmp(LYchar_set_names[i], "Japanese (EUC)", 14) ||
  600.     !strncmp(LYchar_set_names[i], "Japanese (SJIS)", 15) ||
  601.     !strncmp(LYchar_set_names[i], "Korean", 6) ||
  602.     !strncmp(LYchar_set_names[i], "Taipei (Big5)", 13)) {
  603.     LYDefaultRawMode = TRUE;
  604.     } else {
  605.     LYDefaultRawMode = FALSE;
  606.     }
  607.     return;
  608. }
  609.  
  610. /*
  611.  *  Function to set the LYUseDefaultRawMode value
  612.  *  based on the selected character set and the
  613.  *  current LYRawMode value. - FM
  614.  */
  615. PUBLIC void HTMLSetUseDefaultRawMode ARGS2(
  616.     int,        i,
  617.     BOOLEAN,    modeflag)
  618. {
  619.     if (LYCharSet_UC[i].enc != UCT_ENC_CJK) {
  620.     int chndl = 0;
  621.  
  622.     if (UCAssume_MIMEcharset)
  623.         chndl = UCGetLYhndl_byMIME(UCAssume_MIMEcharset);
  624.     if (i == chndl)
  625.         LYUseDefaultRawMode = modeflag;
  626.     else
  627.         LYUseDefaultRawMode = (!modeflag);
  628.     } else if (!strncmp(LYchar_set_names[i], "ISO Latin 1", 11) ||
  629.            !strncmp(LYchar_set_names[i], "Chinese", 7) ||
  630.            !strncmp(LYchar_set_names[i], "Japanese (EUC)", 14) ||
  631.            !strncmp(LYchar_set_names[i], "Japanese (SJIS)", 15) ||
  632.            !strncmp(LYchar_set_names[i], "Korean", 6) ||
  633.            !strncmp(LYchar_set_names[i], "Taipei (Big5)", 13)) {
  634.     if (modeflag == TRUE) {
  635.         LYUseDefaultRawMode = TRUE;
  636.     } else {
  637.         LYUseDefaultRawMode = FALSE;
  638.     }
  639.     } else {
  640.     if (modeflag == FALSE) {
  641.         LYUseDefaultRawMode = TRUE;
  642.     } else {
  643.         LYUseDefaultRawMode = FALSE;
  644.     }
  645.     }
  646.     return;
  647. }
  648.  
  649. /*
  650.  *  Function to set the LYHaveCJKCharacterSet value
  651.  *  based on the selected character set. - FM
  652.  */
  653. PUBLIC void HTMLSetHaveCJKCharacterSet ARGS1(int,i)
  654. {
  655.     if (!strncmp(LYchar_set_names[i], "Chinese", 7) ||
  656.     !strncmp(LYchar_set_names[i], "Japanese (EUC)", 14) ||
  657.     !strncmp(LYchar_set_names[i], "Japanese (SJIS)", 15) ||
  658.     !strncmp(LYchar_set_names[i], "Korean", 6) ||
  659.     !strncmp(LYchar_set_names[i], "Taipei (Big5)", 13)) {
  660.     LYHaveCJKCharacterSet = TRUE;
  661.     } else {
  662.     LYHaveCJKCharacterSet = FALSE;
  663.     }
  664.     return;
  665. }
  666.  
  667. /*
  668.  *  Function to set the DisplayCharsetMatchLocale value
  669.  *  based on the selected character set.
  670.  *  It is used in UPPER8 for 8bit case-insensitive search
  671.  *  by matching def7_uni.tbl images. - LP
  672.  */
  673. PRIVATE void HTMLSetDisplayCharsetMatchLocale ARGS1(int,i)
  674. {
  675.     if (strncasecomp(LYCharSet_UC[i].MIMEname, "cp", 2) ||
  676.     strncasecomp(LYCharSet_UC[i].MIMEname, "windows", 7)) {
  677.     /*
  678.     ** Assume dos/windows displays usually on remote terminal,
  679.     ** so rarely match locale.
  680.     ** (in fact, MS Windows codepoints locale are never seen on UNIX).
  681.     */
  682.     DisplayCharsetMatchLocale = FALSE;
  683.     } else {
  684.     DisplayCharsetMatchLocale = TRUE;
  685.     }
  686.  
  687. #if !defined(LOCALE)
  688.        DisplayCharsetMatchLocale = FALSE;
  689. #endif
  690. #if defined(EXP_8BIT_TOUPPER)
  691.     /*
  692.     ** Force disable locale,
  693.     ** but we have no intention to pass CJK via UCTransChar if that happened.
  694.     ** Let someone from CJK correct this if necessary.
  695.     */
  696.     if  (!LYHaveCJKCharacterSet)
  697.         DisplayCharsetMatchLocale = FALSE;
  698. #endif
  699.  
  700.     return;
  701. }
  702.  
  703. /*
  704.  *  Entity names -- Ordered by ISO Latin 1 value.
  705.  *  ---------------------------------------------
  706.  *   For conversions of DECIMAL escaped entities.
  707.  *   Must be in order of ascending value.
  708.  */
  709. PUBLIC CONST char * LYEntityNames[] = {
  710. /*     NAME           DECIMAL VALUE */
  711.     "nbsp",     /* 160, non breaking space */
  712.     "iexcl",    /* 161, inverted exclamation mark */
  713.     "cent",     /* 162, cent sign */
  714.     "pound",    /* 163, pound sign */
  715.     "curren",    /* 164, currency sign */
  716.     "yen",        /* 165, yen sign */
  717.     "brvbar",    /* 166, broken vertical bar, (brkbar) */
  718.     "sect",     /* 167, section sign */
  719.     "uml",        /* 168, spacing dieresis */
  720.     "copy",     /* 169, copyright sign */
  721.     "ordf",     /* 170, feminine ordinal indicator */
  722.     "laquo",    /* 171, angle quotation mark, left */
  723.     "not",        /* 172, negation sign */
  724.     "shy",        /* 173, soft hyphen */
  725.     "reg",        /* 174, circled R registered sign */
  726.     "hibar",    /* 175, spacing macron */
  727.     "deg",        /* 176, degree sign */
  728.     "plusmn",    /* 177, plus-or-minus sign */
  729.     "sup2",     /* 178, superscript 2 */
  730.     "sup3",     /* 179, superscript 3 */
  731.     "acute",    /* 180, spacing acute (96) */
  732.     "micro",    /* 181, micro sign */
  733.     "para",     /* 182, paragraph sign */
  734.     "middot",    /* 183, middle dot */
  735.     "cedil",    /* 184, spacing cedilla */
  736.     "sup1",     /* 185, superscript 1 */
  737.     "ordm",     /* 186, masculine ordinal indicator */
  738.     "raquo",    /* 187, angle quotation mark, right */
  739.     "frac14",    /* 188, fraction 1/4 */
  740.     "frac12",    /* 189, fraction 1/2 */
  741.     "frac34",    /* 190, fraction 3/4 */
  742.     "iquest",    /* 191, inverted question mark */
  743.     "Agrave",    /* 192, capital A, grave accent */
  744.     "Aacute",    /* 193, capital A, acute accent */
  745.     "Acirc",    /* 194, capital A, circumflex accent */
  746.     "Atilde",    /* 195, capital A, tilde */
  747.     "Auml",     /* 196, capital A, dieresis or umlaut mark */
  748.     "Aring",    /* 197, capital A, ring */
  749.     "AElig",    /* 198, capital AE diphthong (ligature) */
  750.     "Ccedil",    /* 199, capital C, cedilla */
  751.     "Egrave",    /* 200, capital E, grave accent */
  752.     "Eacute",    /* 201, capital E, acute accent */
  753.     "Ecirc",    /* 202, capital E, circumflex accent */
  754.     "Euml",     /* 203, capital E, dieresis or umlaut mark */
  755.     "Igrave",    /* 204, capital I, grave accent */
  756.     "Iacute",    /* 205, capital I, acute accent */
  757.     "Icirc",    /* 206, capital I, circumflex accent */
  758.     "Iuml",     /* 207, capital I, dieresis or umlaut mark */
  759.     "ETH",        /* 208, capital Eth, Icelandic (or Latin2 Dstrok) */
  760.     "Ntilde",    /* 209, capital N, tilde */
  761.     "Ograve",    /* 210, capital O, grave accent */
  762.     "Oacute",    /* 211, capital O, acute accent */
  763.     "Ocirc",    /* 212, capital O, circumflex accent */
  764.     "Otilde",    /* 213, capital O, tilde */
  765.     "Ouml",     /* 214, capital O, dieresis or umlaut mark */
  766.     "times",    /* 215, multiplication sign */
  767.     "Oslash",    /* 216, capital O, slash */
  768.     "Ugrave",    /* 217, capital U, grave accent */
  769.     "Uacute",    /* 218, capital U, acute accent */
  770.     "Ucirc",    /* 219, capital U, circumflex accent */
  771.     "Uuml",     /* 220, capital U, dieresis or umlaut mark */
  772.     "Yacute",    /* 221, capital Y, acute accent */
  773.     "THORN",    /* 222, capital THORN, Icelandic */
  774.     "szlig",    /* 223, small sharp s, German (sz ligature) */
  775.     "agrave",    /* 224, small a, grave accent */
  776.     "aacute",    /* 225, small a, acute accent */
  777.     "acirc",    /* 226, small a, circumflex accent */
  778.     "atilde",    /* 227, small a, tilde */
  779.     "auml",     /* 228, small a, dieresis or umlaut mark */
  780.     "aring",    /* 229, small a, ring */
  781.     "aelig",    /* 230, small ae diphthong (ligature) */
  782.     "ccedil",    /* 231, small c, cedilla */
  783.     "egrave",    /* 232, small e, grave accent */
  784.     "eacute",    /* 233, small e, acute accent */
  785.     "ecirc",    /* 234, small e, circumflex accent */
  786.     "euml",     /* 235, small e, dieresis or umlaut mark */
  787.     "igrave",    /* 236, small i, grave accent */
  788.     "iacute",    /* 237, small i, acute accent */
  789.     "icirc",    /* 238, small i, circumflex accent */
  790.     "iuml",     /* 239, small i, dieresis or umlaut mark */
  791.     "eth",        /* 240, small eth, Icelandic */
  792.     "ntilde",    /* 241, small n, tilde */
  793.     "ograve",    /* 242, small o, grave accent */
  794.     "oacute",    /* 243, small o, acute accent */
  795.     "ocirc",    /* 244, small o, circumflex accent */
  796.     "otilde",    /* 245, small o, tilde */
  797.     "ouml",     /* 246, small o, dieresis or umlaut mark */
  798.     "divide",    /* 247, division sign */
  799.     "oslash",    /* 248, small o, slash */
  800.     "ugrave",    /* 249, small u, grave accent */
  801.     "uacute",    /* 250, small u, acute accent */
  802.     "ucirc",    /* 251, small u, circumflex accent */
  803.     "uuml",     /* 252, small u, dieresis or umlaut mark */
  804.     "yacute",    /* 253, small y, acute accent */
  805.     "thorn",    /* 254, small thorn, Icelandic */
  806.     "yuml",     /* 255, small y, dieresis or umlaut mark */
  807. };
  808.  
  809. /*
  810.  *  Function to return the entity names of
  811.  *  ISO-8859-1 8-bit characters. - FM
  812.  */
  813. PUBLIC CONST char * HTMLGetEntityName ARGS1(
  814.     UCode_t,    code)
  815. {
  816. #define IntValue code
  817.     int MaxValue = ((sizeof(LYEntityNames)/sizeof(char **)) - 1);
  818.  
  819.     if (IntValue < 0 || IntValue > MaxValue) {
  820.     return "";
  821.     }
  822.  
  823.     return LYEntityNames[IntValue];
  824. }
  825.  
  826. /*
  827.  *  Function to return the UCode_t (long int) value for entity names
  828.  *  in the ISO_Latin1 and UC_entity_info unicode_entities arrays.
  829.  *  It returns 0 if not found. - FM
  830.  *
  831.  *  unicode_entities[] now handles all the names from old style entities[] too.
  832.  *  Lynx now calls unicode_entities[] only through this function:
  833.  *  HTMLGetEntityUCValue().  Note, we need not check for special characters
  834.  *  here in function or even before it, we should check them *after*
  835.  *  invoking this function, see put_special_unicodes() in SGML.c.
  836.  *
  837.  *  In the future we will try to isolate all calls to entities[]
  838.  *  in favor of new unicode-based chartrans scheme. - LP
  839.  */
  840. PUBLIC UCode_t HTMLGetEntityUCValue ARGS1(
  841.     CONST char *,    name)
  842. {
  843.     UCode_t value = 0;
  844.     size_t i, high, low;
  845.     int diff = 0;
  846. /*  CONST char ** entities = HTML_dtd.entity_names;  */
  847.     CONST UC_entity_info * unicode_entities = HTML_dtd.unicode_entity_info;
  848.  
  849.     /*
  850.      *    Make sure we have a non-zero length name. - FM
  851.      */
  852.     if (!(name && *name))
  853.     return(value);
  854.  
  855.  
  856. #ifdef NOTDEFINED
  857. /*
  858. **  unicode_entities[] now handles all names from entities[], so disable latter.
  859. **  Let us keep this some sort of comment until we remove
  860. **  all calls to old-style entities[] from the code. - LP
  861. */
  862.  
  863.     /*
  864.      *    Handle names that have control characters
  865.      *    or strings in ISO_Latin1[]. - FM
  866.      */
  867.     if (!strcmp(name, "nbsp")) {
  868.     return(160);
  869.     }
  870.     if (!strcmp(name, "shy")) {
  871.     return(173);
  872.     }
  873.     if (!strcmp(name, "ensp")) {
  874.     return(8194);
  875.     }
  876.     if (!strcmp(name, "emsp")) {
  877.     return(8195);
  878.     }
  879.     if (!strcmp(name, "thinsp")) {
  880.     return(8201);
  881.     }
  882.     if (!strcmp(name, "ndash") ||
  883.     !strcmp(name, "endash")) {
  884.     return(8211);
  885.     }
  886.     if (!strcmp(name, "mdash") ||
  887.     !strcmp(name, "emdash")) {
  888.     return(8212);
  889.     }
  890.     if (!strcmp(name, "trade")) {
  891.     return(8482);
  892.     }
  893.  
  894.     /*
  895.      *    Now try ISO_Latin1[]. - FM
  896.      */
  897.     for (low = 0, high = HTML_dtd.number_of_entities;
  898.      high > low;
  899.      diff < 0 ? (low = i+1) : (high = i)) {
  900.     /*
  901.     **  Binary search.
  902.     */
  903.     i = (low + (high-low)/2);
  904.     diff = strcmp(entities[i], name);
  905.     if (diff == 0) {
  906.         if (strlen(ISO_Latin1[i]) == 1) {
  907.         value = (unsigned char)(ISO_Latin1[i][0]);
  908.         }
  909.         break;
  910.     }
  911.     }
  912.     if (value > 0) {
  913.     return(value);
  914.     }
  915.  
  916.     /*
  917.      *    Not yet found...    - FM
  918.      */
  919. #endif /* NOTDEFINED */
  920.  
  921.     /*
  922.      *    Try UC_entity_info unicode_entities[].
  923.      */
  924.     for (low = 0, high = HTML_dtd.number_of_unicode_entities;
  925.      high > low;
  926.      diff < 0 ? (low = i+1) : (high = i)) {
  927.     /*
  928.     **  Binary search.
  929.     */
  930.     i = (low + (high-low)/2);
  931.     diff = strcmp(unicode_entities[i].name, name);    /* Case sensitive! */
  932.     if (diff == 0) {
  933.         value = unicode_entities[i].code;
  934.         break;
  935.     }
  936.     }
  937.  
  938.     return(value);
  939. }
  940.  
  941. /*
  942.  *  Function to select a character set and then set the
  943.  *  character handling and LYHaveCJKCharacterSet flag. - FM
  944.  */
  945. PUBLIC void HTMLUseCharacterSet ARGS1(int,i)
  946. {
  947.     p_entity_values = LYCharSets[i];
  948.     HTMLSetCharacterHandling(i);
  949.     HTMLSetHaveCJKCharacterSet(i);
  950.     HTMLSetDisplayCharsetMatchLocale(i);
  951.     return;
  952. }
  953.  
  954. /*
  955.  *  Initializer, calls initialization function for the
  956.  *  CHARTRANS handling. - KW
  957.  */
  958. PUBLIC int LYCharSetsDeclared NOPARAMS
  959. {
  960.     UCInit();
  961.  
  962.     if (UCAssume_MIMEcharset && *UCAssume_MIMEcharset) {
  963.     UCLYhndl_for_unspec = UCGetLYhndl_byMIME(UCAssume_MIMEcharset);
  964.     } else {
  965.     UCLYhndl_for_unspec = 0;
  966.     }
  967.     if (UCAssume_localMIMEcharset && *UCAssume_localMIMEcharset)
  968.     UCLYhndl_HTFile_for_unspec =
  969.         UCGetLYhndl_byMIME(UCAssume_localMIMEcharset);
  970.     if (UCAssume_unrecMIMEcharset && *UCAssume_unrecMIMEcharset)
  971.     UCLYhndl_for_unrec =
  972.         UCGetLYhndl_byMIME(UCAssume_unrecMIMEcharset);
  973.  
  974.     return UCInitialized;
  975. }
  976.