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/longdiv.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/longdiv.4ht')
-rw-r--r-- | Master/texmf-dist/tex/generic/tex4ht/longdiv.4ht | 62 |
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 + |