1
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2
% hewrite.4ht 2001-12-14-17:07 %
3
% Copyright (C) 2001 Eitan M. Gurari %
5
% This program can redistributed and/or modified under %
6
% the terms of the LaTeX Project Public License %
7
% Distributed from CTAN archives in directory %
8
% macros/latex/base/lppl.txt; either version 1 of the %
9
% License, or (at your option) any later version. %
11
% However, you are allowed to modify this program %
12
% without changing its name, if you modify its %
13
% signature. Changes to the signature can be introduced %
14
% with a directive of the form %
15
% \message{signature} %
17
% gurari@cis.ohio-state.edu %
18
% http://www.cis.ohio-state.edu/~gurari %
19
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20
\immediate\write-1{version 2001-12-14-17:07}
22
\def\:temp #1#2+#3*#4<{%
23
\def \next {\heb@mid #4}%
24
\ifnum \act@cd = \m@qqeph
25
\def \next {\heb@end #4}\put@b@x {\the\act@cd }%
26
\ifhcl@s \else \put@box {\raise .6ex \hbox
27
{\kern.05em\unhbox \ab@x \kern.05em}}%
29
\else \ifnum \act@cd = \illch@r
30
\put@b@x {\the\act@cd }%
32
\ifnum \act@cd = \hc@@
33
\heb@cd \hc@y \advance \heb@cd \heb@dsp
34
\put@box {\hphantom{\char \the\heb@cd }}%
35
\else \heb@cd \act@cd \advance \heb@cd \heb@dsp
36
\put@b@x {\the\heb@cd }%
38
\ifhv@wel \heb@accent #2+#3*%
39
\ifcase \act@mod \or \h@sindot \or \h@shindot \fi
40
\if@dagesh \put@dagesh \fi
43
\:heblet \unhbox \ab@x \end:heblet
45
\HLet\h@put@mid=\:temp
47
\iftest@write \iftest@parse \else \a@verb (#1 )>\fi
48
\tracingmacros = 1 \fi
50
\ifa@@write {\heb@beg #1>0+0*>\end:hebword}\fi
51
\iftest@write \tracingmacros = 0
53
\HLet\heb@write=\:temp
54
\def\:heblet{\a:hewrite}
55
\def\end:heblet{\b:hewrite}
56
\let\end:hebword=\empty
57
\:CheckOption{rl2lr}\if:Option
58
\csname newbox\endcsname\heb:box
59
\setbox\heb:box=\hbox{}
60
\pend:def\:heblet{\setbox\heb:box=\hbox\bgroup}
61
\append:def\end:heblet{\unhbox\heb:box\egroup}
62
\def\end:hebword{\unhbox\heb:box}
64
\immediate\write-1{--- Note --- to reverse the direction of
65
Hebrew words, use the command line option `rl2lr'}
67
\NewConfigure{hewrite}{2}