summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/tex4ht/hewrite.4ht
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/tex4ht/hewrite.4ht')
-rw-r--r--Master/texmf-dist/tex/generic/tex4ht/hewrite.4ht78
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
+