ckuxla.c

来自「C-Kermit源码。是使用串口/Modem和网络通讯的程序」· C语言 代码 · 共 1,219 行 · 第 1/5 页

  "Japanese EUC",	  16384, FC_JEUC,    NULL, AL_JAPAN, "euc-jp",
  "Japanese DEC Kanji",	  16384, FC_JDEC,    NULL, AL_JAPAN, "dec-kanji",
  "Hebrew-7 DEC",           128, FC_HE7,     NULL, AL_HEBREW, "hebrew-7",
  "ISO 8859-8 Latin/Hebrew",256, FC_HEBREW,  NULL, AL_HEBREW, "hebrew-iso",
  "CP862 Hebrew",           256, FC_CP862,   NULL, AL_HEBREW, "cp862-hebrew",
  "ELOT 927 Greek",         128, FC_ELOT,    NULL, AL_GREEK, "elot927-greek",
  "ISO 8859-7 Latin/Greek", 256, FC_GREEK,   NULL, AL_GREEK, "greek-iso",
  "CP869 Greek",            256, FC_CP869,   NULL, AL_GREEK, "cp869-greek",
  "ISO 8859-15 Latin-9",    256, FC_9LATIN,  NULL, AL_ROMAN, "latin9-iso",
  "PC Code Page 858",       256, FC_CP850,   NULL, AL_ROMAN, "cp858",
  "PC Code Page 855",       256, FC_CP855,   NULL, AL_CYRIL, "cp855-cyrillic",
  "Windows Code Page 1251", 256, FC_CP1251,  NULL, AL_CYRIL, "cp1251-cyrillic",
  "Bulgarian PC Code Page", 256, FC_BULGAR,  NULL, AL_CYRIL, "bulgaria-pc",
  "Windows Code Page 1250", 256, FC_CP1250,  NULL, AL_ROMAN, "cp1250",
  "Polish Mazovia PC Code Page", 256, FC_MAZOVIA, NULL, AL_ROMAN, "mazovia-pc",
  "ISO 10646 / Unicode UCS-2", 64000, FC_UCS2, NULL, AL_UNIV, "ucs2",
  "ISO 10646 / Unicode UTF-8", 64000, FC_UCS2, NULL, AL_UNIV, "utf8",
  "KOI8-R Russian+Boxdrawing",256,  FC_KOI8R, NULL, AL_CYRIL,"koi8r",
  "KOI8-U Ukrainian+Boxdrawing",256,FC_KOI8U, NULL, AL_CYRIL,"koi8u",
  "",0,0,NULL,0,NULL
};

/* Local file character sets */
/* Includes 7-bit National Replacement Character Sets of ISO 646 */
/* Plus ISO Latin-1, DEC Multinational Character Set (MCS), NeXT char set, */
/* Various PC and Windows code pages, etc. */

struct keytab fcstab[] = { /* Keyword table for 'set file character-set' */
/*
  IMPORTANT: This table is replicated below as ttcstab (terminal character
  set table).  The only differences are the addition of TRANSPARENT
  and the removal of the Kanji sets, which are not supported yet.
  If you make changes to this table, also change ttcstab.
*/

/* Keyword             Value       Flags */
    "apple-quickdraw",    FC_APPQD,   CM_INV, /* Apple Quickdraw */
    "ascii",              FC_USASCII, 0, /* ASCII */
    "british",            FC_UKASCII, 0, /* British NRC */
    "bulgaria-pc",        FC_BULGAR,  0, /* Bulgarian PC Code Page */
    "canadian-french",    FC_FCASCII, 0, /* French Canadian NRC */
#ifdef LATIN2
    "cp1250",             FC_CP1250,  0, /* Windows CP 1250 */
#endif /* LATIN2 */
#ifdef CYRILLIC
    "cp1251-cyrillic",    FC_CP1251,  0, /* Windows CP 1251 */
#endif /* CYRILLIC */
    "cp1252",             FC_1LATIN,  0, /* ISO Latin Alphabet 1 */
    "cp437",              FC_CP437,   0, /* PC CP437 */
    "cp850",              FC_CP850,   0, /* PC CP850 */
#ifdef LATIN2
    "cp852",              FC_CP852,   0, /* PC CP852 */
#endif /* LATIN2 */
#ifdef CYRILLIC
    "cp855-cyrillic",     FC_CP855,   0, /* PC CP855 */
#endif /* CYRILLIC */
    "cp858",              FC_CP858,   0, /* PC CP858 */
#ifdef HEBREW
    "cp862-hebrew",       FC_CP862,   0, /* PC CP862 */
#endif /* HEBREW */
#ifdef CYRILLIC
    "cp866-cyrillic",     FC_CP866,   0, /* CP866 Cyrillic */
#endif /* CYRILLIC */
#ifdef GREEK
    "cp869-greek",        FC_CP869,   0, /* CP869 Greek */
#endif /* GREEK */
#ifdef CYRILLIC
    "cyrillic-iso",       FC_CYRILL,  0, /* ISO Latin/Cyrillic Alphabet */
#endif /* CYRILLIC */
    "danish",             FC_NOASCII, 0, /* Norwegian and Danish NRC */
#ifdef KANJI
    "dec-kanji",          FC_JDEC,    0, /* Japanese DEC Kanji */
#endif /* KANJI */
    "dec-multinational",  FC_DECMCS,  0, /* DEC multinational character set */
    "dg-international",   FC_DGMCS,   0, /* Data General multinational */
    "dutch",              FC_DUASCII, 0, /* Dutch NRC */
#ifdef GREEK
    "elot927-greek",      FC_ELOT,    0, /* ELOT 927 Greek */
    "elot928-greek",      FC_GREEK,   0, /* Same as ISO 8859-7 Latin/Greek */
#endif /* GREEK */
#ifdef KANJI
    "euc-jp",             FC_JEUC,    0, /* Japanese EUC */
#endif /* KANJI */
    "finnish",            FC_FIASCII, 0, /* Finnish NRC */
    "french",             FC_FRASCII, 0, /* French NRC */
    "fr-canadian",        FC_FCASCII, CM_INV, /* French Canadian NRC */
    "german",             FC_GEASCII, 0, /* German NRC */
#ifdef GREEK
    "greek-iso",          FC_GREEK,   0, /* ISO 8859-7 Latin/Greek */
#endif /* GREEK */
#ifdef HEBREW
    "he",                 FC_HEBREW,  CM_ABR|CM_INV,
    "heb",                FC_HEBREW,  CM_ABR|CM_INV,
    "hebr",               FC_HEBREW,  CM_ABR|CM_INV,
    "hebre",              FC_HEBREW,  CM_ABR|CM_INV,
    "hebrew",             FC_HEBREW,  CM_ABR|CM_INV,
    "hebrew-7",           FC_HE7,     0, /* DEC 7-Bit Hebrew */
    "hebrew-iso",         FC_HEBREW,  0, /* ISO Latin/Hebrew */
#endif /* HEBREW */
    "hp-roman8",          FC_HPR8,    0, /* Hewlett Packard Roman8 */
    "hungarian",          FC_HUASCII, 0, /* Hungarian NRC */
#ifdef KANJI
    "iso2022jp-kanji",    FC_JIS7,    0, /* Synonym for JIS-7 */
#endif /* KANJI */
    "italian",            FC_ITASCII, 0, /* Italian NRC */
#ifdef KANJI
    "japanese-euc",       FC_JEUC,    CM_INV, /* Japanese EUC */
    "jis7-kanji",         FC_JIS7,    0, /* Japanese JIS7 7bit code */
#endif /* KANJI */
#ifdef CYRILLIC
    "k",                  FC_KOI8,    CM_ABR|CM_INV,
    "ko",                 FC_KOI8,    CM_ABR|CM_INV,
    "koi",                FC_KOI8,    CM_ABR|CM_INV,
    "koi8",               FC_KOI8,    0, /* Old KOI-8 Cyrillic */
    "koi8-cyrillic",      FC_KOI8,    CM_INV,
    "koi8r",              FC_KOI8R,   0, /* KOI8-R RFC1489 */
    "koi8u",              FC_KOI8U,   0, /* KOI8-U RFC2319 */
#endif /* CYRILLIC */
    "l",                  FC_1LATIN,  CM_ABR|CM_INV,
    "la",                 FC_1LATIN,  CM_ABR|CM_INV,
    "lat",                FC_1LATIN,  CM_ABR|CM_INV,
    "lati",               FC_1LATIN,  CM_ABR|CM_INV,
    "latin",              FC_1LATIN,  CM_ABR|CM_INV,
    "latin1-iso",         FC_1LATIN,  0, /* ISO Latin Alphabet 1 */
#ifdef LATIN2
    "latin2-iso",         FC_2LATIN,  0, /* ISO Latin Alphabet 2 */
#endif /* LATIN2 */
    "latin9-iso",         FC_9LATIN,  0, /* ISO Latin Alphabet 9 */
    "macintosh-latin",    FC_APPQD,   0, /* "Extended Mac Latin" */
#ifdef LATIN2
    "mazovia-pc",         FC_MAZOVIA, 0, /* Polish Mazovia PC code page */
#endif /* LATIN2 */
    "next-multinational", FC_NEXT,    0, /* NeXT workstation */
    "norwegian",          FC_NOASCII, 0, /* Norwegian and Danish NRC */
    "portuguese",         FC_POASCII, 0, /* Portuguese NRC */
#ifdef KANJI
    "shift-jis-kanji",    FC_SHJIS,   0, /* Japanese Kanji Shift-JIS */
#endif /* KANJI */
#ifdef CYRILLIC
    "short-koi",          FC_KOI7,    0, /* Short KOI Cyrillic */
#endif /* CYRILLIC */
    "spanish",            FC_SPASCII, 0, /* Spanish NRC */
    "swedish",            FC_SWASCII, 0, /* Swedish NRC */
    "swiss",              FC_CHASCII, 0, /* Swiss NRC */
#ifdef UNICODE
    "ucs2",               FC_UCS2,    0, /* ISO 10646 / Unicode UCS-2 */
    "utf8",               FC_UTF8,    0, /* ISO 10646 / Unicode UTF-8 */
#endif /* UNICODE */
    "", 0, 0
};
int nfilc = (sizeof(fcstab) / sizeof(struct keytab)) - 1;

struct keytab ttcstab[] = { /* Keyword table for SET TERMINAL CHARACTER-SET */
/*
  IMPORTANT: This table is a replica of fcstab, immediately above, with the
  addition of TRANSPARENT and deletion of the Japanese sets.  If you make
  changes to this table, make the corresponding changes to fcstab.
*/
/* Keyword               Value       Flags */
    "apple-quickdraw",    FC_APPQD,   CM_INV, /* Apple Quickdraw */
    "ascii",              FC_USASCII, 0, /* ASCII */
    "british",            FC_UKASCII, 0, /* British NRC */
    "bulgaria-pc",        FC_BULGAR,  0, /* Bulgarian PC Code Page */
    "canadian-french",    FC_FCASCII, 0, /* French Canadian NRC */
#ifdef LATIN2
    "cp1250",             FC_CP1250,  0, /* Windows CP 1250 */
#endif /* LATIN2 */
#ifdef CYRILLIC
    "cp1251-cyrillic",    FC_CP1251,  0, /* Windows CP 1251 */
#endif /* CYRILLIC */
    "cp1252",             FC_1LATIN,  0, /* Windows CP 1252 = Latin 1 */
    "cp437",              FC_CP437,   0, /* IBM CP437 */
    "cp850",              FC_CP850,   0, /* IBM CP850 */
#ifdef LATIN2
    "cp852",              FC_CP852,   0, /* IBM CP852 */
#endif /* LATIN2 */
#ifdef CYRILLIC
    "cp855-cyrillic",     FC_CP855,   0, /* PC CP855 */
#endif /* CYRILLIC */
    "cp858",              FC_CP858,   0, /* PC CP858 */
#ifdef HEBREW
    "cp862-hebrew",       FC_CP862,   0, /* PC CP862 */
#endif /* HEBREW */
#ifdef CYRILLIC
    "cp866-cyrillic",     FC_CP866,   0, /* CP866 Cyrillic */
#endif /* CYRILLIC */
#ifdef GREEK
    "cp869-greek",        FC_CP869,   0, /* CP869 Greek */
#endif /* GREEK */
#ifdef CYRILLIC
    "cyrillic-iso",       FC_CYRILL,  0, /* ISO Latin/Cyrillic Alphabet */
#endif /* CYRILLIC */
    "danish",             FC_NOASCII, 0, /* Norwegian and Danish NRC */
#ifdef COMMENT
#ifdef KANJI
    "dec-kanji",          FC_JDEC,    0, /* Japanese DEC Kanji */
#endif /* KANJI */
#endif /* COMMENT */
    "dec-multinational",  FC_DECMCS,  0, /* DEC multinational character set */
    "dg-international",   FC_DGMCS,   0, /* Data General multinational */
    "dutch",              FC_DUASCII, 0, /* Dutch NRC */
#ifdef GREEK
    "elot927-greek",      FC_ELOT,    0, /* ELOT 927 Greek */
    "elot928-greek",      FC_GREEK,   0, /* Same as ISO 8859-7 Latin/Greek */
#endif /* GREEK */
    "finnish",            FC_FIASCII, 0, /* Finnish NRC */
    "french",             FC_FRASCII, 0, /* French NRC */
    "fr-canadian",        FC_FCASCII, CM_INV, /* French Canadian NRC */
    "german",             FC_GEASCII, 0, /* German NRC */
#ifdef GREEK
    "greek-iso",          FC_GREEK,   0, /* ISO 8859-7 Latin/Greek */
#endif /* GREEK */
#ifdef HEBREW
    "he",                 FC_HEBREW,  CM_ABR|CM_INV,
    "heb",                FC_HEBREW,  CM_ABR|CM_INV,
    "hebr",               FC_HEBREW,  CM_ABR|CM_INV,
    "hebre",              FC_HEBREW,  CM_ABR|CM_INV,
    "hebrew",             FC_HEBREW,  CM_ABR|CM_INV,
    "hebrew-7",           FC_HE7,     0, /* DEC 7-Bit Hebrew */
    "hebrew-iso",         FC_HEBREW,  0, /* ISO Latin/Hebrew */
#endif /* HEBREW */
    "hp-roman8",          FC_HPR8,    0, /* Hewlett Packard Roman8 */
    "hungarian",          FC_HUASCII, 0, /* Hungarian NRC */
    "italian",            FC_ITASCII, 0, /* Italian NRC */
#ifdef COMMENT
/* Kanji terminal character sets not implemented yet */
#ifdef KANJI
    "japanese-euc",       FC_JEUC,    0, /* Japanese EUC */
    "jis7-kanji",         FC_JIS7,    0, /* Japanese JIS7 7bit code */
#endif /* KANJI */
#endif /* COMMENT */
#ifdef CYRILLIC
    "k",                  FC_KOI8,    CM_ABR|CM_INV,
    "ko",                 FC_KOI8,    CM_ABR|CM_INV,
    "koi",                FC_KOI8,    CM_ABR|CM_INV,
    "koi8",               FC_KOI8,    0, /* Old KOI-8 Cyrillic */
    "koi8-cyrillic",      FC_KOI8,    CM_INV,
    "koi8r",              FC_KOI8R,   0, /* KOI8-R RFC1489 */
    "koi8u",              FC_KOI8U,   0, /* KOI8-U RFC2319 */
#endif /* CYRILLIC */
    "l",                  FC_1LATIN,  CM_ABR|CM_INV,
    "la",                 FC_1LATIN,  CM_ABR|CM_INV,
    "lat",                FC_1LATIN,  CM_ABR|CM_INV,
    "lati",               FC_1LATIN,  CM_ABR|CM_INV,