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