1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
/*
* 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()));
}
}
|
