diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-12 23:46:03 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-12 23:46:03 +0000 |
commit | 873660d1a83ece926fe7206288dda9c36b349c1b (patch) | |
tree | a48f77125c309a355b5d0eb58d6b24446abe9d62 /Master/texmf-dist/tex/generic/tex4ht/hewrite.4ht | |
parent | 2939242967231097459df0fc3150fabc2f639111 (diff) |
generic 1
git-svn-id: svn://tug.org/texlive/trunk@613 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/tex4ht/hewrite.4ht')
-rw-r--r-- | Master/texmf-dist/tex/generic/tex4ht/hewrite.4ht | 78 |
1 files changed, 78 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/tex4ht/hewrite.4ht b/Master/texmf-dist/tex/generic/tex4ht/hewrite.4ht new file mode 100644 index 00000000000..e2515223d7f --- /dev/null +++ b/Master/texmf-dist/tex/generic/tex4ht/hewrite.4ht @@ -0,0 +1,78 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% hewrite.4ht 2005-10-23-04:19 % +% Copyright (C) 2001 Eitan M. Gurari % +% % +% This work may be distributed and/or modified under the % +% conditions of the LaTeX Project Public License, either % +% version 1.3 of this license or (at your option) any % +% later version. The latest version of this license is % +% in % +% http://www.latex-project.org/lppl.txt % +% and version 1.3 or later is part of all distributions % +% of LaTeX version 2003/12/01 or later. % +% % +% This work has the LPPL maintenance status "maintained".% +% % +% This Current Maintainer of this work % +% is Eitan M. Gurari. % +% % +% If you modify this program your changing its signature % +% with a directive of the following form will be % +% appreciated. % +% \message{signature} % +% % +% gurari@cse.ohio-state.edu % +% http://www.cse.ohio-state.edu/~gurari % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\immediate\write-1{version 2005-10-23-04:19} + +\def\:temp #1#2+#3*#4<{% + \def \next {\heb@mid #4}% + \ifnum \act@cd = \m@qqeph + \def \next {\heb@end #4}\put@b@x {\the\act@cd }% + \ifhcl@s \else \put@box {\raise .6ex \hbox + {\kern.05em\unhbox \ab@x \kern.05em}}% + \fi + \else \ifnum \act@cd = \illch@r + \put@b@x {\the\act@cd }% + \else + \ifnum \act@cd = \hc@@ + \heb@cd \hc@y \advance \heb@cd \heb@dsp + \put@box {\hphantom{\char \the\heb@cd }}% + \else \heb@cd \act@cd \advance \heb@cd \heb@dsp + \put@b@x {\the\heb@cd }% + \fi + \ifhv@wel \heb@accent #2+#3*% + \ifcase \act@mod \or \h@sindot \or \h@shindot \fi + \if@dagesh \put@dagesh \fi + \fi + \fi\fi + \:heblet \unhbox \ab@x \end:heblet + \h@test@chr #4} +\HLet\h@put@mid=\:temp +\def\:temp #1>{% + \iftest@write \iftest@parse \else \a@verb (#1 )>\fi + \tracingmacros = 1 \fi + \a@write@hook + \ifa@@write {\heb@beg #1>0+0*>\end:hebword}\fi + \iftest@write \tracingmacros = 0 + \fi } +\HLet\heb@write=\:temp +\def\:heblet{\a:hewrite} +\def\end:heblet{\b:hewrite} +\let\end:hebword=\empty +\:CheckOption{rl2lr}\if:Option + \csname newbox\endcsname\heb:box + \setbox\heb:box=\hbox{} + \pend:def\:heblet{\setbox\heb:box=\hbox\bgroup} + \append:def\end:heblet{\unhbox\heb:box\egroup} + \def\end:hebword{\unhbox\heb:box} +\else + \Log:Note{to reverse the direction of + Hebrew words, use the command line option `rl2lr'} +\fi +\NewConfigure{hewrite}{2} + +\Hinput{aparse} +\endinput + |