1
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2
% hewrite.4ht 2005-03-27-10:43 %
3
% Copyright (C) 2001 Eitan M. Gurari %
5
% This work may be distributed and/or modified under the %
6
% conditions of the LaTeX Project Public License, either %
7
% version 1.3 of this license or (at your option) any %
8
% later version. The latest version of this license is %
10
% http://www.latex-project.org/lppl.txt %
11
% and version 1.3 or later is part of all distributions %
12
% of LaTeX version 2003/12/01 or later. %
14
% This work has the LPPL maintenance status "maintained".%
16
% This Current Maintainer of this work %
17
% is Eitan M. Gurari. %
19
% If you modify this program your changing its signature %
20
% with a directive of the following form will be %
22
% \message{signature} %
24
% gurari@cse.ohio-state.edu %
25
% http://www.cse.ohio-state.edu/~gurari %
26
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27
\immediate\write-1{version 2005-03-27-10:43}
29
\def\:temp #1#2+#3*#4<{%
30
\def \next {\heb@mid #4}%
31
\ifnum \act@cd = \m@qqeph
32
\def \next {\heb@end #4}\put@b@x {\the\act@cd }%
33
\ifhcl@s \else \put@box {\raise .6ex \hbox
34
{\kern.05em\unhbox \ab@x \kern.05em}}%
36
\else \ifnum \act@cd = \illch@r
37
\put@b@x {\the\act@cd }%
39
\ifnum \act@cd = \hc@@
40
\heb@cd \hc@y \advance \heb@cd \heb@dsp
41
\put@box {\hphantom{\char \the\heb@cd }}%
42
\else \heb@cd \act@cd \advance \heb@cd \heb@dsp
43
\put@b@x {\the\heb@cd }%
45
\ifhv@wel \heb@accent #2+#3*%
46
\ifcase \act@mod \or \h@sindot \or \h@shindot \fi
47
\if@dagesh \put@dagesh \fi
50
\:heblet \unhbox \ab@x \end:heblet
52
\HLet\h@put@mid=\:temp
54
\iftest@write \iftest@parse \else \a@verb (#1 )>\fi
55
\tracingmacros = 1 \fi
57
\ifa@@write {\heb@beg #1>0+0*>\end:hebword}\fi
58
\iftest@write \tracingmacros = 0
60
\HLet\heb@write=\:temp
61
\def\:heblet{\a:hewrite}
62
\def\end:heblet{\b:hewrite}
63
\let\end:hebword=\empty
64
\:CheckOption{rl2lr}\if:Option
65
\csname newbox\endcsname\heb:box
66
\setbox\heb:box=\hbox{}
67
\pend:def\:heblet{\setbox\heb:box=\hbox\bgroup}
68
\append:def\end:heblet{\unhbox\heb:box\egroup}
69
\def\end:hebword{\unhbox\heb:box}
71
\Log:Note{to reverse the direction of
72
Hebrew words, use the command line option `rl2lr'}
74
\NewConfigure{hewrite}{2}