latex/arabtex/hewrite.sty

20 \newcount \heb@dsp	\newcount \heb@cd
21 \newcount \heb@voc	\newcount \h@modii	\newcount \h@modi
31 \def \heb@write #1>{% Hebrew output routine
35 \ifa@@write \heb@testfont \heb@beg #1>0+0*>\fi
39 \def \heb@testfont {% diagnose font, look for vowels and ayin
52 \if\isch@r {"80}\global\heb@dsp "20\else
53 \if\isch@r {"E0}\global\heb@dsp "80\else
54 \if\isch@r {"60}\global\heb@dsp 0\else
55 	\global\heb@dsp 0\errmessage {no usable Hebrew font found}%
59 \heb@cd \heb@dsp \advance \heb@cd 114 \xdef \hc@Pv {\the\heb@cd }%
83 \def \heb@beg #1#2*#3{% start output
85 \h@test@chr #1\heb@end #1#2*#3}
87 \def \heb@end #1#2*#3{% final character
90 \else \def \next {\heb@mid #3}%
98 \def \heb@mid #1#2*#3{% non-final character
101 \else \def \next {\heb@mid #3}%
115 %	\def \next {\heb@mid #4}%
118 {	B{\put@maqqef \def \next {\heb@end #4}}
127 \heb@accent #2+#3*\h@kern
145 \heb@cd \hc@y \advance \heb@cd \heb@dsp
146 \put@box {\hphantom{\char \the\heb@cd }}}
164 %	A{{\tt "}\def \next {\heb@end #3}}		% "
169 %	E{{\tt \char'015}\def \next {\heb@end #3}}	% '
181 %	P{{\rm \bf '}\def \next {\heb@end #3}}		% '
188 \def \next {\heb@end #3}\fi\fi\fi }
200 \def \heb@accent #1+#2*{% put modifier onto contents of "\ab@x"
203 \xpa \heb@split \the\red@mod *\h@putaccent #2*}
209 \def \heb@split 1#1#2*{% separate modifier 1
240 \heb@cd #1\advance \heb@cd \heb@dsp \put@b@x {\the\heb@cd }}%
423 \heb@voc = ##1\relax
424 \if\isn@rrow \advance\heb@voc 17
425 \put@box {\unhcopy\ab@x \llap{\char\heb@voc \kern -.075em }}%
426 \else \xpa\h@v@wel \xpa{\the\heb@voc }\fi }%