summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/burmese
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-11 23:03:17 +0000
committerKarl Berry <karl@freefriends.org>2006-01-11 23:03:17 +0000
commitecf966f305f6aeff2bbdf42c82d8425921aa9eda (patch)
treedb606a57e3619610e4c35cae849d41cf4e0937d5 /Master/texmf-dist/source/latex/burmese
parentac3c55a3216b5988f0e48ba9414ddb059f19a699 (diff)
source 1
git-svn-id: svn://tug.org/texlive/trunk@105 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/latex/burmese')
-rw-r--r--Master/texmf-dist/source/latex/burmese/birm.pl306
1 files changed, 306 insertions, 0 deletions
diff --git a/Master/texmf-dist/source/latex/burmese/birm.pl b/Master/texmf-dist/source/latex/burmese/birm.pl
new file mode 100644
index 00000000000..7c0f5cb9085
--- /dev/null
+++ b/Master/texmf-dist/source/latex/burmese/birm.pl
@@ -0,0 +1,306 @@
+#!/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: reese@linguist.de
+#
+# 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