diff options
author | Karl Berry <karl@freefriends.org> | 2013-05-01 23:35:32 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2013-05-01 23:35:32 +0000 |
commit | 563bcfa06168849da809214cc1af73c6e6c5f36a (patch) | |
tree | db1bc3720976151d804cf307e26b6880945844a3 /Master/texmf-dist/tex/generic/xint/xint.sty | |
parent | 903a46840c96d822da490d9a17f0250c9b6a4d8f (diff) |
xint (1may13)
git-svn-id: svn://tug.org/texlive/trunk@30199 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/xint/xint.sty')
-rw-r--r-- | Master/texmf-dist/tex/generic/xint/xint.sty | 550 |
1 files changed, 240 insertions, 310 deletions
diff --git a/Master/texmf-dist/tex/generic/xint/xint.sty b/Master/texmf-dist/tex/generic/xint/xint.sty index 279468d168d..016a684c4c2 100644 --- a/Master/texmf-dist/tex/generic/xint/xint.sty +++ b/Master/texmf-dist/tex/generic/xint/xint.sty @@ -22,7 +22,7 @@ %% in the same archive or directory.) %% %%---------------------------------------------------------------- -%% The xint bundle (version 1.04 of April 25, 2013) +%% The xint bundle (version 1.05 of May 1st, 2013) %% xint: Expandable operations on long numbers %% Copyright (C) 2013 by Jean-Francois Burnol %%---------------------------------------------------------------- @@ -84,7 +84,7 @@ \endlinechar=\the\endlinechar \catcode13=\the\catcode13 % ^^M \catcode32=\the\catcode32 % - \catcode61=\the\catcode61 % = + \catcode61=\the\catcode61\relax % = \noexpand\endinput }% \def\XINT@setcatcodes @@ -134,7 +134,7 @@ \fi \expandafter\x\csname ver@xint.sty\endcsname \ProvidesPackage{xint}% - [2013/04/25 v1.04 Expandable operations on long numbers (jfB)]% + [2013/05/01 v1.05 Expandable operations on long numbers (jfB)]% \def\xint@gobble #1{}% \def\xint@gobble@one #1{}% \def\xint@gobble@two #1#2{}% @@ -191,7 +191,7 @@ }% \def\XINT@rev@negative #1#2\Z {% - \expandafter \space \expandafter -\romannumeral0\XINT@rev {#2}% + \expandafter\xint@minus@andstop\romannumeral0\XINT@rev {#2}% }% \def\XINT@rev@nonnegative #1\Z {% @@ -220,8 +220,7 @@ \def\XINT@strip@UNDEF #1\xint@UNDEF {}% \def\XINT@RQ #1#2#3#4#5#6#7#8#9% {% - \xint@r #9\XINT@RQ@end\R - \XINT@RQ {#9#8#7#6#5#4#3#2#1}% + \xint@r #9\XINT@RQ@end\R\XINT@RQ {#9#8#7#6#5#4#3#2#1}% }% \def\XINT@RQ@end\R\XINT@RQ #1#2\Z {% @@ -248,9 +247,8 @@ \def\XINT@RQ@end@ii #1\Z #2#3#4#5#6#7#8#9\Z { #3#4#5#6#7#8#900}% \def\XINT@RQ@end@i \Z #1#2#3#4#5#6#7#8\Z { #1#2#3#4#5#6#7#80}% \def\xint@cleanupzeros@andstop #1#2#3#4% -{\expandafter - \space - \the\numexpr #1#2#3#4\relax +{% + \expandafter\space\the\numexpr #1#2#3#4\relax }% \def\xint@cleanupzeros@nospace #1#2#3#4% {% @@ -304,14 +302,15 @@ \xint@w #2\XINT@isone@yes\W\expandafter\space\expandafter 0\xint@z }% \def\XINT@isone@yes #1\Z{ 1}% -\def\xintNum {\romannumeral0\xintnum }% -\def\xintnum #1% +\def\xintiNum {\romannumeral0\xintinum }% +\def\xintinum #1% {% - \expandafter\expandafter\expandafter + \expandafter\expandafter\expandafter \XINT@num - \expandafter\expandafter\expandafter + \expandafter\expandafter\expandafter {#1}% }% +\let\xintNum\xintiNum \let\xintnum\xintinum \def\XINT@Num {\romannumeral0\XINT@num }% \def\XINT@num #1{\XINT@num@loop #1\R\R\R\R\R\R\R\R\Z }% \def\XINT@num@loop #1#2#3#4#5#6#7#8% @@ -561,15 +560,13 @@ }% \let\xintSgn\xintiSgn \let\xintsgn\xintisgn \def\XINT@Sgn #1{\romannumeral0\XINT@sgn #1\Z }% -\def\XINT@sgn #1% +\def\XINT@sgn #1#2\Z {% - \xint@xpxp@andstop \xint@UDzerominusfork - #1-\dummy {\expandafter0}% zero - 0#1\dummy {\expandafter-\expandafter1}% n\'egatif - 0-\dummy {\expandafter1}% positif + #1-\dummy { 0}% + 0#1\dummy { -1}% + 0-\dummy { 1}% \xint@UDkrof - \xint@z }% \def\xintiOpp {\romannumeral0\xintiopp }% \def\xintiopp #1% @@ -605,9 +602,7 @@ }% \def\XINT@add@A #1#2#3#4#5#6% {% - \xint@w - #3\xint@add@az - \W\XINT@add@AB #1{#3#4#5#6}{#2}% + \xint@w #3\xint@add@az\W\XINT@add@AB #1{#3#4#5#6}{#2}% }% \def\xint@add@az\W\XINT@add@AB #1#2% {% @@ -615,21 +610,20 @@ }% \def\XINT@add@AB #1#2#3#4\W\X\Y\Z #5#6#7#8% {% - \xint@w - #5\xint@add@bz - \W\XINT@add@ABE #1#2{#8#7#6#5}{#3}#4\W\X\Y\Z + \xint@w #5\xint@add@bz\W + \XINT@add@ABE #1#2{#8#7#6#5}{#3}#4\W\X\Y\Z }% \def\XINT@add@ABE #1#2#3#4#5#6% -{\expandafter - \XINT@add@ABEA\the\numexpr #1+10#5#4#3#2+#6\relax.% +{% + \expandafter\XINT@add@ABEA\the\numexpr #1+10#5#4#3#2+#6\relax.% }% \def\XINT@add@ABEA #1#2#3.#4% {% \XINT@add@A #2{#3#4}% }% \def\xint@add@bz\W\XINT@add@ABE #1#2#3#4#5#6% -{\expandafter - \XINT@add@CC\the\numexpr #1+10#5#4#3#2\relax.% +{% + \expandafter\XINT@add@CC\the\numexpr #1+10#5#4#3#2\relax.% }% \def\XINT@add@CC #1#2#3.#4% {% @@ -653,20 +647,16 @@ }% \def\XINT@add@C #1#2#3#4#5% {% - \xint@w - #2\xint@add@cz - \W\XINT@add@CD {#5#4#3#2}{#1}% + \xint@w #2\xint@add@cz\W\XINT@add@CD {#5#4#3#2}{#1}%q }% \def\XINT@add@CD #1% -{\expandafter - \XINT@add@CC\the\numexpr 1+10#1\relax.% +{% + \expandafter\XINT@add@CC\the\numexpr 1+10#1\relax.% }% \def\xint@add@cz\W\XINT@add@CD #1#2{ 1#2}% \def\XINT@addr@A #1#2#3#4#5#6% {% - \xint@w - #3\xint@addr@az - \W\XINT@addr@B #1{#3#4#5#6}{#2}% + \xint@w #3\xint@addr@az\W\XINT@addr@B #1{#3#4#5#6}{#2}% }% \def\xint@addr@az\W\XINT@addr@B #1#2% {% @@ -674,21 +664,19 @@ }% \def\XINT@addr@B #1#2#3#4\W\X\Y\Z #5#6#7#8% {% - \xint@w - #5\xint@addr@bz - \W\XINT@addr@E #1#2{#8#7#6#5}{#3}#4\W\X\Y\Z + \xint@w #5\xint@addr@bz\W\XINT@addr@E #1#2{#8#7#6#5}{#3}#4\W\X\Y\Z }% \def\XINT@addr@E #1#2#3#4#5#6% -{\expandafter - \XINT@addr@ABEA\the\numexpr #1+10#5#4#3#2+#6\relax +{% + \expandafter\XINT@addr@ABEA\the\numexpr #1+10#5#4#3#2+#6\relax }% \def\XINT@addr@ABEA #1#2#3#4#5#6#7% {% \XINT@addr@A #2{#7#6#5#4#3}% }% \def\xint@addr@bz\W\XINT@addr@E #1#2#3#4#5#6% -{\expandafter - \XINT@addr@CC\the\numexpr #1+10#5#4#3#2\relax +{% + \expandafter\XINT@addr@CC\the\numexpr #1+10#5#4#3#2\relax }% \def\XINT@addr@CC #1#2#3#4#5#6#7% {% @@ -701,20 +689,16 @@ \def\xint@addr@AC@nocarry 0\XINT@addr@C #1#2\W\X\Y\Z { #1#2}% \def\XINT@addr@C #1#2#3#4#5% {% - \xint@w - #2\xint@addr@cz - \W\XINT@addr@D {#5#4#3#2}{#1}% + \xint@w #2\xint@addr@cz\W\XINT@addr@D {#5#4#3#2}{#1}% }% \def\XINT@addr@D #1% -{\expandafter - \XINT@addr@CC\the\numexpr 1+10#1\relax +{% + \expandafter\XINT@addr@CC\the\numexpr 1+10#1\relax }% \def\xint@addr@cz\W\XINT@addr@D #1#2{ #21000}% \def\XINT@addm@A #1#2#3#4#5#6% {% - \xint@w - #3\xint@addm@az - \W\XINT@addm@AB #1{#3#4#5#6}{#2}% + \xint@w #3\xint@addm@az\W\XINT@addm@AB #1{#3#4#5#6}{#2}% }% \def\xint@addm@az\W\XINT@addm@AB #1#2% {% @@ -725,8 +709,8 @@ \XINT@addm@ABE #1#2{#8#7#6#5}{#3}#4\W\X\Y\Z }% \def\XINT@addm@ABE #1#2#3#4#5#6% -{\expandafter - \XINT@addm@ABEA\the\numexpr #1+10#5#4#3#2+#6\relax.% +{% + \expandafter\XINT@addm@ABEA\the\numexpr #1+10#5#4#3#2+#6\relax.% }% \def\XINT@addm@ABEA #1#2#3.#4% {% @@ -758,8 +742,8 @@ \W\XINT@addm@CD {#5#4#3#2}{#1}% }% \def\XINT@addm@CD #1% -{\expandafter - \XINT@addm@CC\the\numexpr 1+10#1\relax.% +{% + \expandafter\XINT@addm@CC\the\numexpr 1+10#1\relax.% }% \def\XINT@addm@CC #1#2#3.#4% {% @@ -770,8 +754,8 @@ #2\xint@addm@cy #3\xint@addm@cz \W\XINT@addm@CD -{\expandafter - \XINT@addm@CDw\the\numexpr 1+#1#2#3\relax.% +{% + \expandafter\XINT@addm@CDw\the\numexpr 1+#1#2#3\relax.% }% \def\XINT@addm@CDw #1.#2#3\X\Y\Z {% @@ -781,8 +765,8 @@ #1\xint@addm@cy #2\xint@addm@cz \W\XINT@addm@CD -{\expandafter - \XINT@addm@CDx\the\numexpr 1+#1#2\relax.% +{% + \expandafter\XINT@addm@CDx\the\numexpr 1+#1#2\relax.% }% \def\XINT@addm@CDx #1.#2#3\Y\Z {% @@ -791,8 +775,8 @@ \def\xint@addm@cy #1\xint@addm@cz \W\XINT@addm@CD -{\expandafter - \XINT@addm@CDy\the\numexpr 1+#1\relax.% +{% + \expandafter\XINT@addm@CDy\the\numexpr 1+#1\relax.% }% \def\XINT@addm@CDy #1.#2#3\Z {% @@ -800,12 +784,10 @@ }% \def\xint@addm@cz\W\XINT@addm@CD #1#2#3{\XINT@addm@end #1#3}% \def\XINT@addm@end #1#2#3#4#5% - {\expandafter\space\the\numexpr #1#2#3#4#5\relax }% + {\expandafter\space\the\numexpr #1#2#3#4#5\relax}% \def\XINT@addp@A #1#2#3#4#5#6% {% - \xint@w - #3\xint@addp@az - \W\XINT@addp@AB #1{#3#4#5#6}{#2}% + \xint@w #3\xint@addp@az\W\XINT@addp@AB #1{#3#4#5#6}{#2}% }% \def\xint@addp@az\W\XINT@addp@AB #1#2% {% @@ -824,8 +806,8 @@ \XINT@addp@ABE #1#2{#8#7#6#5}{#3}#4\W\X\Y\Z }% \def\XINT@addp@ABE #1#2#3#4#5#6% -{\expandafter - \XINT@addp@ABEA\the\numexpr #1+10#5#4#3#2+#6\relax +{% + \expandafter\XINT@addp@ABEA\the\numexpr #1+10#5#4#3#2+#6\relax }% \def\XINT@addp@ABEA #1#2#3#4#5#6#7% {% @@ -841,8 +823,8 @@ \W\XINT@addp@CD {#5#4#3#2}{#1}% }% \def\XINT@addp@CD #1% -{\expandafter - \XINT@addp@CC\the\numexpr 1+10#1\relax +{% + \expandafter\XINT@addp@CC\the\numexpr 1+10#1\relax }% \def\XINT@addp@CC #1#2#3#4#5#6#7% {% @@ -853,8 +835,8 @@ #2\xint@addp@cy #3\xint@addp@cz \W\XINT@addp@CD -{\expandafter - \XINT@addp@CDw\the\numexpr 1+10#1#2#3\relax +{% + \expandafter\XINT@addp@CDw\the\numexpr 1+10#1#2#3\relax }% \def\XINT@addp@CDw #1#2#3#4#5#6% {% @@ -867,8 +849,8 @@ #1\xint@addp@cy #2\xint@addp@cz \W\XINT@addp@CD -{\expandafter - \XINT@addp@CDx\the\numexpr 1+100#1#2\relax +{% + \expandafter\XINT@addp@CDx\the\numexpr 1+100#1#2\relax }% \def\XINT@addp@CDx #1#2#3#4#5#6% {% @@ -880,8 +862,8 @@ \def\xint@addp@cy #1\xint@addp@cz \W\XINT@addp@CD -{\expandafter - \XINT@addp@CDy\the\numexpr 1+1000#1\relax +{% + \expandafter\XINT@addp@CDy\the\numexpr 1+1000#1\relax }% \def\XINT@addp@CDy #1#2#3#4#5#6% {% @@ -970,7 +952,7 @@ \def\XINT@add@firstiszero #1#2#3#4{ #3#1}% \def\XINT@add@minusminus #1#2#3#4% {% - \expandafter\space\expandafter-% + \expandafter\xint@minus@andstop% \romannumeral0\XINT@add@pre {#2}{#1}% }% \def\XINT@add@minusplus #1#2#3#4% @@ -1045,7 +1027,7 @@ \def\xint@sub@mp0\XINT@add@pre #1#2{ #2}% \def\XINT@sub@plusminus #1#2#3#4% {% - \xint@zero #3\xint@sub@pm0\expandafter\space\expandafter-% + \xint@zero #3\xint@sub@pm0\expandafter\xint@minus@andstop% \romannumeral0\XINT@add@pre {#2}{#3#1}% }% \def\xint@sub@pm #1\XINT@add@pre #2#3{ -#2}% @@ -1075,8 +1057,8 @@ \W\XINT@sub@onestep #1#2{#7#6#5#4}{#3}% }% \def\XINT@sub@onestep #1#2#3#4#5#6% -{\expandafter - \XINT@sub@backtoA\the\numexpr 11#5#4#3#2-#6+#1-1\relax.% +{% + \expandafter\XINT@sub@backtoA\the\numexpr 11#5#4#3#2-#6+#1-1\relax.% }% \def\XINT@sub@backtoA #1#2#3.#4% {% @@ -1110,8 +1092,8 @@ \W\XINT@sub@AC@onestep {#5#4#3#2}{#1}% }% \def\XINT@sub@AC@onestep #1% -{\expandafter - \XINT@sub@backtoC\the\numexpr 11#1-1\relax.% +{% + \expandafter\XINT@sub@backtoC\the\numexpr 11#1-1\relax.% }% \def\XINT@sub@backtoC #1#2#3.#4% {% @@ -1161,8 +1143,8 @@ #1{#6#5#4#3}{#2}% }% \def\XINT@sub@Eonestep #1#2% -{\expandafter - \XINT@sub@backtoE\the\numexpr 109999-#2+#1\relax.% +{% + \expandafter\XINT@sub@backtoE\the\numexpr 109999-#2+#1\relax.% }% \def\XINT@sub@backtoE #1#2#3.#4% {% @@ -1173,12 +1155,11 @@ \xint@UDonezerofork #4#1\dummy {\XINT@sub@Fdec 0}% soustraire 1. Et faire signe - #1#4\dummy {\XINT@sub@Finc 1}% additionner 1. Et faire signe - - 10\dummy \XINT@sub@DD % terminer. Mais avec signe - + 10\dummy \XINT@sub@DD % terminer. Mais avec signe - \xint@UDkrof {#3}% }% -\def\XINT@sub@DD -{\expandafter\space\expandafter-\romannumeral0\XINT@sub@D }% +\def\XINT@sub@DD {\expandafter\xint@minus@andstop\romannumeral0\XINT@sub@D }% \def\XINT@sub@Fdec #1#2#3#4#5#6% {% \xint@w @@ -1186,8 +1167,8 @@ #1{#6#5#4#3}{#2}% }% \def\XINT@sub@Fdec@onestep #1#2% -{\expandafter - \XINT@sub@backtoFdec\the\numexpr 11#2+#1-1\relax.% +{% + \expandafter\XINT@sub@backtoFdec\the\numexpr 11#2+#1-1\relax.% }% \def\XINT@sub@backtoFdec #1#2#3.#4% {% @@ -1195,7 +1176,7 @@ }% \def\xint@sub@Fdec@finish\W\XINT@sub@Fdec@onestep #1#2% {% - \expandafter\space\expandafter-\romannumeral0\XINT@cuz + \expandafter\xint@minus@andstop\romannumeral0\XINT@cuz }% \def\XINT@sub@Finc #1#2#3#4#5#6% {% @@ -1204,8 +1185,8 @@ #1{#6#5#4#3}{#2}% }% \def\XINT@sub@Finc@onestep #1#2% -{\expandafter - \XINT@sub@backtoFinc\the\numexpr 10#2+#1\relax.% +{% + \expandafter\XINT@sub@backtoFinc\the\numexpr 10#2+#1\relax.% }% \def\XINT@sub@backtoFinc #1#2#3.#4% {% @@ -1214,7 +1195,7 @@ \def\xint@sub@Finc@finish\W\XINT@sub@Finc@onestep #1#2#3% {% \xint@UDzerofork - #1\dummy {\expandafter\space\expandafter-% + #1\dummy {\expandafter\xint@minus@andstop% \xint@cleanupzeros@nospace}% 0\dummy { -1}% \xint@UDkrof @@ -1223,8 +1204,8 @@ \def\xint@sub@ez\W\XINT@sub@Eenter #1% {% \xint@UDzerofork - #1\dummy \XINT@sub@K % il y a une retenue - 0\dummy \XINT@sub@L % pas de retenue + #1\dummy \XINT@sub@K % il y a une retenue + 0\dummy \XINT@sub@L % pas de retenue \xint@UDkrof }% \def\XINT@sub@L #1\W\X\Y\Z @@ -1247,8 +1228,8 @@ #1{#6#5#4#3}{#2}% }% \def\XINT@sub@KK@onestep #1#2% -{\expandafter - \XINT@sub@backtoKK\the\numexpr 109999-#2+#1\relax.% +{% + \expandafter\XINT@sub@backtoKK\the\numexpr 109999-#2+#1\relax.% }% \def\XINT@sub@backtoKK #1#2#3.#4% {% @@ -1256,7 +1237,7 @@ }% \def\xint@sub@KK@finish\W\XINT@sub@KK@onestep #1#2#3% {% - \expandafter\space\expandafter-\romannumeral + \expandafter\xint@minus@andstop\romannumeral 0\XINT@cuz@loop #3\W\W\W\W\W\W\W\Z }% \def\xintiCmp {\romannumeral0\xinticmp }% @@ -1328,8 +1309,8 @@ \W\XINT@cmp@onestep #1#2{#7#6#5#4}{#3}% }% \def\XINT@cmp@onestep #1#2#3#4#5#6% -{\expandafter - \XINT@cmp@backtoA\the\numexpr 11#5#4#3#2-#6+#1-1\relax.% +{% + \expandafter\XINT@cmp@backtoA\the\numexpr 11#5#4#3#2-#6+#1-1\relax.% }% \def\XINT@cmp@backtoA #1#2#3.#4% {% @@ -1365,8 +1346,7 @@ \def\xint@OneIfPositive@terminated\Z\XINT@OneIfPositive@onestep\W\X\Y\Z { 0}% \def\XINT@OneIfPositive@onestep #1#2#3#4% {% - \expandafter - \XINT@OneIfPositive@check + \expandafter\XINT@OneIfPositive@check \the\numexpr #1#2#3#4\relax }% \def\XINT@OneIfPositive@check #1% @@ -1377,17 +1357,18 @@ \def\XINT@OneIfPositive@finish #1\W\X\Y\Z{ 1}% \def\xint@OneIfPositive@backtomain 0\XINT@OneIfPositive@finish 0% {\XINT@OneIfPositive@main }% -\def\xintGeq {\romannumeral0\xintgeq }% -\def\xintgeq #1% +\def\xintiGeq {\romannumeral0\xintigeq }% +\def\xintigeq #1% {% \expandafter\expandafter\expandafter \xint@geq \expandafter\expandafter\expandafter {#1}% }% +\let\xintGeq\xintiGeq \let\xintgeq\xintigeq \def\xint@geq #1#2% -{\expandafter\expandafter\expandafter - \XINT@geq@fork #2\Z #1\Z +{% + \expandafter\expandafter\expandafter\XINT@geq@fork #2\Z #1\Z }% \def\XINT@Geq #1#2{\romannumeral0\XINT@geq@fork #2\Z #1\Z }% \def\XINT@geq@fork #1#2\Z #3#4\Z @@ -1440,8 +1421,8 @@ \W\XINT@geq@onestep #1#2{#7#6#5#4}{#3}% }% \def\XINT@geq@onestep #1#2#3#4#5#6% -{\expandafter - \XINT@geq@backtoA\the\numexpr 11#5#4#3#2-#6+#1-1\relax.% +{% + \expandafter\XINT@geq@backtoA\the\numexpr 11#5#4#3#2-#6+#1-1\relax.% }% \def\XINT@geq@backtoA #1#2#3.#4% {% @@ -1580,8 +1561,7 @@ \def\XINT@sumexpr {\XINT@sum@loop {0000}{0000}}% \def\XINT@sum@loop #1#2#3% {% - \expandafter\expandafter\expandafter - \XINT@sum@checksign #3\Z {#1}{#2}% + \expandafter\expandafter\expandafter\XINT@sum@checksign #3\Z {#1}{#2}% }% \def\XINT@sum@checksign #1% {% @@ -1652,27 +1632,27 @@ }% \def\XINT@mul@minusplus #1#2#3% {% - \expandafter\space\expandafter-\romannumeral0\expandafter + \expandafter\xint@minus@andstop\romannumeral0\expandafter \XINT@mul@choice@a \expandafter{\romannumeral0\XINT@length {#1#3}}% {\romannumeral0\XINT@length {#2}}{#2}{#1#3}% }% \def\XINT@mul@plusminus #1#2#3% {% - \expandafter\space\expandafter-\romannumeral0\expandafter + \expandafter\xint@minus@andstop\romannumeral0\expandafter \XINT@mul@choice@a \expandafter{\romannumeral0\XINT@length {#3}}% {\romannumeral0\XINT@length {#1#2}}{#1#2}{#3}% }% \def\XINT@mul@plusplus #1#2#3#4% {% - \expandafter\XINT@mul@choice@a - \expandafter{\romannumeral0\XINT@length {#2#4}}% - {\romannumeral0\XINT@length {#1#3}}{#1#3}{#2#4}% + \expandafter\XINT@mul@choice@a + \expandafter{\romannumeral0\XINT@length {#2#4}}% + {\romannumeral0\XINT@length {#1#3}}{#1#3}{#2#4}% }% \def\XINT@mul@choice@a #1#2% {% - \expandafter\XINT@mul@choice@b \expandafter{#2}{#1}% + \expandafter\XINT@mul@choice@b\expandafter{#2}{#1}% }% \def\XINT@mul@choice@b #1#2% {% @@ -1680,11 +1660,9 @@ \expandafter\XINT@mul@choice@littlebyfirst \else \ifnum #2<5 - \expandafter\expandafter\expandafter - \XINT@mul@choice@littlebysecond + \expandafter\expandafter\expandafter\XINT@mul@choice@littlebysecond \else - \expandafter\expandafter\expandafter - \XINT@mul@choice@compare + \expandafter\expandafter\expandafter\XINT@mul@choice@compare \fi \fi {#1}{#2}% @@ -1748,17 +1726,15 @@ }% \def\XINT@mul@choice@same #1#2% {% - \expandafter - \XINT@mul@enter\romannumeral0% - \XINT@RQ {}#1\R\R\R\R\R\R\R\R\Z - \W\X\Y\Z #2\W\X\Y\Z + \expandafter\XINT@mul@enter + \romannumeral0\XINT@RQ {}#1\R\R\R\R\R\R\R\R\Z + \W\X\Y\Z #2\W\X\Y\Z }% \def\XINT@mul@choice@permute #1#2% {% - \expandafter - \XINT@mul@enter\romannumeral0% - \XINT@RQ {}#2\R\R\R\R\R\R\R\R\Z - \W\X\Y\Z #1\W\X\Y\Z + \expandafter\XINT@mul@enter + \romannumeral0\XINT@RQ {}#2\R\R\R\R\R\R\R\R\Z + \W\X\Y\Z #1\W\X\Y\Z }% \def\XINT@mul@Ar #1#2#3#4#5#6% {% @@ -1769,8 +1745,9 @@ \XINT@addr@AC@checkcarry #1% }% \def\XINT@mul@Br #1#2#3#4\W\X\Y\Z #5#6#7#8% -{\expandafter - \XINT@mul@ABEAr\the\numexpr #1+10#2+#8#7#6#5\relax.{#3}#4\W\X\Y\Z +{% + \expandafter\XINT@mul@ABEAr + \the\numexpr #1+10#2+#8#7#6#5\relax.{#3}#4\W\X\Y\Z }% \def\XINT@mul@ABEAr #1#2#3#4#5#6.#7% {% @@ -1778,9 +1755,8 @@ }% \def\XINT@mul@Mr #1% {% - \expandafter - \XINT@mul@Mr@checkifzeroorone - \expandafter{\the\numexpr #1\relax}% + \expandafter\XINT@mul@Mr@checkifzeroorone + \expandafter{\the\numexpr #1}% }% \def\XINT@mul@Mr@checkifzeroorone #1% {% @@ -1800,8 +1776,8 @@ \xint@z #4\xint@mul@pr\Z\XINT@mul@Pr {#1}{#3}{#7#6#5#4}{#2}{#3}% }% \def\XINT@mul@Pr #1#2#3% -{\expandafter - \XINT@mul@Lr\the\numexpr 10000#1+#2*#3\relax +{% + \expandafter\XINT@mul@Lr\the\numexpr 10000#1+#2*#3\relax }% \def\XINT@mul@Lr 1#1#2#3#4#5#6#7#8#9% {% @@ -1815,9 +1791,9 @@ \def\XINT@mul@Mr@end@nocarry 0000\XINT@mul@Mr@end@carry 0000#1{ #1}% \def\XINT@mul@Mr@end@carry #1#2#3#4#5{ #5#4#3#2#1}% \def\XINT@mul@M #1% -{\expandafter - \XINT@mul@M@checkifzeroorone - \expandafter{\the\numexpr #1\relax}% +{% + \expandafter\XINT@mul@M@checkifzeroorone + \expandafter{\the\numexpr #1}% }% \def\XINT@mul@M@checkifzeroorone #1% {% @@ -1833,8 +1809,7 @@ \def\XINT@mul@M@zero #1\Z\Z\Z\Z { 0}% \def\XINT@mul@M@one #1#2#3#4\Z\Z\Z\Z {% - \expandafter - \xint@cleanupzeros@andstop + \expandafter\xint@cleanupzeros@andstop \romannumeral0\XINT@rev{#4}% }% \def\XINT@mul@N #1#2#3#4#5#6#7% @@ -1842,8 +1817,8 @@ \xint@z #4\xint@mul@p\Z\XINT@mul@P {#1}{#3}{#7#6#5#4}{#2}{#3}% }% \def\XINT@mul@P #1#2#3% -{\expandafter - \XINT@mul@L\the\numexpr 10000#1+#2*#3\relax +{% + \expandafter\XINT@mul@L\the\numexpr 10000#1+#2*#3\relax }% \def\XINT@mul@L 1#1#2#3#4#5#6#7#8#9% {% @@ -1854,8 +1829,8 @@ \XINT@mul@M@end #1#4% }% \def\XINT@mul@M@end #1#2#3#4#5#6#7#8% -{\expandafter\space - \the\numexpr #1#2#3#4#5#6#7#8\relax +{% + \expandafter\space\the\numexpr #1#2#3#4#5#6#7#8\relax }% \def\XINT@mul@enter #1\W\X\Y\Z #2#3#4#5% {% @@ -1888,8 +1863,8 @@ \XINT@mul@M {#1}#3\Z\Z\Z\Z }% \def\XINT@mul@start #1#2\W\X\Y\Z -{\expandafter - \XINT@mul@main \expandafter +{% + \expandafter\XINT@mul@main\expandafter {\romannumeral0\XINT@mul@Mr {#1}#2\Z\Z\Z\Z}#2\W\X\Y\Z }% \def\XINT@mul@main #1#2\W\X\Y\Z #3#4#5#6% @@ -1902,12 +1877,12 @@ \W\XINT@mul@compute {#1}{#3#4#5#6}#2\W\X\Y\Z }% \def\XINT@mul@compute #1#2#3\W\X\Y\Z -{\expandafter - \XINT@mul@main \expandafter - {\romannumeral0\expandafter - \XINT@mul@Ar \expandafter0\expandafter{\expandafter}% - \romannumeral0\XINT@mul@Mr {#2}#3\Z\Z\Z\Z - \W\X\Y\Z 0000#1\W\X\Y\Z }#3\W\X\Y\Z +{% + \expandafter\XINT@mul@main\expandafter + {\romannumeral0\expandafter + \XINT@mul@Ar\expandafter0\expandafter{\expandafter}% + \romannumeral0\XINT@mul@Mr {#2}#3\Z\Z\Z\Z + \W\X\Y\Z 0000#1\W\X\Y\Z }#3\W\X\Y\Z }% \def\xint@mul@mainw #1\xint@mul@mainx @@ -1915,8 +1890,7 @@ #3\xint@mul@mainz \W\XINT@mul@compute #4#5#6\W\X\Y\Z \X\Y\Z {% - \expandafter - \XINT@addm@A \expandafter0\expandafter{\expandafter}% + \expandafter\XINT@addm@A \expandafter0\expandafter{\expandafter}% \romannumeral0% \XINT@mul@Mr {#3#2#1}#6\Z\Z\Z\Z \W\X\Y\Z 000#4\W\X\Y\Z @@ -1926,26 +1900,23 @@ #2\xint@mul@mainz \W\XINT@mul@compute #3#4#5\W\X\Y\Z \Y\Z {% - \expandafter - \XINT@addm@A \expandafter0\expandafter{\expandafter}% - \romannumeral0% - \XINT@mul@Mr {#2#1}#5\Z\Z\Z\Z - \W\X\Y\Z 00#3\W\X\Y\Z + \expandafter\XINT@addm@A\expandafter + 0\expandafter{\expandafter}% + \romannumeral0\XINT@mul@Mr {#2#1}#5\Z\Z\Z\Z + \W\X\Y\Z 00#3\W\X\Y\Z }% \def\xint@mul@mainy #1\xint@mul@mainz \W\XINT@mul@compute #2#3#4\W\X\Y\Z \Z {% - \expandafter - \XINT@addm@A \expandafter0\expandafter{\expandafter}% - \romannumeral0% - \XINT@mul@Mr {#1}#4\Z\Z\Z\Z - \W\X\Y\Z 0#2\W\X\Y\Z + \expandafter\XINT@addm@A\expandafter + 0\expandafter{\expandafter}% + \romannumeral0\XINT@mul@Mr {#1}#4\Z\Z\Z\Z + \W\X\Y\Z 0#2\W\X\Y\Z }% \def\xint@mul@mainz\W\XINT@mul@compute #1#2#3\W\X\Y\Z {% - \expandafter - \xint@cleanupzeros@andstop\romannumeral0\XINT@rev{#1}% + \expandafter\xint@cleanupzeros@andstop\romannumeral0\XINT@rev{#1}% }% \def\XINT@mulr@enter #1\W\X\Y\Z #2#3#4#5% {% @@ -1978,8 +1949,8 @@ \XINT@mul@Mr {#1}#3\Z\Z\Z\Z }% \def\XINT@mulr@start #1#2\W\X\Y\Z -{\expandafter - \XINT@mulr@main \expandafter +{% + \expandafter\XINT@mulr@main\expandafter {\romannumeral0\XINT@mul@Mr {#1}#2\Z\Z\Z\Z }#2\W\X\Y\Z }% \def\XINT@mulr@main #1#2\W\X\Y\Z #3#4#5#6% @@ -1992,8 +1963,8 @@ \W\XINT@mulr@compute {#1}{#3#4#5#6}#2\W\X\Y\Z }% \def\XINT@mulr@compute #1#2#3\W\X\Y\Z -{\expandafter - \XINT@mulr@main \expandafter +{% + \expandafter\XINT@mulr@main\expandafter {\romannumeral0\expandafter \XINT@mul@Ar \expandafter0\expandafter{\expandafter}% \romannumeral0\XINT@mul@Mr {#2}#3\Z\Z\Z\Z \W\X\Y\Z 0000#1\W\X\Y\Z @@ -2004,8 +1975,8 @@ #2\xint@mulr@mainy #3\xint@mulr@mainz \W\XINT@mulr@compute #4#5#6\W\X\Y\Z \X\Y\Z -{\expandafter - \XINT@addp@A +{% + \expandafter\XINT@addp@A \expandafter0\expandafter{\expandafter}% \romannumeral0\XINT@mul@Mr {#3#2#1}#6\Z\Z\Z\Z \W\X\Y\Z 000#4\W\X\Y\Z @@ -2014,8 +1985,8 @@ #1\xint@mulr@mainy #2\xint@mulr@mainz \W\XINT@mulr@compute #3#4#5\W\X\Y\Z \Y\Z -{\expandafter - \XINT@addp@A +{% + \expandafter\XINT@addp@A \expandafter0\expandafter{\expandafter}% \romannumeral0\XINT@mul@Mr {#2#1}#5\Z\Z\Z\Z \W\X\Y\Z 00#3\W\X\Y\Z @@ -2023,8 +1994,8 @@ \def\xint@mulr@mainy #1\xint@mulr@mainz \W\XINT@mulr@compute #2#3#4\W\X\Y\Z \Z -{\expandafter - \XINT@addp@A +{% + \expandafter\XINT@addp@A \expandafter0\expandafter{\expandafter}% \romannumeral0\XINT@mul@Mr {#1}#4\Z\Z\Z\Z \W\X\Y\Z 0#2\W\X\Y\Z @@ -2040,8 +2011,8 @@ }% \let\xintSqr\xintiSqr \let\xintsqr\xintisqr \def\XINT@sqr #1% -{\expandafter - \XINT@mul@enter +{% + \expandafter\XINT@mul@enter \romannumeral0% \XINT@RQ {}#1\R\R\R\R\R\R\R\R\Z \W\X\Y\Z #1\W\X\Y\Z @@ -2060,8 +2031,7 @@ \def\XINT@productexpr {\XINT@prod@loop@a 1\Z }% \def\XINT@prod@loop@a #1\Z #2% {% - \expandafter\expandafter\expandafter - \XINT@prod@loop@b #2\Z #1\Z \Z + \expandafter\expandafter\expandafter\XINT@prod@loop@b #2\Z #1\Z \Z }% \def\XINT@prod@loop@b #1% {% @@ -2084,7 +2054,7 @@ \def\XINT@Fac {\romannumeral0\XINT@fac@fork }% \def\XINT@fac@fork #1% {% - \ifcase\xintiSgn {#1} + \ifcase\XINT@Sgn {#1} \xint@afterfi{\expandafter\space\expandafter 1\xint@gobble }% \or \expandafter\XINT@fac@checklength @@ -2096,7 +2066,7 @@ }% \def\XINT@fac@checklength #1% {% - \ifnum \XINT@Length {#1}> 9 + \ifnum\numexpr #1\relax>999999 \xint@afterfi{\xintError:FactorialOfTooBigNumber \expandafter\space\expandafter 1\xint@gobble }% \else @@ -2162,8 +2132,7 @@ \def\xintiPow {\romannumeral0\xintipow }% \def\xintipow #1% {% - \expandafter\expandafter\expandafter - \xint@pow + \expandafter\expandafter\expandafter\xint@pow #1\Z% }% \let\xintPow\xintiPow \let\xintpow\xintipow @@ -2237,7 +2206,7 @@ \def\XINT@pow@BisZero #1#2{ 1}% \def\XINT@pow@checkBlength #1#2% {% - \ifnum\xintiLen{#1} >9 + \ifnum\numexpr #1\relax >999999999 \expandafter\XINT@pow@BtooBig \else \expandafter\XINT@pow@loop @@ -2249,7 +2218,7 @@ \xint@UNDEF }% \def\XINT@pow@BtooBig #1\xint@UNDEF #2\xint@UNDEF - {\xintError:ExponentTooBig\space 0}% + {\xintError:ExponentTooBig\space 0}% \def\XINT@pow@loop #1#2% {% \ifnum #1 = 1 @@ -2301,31 +2270,31 @@ }% \def\XINT@pow@pprod@compute #1\Z #2% {% - \expandafter \XINT@pow@pprod@getnext \expandafter + \expandafter\XINT@pow@pprod@getnext\expandafter {\romannumeral0\XINT@mulr@enter #2\W\X\Y\Z #1\W\X\Y\Z}% }% \def\XINT@pow@pprod@end\relax\XINT@pow@pprod@compute #1\Z #2% {% - \expandafter - \xint@cleanupzeros@andstop + \expandafter\xint@cleanupzeros@andstop \romannumeral0\XINT@rev {#2}% }% -\def\xintQuo {\romannumeral0\xintquo }% -\def\xintRem {\romannumeral0\xintrem }% -\def\xintquo {\expandafter - \xint@firstoftwo@andstop - \romannumeral0\xintdivision }% -\def\xintrem {\expandafter - \xint@secondoftwo@andstop - \romannumeral0\xintdivision }% -\def\xintDivision {\romannumeral0\xintdivision }% -\def\xintdivision #1% +\def\xintiQuo {\romannumeral0\xintiquo }% +\def\xintiRem {\romannumeral0\xintirem }% +\def\xintiquo {\expandafter\xint@firstoftwo@andstop + \romannumeral0\xintidivision }% +\def\xintirem {\expandafter\xint@secondoftwo@andstop + \romannumeral0\xintidivision }% +\let\xintQuo\xintiQuo \let\xintquo\xintiquo +\let\xintRem\xintiRem \let\xintrem\xintirem +\def\xintiDivision {\romannumeral0\xintidivision }% +\def\xintidivision #1% {% \expandafter\expandafter\expandafter \xint@division \expandafter\expandafter\expandafter {#1}% }% +\let\xintDivision\xintiDivision \let\xintdivision\xintidivision \def\xint@division #1#2% {% \expandafter\expandafter\expandafter @@ -2346,8 +2315,7 @@ \xint@UDkrof {#2}{#4}#1#3% #1#2=B, #3#4=A }% -\def\XINT@div@BisZero #1#2#3#4% - {\xintError:DivisionByZero\space {0}{0}}% +\def\XINT@div@BisZero #1#2#3#4{\xintError:DivisionByZero\space {0}{0}}% \def\XINT@div@AisZero #1#2#3#4{ {0}{0}}% \def\XINT@div@plusplus #1#2#3#4% {% @@ -2369,7 +2337,7 @@ }% \def\XINT@div@AisNegative@post #1#2% {% - \ifcase\xintiSgn {#2} + \ifcase\XINT@Sgn {#2} \expandafter \XINT@div@AisNegative@zerorem \or \expandafter \XINT@div@AisNegative@posrem @@ -2416,12 +2384,12 @@ \def\XINT@div@prepareB@a #1% {% \expandafter \XINT@div@prepareB@b \expandafter - {\the\numexpr 4*((#1+1)/4)\relax}{#1}% + {\the\numexpr 4*((#1+1)/4)}{#1}% }% \def\XINT@div@prepareB@b #1#2% {% \expandafter \XINT@div@prepareB@c \expandafter - {\the\numexpr #1-#2\relax}{#1}% + {\the\numexpr #1-#2}{#1}% }% \def\XINT@div@prepareB@c #1% {% @@ -2457,12 +2425,12 @@ \def\XINT@div@prepareA@b #1% {% \expandafter\XINT@div@prepareA@c\expandafter - {\the\numexpr 4*((#1+1)/4)\relax}{#1}% + {\the\numexpr 4*((#1+1)/4)}{#1}% }% \def\XINT@div@prepareA@c #1#2% {% \expandafter\XINT@div@prepareA@d \expandafter - {\the\numexpr #1-#2\relax}{#1}% + {\the\numexpr #1-#2}{#1}% }% \def\XINT@div@prepareA@d #1% {% @@ -2487,11 +2455,9 @@ \expandafter\XINT@div@body@a \else \ifnum #2 = #4 - \expandafter\expandafter\expandafter - \XINT@div@final@a + \expandafter\expandafter\expandafter\XINT@div@final@a \else - \expandafter\expandafter\expandafter - \XINT@div@finished@a + \expandafter\expandafter\expandafter\XINT@div@finished@a \fi\fi {#1}{#4}{#3}{0000}{#2}% }% \def\XINT@div@finished@a #1#2#3% @@ -2566,8 +2532,7 @@ \def\XINT@div@final@dc #1#2% {% \ifnum\XINT@Sgn{#1}<0 - \xint@afterfi {\expandafter\XINT@div@final@dP - \the\numexpr #2-1\relax }% + \xint@afterfi {\expandafter\XINT@div@final@dP\the\numexpr #2-1\relax}% \else \xint@afterfi {\XINT@div@final@e {#1}#2}% \fi }% @@ -2606,13 +2571,10 @@ \def\XINT@div@body@d #1#2#3#4#5#6% {% \ifnum #1 > 0 - \expandafter - \XINT@div@body@d - \expandafter - {\the\numexpr #1-4\expandafter }% + \expandafter\XINT@div@body@d + \expandafter{\the\numexpr #1-4\expandafter }% \else - \expandafter - \XINT@div@body@e + \expandafter\XINT@div@body@e \fi {#6#5#4#3#2}% }% @@ -2636,8 +2598,7 @@ }% \def\XINT@div@body@gk #1#2#3% {% - \expandafter - \XINT@div@body@h + \expandafter\XINT@div@body@h \romannumeral0\XINT@div@sub@xpxp {\romannumeral0\XINT@mul@Mr {#1}#2\Z\Z\Z\Z }{#3}\Z {#1}% }% @@ -2650,8 +2611,7 @@ }% \def\XINT@div@body@gggk #1#2#3#4% {% - \expandafter - \XINT@div@body@h + \expandafter\XINT@div@body@h \romannumeral0\XINT@div@sub@xpxp {\romannumeral0\expandafter\XINT@mul@Ar \expandafter0\expandafter{\expandafter}#2\W\X\Y\Z #1\W\X\Y\Z }% @@ -2673,7 +2633,7 @@ \def\XINT@div@body@i #1#2#3#4#5#6% {% \expandafter\XINT@div@body@j - \expandafter{\the\numexpr (#1+(#6+1)/2)/(#6+1)-1\relax }% + \expandafter{\the\numexpr (#1+(#6+1)/2)/(#6+1)-1}% {#2}{#3}{#4}{#5}{#6}% }% \def\XINT@div@body@j #1#2#3#4% @@ -2685,8 +2645,7 @@ }% \def\XINT@div@body@l #1#2#3#4#5#6#7% {% - \expandafter - \XINT@div@body@m + \expandafter\XINT@div@body@m \the\numexpr 100000000+#2\relax {#6}{#3}{#7}{#1#5}{#4}% }% @@ -2723,8 +2682,7 @@ }% \def\XINT@div@body@repeatp #1#2#3#4#5#6#7% {% - \expandafter \XINT@div@body@p \expandafter - {\the\numexpr #1-4\relax}{#2}{0000#3}% + \expandafter\XINT@div@body@p\expandafter{\the\numexpr #1-4}{#2}{0000#3}% }% \def\XINT@div@body@q #1#2#3#4\Z #5#6% {% @@ -2740,13 +2698,11 @@ }% \def\XINT@div@sub@xpxp #1% {% - \expandafter \XINT@div@sub@xpxp@ \expandafter - {#1}% + \expandafter \XINT@div@sub@xpxp@ \expandafter{#1}% }% \def\XINT@div@sub@xpxp@ #1#2% {% - \expandafter\expandafter\expandafter - \XINT@div@sub@xpxp@@ + \expandafter\expandafter\expandafter\XINT@div@sub@xpxp@@ #2\W\X\Y\Z #1\W\X\Y\Z }% \def\XINT@div@sub@xpxp@@ @@ -2755,26 +2711,23 @@ }% \def\XINT@div@sub@A #1#2#3#4#5#6% {% - \xint@w - #3\xint@div@sub@az - \W\XINT@div@sub@B #1{#3#4#5#6}{#2}% + \xint@w #3\xint@div@sub@az\W + \XINT@div@sub@B #1{#3#4#5#6}{#2}% }% \def\XINT@div@sub@B #1#2#3#4\W\X\Y\Z #5#6#7#8% {% - \xint@w - #5\xint@div@sub@bz - \W\XINT@div@sub@onestep #1#2{#8#7#6#5}{#3}#4\W\X\Y\Z + \xint@w #5\xint@div@sub@bz\W + \XINT@div@sub@onestep #1#2{#8#7#6#5}{#3}#4\W\X\Y\Z }% \def\XINT@div@sub@onestep #1#2#3#4#5#6% -{\expandafter - \XINT@div@sub@backtoA\the\numexpr 11#5#4#3#2-#6+#1-1\relax.% +{% + \expandafter\XINT@div@sub@backtoA\the\numexpr 11#5#4#3#2-#6+#1-1\relax.% }% \def\XINT@div@sub@backtoA #1#2#3.#4% {% \XINT@div@sub@A #2{#3#4}% }% -\def\xint@div@sub@bz - \W\XINT@div@sub@onestep #1#2#3#4#5#6#7% +\def\xint@div@sub@bz\W\XINT@div@sub@onestep #1#2#3#4#5#6#7% {% \xint@UDzerofork #1\dummy \XINT@div@sub@C % @@ -2795,13 +2748,12 @@ }% \def\XINT@div@sub@C #1#2#3#4#5% {% - \xint@w - #2\xint@div@sub@cz - \W\XINT@div@sub@AC@onestep {#5#4#3#2}{#1}% + \xint@w #2\xint@div@sub@cz\W + \XINT@div@sub@AC@onestep {#5#4#3#2}{#1}% }% \def\XINT@div@sub@AC@onestep #1% -{\expandafter - \XINT@div@sub@backtoC\the\numexpr 11#1-1\relax.% +{% + \expandafter\XINT@div@sub@backtoC\the\numexpr 11#1-1\relax.% }% \def\XINT@div@sub@backtoC #1#2#3.#4% {% @@ -2824,64 +2776,60 @@ }% \def\xint@div@sub@cz\W\XINT@div@sub@AC@onestep #1#2{ #2}% \def\xint@div@sub@az\W\XINT@div@sub@B #1#2#3#4\Z { #3}% -\def\xintFDg {\romannumeral0\xintfdg }% -\def\xintfdg #1% +\def\xintiFDg {\romannumeral0\xintifdg }% +\def\xintifdg #1% {% - \expandafter\expandafter\expandafter - \XINT@fdg #1\W\Z + \expandafter\expandafter\expandafter\XINT@fdg #1\W\Z }% +\let\xintFDg\xintiFDg \let\xintfdg\xintifdg \def\XINT@FDg #1{\romannumeral0\XINT@fdg #1\W\Z }% -\def\XINT@fdg #1#2% +\def\XINT@fdg #1#2#3\Z {% - \xint@xpxp@andstop \xint@UDzerominusfork - #1-\dummy {\expandafter 0}% zero - 0#1\dummy {\expandafter #2}% negative - 0-\dummy {\expandafter #1}% positive + #1-\dummy { 0}% zero + 0#1\dummy { #2}% negative + 0-\dummy { #1}% positive \xint@UDkrof - \xint@z }% -\def\xintLDg {\romannumeral0\xintldg }% -\def\xintldg #1% +\def\xintiLDg {\romannumeral0\xintildg }% +\def\xintildg #1% {% \expandafter\expandafter\expandafter \XINT@ldg \expandafter\expandafter\expandafter {#1}% }% +\let\xintLDg\xintiLDg \let\xintldg\xintildg \def\XINT@LDg #1{\romannumeral0\XINT@ldg {#1}}% \def\XINT@ldg #1% {% - \expandafter - \XINT@ldg@ - \romannumeral0\XINT@rev {#1}\Z -}% -\def\XINT@ldg@ #1% -{% - \expandafter\space\expandafter #1\xint@z + \expandafter\XINT@ldg@\romannumeral0\XINT@rev {#1}\Z }% -\def\xintMON {\romannumeral0\xintmon }% -\def\xintmon #1% +\def\XINT@ldg@ #1#2\Z{ #1}% +\def\xintiMON {\romannumeral0\xintimon }% +\def\xintimon #1% {% - \ifodd\xintLDg {#1} + \ifodd\xintiLDg {#1} \xint@afterfi{ -1}% \else \xint@afterfi{ 1}% \fi }% -\def\xintMMON {\romannumeral0\xintmmon }% -\def\xintmmon #1% +\def\xintiMMON {\romannumeral0\xintimmon }% +\def\xintimmon #1% {% - \ifodd\xintLDg {#1} + \ifodd\xintiLDg {#1} \xint@afterfi{ 1}% \else \xint@afterfi{ -1}% \fi }% -\def\xintOdd {\romannumeral0\xintodd }% -\def\xintodd #1% +\let\xintMON\xintiMON \let\xintmon\xintimon +\let\xintMMON\xintiMMON \let\xintmmon\xintimmon +\def\xintiOdd {\romannumeral0\xintiodd }% +\def\xintiodd #1% {% - \ifodd\xintLDg{#1} + \ifodd\xintiLDg{#1} \xint@afterfi{ 1}% \else \xint@afterfi{ 0}% @@ -2895,11 +2843,11 @@ \xint@afterfi{ 0}% \fi }% +\let\xintOdd\xintiOdd \let\xintodd\xintiodd \def\xintDSL {\romannumeral0\xintdsl }% \def\xintdsl #1% {% - \expandafter\expandafter\expandafter - \XINT@dsl #1\Z + \expandafter\expandafter\expandafter\XINT@dsl #1\Z }% \def\XINT@DSL #1{\romannumeral0\XINT@dsl #1\Z }% \def\XINT@dsl #1% @@ -2919,24 +2867,22 @@ \def\XINT@DSR #1{\romannumeral0\XINT@dsr@a {#1}\W\Z }% \def\XINT@dsr@a {% - \expandafter - \XINT@dsr@b + \expandafter\XINT@dsr@b \romannumeral0\XINT@rev }% \def\XINT@dsr@b #1#2#3\Z {% \xint@w #2\xint@dsr@onedigit\W \xint@minus #2\xint@dsr@onedigit-% - \expandafter - \XINT@dsr@removew + \expandafter\XINT@dsr@removew \romannumeral0\XINT@rev {#2#3}% }% \def\xint@dsr@onedigit #1\XINT@rev #2{ 0}% \def\XINT@dsr@removew #1\W { }% \def\xintDSHr {\romannumeral0\xintdshr }% \def\xintdshr #1% -{\expandafter\expandafter\expandafter - \XINT@dshr@checkxpositive #1\Z +{% + \expandafter\expandafter\expandafter\XINT@dshr@checkxpositive #1\Z }% \def\XINT@dshr@checkxpositive #1% {% @@ -2949,8 +2895,7 @@ \def\XINT@dshr@xzeroorneg #1\Z #2{ 0}% \def\XINT@dshr@xpositive #1\Z {% - \expandafter - \xint@secondoftwo@andstop + \expandafter\xint@secondoftwo@andstop \romannumeral0\xintdsx {#1}% }% \def\xintDSH {\romannumeral0\xintdsh }% @@ -2977,8 +2922,7 @@ \def\XINT@dsh@xiszero #1\Z #2{ #2}% \def\XINT@dsh@xisPos #1\Z #2% {% - \expandafter - \xint@firstoftwo@andstop + \expandafter\xint@firstoftwo@andstop \romannumeral0\XINT@dsx@checksignA #2\Z {#1}% via DSx }% \def\xintDSx {\romannumeral0\xintdsx }% @@ -2991,8 +2935,7 @@ }% \def\xint@dsx #1#2% {% - \expandafter\expandafter\expandafter - \XINT@dsx@checksignx #2\Z {#1}% + \expandafter\expandafter\expandafter\XINT@dsx@checksignx #2\Z {#1}% }% \def\XINT@DSx #1#2{\romannumeral0\XINT@dsx@checksignx #1\Z {#2}}% \def\XINT@dsx #1#2{\XINT@dsx@checksignx #1\Z {#2}}% @@ -3076,8 +3019,7 @@ \def\XINT@dsx@AisZero #1\Z #2{ {0}{0}}% \def\XINT@dsx@AisNeg #1\Z #2% {% - \expandafter - \XINT@dsx@AisNeg@dosplit@andcheckfirst + \expandafter\XINT@dsx@AisNeg@dosplit@andcheckfirst \romannumeral0\XINT@split@checksizex {#2}{#1}% }% \def\XINT@dsx@AisNeg@dosplit@andcheckfirst #1% @@ -3092,26 +3034,22 @@ \def\XINT@dsx@AisNeg@finish@zero\Z \XINT@dsx@AisNeg@finish@notzero\Z #1% {% - \expandafter - \XINT@dsx@end + \expandafter\XINT@dsx@end \expandafter {\romannumeral0\XINT@num {-#1}}{0}% }% \def\XINT@dsx@AisNeg@finish@notzero #1\Z #2% {% - \expandafter - \XINT@dsx@end + \expandafter\XINT@dsx@end \expandafter {\romannumeral0\XINT@num {#2}}{-#1}% }% \def\XINT@dsx@AisPos #1\Z #2% {% - \expandafter - \XINT@dsx@AisPos@finish + \expandafter\XINT@dsx@AisPos@finish \romannumeral0\XINT@split@checksizex {#2}{#1}% }% \def\XINT@dsx@AisPos@finish #1#2% {% - \expandafter - \XINT@dsx@end + \expandafter\XINT@dsx@end \expandafter {\romannumeral0\XINT@num {#2}}% {\romannumeral0\XINT@num {#1}}% }% @@ -3123,14 +3061,12 @@ \def\xintDecSplitR {\romannumeral0\xintdecsplitr }% \def\xintdecsplitl {% - \expandafter - \xint@firstoftwo@andstop + \expandafter\xint@firstoftwo@andstop \romannumeral0\xintdecsplit }% \def\xintdecsplitr {% - \expandafter - \xint@secondoftwo@andstop + \expandafter\xint@secondoftwo@andstop \romannumeral0\xintdecsplit }% \def\xintDecSplit {\romannumeral0\xintdecsplit }% @@ -3218,10 +3154,7 @@ {% \XINT@split@fromleft@toofar@b #2\Z }% -\def\XINT@split@fromleft@toofar@b #1\W #2\Z -{% - \space {#1}{}% -}% +\def\XINT@split@fromleft@toofar@b #1\W #2\Z { {#1}{}}% \def\XINT@split@fromleft@one@andend #1\fi {\fi\expandafter\XINT@split@fromleft@checkiftoofar\XINT@split@fromleft@one }% \def\XINT@split@fromleft@one #1#2{#2{#1#2}}% @@ -3252,10 +3185,7 @@ {% \XINT@split@fromleft@wenttoofar@b #1\Z }% -\def\XINT@split@fromleft@wenttoofar@b #1\W #2\Z -{% - \space {#1}% -}% +\def\XINT@split@fromleft@wenttoofar@b #1\W #2\Z { {#1}}% \def\XINT@split@fromright #1\Z #2% {% \expandafter \XINT@split@fromright@a \expandafter |