#!/usr/bin/perl
#-*-Perl-*-

# Tex2csx converts TeX files containing Indian language
# material in accented Roman script into the CSX encoding
# developed for use with such languages. If no input file
# is specified, tex2csx reads from standard input.

while (<>) {
    s/\\c\{C\}/\200/g;
    s/\\"u/\201/g;
    s/\\'e/\202/g;
    s/\\\^a/\203/g;
    s/\\"a/\204/g;
    s/\\`a/\205/g;
    s/\{\\aa\}/\206/g;
    s/\\c\{c\}/\207/g;
    s/\\\^e/\210/g;
    s/\\"e/\211/g;
    s/\\`e/\212/g;
    s/\\"i/\213/g;
    s/\\\^i/\214/g;
    s/\\`i/\215/g;
    s/\\"A/\216/g;
    s/\{\\AA\}/\217/g;
    s/\\'E/\220/g;
    s/\{\\ae\}/\221/g;
    s/\{\\AE\}/\222/g;
    s/\\\^o/\223/g;
    s/\\"o/\224/g;
    s/\\`o/\225/g;
    s/\\\^u/\226/g;
    s/\\`u/\227/g;
    s/\\"y/\230/g;
    s/\\"O/\231/g;
    s/\\"U/\232/g;
    s/\\b\{r\}/\237/g;
    s/\\'a/\240/g;
    s/\\'i/\241/g;
    s/\\'o/\242/g;
    s/\\'u/\243/g;
    s/\\~n/\244/g;
    s/\\~N/\245/g;
    s/\{\\accent"7E l\}/\246/g;
    s/\\:m/\247/g;
    s/\\mb\{a\}/\250/g;
    s/\\mb\{i\}/\251/g;
    s/\\mb\{u\}/\252/g;
    s/\\!a/\253/g;
    s/\\!i/\254/g;
    s/\\b\{n\}/\255/g;
    s/\\ma\{a\}/\265/g;
    s/\\mg\{a\}/\266/g;
    s/\\ma\{i\}/\267/g;
    s/\\mg\{i\}/\270/g;
    s/\\ma\{u\}/\275/g;
    s/\\mg\{u\}/\276/g;
    s/\\'r/\306/g;
    s/\\`r/\307/g;
    s/\\ma\{r\}/\317/g;
    s/\\~a/\320/g;
    s/\\~i/\321/g;
    s/\\~u/\322/g;
    s/\\~e/\323/g;
    s/\\~o/\324/g;
    s/\\u\{e\}/\325/g;
    s/\\u\{o\}/\326/g;
    s/\\b\{l\}/\327/g;
    s/\\!u/\330/g;
    s/\\=a/\340/g;
    s/\{\\ss\}/\341/g;
    s/\\=A/\342/g;
    s/\\=i/\343/g;
    s/\\=I/\344/g;
    s/\\=u/\345/g;
    s/\\=U/\346/g;
    s/\\\.r/\347/g;
    s/\\\.R/\350/g;
    s/\\=r/\351/g;
    s/\\=R/\352/g;
    s/\\\.l/\353/g;
    s/\\\.L/\354/g;
    s/\\=l/\355/g;
    s/\\=L/\356/g;
    s/\\:n/\357/g;
    s/\\:N/\360/g;
    s/\\\.t/\361/g;
    s/\\\.T/\362/g;
    s/\\\.d/\363/g;
    s/\\\.D/\364/g;
    s/\\\.n/\365/g;
    s/\\\.N/\366/g;
    s/\\'s/\367/g;
    s/\\'S/\370/g;
    s/\\\.s/\371/g;
    s/\\\.S/\372/g;
    s/\\\.m/\374/g;
    s/\\\.M/\375/g;
    s/\\\.h/\376/g;
    s/\\\.H/\377/g;
    print;
}
