diff options
Diffstat (limited to 'Build/source/texk/web2c/ptexdir/kanji_dump.c')
-rw-r--r-- | Build/source/texk/web2c/ptexdir/kanji_dump.c | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/Build/source/texk/web2c/ptexdir/kanji_dump.c b/Build/source/texk/web2c/ptexdir/kanji_dump.c deleted file mode 100644 index 7ba7834abe4..00000000000 --- a/Build/source/texk/web2c/ptexdir/kanji_dump.c +++ /dev/null @@ -1,51 +0,0 @@ -/* - * Dump/undump Kanji encoding for (e)ptex. - */ - -#include "kanji.h" -#ifndef pTeX -#define pTeX -#endif -#include <texmfmp.h> - -void dump_kanji (gzFile fp) -{ - char buffer[12]; - const char *p = get_enc_string (); - size_t len = strlen (p); - - if (len > 11) { - fprintf (stderr, "Kanji encoding string \"%s\" exceeds 11 bytes.\n", p); - uexit(1); - } - - strcpy (buffer, p); - for (len++; len < 12; len++) - buffer[len] = 0; - do_dump (buffer, 1, 12, fp); -} - -void undump_kanji (gzFile fp) -{ - char buffer[12]; - char *p; - int i; - - do_undump (buffer, 1, 12, fp); - buffer[11] = 0; /* force string termination, just in case */ - - p = strchr (buffer, '.'); - if (p) - *p++ = 0; - else - p = buffer; - - i = get_internal_enc(); - - /* Now BUFFER and P are the file and internal encoding strings. */ - init_kanji (NULL, p); - if (get_internal_enc() != i) { - fprintf (stderr, "Kanji internal encoding incompatible with the preloaded format.\n"); - fprintf (stderr, "I'll stick to %s.\n", enc_to_string(get_internal_enc())); - } -} |