summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/arabtex/sotoku.sty
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-12 23:51:33 +0000
committerKarl Berry <karl@freefriends.org>2006-01-12 23:51:33 +0000
commitaec1c1b77ee51b9359530d61cc7b8df2a37c7685 (patch)
tree8b5e1e20b56e0abf130e7da219468e197cde8725 /Master/texmf-dist/tex/latex/arabtex/sotoku.sty
parente1c54083e49986785dd4d24e891b89e0772a4de1 (diff)
arabtex
git-svn-id: svn://tug.org/texlive/trunk@673 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/arabtex/sotoku.sty')
-rw-r--r--Master/texmf-dist/tex/latex/arabtex/sotoku.sty47
1 files changed, 47 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/arabtex/sotoku.sty b/Master/texmf-dist/tex/latex/arabtex/sotoku.sty
new file mode 100644
index 00000000000..c54b51a8533
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/arabtex/sotoku.sty
@@ -0,0 +1,47 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% sotoku.sty
+% additional transcription module for ArabTeX
+% special transcription
+% 16.02.2003
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% (c) Klaus Lagally
+% Institut fuer Informatik
+% Universitaet Stuttgart
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Additional Transcription Modes:
+% transcribe `ayn by the Arabic letter
+% activate by: \settrans{sotoku}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\catcode`\@ = 11
+\a@ident{sotoku.sty}{1.00 generate special transliteration }{16.02.2003}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+{\catcode `\^ 7 \catcode `\ =9 \catcode `\^^M=9 \catcode `\^^I=9
+\catcode `\~=10
+\gdef \tr@sotoku {% define Sotoku transliteration
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\tr@zdmg % standard routine
+% transliterate 'ayin' as Arabic letter:
+\gdef \tr@P {{\scriptsize\transfalse\arabtrue\showfalse\<`>}\@vocalfalse}
+% transliterate 'hamza' as Arabic letter:
+\gdef \tr@Q {{\transfalse\arabtrue\showfalse\<-'>}\@vocalfalse}
+% comment out if not required!
+\a@message {Sotoku~special~transliteration.}}}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\a@extend \tr@table {sotoku\tr@sotoku }% install
+
+\settrans{sotoku}% activate
+% switch to standard version by \settrans{standard}
+
+\catcode`\@ = \transatcode
+
+\endinput
+%%%%%%%%%%%%%%%%%%%%%%%%% EOF %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+
+
+
+