%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% hetrans.sty
% ArabTeX
% Modifications for Hebrew mode
% 09.03.1995
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% (c) Klaus Lagally
%     Institut fuer Informatik
%     Universitaet Stuttgart
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\ifx \transatcode \undefined \input atrans.sty
\fi

\catcode`\@ = 11 		% presupposes atrans.sty loaded

\a@ident {hetrans.sty} {0.02} {09.03.95}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
{\catcode `\ =9 \catcode `\^^M=9 \catcode `\^^I=9
\gdef \tr@heb   {% my transliteration for Hebrew
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\tr@zdmg	% start with default and modify	
\gdef   \tr@R {\b{k}}			
\gdef   \tr@B {-}
\tr@def \a@o {\=o\@vocaltrue }		
\tr@def \a@E {\={e}}	
\tr@def \a@H {}				
\tr@def \a@A {$\,^a\!$}			
\tr@def \a@I {$\,^e\!$}			
\tr@def \a@j {$\,^i\!$}			
\tr@def \a@O {$\,^o\!$}
\gdef \tr@e ##1{% test for ee -> ey
	\def \next {\tr@aword ##1}\@vocaltrue
	\ifx ##1e\let \next \tr@aword ey\-\else e\fi \next}
\gdef \tr@e ##1{% test for ey -> \`e
	\def \next {\tr@aword ##1}\@vocaltrue
	\ifx ##1y\let \next \tr@aword \`e\else e\fi \next}
}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
{\catcode `\ =9 \catcode `\^^M=9 \catcode `\^^I=9
\gdef \tr@gesen {% transliteration for Hebrew after Gesenius
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\tr@heb 	% start with default and modify	
\gdef \tr@R {kh}	
\gdef \tr@C {th}	
\gdef \tr@f {ph} 
\gdef \tr@H {h}		
\gdef \tr@X {ch\tr@aword }
\gdef \tr@y {j}	
\gdef \tr@e ##1{% test for ey -> \`e
	\def \next {\tr@aword ##1}\@vocaltrue
	\ifx ##1y\let \next \tr@aword \`e\else \u{e}\fi \next}
\tr@def \a@j {$\,^e\!$}			
}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
{\catcode `\ =9 \catcode `\^^M=9 \catcode `\^^I=9
\gdef \tr@zaw {% ZAW transliteration for Hebrew 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\tr@heb 	% start with default and modify	
%\gdef \tr@R {kh}	\gdef \tr@C {th}	\gdef \tr@f {ph} 
\gdef \tr@H {h}		
%\gdef \tr@X {ch\tr@aword }
%\gdef \tr@y {j}	
%\gdef \tr@A {\^a\-\@vocaltrue }	
\gdef \tr@o {\aa \@vocaltrue }
\gdef \tr@E ##1{% test for Ee -> ey
	\def \next {\tr@aword ##1}\@vocaltrue
	\ifx ##1e\let \next \tr@aword ey\else \^e\fi \-\next}
%	\ifx ##1e\let \next \tr@aword ey\else e\fi \-\next}
\gdef \tr@I {\^{\i}\-\@vocaltrue }
\gdef \tr@O {\^o\-\@vocaltrue }
\gdef \tr@U {\^u\-\@vocaltrue \kill@alif }	
\tr@def \a@i {i\-\@vocaltrue }
\tr@def \a@o {o\@vocaltrue }		
\tr@def \a@E {e}
\tr@def \a@I {$\,^{\ae}\!$}			
\tr@def \a@O {$\,^{\mathaccent 23a}\!$}
\gdef \tr@e ##1{% test for ey -> \`e
	\def \next {\tr@aword ##1}\@vocaltrue
	\ifx ##1y\let \next \tr@aword \^{\ae}\else \ae \fi \next}
}}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\ifx \h@settrans \undefined	% perform only once

\def \h@gesen {gesenius}	\def \h@heb {heb}
\def \h@zaw {zaw}		\let \h@settrans \settrans

\def \settrans #1{\def \next {#1}% switch the transcription mode
\ifx \next \h@heb \tr@heb \else
\ifx \next \h@gesen \tr@gesen \else
\ifx \next \h@zaw \tr@zaw \else
	\h@settrans {#1}%
\fi\fi\fi }

\settrans {heb}% default
\fi				% perform only once

\catcode`\@ = \transatcode
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\endinput


