summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/xint/xint.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/xint/xint.sty')
-rw-r--r--Master/texmf-dist/tex/generic/xint/xint.sty550
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