summaryrefslogtreecommitdiff
path: root/language/arabic/arabtex/texinput/sotoku.sty
blob: c54b51a85335348d79e983cfb816488936ab543c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
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 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%