diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-12 23:51:33 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-12 23:51:33 +0000 |
commit | aec1c1b77ee51b9359530d61cc7b8df2a37c7685 (patch) | |
tree | 8b5e1e20b56e0abf130e7da219468e197cde8725 /Master/texmf-dist/tex/latex/arabtex/sotoku.sty | |
parent | e1c54083e49986785dd4d24e891b89e0772a4de1 (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.sty | 47 |
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 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + + + + |