#!/usr/bin/perl -w
#
# preprocessor for Burmese transliterated text preparing it to be typeset as Burmese by
# LaTeX
# author: Johannes Reese
# date: 6 July 2002
# version: 0.003 (5 August 2002)
# bug reports and comments to: [email protected]
#
# Usage: perl birm.pl <FILE> (without ending; takes <FILE>.bir, produces <FILE>.tex)
#
# description: changes transcribed Burmese syllables into the right character
#              numbers for processing them with LaTeX, only those inside an environment
#              started with {\birm. TeX commands inside such an environment will be left
#              unchanged, only the arguments of \textbf, \emph, \textsc, and \textsf
#              will be changed, too; however, at present, these commands have no effect,
#              as only one script style is provided so far.
# warnings: syllables must end with a space (or punctuation sign plus space)
#
#
# Copyright (c) Joh. Reese 2002
#
# This file is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
#
#  IMPORTANT COPYRIGHT NOTICE:
#
#  Permission is granted to copy this file to another file with a clearly
#  different name and to customize the declarations in that copy to serve
#  the needs of your installation, provided that you do not remove this
#  notice or original copyright notice.

#  However, NO PERMISSION is granted to produce or to distribute a
#  modified version of this file or the ones bound with the package
#  under its original name.

#  You are NOT ALLOWED to change this file.
#
#
if("$ARGV[0].tex")   # protects possibly existing files
{
   print "The file to be produced already exists! Shall it be destroyed, press y\n";
   $Eingabe = <STDIN>;
   if($Eingabe eq "y\n")
   {
       unlink("$ARGV[0].tex");
       print "done!\n";
   }
   else
   {
       print "Okay, don't worry! Nothing happened\n";
       die;
   }
}
open(IN, "$ARGV[0].bir"); # the file with the transliterated text
open(OUT, ">>$ARGV[0].tex"); # the tex-file with the input for Burmese; non-Burmese
# text is left unchanged
$Schalter = 0; # as long as this is 0, nothing will be changed
while(<IN>)
{
   $Line = $_;
   $CharPos = 0;
   $Letzt = 0;
   @Zeile = ();
   $LineLen = length($Line);
   until($CharPos == $LineLen)
   {
       if(substr($Line,$CharPos,1) eq " " || substr($Line,$CharPos,1) eq "\n")
       {
                                  # hopefully, you put a space between each syllable
           $Laenge = $CharPos - $Letzt;
           $zeile = substr($Line,$Letzt,$Laenge); # this is one syllable
           $Letzt = $CharPos;
           push(@Zeile,$zeile); # get a list in order
#to handle every syllable independently
       }
       $CharPos++;
   }
   for($i=0;$i<=$#Zeile;$i++)
   {
       if($Zeile[$i] =~ /\{\\birm/)
       {
           $Zeile[$i] =~ s/\\birm/\\birm\\relsize\{+1\}/g; # the original Burmese font
                                                           # is a bit small
           $Schalter = 1; # puts the substitution routine on
       }
       elsif($Schalter > 0)
       {
           $ZeilPos = 0;
           $ZeilLen = length($Zeile[$i]);
           until($ZeilPos == $ZeilLen)  # allows environments inside a Burmese one
           {
               if(substr($Zeile[$i],$ZeilPos,1) eq "\{")
               {
                   $Schalter++;
               }
               elsif(substr($Zeile[$i],$ZeilPos,1) eq "\}")
               {
                   $Schalter--;
               }
               $ZeilPos++;
           }
           $Zeile[$i] =~ s/\\large/\\relsize\{\+1\}/g;#original Burmese font is small
           $Zeile[$i] =~ s/\\Large/\\relsize\{\+2\}/g;#original Burmese font is small
           $Zeile[$i] =~ s/\\LARGE/\\relsize\{\+3\}/g;#original Burmese font is small
           $Zeile[$i] =~ s/\\huge/\\relsize\{\+4\}/g;#original Burmese font is small
           $Zeile[$i] =~ s/\\Huge/\\relsize\{\+5\}/g;#original Burmese font is small
           $Zeile[$i] =~ s/\\small/\\relsize\{\-1\}/g;#original Burmese font is small
           $Zeile[$i] =~ s/\\footnotesize/\\relsize\{\-2\}/g;#original Burmese font is small
           $Zeile[$i] =~ s/\\scriptsize/\\relsize\{\-3\}/g;#original Burmese font is small
           $Zeile[$i] =~ s/\\tiny/\\relsize\{\-4\}/g;#original Burmese font is small
           unless($Zeile[$i] =~ /\\/) # don't touch TeX commands;
                                      ## unfortunately, arguments to TeX commands
                                      ## will be left unchanged, too
           {
               &tausch;  # run the substitution subroutine
           }
################## begin of list of commands the arguments of which must be changed
           elsif($Zeile[$i] =~ /\\textbf/) # change the arguments of TeX commands,
                                     # but not the commands themselves
           {
               $spalter = index($Zeile[$i],"\{"); # where the argument starts
               $antispalter = length($Zeile[$i]) - $spalter; #the length of the argument
               $Rest = substr($Zeile[$i],0,$spalter); # the TeX command
               $Zeile[$i] = substr($Zeile[$i],$spalter,$antispalter); # the argument
               &tausch; # substitute the argument by the right Burmese characters
               $Zeile[$i] = $Rest . $Zeile[$i]; # put both together again
           }
           elsif($Zeile[$i] =~ /\\emph/) # change the arguments of TeX commands,
                                     # but not the commands themselves
           {
               $spalter = index($Zeile[$i],"\{"); # where the argument starts
               $antispalter = length($Zeile[$i]) - $spalter; #the length of the argument
               $Rest = substr($Zeile[$i],0,$spalter); # the TeX command
               $Zeile[$i] = substr($Zeile[$i],$spalter,$antispalter); # the argument
               &tausch; # substitute the argument by the right Burmese characters
               $Zeile[$i] = $Rest . $Zeile[$i]; # put both together again
           }
           elsif($Zeile[$i] =~ /\\textsc/) # change the arguments of TeX commands,
                                     # but not the commands themselves
           {
               $spalter = index($Zeile[$i],"\{"); # where the argument starts
               $antispalter = length($Zeile[$i]) - $spalter; #the length of the argument
               $Rest = substr($Zeile[$i],0,$spalter); # the TeX command
               $Zeile[$i] = substr($Zeile[$i],$spalter,$antispalter); # the argument
               &tausch; # substitute the argument by the right Burmese characters
               $Zeile[$i] = $Rest . $Zeile[$i]; # put both together again
           }
           elsif($Zeile[$i] =~ /\\textsf/) # change the arguments of TeX commands,
                                     # but not the commands themselves
           {
               $spalter = index($Zeile[$i],"\{"); # where the argument starts
               $antispalter = length($Zeile[$i]) - $spalter; #the length of the argument
               $Rest = substr($Zeile[$i],0,$spalter); # the TeX command
               $Zeile[$i] = substr($Zeile[$i],$spalter,$antispalter); # the argument
               &tausch; # substitute the argument by the right Burmese characters
               $Zeile[$i] = $Rest . $Zeile[$i]; # put both together again
           }
######################### end of repeatable list of commands the arguments of which must be changed
       }
   }
print OUT @Zeile;
print OUT "\n"; # well, everything should appear in the output unchanged now,
               # but the words inside the Burmese environment
}
close(IN);
close(OUT);
1;


## The substitution subroutine

sub tausch{
# exchange the syllable rhyme with the correct Burmese character or character combination
# together with Character 116, the "dummy consonant"
# an 'h' signals the third tone, a '-sign the fourth tone,
# a double vowel indicates the second tone, the first tone is unmarked
# "N" stands for nasalized vowels
# cf. burmguide.ps

$Zeile[$i] =~ s/HNAI\'/XXX89/;
$Zeile[$i] =~ s/YWEI/XXX737/;

$Zeile[$i] =~ s/^ w/ W/;
$Zeile[$i] =~ s/^ y/ Y/;
$Zeile[$i] =~ s/aaN/XXX116XXX114XXX102\{\}/;
$Zeile[$i] =~ s/ahN/XXX116XXX114XXX102XXX59\{\}/;
$Zeile[$i] =~ s/aN/XXX116XXX114XXX102XXX104\{\}/;
$Zeile[$i] =~ s/aaiN/XXX116XXX100XXX107XXX105XXX102\{\}/;
$Zeile[$i] =~ s/aihN/XXX116XXX100XXX107XXX105XXX102XXX59\{\}/;
$Zeile[$i] =~ s/aiN/XXX116XXX100XXX107XXX105XXX102XXX104\{\}/;
$Zeile[$i] =~ s/eeiN/XXX116XXX100XXX114XXX102\{\}/;
$Zeile[$i] =~ s/eihN/XXX116XXX100XXX114XXX102XXX59\{\}/;
$Zeile[$i] =~ s/eiN/XXX116XXX100XXX114XXX102XXX104\{\}/;
$Zeile[$i] =~ s/iiN/XXX116XXX105XXX102\{\}/;
$Zeile[$i] =~ s/ihN/XXX116\{\}XXX105\{\}XXX102\{\}XXX59\{\}\{\}/;
$Zeile[$i] =~ s/iN/XXX116XXX105XXX102XXX104\{\}/;
$Zeile[$i] =~ s/oouN/XXX116XXX107XXX114XXX102\{\}/;
$Zeile[$i] =~ s/ouhN/XXX116XXX107XXX114XXX102XXX59\{\}/;
$Zeile[$i] =~ s/ouN/XXX116XXX107XXX114XXX102XXX104\{\}/;
$Zeile[$i] =~ s/aauN/XXX97XXX116XXX109XXX105XXX102\{\}/;
$Zeile[$i] =~ s/auhN/XXX97XXX116XXX109XXX105XXX102XXX59\{\}/;
$Zeile[$i] =~ s/auN/XXX97XXX116XXX109XXX105XXX102XXX104\{\}/;
$Zeile[$i] =~ s/uuN/XXX116XXX71XXX114XXX102\{\}/;
$Zeile[$i] =~ s/uhN/XXX116XXX71XXX114XXX102XXX59\{\}/;
$Zeile[$i] =~ s/uN/XXX116XXX71XXX114\{\}/;
$Zeile[$i] =~ s/ai\'/XXX116XXX100XXX107XXX117XXX102\{\}/;
$Zeile[$i] =~ s/ei\'/XXX116XXX100XXX121XXX102\{\}/;
$Zeile[$i] =~ s/ou\'/XXX116XXX107XXX121XXX102\{\}/;
$Zeile[$i] =~ s/au\'/XXX97XXX116XXX109XXX117XXX102\{\}/;
$Zeile[$i] =~ s/eei/XXX97XXX116\{\}/;
$Zeile[$i] =~ s/eih/XXX97XXX116XXX59\{\}/;
$Zeile[$i] =~ s/ei/XXX97XXX116XXX104\{\}/;
$Zeile[$i] =~ s/ee/XXX116XXX44XXX102\{\}/;
$Zeile[$i] =~ s/eh/XXX116XXX74\{\}/;
$Zeile[$i] =~ s/e\'/XXX116XXX117XXX102\{\}/;
$Zeile[$i] =~ s/ii/XXX116XXX68\{\}/;
$Zeile[$i] =~ s/ih/XXX116XXX68XXX59\{\}/;
$Zeile[$i] =~ s/i\'/XXX116XXX112XXX102\{\}/;
$Zeile[$i] =~ s/i/XXX116XXX100\{\}/;
$Zeile[$i] =~ s/e/XXX116XXX74XXX104\{\}/;
$Zeile[$i] =~ s/aa/XXX116XXX109\{\}/;
$Zeile[$i] =~ s/ah/XXX116XXX109XXX59\{\}/;
$Zeile[$i] =~ s/a\'/XXX116XXX121XXX102\{\}/;
$Zeile[$i] =~ s/a/XXX116\{\}/;
$Zeile[$i] =~ s/oh/XXX97XXX116\{\}/;
$Zeile[$i] =~ s/ouh/XXX116XXX100XXX107XXX59\{\}/;
$Zeile[$i] =~ s/ou/XXX116XXX100XXX107XXX104\{\}/;
$Zeile[$i] =~ s/oou/XXX116XXX100XXX107\{\}/;
$Zeile[$i] =~ s/oo/XXX97XXX116XXX102\{\}/;
$Zeile[$i] =~ s/o/XXX97XXX116XXX109\{\}/;
$Zeile[$i] =~ s/uu/XXX116XXX108\{\}/;
$Zeile[$i] =~ s/uh/XXX116XXX108XXX59\{\}/;
$Zeile[$i] =~ s/u\'/XXX116XXX71XXX121XXX102\{\}/;
$Zeile[$i] =~ s/u/XXX116XXX107\{\}/;
$Zeile[$i] =~ s/w/�XXX71/;
$Zeile[$i] =~ s/y/�XXX115/;

$Zeile[$i] =~ s/�XXX71XXX116/XXX116XXX71/g;
$Zeile[$i] =~ s/�XXX115XXX116/XXX116XXX115/g;
$Zeile[$i] =~ s/�XXX71XXX97XXX116/XXX97XXX116XXX71/g;
$Zeile[$i] =~ s/�XXX115XXX97XXX116/XXX97XXX116XXX115/g;


$Zeile[$i] =~ s/II/XXX84\{\}/;
$Zeile[$i] =~ s/I/XXX117XXX85XXX107\{\}/;
$Zeile[$i] =~ s/\./XXX47XXX47\{\}/;
$Zeile[$i] =~ s/,/XXX47\{\}/;
$Zeile[$i] =~ s/I2/XXX116\.\{\}/;
$Zeile[$i] =~ s/EI\'/XXX116XXX123\{\}/;
$Zeile[$i] =~ s/OO/XXX116XXX97XXX45XXX111XXX109XXX102/;
$Zeile[$i] =~ s/Oh/XXX116XXX45XXX111/;
$Zeile[$i] =~ s/O/XXX116XXX97XXX45XXX111XXX109XXX104/;
$Zeile[$i] =~ s/UU/XXX116XXX79XXX68/;
$Zeile[$i] =~ s/Uh/XXX116XXX79XXX68XXX59/;
$Zeile[$i] =~ s/U/XXX116XXX79/;


# look if there is a consonant to substitute Character 116, the "dummy consonant"
if($Zeile[$i] =~ /^ Y/){$Zeile[$i] =~ s/XXX116/XXX44/g;$Zeile[$i] =~ s/^ Y/ /g;} # oder XXX38
elsif($Zeile[$i] =~ /^ W/){$Zeile[$i] =~ s/XXX116/XXX48/g;$Zeile[$i] =~ s/^ W/ /g;}
#elsif($Zeile[$i] =~ /y/){$Zeile[$i] =~ s/y/XXX115/g;} # oder XXX106
#elsif($Zeile[$i] =~ /w/){$Zeile[$i] =~ s/w/XXX71/g;}

elsif($Zeile[$i] =~ /hw/){$Zeile[$i] =~ s/XXX116/XXX44XXX83/g;$Zeile[$i] =~ s/hw//g;}
elsif($Zeile[$i] =~ /hl/){$Zeile[$i] =~ s/XXX116/XXX118XXX83/g;$Zeile[$i] =~ s/hl//g;}
elsif($Zeile[$i] =~ /hng/){$Zeile[$i] =~ s/XXX116/XXX105XXX83/g;$Zeile[$i] =~ s/hng//g;}
elsif($Zeile[$i] =~ /hny/){$Zeile[$i] =~ s/XXX116/XXX110XXX83/g;$Zeile[$i] =~ s/hny//g;}
elsif($Zeile[$i] =~ /hn/){$Zeile[$i] =~ s/XXX116/XXX101XXX83/g;$Zeile[$i] =~ s/hn//g;}
elsif($Zeile[$i] =~ /hm/){$Zeile[$i] =~ s/XXX116/XXX114XXX83/g;$Zeile[$i] =~ s/hm//g;}
elsif($Zeile[$i] =~ /^h/){$Zeile[$i] =~ s/XXX116/XXX91/g;$Zeile[$i] =~ s/^h//g;}
elsif($Zeile[$i] =~ /ph/){$Zeile[$i] =~ s/XXX116/XXX122/g;$Zeile[$i] =~ s/ph//g;}
elsif($Zeile[$i] =~ /p/){$Zeile[$i] =~ s/XXX116/XXX121/g;$Zeile[$i] =~ s/p//g;}
elsif($Zeile[$i] =~ /b/){$Zeile[$i] =~ s/XXX116/XXX65/g;$Zeile[$i] =~ s/b//g;} # oder XXX98
#elsif($Zeile[$i] =~ /t2/){$Zeile[$i] =~ s/XXX116/XXX64/g;$Zeile[$i] =~ s/t2//g;}
#elsif($Zeile[$i] =~ /d2/){$Zeile[$i] =~ s/XXX116/XXX89/g;$Zeile[$i] =~ s/d2//g;}
elsif($Zeile[$i] =~ /g2/){$Zeile[$i] =~ s/XXX116/XXX67/g;$Zeile[$i] =~ s/g2//g;}
elsif($Zeile[$i] =~ /n2/){$Zeile[$i] =~ s/XXX116/XXX37/g;$Zeile[$i] =~ s/n2//g;}
elsif($Zeile[$i] =~ /ny2/){$Zeile[$i] =~ s/XXX116/XXX79/g;$Zeile[$i] =~ s/ny2//g;}
elsif($Zeile[$i] =~ /th/){$Zeile[$i] =~ s/XXX116/XXX120/g;$Zeile[$i] =~ s/th//g;} # oder XXX88
elsif($Zeile[$i] =~ /t/){$Zeile[$i] =~ s/XXX116/XXX119/g;$Zeile[$i] =~ s/t//g;}
elsif($Zeile[$i] =~ /d/){$Zeile[$i] =~ s/XXX116/XXX34/g;$Zeile[$i] =~ s/d//g;} # oder gibts nicht
elsif($Zeile[$i] =~ /kh/){$Zeile[$i] =~ s/XXX116/XXX99/g;$Zeile[$i] =~ s/kh//g;}
elsif($Zeile[$i] =~ /k/){$Zeile[$i] =~ s/XXX116/XXX117/g;$Zeile[$i] =~ s/k//g;}
elsif($Zeile[$i] =~ /g/){$Zeile[$i] =~ s/XXX116/XXX42/g;$Zeile[$i] =~ s/g//g;}
elsif($Zeile[$i] =~ /T/){$Zeile[$i] =~ s/XXX116/XXX111/g;$Zeile[$i] =~ s/T//g;}
elsif($Zeile[$i] =~ /sh/){$Zeile[$i] =~ s/XXX116/XXX113/g;$Zeile[$i] =~ s/sh//g;}
elsif($Zeile[$i] =~ /s/){$Zeile[$i] =~ s/XXX116/XXX112/g;$Zeile[$i] =~ s/s//g;}
elsif($Zeile[$i] =~ /z/){$Zeile[$i] =~ s/XXX116/XXX90/g;$Zeile[$i] =~ s/z//g;} # oder XXX112XXX115
elsif($Zeile[$i] =~ /Sw/){$Zeile[$i] =~ s/XXX116/XXX38XXX36/g;$Zeile[$i] =~ s/Sw//g;}
elsif($Zeile[$i] =~ /S/){$Zeile[$i] =~ s/XXX116/XXX38XXX83/g;$Zeile[$i] =~ s/S//g;}
elsif($Zeile[$i] =~ /ch/){$Zeile[$i] =~ s/XXX116/XXX99XXX115/g;$Zeile[$i] =~ s/ch//g;} #oder XXX99XXX106
elsif($Zeile[$i] =~ /c/){$Zeile[$i] =~ s/XXX116/XXX117XXX115/g;$Zeile[$i] =~ s/c//g;} #oder XXX117XXX125
elsif($Zeile[$i] =~ /j/){$Zeile[$i] =~ s/XXX116/XXX42XXX115/g;$Zeile[$i] =~ s/j//g;} #oder XXX42XXX106
elsif($Zeile[$i] =~ /m/){$Zeile[$i] =~ s/XXX116/XXX114/g;$Zeile[$i] =~ s/m//g;}
elsif($Zeile[$i] =~ /ny/){$Zeile[$i] =~ s/XXX116/XXX110/g;$Zeile[$i] =~ s/ny//g;}
elsif($Zeile[$i] =~ /ng/){$Zeile[$i] =~ s/XXX116/XXX105/g;$Zeile[$i] =~ s/ng//g;}
elsif($Zeile[$i] =~ /n/){$Zeile[$i] =~ s/XXX116/XXX101/g;$Zeile[$i] =~ s/n//g;}
elsif($Zeile[$i] =~ /l/){$Zeile[$i] =~ s/XXX116/XXX118/g;$Zeile[$i] =~ s/l//g;}
elsif($Zeile[$i] =~ /I/ || $Zeile[$i] =~ /O/ || $Zeile[$i] =~ /U/)
  {$Zeile[$i] =~ s/XXX116//g;}

$Zeile[$i] =~ s/XXX/\\char/g;
}
#EOF

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.