1%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2% hetrans.sty
3% ArabTeX
4% Modifications for Hebrew mode
5% needs atrans.sty version 3.09 or later
6% 17.07.1999
7%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8% (c) Klaus Lagally
9%     Institut fuer Informatik
10%     Universitaet Stuttgart
11%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12
13\ifx \transatcode \undefined \UsePackage {atrans}
14\fi
15
16\catcode`\@ = 11 		% presupposes atrans.sty loaded
17
18\a@ident {hetrans.sty} {3.09 Hebrew transcription module} {17.07.1999}
19
20%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21{\catcode `\^ 7 \catcode `\ =9 \catcode `\^^M=9 \catcode `\^^I=9
22\catcode `\~=10
23\gdef \tr@heb   {% my transliteration for Hebrew
24%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25\tr@zdmg	% start with default and modify
26\gdef \tr@@e ##1{% test for ey -> `e
27	\ifx ##1y\def \next {\`e\tr@aword }\else
28	\def \next {\setc@p e\tr@aword ##1}\fi \next}
29\gdef \tr@B {-}		\gdef \tr@C {\d{t}}	\gdef \tr@D {d}
30\gdef \tr@R {g}		\gdef \tr@U {\=u\-}     \gdef \tr@V {t}
31\gdef \tr@X {\d{h}}
32\tr@def \a@b {b}	\tr@def \a@e {\rsh@ft{07}{$^i$}\-}
33\tr@def \a@f {p}	\tr@def \a@j {\rsh@ft{07}{$^i$}\-}
34\tr@def \a@k {k}	\tr@def \a@o {\=o\-}
35\tr@def \a@A {\rsh@ft{07}{$^a$}\-}	  \tr@def \a@E {\=e\-}
36\tr@def \a@H {h}	\tr@def \a@I {\rsh@ft{07}{$^e$}\-}
37\tr@def \a@O {\rsh@ft{07}{$^o$}\-}	  \tr@def \a@U {}
38\gdef \tr@aword {\@vocalfalse \tr@@aword }}
39
40%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
41\gdef \tr@zaw {% ZAW transliteration for Hebrew
42%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
43\tr@heb 	% start with default and modify
44\gdef \tr@@e ##1{% test for ey -> `\ae
45	\ifx ##1y\def \next {\`{\ae}\tr@aword }\else
46	\def \next {\ae\tr@aword ##1}\fi \next}
47\gdef \tr@@E ##1{% test for Ee -> ey
48	\ifx ##1e\def \next {\setc@p e\tr@aword y}\else
49	\def \next {\^e\tr@aword ##1}\fi \next}
50\gdef \tr@o {\aa }			\gdef \tr@I {\^{\i}\-}
51\gdef \tr@O {\^o\-}			\gdef \tr@U {\^u\-}
52\tr@def \a@e {\rsh@ft{07}{$^e$}\-}	\tr@def \a@i {i\-}
53\tr@def \a@j {\rsh@ft{07}{$^e$}\-}	\tr@def \a@o {\=o\-}
54\tr@def \a@E {e\-}
55\tr@def \a@I {\rsh@ft{07}{$^{\hbox{\scriptsize \ae}}$}\-}
56\tr@def \a@O {\rsh@ft{07}{$^{\mathaccent 23a}$}\-}
57\ifx \tr@code \tr@oldcode \else \a@message {ZAW~transliteration}\fi }
58
59%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
60\gdef \tr@gesen {% transliteration for Hebrew after Gesenius
61%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
62\tr@heb 	% start with default and modify
63\gdef \tr@@e ##1{% test for ey -> `e
64	\ifx ##1y\def \next {\`e\tr@aword }\else
65	\def \next {\u{e}\tr@aword ##1}\fi \next}
66\gdef \tr@f {ph} 		\gdef \tr@C {th}
67\gdef \tr@H {h}			\gdef \tr@R {kh}
68\tr@def \a@e {\rsh@ft{07}{$^e$}\-}
69\tr@def \a@j {\rsh@ft{07}{$^e$}\-}
70\ifx \tr@code \tr@oldcode \else \a@message {Gesenius'~transliteration}\fi }
71}
72%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
73
74\xpa \def \xpa \tr@table \xpa {\tr@table % add the Hebrew encodings
75gesenius\tr@gesen	zaw\tr@zaw	heb\tr@stdheb }
76
77\def \tr@stdheb {\tr@heb
78\ifx \tr@code \tr@oldcode \else
79\a@message {ArabTeX default transliteration}\fi }
80
81\settrans {heb}% default
82
83\catcode`\@ = \transatcode
84%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
85\endinput
86
87
88