#!/usr/local/bin/perl -w
#
# Convert from (La)TeX encoding into ISO 8896 Latin 2
# Works on LaTeX encodings (\v{csz} \v csz "csz) or 
# HTML rendering of "csz, i.e. "csz
#$/ = "";

$c = "\xE8";
$C = "\xC8";
$s = "\xB9";
$S = "\xA9";
$z = "\xBE";
$Z = "\xAE";

while (<>) {
    if (/"[cszCSZ]/) {
        s/"c/$c/g;
        s/"C/$C/g;
        s/"s/$s/g;
        s/"S/$S/g;
        s/"z/$z/g;
	s/"Z/$Z/g;
    }

    if (/\\v.?[cszCSZ]/) {
        s/\\v c/$c/g;
        s/\\v C/$C/g;
        s/\\v s/$s/g;
        s/\\v S/$S/g;
        s/\\v z/$z/g;
        s/\\v Z/$Z/g;

        s/\\v\{c\}/$c/g;
        s/\\v\{C\}/$C/g;
        s/\\v\{s\}/$s/g;
        s/\\v\{S\}/$S/g;
        s/\\v\{z\}/$z/g;
        s/\\v\{Z\}/$Z/g;
    }

    if (/\&quot\;[cszCSZ]/) {
        s/\&quot\;c/$c/g;
        s/\&quot\;C/$C/g;
        s/\&quot\;s/$s/g;
        s/\&quot\;S/$S/g;
        s/\&quot\;z/$z/g;
        s/\&quot\;Z/$Z/g;
    }

    print;
}