diff options
Diffstat (limited to 'Build/source/texk/web2c/uptexdir/kanji.c')
-rw-r--r-- | Build/source/texk/web2c/uptexdir/kanji.c | 32 |
1 files changed, 25 insertions, 7 deletions
diff --git a/Build/source/texk/web2c/uptexdir/kanji.c b/Build/source/texk/web2c/uptexdir/kanji.c index b6dd47edd55..533785ccaeb 100644 --- a/Build/source/texk/web2c/uptexdir/kanji.c +++ b/Build/source/texk/web2c/uptexdir/kanji.c @@ -361,13 +361,31 @@ integer multilenbuffchar(integer c) return 0; } -/* FIXME FIXME FIXME FIXME FIXME FIXME FIXME FIXME FIXME FIXME */ -/* Temporary fix for functions still missing in the ptexenc library. */ -boolean is_internalUPTEX(void) { return false; } -boolean ismultichr (int length, int nth, int c) { return false; } -/* FIXME FIXME FIXME FIXME FIXME FIXME FIXME FIXME FIXME FIXME */ - -void initdefaultkanji (void) +void init_default_kanji (const_string file_str, const_string internal_str) { + char *p; + enable_UPTEX (true); /* enable */ + + p = getenv ("PTEX_KANJI_ENC"); + if (p) { + if (!set_enc_string (p, NULL)) + fprintf (stderr, "Ignoring bad kanji encoding \"%s\".\n", p); + } + +#ifdef WIN32 + p = kpse_var_value ("guess_input_kanji_encoding"); + if (p) { + if (*p == '1' || *p == 'y' || *p == 't') + infile_enc_auto = 1; + free(p); + } +#endif + + if (!set_enc_string (file_str, internal_str)) { + fprintf (stderr, "Bad kanji encoding \"%s\" or \"%s\".\n", + file_str ? file_str : "NULL", + internal_str ? internal_str : "NULL"); + uexit(1); + } } |