#!/bin/sh
case $1 in
    -euc)  kanji=EUC;  ikanji=EUC;  fkanji=SJIS ;;
    -sjis) kanji=SJIS; ikanji=SJIS; fkanji=EUC ;;
    -jis)  kanji=JIS;  ikanji=EUC;  fkanji=SJIS ;;
     *)    echo "    Usage: `basename $0` -euc|-sjis|-jis" ; exit ;;
esac

if [ ! -f ptex.chg ]; then
    echo "ptex.chg is not found."
    exit
fi

sed -e "/^#ifndef JPN/,/^#else JPN/d;
        /^#ifdef JPN/d; /^#endif JPN/d;
        /^#ifdef $fkanji/,/^#endif $fkanji/d;
        /^#ifdef $ikanji/d; /^#endif $ikanji/d;
        s/output-kanji-code/$kanji/" ptex.chg > tex.ch

