summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/ptexdir/kanji_dump.c
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/ptexdir/kanji_dump.c')
-rw-r--r--Build/source/texk/web2c/ptexdir/kanji_dump.c51
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()));
- }
-}