diff options
author | Takuji Tanaka <ttk@t-lab.opal.ne.jp> | 2019-05-06 08:22:16 +0000 |
---|---|---|
committer | Takuji Tanaka <ttk@t-lab.opal.ne.jp> | 2019-05-06 08:22:16 +0000 |
commit | 9a5b4e551798043dc44610e9ba019a22a4a2d4e1 (patch) | |
tree | 1e6410926c7c408c68bc292ae637d4302ee476b3 /Build/source/texk/web2c/uptexdir/kanji.c | |
parent | 82966de3217136dac127404969de645bc34e6578 (diff) |
upTeX 1.25
git-svn-id: svn://tug.org/texlive/trunk@51021 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/uptexdir/kanji.c')
-rw-r--r-- | Build/source/texk/web2c/uptexdir/kanji.c | 34 |
1 files changed, 31 insertions, 3 deletions
diff --git a/Build/source/texk/web2c/uptexdir/kanji.c b/Build/source/texk/web2c/uptexdir/kanji.c index ae6d7b87013..2d7c9278086 100644 --- a/Build/source/texk/web2c/uptexdir/kanji.c +++ b/Build/source/texk/web2c/uptexdir/kanji.c @@ -444,7 +444,7 @@ integer kcatcodekey(integer c) || (LATIN_SMALL_LETTER_O_WITH_STROKE <=c && c<=LATIN_SMALL_LETTER_Y_WITH_DIAERESIS ) ) return 0x1FD; } - if (block==0xa0) { + if (block==0xa1) { /* Fullwidth ASCII variants except for U+FF01..FF0F, U+FF1A..FF20, U+FF3B..FF40, U+FF5B..FF5E */ if ( (FULLWIDTH_DIGIT_0 <=c && c<=FULLWIDTH_DIGIT_9 ) || (FULLWIDTH_CAPITAL_A<=c && c<=FULLWIDTH_CAPITAL_Z) @@ -485,8 +485,6 @@ void init_default_kanji (const_string file_str, const_string internal_str) { char *p; - enable_UPTEX (true); /* enable */ - init_kanji (file_str, internal_str); p = getenv ("PTEX_KANJI_ENC"); @@ -504,3 +502,33 @@ void init_default_kanji (const_string file_str, const_string internal_str) } #endif } + +void init_default_kanji_select(void) +{ + char *base; + + base = kpse_program_basename (argv[0]); + + if (FILESTRNCASEEQ(base, "p", 1) || FILESTRNCASEEQ(base, "ep", 2)) { + + enable_UPTEX (false); /* disable */ +#if defined(WIN32) +/* pBibTeX is EUC only */ + if (FILESTRNCASEEQ(base, "pbibtex", 7)) { + init_default_kanji(NULL, "euc"); + } else { +/* for pTeX, e-pTeX, pDVItype, pPLtoTF, and pTFtoPL */ + init_default_kanji(NULL, "sjis"); + } +#else + init_default_kanji(NULL, "euc"); +#endif + + } else { + +/* for upTeX, e-upTeX, upBibTeX, upDVItype, upPLtoTF, and upTFtoPL */ + enable_UPTEX (true); /* enable */ + init_default_kanji ("utf8", "uptex"); + + } +} |