/*
 *  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()));
    }
}
