summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/tex4ht/longdiv.4ht
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/tex4ht/longdiv.4ht')
-rw-r--r--Master/texmf-dist/tex/generic/tex4ht/longdiv.4ht62
1 files changed, 62 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/tex4ht/longdiv.4ht b/Master/texmf-dist/tex/generic/tex4ht/longdiv.4ht
new file mode 100644
index 00000000000..4060d89bab7
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/tex4ht/longdiv.4ht
@@ -0,0 +1,62 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% longdiv.4ht 2005-10-23-04:19 %
+% Copyright (C) 2002--2005 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\longdiv#1#2{{%
+ \def\showdig{\edef\temp{&{\the\scratch}}\temp\cr
+ &{\the\rtot}\cr}%
+ \global\rtot=#1\relax
+ \count0=\rtot\divide\count0by#2\edef\quotient{\the\count0}%
+ \def\temp##1{\ifx##1\temp\else \noexpand\dodig ##1\expandafter\temp\fi}%
+ \edef\routine{\expandafter\temp\quotient\temp}%
+ \def\dodig##1{\global\multiply\gpten
+ by10\relax}\global\gpten=1\relax\routine
+ \def\dodig##1{\global\divide\gpten by10\relax
+ \scratch =\gpten
+ \multiply\scratch by##1\relax
+ \multiply\scratch by#2\relax
+ \global\advance\rtot-\scratch \relax
+ \ifnum\scratch>0 \showdig \fi
+ }%
+ \a:longdiv \long:div{#2}\b:longdiv
+}}
+\catcode`\#=13
+\catcode`\@=6
+\def\long:div@1{\halign{#&#\cr
+ &\quotient\cr
+ @1&\the\rtot\cr
+ \routine \cr
+}}
+\catcode`\#=6
+\catcode`\@=11
+
+\NewConfigure{longdiv}{2}
+
+\Hinput{longdiv}
+\endinput
+