summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-05-17 22:26:13 +0000
committerKarl Berry <karl@freefriends.org>2013-05-17 22:26:13 +0000
commit80eb7bfc5d988aac41d54fb476da10747288bf1c (patch)
tree5690a4b3e07227d1db88bd999d14c81be3f31b64 /Master/texmf-dist/tex
parent10710410fa127b4c7ebef6d49956901b912b16ba (diff)
xint (17may13)
git-svn-id: svn://tug.org/texlive/trunk@30528 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex')
-rw-r--r--Master/texmf-dist/tex/generic/xint/xint.sty3464
-rw-r--r--Master/texmf-dist/tex/generic/xint/xintcfrac.sty831
-rw-r--r--Master/texmf-dist/tex/generic/xint/xintfrac.sty1072
-rw-r--r--Master/texmf-dist/tex/generic/xint/xintgcd.sty295
-rw-r--r--Master/texmf-dist/tex/generic/xint/xintseries.sty215
5 files changed, 2957 insertions, 2920 deletions
diff --git a/Master/texmf-dist/tex/generic/xint/xint.sty b/Master/texmf-dist/tex/generic/xint/xint.sty
index ef1d86a9614..c296158f940 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.06a of May 9, 2013)
+%% The xint bundle (version 1.06b of May 14, 2013)
%% xint: Expandable operations on long numbers
%% Copyright (C) 2013 by Jean-Francois Burnol
%%----------------------------------------------------------------
@@ -33,6 +33,7 @@
\catcode123=1 % {
\catcode125=2 % }
\catcode64=11 % @
+ \catcode95=11 % _ (starting with 1.06b, used inside cs names)
\catcode35=6 % #
\catcode44=12 % ,
\catcode45=12 % -
@@ -64,7 +65,7 @@
\def\ChangeCatcodesIfInputNotAborted
{%
\endgroup
- \edef\XINT@restorecatcodes@endinput
+ \edef\XINT_restorecatcodes_endinput
{%
\catcode96=\the\catcode96 % `
\catcode47=\the\catcode47 % /
@@ -79,7 +80,7 @@
\catcode45=\the\catcode45 % -
\catcode44=\the\catcode44 % ,
\catcode35=\the\catcode35 % #
- \catcode64=\the\catcode64 % @
+ \catcode95=\the\catcode95 % _
\catcode125=\the\catcode125 % }
\catcode123=\the\catcode123 % {
\endlinechar=\the\endlinechar
@@ -88,7 +89,7 @@
\catcode61=\the\catcode61\relax % =
\noexpand\endinput
}%
- \def\XINT@setcatcodes
+ \def\XINT_setcatcodes
{%
\catcode61=12 % =
\catcode32=10 % space
@@ -96,7 +97,7 @@
\endlinechar=13 %
\catcode123=1 % {
\catcode125=2 % }
- \catcode64=11 % @
+ \catcode95=11 % _ (replaces @ everywhere, starting with 1.06b)
\catcode35=6 % #
\catcode44=12 % ,
\catcode45=12 % -
@@ -111,10 +112,11 @@
\catcode47=12 % /
\catcode96=12 % `
}%
- \XINT@setcatcodes
+ \XINT_setcatcodes
}%
\ChangeCatcodesIfInputNotAborted
\begingroup
+ \catcode64=11 % @
\catcode91=12 % [
\catcode93=12 % ]
\catcode58=12 % : (does not really matter, was letter)
@@ -136,405 +138,400 @@
\fi
\expandafter\x\csname ver@xint.sty\endcsname
\ProvidesPackage{xint}%
- [2013/05/09 v1.06a Expandable operations on long numbers (jfB)]%
-\def\xint@gobble #1{}%
-\def\xint@gobble@ {}%
-\def\xint@gobble@i #1{}%
-\def\xint@gobble@ii #1#2{}%
-\def\xint@gobble@iii #1#2#3{}%
-\def\xint@gobble@iv #1#2#3#4{}%
-\def\xint@gobble@v #1#2#3#4#5{}%
-\def\xint@gobble@vi #1#2#3#4#5#6{}%
-\def\xint@gobble@vii #1#2#3#4#5#6#7{}%
-\def\xint@gobble@viii #1#2#3#4#5#6#7#8{}%
-\def\xint@firstoftwo #1#2{#1}%
-\def\xint@secondoftwo #1#2{#2}%
-\def\xint@firstoftwo@andstop #1#2{ #1}%
-\def\xint@secondoftwo@andstop #1#2{ #2}%
-\def\xint@exchangetwo@keepbraces@andstop #1#2{ {#2}{#1}}%
-\def\xint@minus@andstop { -}%
-\def\xint@r #1\R {}%
-\def\xint@w #1\W {}%
-\def\xint@z #1\Z {}%
-\def\xint@zero #10{}%
-\def\xint@one #11{}%
-\def\xint@minus #1-{}%
-\def\xint@relax #1\relax {}%
-\def\xint@quatrezeros #10000{}%
-\def\xint@bracedundef {\xint@undef }%
-\def\xint@UDzerofork #10\dummy #2#3\xint@UDkrof {#2}%
-\def\xint@UDsignfork #1-\dummy #2#3\xint@UDkrof {#2}%
-\def\xint@UDwfork #1\W\dummy #2#3\xint@UDkrof {#2}%
-\def\xint@UDzerosfork #100\dummy #2#3\xint@UDkrof {#2}%
-\def\xint@UDonezerofork #110\dummy #2#3\xint@UDkrof {#2}%
-\def\xint@UDzerominusfork #10-\dummy #2#3\xint@UDkrof {#2}%
-\def\xint@UDsignsfork #1--\dummy #2#3\xint@UDkrof {#2}%
-\def\xint@afterfi #1#2\fi {\fi #1}%
+ [2013/05/14 v1.06b Expandable operations on long numbers (jfB)]%
+\def\xint_gobble_ {}%
+\def\xint_gobble_i #1{}%
+\def\xint_gobble_ii #1#2{}%
+\def\xint_gobble_iii #1#2#3{}%
+\def\xint_gobble_iv #1#2#3#4{}%
+\def\xint_gobble_v #1#2#3#4#5{}%
+\def\xint_gobble_vi #1#2#3#4#5#6{}%
+\def\xint_gobble_vii #1#2#3#4#5#6#7{}%
+\def\xint_gobble_viii #1#2#3#4#5#6#7#8{}%
+\def\xint_firstoftwo #1#2{#1}%
+\def\xint_secondoftwo #1#2{#2}%
+\def\xint_firstoftwo_andstop #1#2{ #1}%
+\def\xint_secondoftwo_andstop #1#2{ #2}%
+\def\xint_exchangetwo_keepbraces_andstop #1#2{ {#2}{#1}}%
+\def\xint_minus_andstop { -}%
+\def\xint_gob_til_r #1\R {}%
+\def\xint_gob_til_w #1\W {}%
+\def\xint_gob_til_z #1\Z {}%
+\def\xint_gob_til_zero #10{}%
+\def\xint_gob_til_one #11{}%
+\def\xint_gob_til_zeros_iv #10000{}%
+\def\xint_gob_til_relax #1\relax {}%
+\def\xint_gob_til_xint_undef #1\xint_undef {}%
+\def\xint_gob_til_xint_relax #1\xint_relax {}%
+\def\xint_UDzerofork #10\dummy #2#3\krof {#2}%
+\def\xint_UDsignfork #1-\dummy #2#3\krof {#2}%
+\def\xint_UDwfork #1\W\dummy #2#3\krof {#2}%
+\def\xint_UDzerosfork #100\dummy #2#3\krof {#2}%
+\def\xint_UDonezerofork #110\dummy #2#3\krof {#2}%
+\def\xint_UDzerominusfork #10-\dummy #2#3\krof {#2}%
+\def\xint_UDsignsfork #1--\dummy #2#3\krof {#2}%
+\def\xint_afterfi #1#2\fi {\fi #1}%
+\let\xint_relax\relax
+\def\xint_braced_xint_relax {\xint_relax }%
\def\xintRev {\romannumeral0\xintrev }%
\def\xintrev #1%
{%
- \expandafter\xint@rev\expandafter {\romannumeral-`0#1}%
+ \expandafter\XINT_rev_fork
+ \romannumeral-`0#1\xint_relax % empty #1 ok
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_relax
}%
-\def\xint@rev #1%
+\def\XINT_rev_fork #1%
{%
- \XINT@rev@fork #1\Z
+ \xint_UDsignfork
+ #1\dummy {\expandafter\xint_minus_andstop
+ \romannumeral0\XINT_rord_main {}}%
+ -\dummy {\XINT_rord_main {}#1}%
+ \krof
}%
-\def\XINT@rev@fork #1#2%
+\def\XINT_Rev {\romannumeral0\XINT_rev }%
+\def\xintReverseOrder {\romannumeral0\XINT_rev }%
+\def\XINT_rev #1%
{%
- \xint@UDsignfork
- #1\dummy \XINT@rev@negative
- -\dummy \XINT@rev@nonnegative
- \xint@UDkrof
- #1#2%
+ \XINT_rord_main {}#1%
+ \xint_relax
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_relax
}%
-\def\XINT@rev@negative #1#2\Z
+\def\XINT_rord_main #1#2#3#4#5#6#7#8#9%
{%
- \expandafter\xint@minus@andstop\romannumeral0\XINT@rev {#2}%
+ \xint_gob_til_xint_undef #9\XINT_rord_cleanup\xint_undef
+ \XINT_rord_main {#9#8#7#6#5#4#3#2#1}%
}%
-\def\XINT@rev@nonnegative #1\Z
+\def\XINT_rord_cleanup\xint_undef\XINT_rord_main #1#2\xint_relax
{%
- \XINT@rev {#1}%
+ \expandafter\space\xint_gob_til_xint_relax #1%
}%
-\def\XINT@Rev {\romannumeral0\XINT@rev }%
-\let\xintReverseOrder \XINT@Rev
-\def\XINT@rev #1%
-{%
- \XINT@rord@main {}#1%
- \xint@UNDEF
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@UNDEF
-}%
-\def\XINT@rord@main #1#2#3#4#5#6#7#8#9%
-{%
- \XINT@strip@undef #9\XINT@rord@cleanup\xint@undef
- \XINT@rord@main {#9#8#7#6#5#4#3#2#1}%
-}%
-\def\XINT@rord@cleanup\xint@undef\XINT@rord@main #1#2\xint@UNDEF
-{%
- \expandafter\space\XINT@strip@UNDEF #1%
-}%
-\def\XINT@strip@undef #1\xint@undef {}%
-\def\XINT@strip@UNDEF #1\xint@UNDEF {}%
-\def\xintRevWithBraces {\romannumeral0\xintrevwithbraces }%
+\def\xintRevWithBraces {\romannumeral0\xintrevwithbraces }%
+\def\xintRevWithBracesNoExpand {\romannumeral0\xintrevwithbracesnoexpand }%
\def\xintrevwithbraces #1%
{%
- \expandafter\XINT@revwbr@prep\expandafter {\romannumeral-`0#1}%
+ \expandafter\XINT_revwbr_loop % #1 empty ok
+ \romannumeral-`0#1\xint_relax\xint_relax\xint_relax\xint_relax
+ \xint_relax\xint_relax\xint_relax\xint_relax\Z
}%
-\def\XINT@RWB {\romannumeral0\XINT@revwbr@prep }%
-\def\XINT@revwbr@prep #1%
+\def\xintrevwithbracesnoexpand #1%
{%
- \XINT@revwbr@loop
- {}#1\xint@undef\xint@undef\xint@undef\xint@undef
- \xint@undef\xint@undef\xint@undef\xint@undef\Z
+ \romannumeral0\XINT_revwbr_loop
+ #1\xint_relax\xint_relax\xint_relax\xint_relax
+ \xint_relax\xint_relax\xint_relax\xint_relax\Z
}%
-\def\XINT@revwbr@loop #1#2#3#4#5#6#7#8#9%
+\def\XINT_revwbr_loop #1#2#3#4#5#6#7#8#9%
{%
- \XINT@strip@undef #9\XINT@revwbr@finish@a\xint@undef
- \XINT@revwbr@loop {{#9}{#8}{#7}{#6}{#5}{#4}{#3}{#2}#1}%
+ \xint_gob_til_xint_relax #9\XINT_revwbr_finish_a\xint_relax
+ \XINT_revwbr_loop {{#9}{#8}{#7}{#6}{#5}{#4}{#3}{#2}#1}%
}%
-\def\XINT@revwbr@finish@a\xint@undef\XINT@revwbr@loop #1#2\Z
+\def\XINT_revwbr_finish_a\xint_relax\XINT_revwbr_loop #1#2\Z
{%
- \XINT@revwbr@finish@b #2\R\R\R\R\R\R\R\Z #1%
+ \XINT_revwbr_finish_b #2\R\R\R\R\R\R\R\Z #1%
}%
-\def\XINT@revwbr@finish@b #1#2#3#4#5#6#7#8\Z
+\def\XINT_revwbr_finish_b #1#2#3#4#5#6#7#8\Z
{%
- \xint@r #1\XINT@revwbr@finish@c 8%
- #2\XINT@revwbr@finish@c 7%
- #3\XINT@revwbr@finish@c 6%
- #4\XINT@revwbr@finish@c 5%
- #5\XINT@revwbr@finish@c 4%
- #6\XINT@revwbr@finish@c 3%
- #7\XINT@revwbr@finish@c 2%
- \R\XINT@revwbr@finish@c 1\Z
+ \xint_gob_til_r
+ #1\XINT_revwbr_finish_c 8%
+ #2\XINT_revwbr_finish_c 7%
+ #3\XINT_revwbr_finish_c 6%
+ #4\XINT_revwbr_finish_c 5%
+ #5\XINT_revwbr_finish_c 4%
+ #6\XINT_revwbr_finish_c 3%
+ #7\XINT_revwbr_finish_c 2%
+ \R\XINT_revwbr_finish_c 1\Z
}%
-\def\XINT@revwbr@finish@c #1#2\Z
+\def\XINT_revwbr_finish_c #1#2\Z
{%
\expandafter\expandafter\expandafter
\space
- \csname xint@gobble@\romannumeral #1\endcsname
+ \csname xint_gobble_\romannumeral #1\endcsname
}%
\def\xintiLen {\romannumeral0\xintilen }%
\def\xintilen #1%
{%
- \expandafter\XINT@len@prep\expandafter {\romannumeral-`0#1}%
+ \expandafter\XINT_length_fork
+ \romannumeral-`0#1\xint_relax\xint_relax\xint_relax\xint_relax
+ \xint_relax\xint_relax\xint_relax\xint_relax\Z
}%
\let\xintLen\xintiLen \let\xintlen\xintilen
-\def\XINT@Len {\romannumeral0\XINT@len@prep }%
-\def\XINT@len@prep #1%
+\def\XINT_Len #1%
{%
- \XINT@length@fork
- #1\xint@undef\xint@undef\xint@undef\xint@undef
- \xint@undef\xint@undef\xint@undef\xint@undef\Z
+ \romannumeral0\XINT_length_fork
+ #1\xint_relax\xint_relax\xint_relax\xint_relax
+ \xint_relax\xint_relax\xint_relax\xint_relax\Z
}%
-\def\XINT@length@fork #1%
+\def\XINT_length_fork #1%
{%
- \expandafter\XINT@length@loop
- \xint@UDsignfork
+ \expandafter\XINT_length_loop
+ \xint_UDsignfork
#1\dummy {{0}}%
-\dummy {{0}#1}%
- \xint@UDkrof
+ \krof
}%
-\def\XINT@Length {\romannumeral0\XINT@length }%
-\def\XINT@length #1%
+\def\XINT_Length {\romannumeral0\XINT_length }%
+\def\XINT_length #1%
{%
- \XINT@length@loop
- {0}#1\xint@undef\xint@undef\xint@undef\xint@undef
- \xint@undef\xint@undef\xint@undef\xint@undef\Z
+ \XINT_length_loop
+ {0}#1\xint_relax\xint_relax\xint_relax\xint_relax
+ \xint_relax\xint_relax\xint_relax\xint_relax\Z
}%
-\let\xintLength\XINT@Length
-\def\XINT@length@loop #1#2#3#4#5#6#7#8#9%
+\let\xintLength\XINT_Length
+\def\XINT_length_loop #1#2#3#4#5#6#7#8#9%
{%
- \XINT@strip@undef #9\XINT@length@finish@a\xint@undef
- \expandafter\XINT@length@loop\expandafter {\the\numexpr #1+8\relax}%
+ \xint_gob_til_xint_relax #9\XINT_length_finish_a\xint_relax
+ \expandafter\XINT_length_loop\expandafter {\the\numexpr #1+8\relax}%
}%
-\def\XINT@length@finish@a\xint@undef
- \expandafter\XINT@length@loop\expandafter #1#2\Z
+\def\XINT_length_finish_a\xint_relax
+ \expandafter\XINT_length_loop\expandafter #1#2\Z
{%
- \XINT@length@finish@b #2\W\W\W\W\W\W\W\Z {#1}%
+ \XINT_length_finish_b #2\W\W\W\W\W\W\W\Z {#1}%
}%
-\def\XINT@length@finish@b #1#2#3#4#5#6#7#8\Z
+\def\XINT_length_finish_b #1#2#3#4#5#6#7#8\Z
{%
- \xint@w #1\XINT@length@finish@c 8%
- #2\XINT@length@finish@c 7%
- #3\XINT@length@finish@c 6%
- #4\XINT@length@finish@c 5%
- #5\XINT@length@finish@c 4%
- #6\XINT@length@finish@c 3%
- #7\XINT@length@finish@c 2%
- \W\XINT@length@finish@c 1\Z
+ \xint_gob_til_w
+ #1\XINT_length_finish_c 8%
+ #2\XINT_length_finish_c 7%
+ #3\XINT_length_finish_c 6%
+ #4\XINT_length_finish_c 5%
+ #5\XINT_length_finish_c 4%
+ #6\XINT_length_finish_c 3%
+ #7\XINT_length_finish_c 2%
+ \W\XINT_length_finish_c 1\Z
}%
-\def\XINT@length@finish@c #1#2\Z #3{\expandafter\space\the\numexpr #3-#1\relax}%
+\def\XINT_length_finish_c #1#2\Z #3%
+ {\expandafter\space\the\numexpr #3-#1\relax}%
\def\xintCSVtoList {\romannumeral0\xintcsvtolist }%
\def\xintcsvtolist #1%
{%
- \expandafter\XINT@csvtol@prep\expandafter {\romannumeral-`0#1}%
+ \expandafter\XINT_csvtol_loop_a\expandafter
+ {\expandafter}\romannumeral-`0#1%
+ ,\xint_undef,\xint_undef,\xint_undef,\xint_undef
+ ,\xint_undef,\xint_undef,\xint_undef,\xint_undef,\Z
}%
-\def\XINT@CSVtoL {\romannumeral0\XINT@csvtol@prep }%
-\def\XINT@csvtol@prep #1%
+\def\XINT_csvtol_loop_a #1#2,#3,#4,#5,#6,#7,#8,#9,%
{%
- \XINT@csvtol@loop@a
- {}#1,\xint@undef,\xint@undef,\xint@undef,\xint@undef,%
- \xint@undef,\xint@undef,\xint@undef,\xint@undef,\Z
+ \xint_gob_til_xint_undef #9\XINT_csvtol_finish_a\xint_undef
+ \XINT_csvtol_loop_b {#1}{{#2}{#3}{#4}{#5}{#6}{#7}{#8}{#9}}%
}%
-\def\XINT@csvtol@loop@a #1#2,#3,#4,#5,#6,#7,#8,#9,%
+\def\XINT_csvtol_loop_b #1#2{\XINT_csvtol_loop_a {#1#2}}%
+\def\XINT_csvtol_finish_a\xint_undef\XINT_csvtol_loop_b #1#2#3\Z
{%
- \XINT@strip@undef #9\XINT@csvtol@finish@a\xint@undef
- \XINT@csvtol@loop@b {#1}{{#2}{#3}{#4}{#5}{#6}{#7}{#8}{#9}}%
+ \XINT_csvtol_finish_b #3\R,\R,\R,\R,\R,\R,\R,\Z #2{#1}%
}%
-\def\XINT@csvtol@loop@b #1#2{\XINT@csvtol@loop@a {#1#2}}%
-\def\XINT@csvtol@finish@a\xint@undef\XINT@csvtol@loop@b #1#2#3\Z
+\def\XINT_csvtol_finish_b #1,#2,#3,#4,#5,#6,#7,#8\Z
{%
- \XINT@csvtol@finish@b #3\R,\R,\R,\R,\R,\R,\R,\Z #2{#1}%
+ \xint_gob_til_r
+ #1\XINT_csvtol_finish_c 8%
+ #2\XINT_csvtol_finish_c 7%
+ #3\XINT_csvtol_finish_c 6%
+ #4\XINT_csvtol_finish_c 5%
+ #5\XINT_csvtol_finish_c 4%
+ #6\XINT_csvtol_finish_c 3%
+ #7\XINT_csvtol_finish_c 2%
+ \R\XINT_csvtol_finish_c 1\Z
}%
-\def\XINT@csvtol@finish@b #1,#2,#3,#4,#5,#6,#7,#8\Z
+\def\XINT_csvtol_finish_c #1#2\Z
{%
- \xint@r #1\XINT@csvtol@finish@c 8%
- #2\XINT@csvtol@finish@c 7%
- #3\XINT@csvtol@finish@c 6%
- #4\XINT@csvtol@finish@c 5%
- #5\XINT@csvtol@finish@c 4%
- #6\XINT@csvtol@finish@c 3%
- #7\XINT@csvtol@finish@c 2%
- \R\XINT@csvtol@finish@c 1\Z
+ \csname XINT_csvtol_finish_d\romannumeral #1\endcsname
}%
-\def\XINT@csvtol@finish@c #1#2\Z
-{%
- \csname XINT@csvtol@finish@d\romannumeral #1\endcsname
-}%
-\def\XINT@csvtol@finish@dviii #1#2#3#4#5#6#7#8#9{ #9}%
-\def\XINT@csvtol@finish@dvii #1#2#3#4#5#6#7#8#9{ #9{#1}}%
-\def\XINT@csvtol@finish@dvi #1#2#3#4#5#6#7#8#9{ #9{#1}{#2}}%
-\def\XINT@csvtol@finish@dv #1#2#3#4#5#6#7#8#9{ #9{#1}{#2}{#3}}%
-\def\XINT@csvtol@finish@div #1#2#3#4#5#6#7#8#9{ #9{#1}{#2}{#3}{#4}}%
-\def\XINT@csvtol@finish@diii #1#2#3#4#5#6#7#8#9{ #9{#1}{#2}{#3}{#4}{#5}}%
-\def\XINT@csvtol@finish@dii #1#2#3#4#5#6#7#8#9{ #9{#1}{#2}{#3}{#4}{#5}{#6}}%
-\def\XINT@csvtol@finish@di #1#2#3#4#5#6#7#8#9{ #9{#1}{#2}{#3}{#4}{#5}{#6}{#7}}%
+\def\XINT_csvtol_finish_dviii #1#2#3#4#5#6#7#8#9{ #9}%
+\def\XINT_csvtol_finish_dvii #1#2#3#4#5#6#7#8#9{ #9{#1}}%
+\def\XINT_csvtol_finish_dvi #1#2#3#4#5#6#7#8#9{ #9{#1}{#2}}%
+\def\XINT_csvtol_finish_dv #1#2#3#4#5#6#7#8#9{ #9{#1}{#2}{#3}}%
+\def\XINT_csvtol_finish_div #1#2#3#4#5#6#7#8#9{ #9{#1}{#2}{#3}{#4}}%
+\def\XINT_csvtol_finish_diii #1#2#3#4#5#6#7#8#9{ #9{#1}{#2}{#3}{#4}{#5}}%
+\def\XINT_csvtol_finish_dii #1#2#3#4#5#6#7#8#9{ #9{#1}{#2}{#3}{#4}{#5}{#6}}%
+\def\XINT_csvtol_finish_di #1#2#3#4#5#6#7#8#9%
+ { #9{#1}{#2}{#3}{#4}{#5}{#6}{#7}}%
\def\xintListWithSep {\romannumeral0\xintlistwithsep }%
\long\def\xintlistwithsep #1#2%
+ {\expandafter\XINT_lws\expandafter {\romannumeral-`0#2}{#1}}%
+\long\def\XINT_lws #1#2{\XINT_lws_start {#2}#1\Z }%
+\long\def\XINT_lws_start #1#2%
{%
- \expandafter\XINT@lws\expandafter {\romannumeral-`0#2}%
- {#1}%
-}%
-\long\def\XINT@LWS #1#2{\romannumeral0\XINT@lws@start {#1}#2\Z }%
-\long\def\XINT@lws #1#2%
-{%
- \XINT@lws@start {#2}#1\Z
+ \xint_gob_til_z #2\XINT_lws_dont\Z
+ \XINT_lws_loop_a {#2}{#1}%
}%
-\long\def\XINT@lws@start #1#2%
+\long\def\XINT_lws_dont\Z\XINT_lws_loop_a #1#2{ }%
+\long\def\XINT_lws_loop_a #1#2#3%
{%
- \xint@z #2\XINT@lws@dont\Z
- \XINT@lws@loop@a {#2}{#1}%
+ \xint_gob_til_z #3\XINT_lws_end\Z
+ \XINT_lws_loop_b {#1}{#2#3}{#2}%
}%
-\long\def\XINT@lws@dont\Z\XINT@lws@loop@a #1#2{ }%
-\long\def\XINT@lws@loop@a #1#2#3%
-{%
- \xint@z #3\XINT@lws@end\Z
- \XINT@lws@loop@b {#1}{#2#3}{#2}%
-}%
-\long\def\XINT@lws@loop@b #1#2{\XINT@lws@loop@a {#1#2}}%
-\long\def\XINT@lws@end\Z\XINT@lws@loop@b #1#2#3{ #1}%
-\def\xintNthElt {\romannumeral0\xintnthelt }%
+\long\def\XINT_lws_loop_b #1#2{\XINT_lws_loop_a {#1#2}}%
+\long\def\XINT_lws_end\Z\XINT_lws_loop_b #1#2#3{ #1}%
+\def\xintNthElt {\romannumeral0\xintnthelt }%
\def\xintnthelt #1#2%
{%
- \expandafter\XINT@nthelt\expandafter {\romannumeral-`0#2}%
- {\numexpr #1\relax}%
+ \expandafter\XINT_nthelt\expandafter {\romannumeral-`0#2}%
+ {\numexpr #1\relax }%
}%
-\def\XINT@NthElt #1#2{\romannumeral0\XINT@nthelt {#2}{\numexpr #1\relax}}%
-\def\XINT@nthelt #1#2%
+\def\XINT_nthelt #1#2%
{%
\ifnum #2>0
- \xint@afterfi {\XINT@nthelt@loop@a {#2}}%
+ \xint_afterfi {\XINT_nthelt_loop_a {#2}}%
\else
- \xint@afterfi {\XINT@length@loop {0}}%
- \fi #1\xint@undef\xint@undef\xint@undef\xint@undef
- \xint@undef\xint@undef\xint@undef\xint@undef\Z
+ \xint_afterfi {\XINT_length_loop {0}}%
+ \fi #1\xint_relax\xint_relax\xint_relax\xint_relax
+ \xint_relax\xint_relax\xint_relax\xint_relax\Z
}%
-\def\XINT@nthelt@loop@a #1%
+\def\XINT_nthelt_loop_a #1%
{%
\ifnum #1>8
- \expandafter\XINT@nthelt@loop@b
+ \expandafter\XINT_nthelt_loop_b
\else
- \expandafter\XINT@nthelt@getit
+ \expandafter\XINT_nthelt_getit
\fi
{#1}%
}%
-\def\XINT@nthelt@loop@b #1#2#3#4#5#6#7#8#9%
+\def\XINT_nthelt_loop_b #1#2#3#4#5#6#7#8#9%
{%
- \XINT@strip@undef #9\XINT@nthelt@silentend\xint@undef
- \expandafter\XINT@nthelt@loop@a\expandafter{\the\numexpr #1-8\relax}%
+ \xint_gob_til_xint_relax #9\XINT_nthelt_silentend\xint_relax
+ \expandafter\XINT_nthelt_loop_a\expandafter{\the\numexpr #1-8\relax}%
}%
-\def\XINT@nthelt@silentend #1\Z { }%
-\def\XINT@nthelt@getit #1%
+\def\XINT_nthelt_silentend #1\Z { }%
+\def\XINT_nthelt_getit #1%
{%
- \expandafter\expandafter\expandafter\XINT@nthelt@finish
- \csname xint@gobble@\romannumeral\numexpr#1-1\endcsname
+ \expandafter\expandafter\expandafter\XINT_nthelt_finish
+ \csname xint_gobble_\romannumeral\numexpr#1-1\endcsname
}%
-\def\XINT@nthelt@finish #1#2\Z
+\def\XINT_nthelt_finish #1#2\Z
{%
- \xint@UDwfork
+ \xint_UDwfork
#1\dummy { }%
\W\dummy { #1}%
- \xint@UDkrof
+ \krof
}%
-\def\xintApply {\romannumeral0\xintapply }%
+\def\xintApply {\romannumeral0\xintapply }%
\def\xintapply #1#2%
{%
- \expandafter\XINT@apply\expandafter {\romannumeral-`0#2}%
+ \expandafter\XINT_apply\expandafter {\romannumeral-`0#2}%
{#1}%
}%
-\def\XINT@Apply #1#2{\romannumeral0\XINT@apply@loop@a {}{#1}#2\Z }%
-\def\XINT@apply #1#2%
+\def\XINT_apply #1#2{\XINT_apply_loop_a {}{#2}#1\Z }%
+\def\XINT_apply_loop_a #1#2#3%
{%
- \XINT@apply@loop@a {}{#2}#1\Z
+ \xint_gob_til_z #3\XINT_apply_end\Z
+ \expandafter
+ \XINT_apply_loop_b
+ \expandafter {\romannumeral-`0#2{#3}}{#1}{#2}%
}%
-\def\XINT@apply@loop@a #1#2#3%
+\def\XINT_apply_loop_b #1#2{\XINT_apply_loop_a {#2{#1}}}%
+\def\XINT_apply_end\Z\expandafter\XINT_apply_loop_b\expandafter #1#2#3{ #2}%
+\def\xintApplyUnbraced {\romannumeral0\xintapplyunbraced }%
+\def\xintapplyunbraced #1#2%
{%
- \xint@z #3\XINT@apply@end\Z
- \expandafter
- \XINT@apply@loop@b
+ \expandafter\XINT_applyunbr\expandafter {\romannumeral-`0#2}%
+ {#1}%
+}%
+\def\XINT_applyunbr #1#2{\XINT_applyunbr_loop_a {}{#2}#1\Z }%
+\def\XINT_applyunbr_loop_a #1#2#3%
+{%
+ \xint_gob_til_z #3\XINT_applyunbr_end\Z
+ \expandafter\XINT_applyunbr_loop_b
\expandafter {\romannumeral-`0#2{#3}}{#1}{#2}%
}%
-\def\XINT@apply@loop@b #1#2{\XINT@apply@loop@a {#2{#1}}}%
-\def\XINT@apply@end\Z\expandafter\XINT@apply@loop@b\expandafter #1#2#3{ #2}%
+\def\XINT_applyunbr_loop_b #1#2{\XINT_applyunbr_loop_a {#2#1}}%
+\def\XINT_applyunbr_end\Z
+ \expandafter\XINT_applyunbr_loop_b\expandafter #1#2#3{ #2}%
\def\xintAssign #1\to
{%
- \expandafter\XINT@assign@a\romannumeral-`0#1{}\to
+ \expandafter\XINT_assign_a\romannumeral-`0#1{}\to
}%
-\def\XINT@assign@a #1% attention to the # at the beginning of next line
+\def\XINT_assign_a #1% attention to the # at the beginning of next line
#{%
- \def\xint@temp {#1}%
- \ifx\empty\xint@temp
- \expandafter\XINT@assign@b
+ \def\xint_temp {#1}%
+ \ifx\empty\xint_temp
+ \expandafter\XINT_assign_b
\else
- \expandafter\XINT@assign@B
+ \expandafter\XINT_assign_B
\fi
}%
-\def\XINT@assign@b #1#2\to #3%
+\def\XINT_assign_b #1#2\to #3%
{%
- \edef #3{#1}\def\xint@temp {#2}%
- \ifx\empty\xint@temp
+ \edef #3{#1}\def\xint_temp {#2}%
+ \ifx\empty\xint_temp
\else
- \xint@afterfi{\XINT@assign@a #2\to }%
+ \xint_afterfi{\XINT_assign_a #2\to }%
\fi
}%
-\def\XINT@assign@B #1\to #2%
+\def\XINT_assign_B #1\to #2%
{%
- \edef #2{\xint@temp}%
+ \edef #2{\xint_temp}%
}%
\def\xintRelaxArray #1%
{%
- \edef\XINT@restoreescapechar {\escapechar\the\escapechar\relax}%
+ \edef\XINT_restoreescapechar {\escapechar\the\escapechar\relax}%
\escapechar -1
- \edef\xint@arrayname {\string #1}%
- \XINT@restoreescapechar
- \expandafter\let\expandafter\xint@temp
- \csname\xint@arrayname 0\endcsname
+ \edef\xint_arrayname {\string #1}%
+ \XINT_restoreescapechar
+ \expandafter\let\expandafter\xint_temp
+ \csname\xint_arrayname 0\endcsname
\count 255 0
\loop
\global\expandafter\let
- \csname\xint@arrayname\the\count255\endcsname\relax
- \ifnum \count 255 < \xint@temp
+ \csname\xint_arrayname\the\count255\endcsname\relax
+ \ifnum \count 255 < \xint_temp
\advance\count 255 1
\repeat
- \global\expandafter\let\csname\xint@arrayname 00\endcsname\relax
+ \global\expandafter\let\csname\xint_arrayname 00\endcsname\relax
\global\let #1\relax
}%
-\def\xintAssignArray #1\to #2%
+\def\xintAssignArray #1\to #2% 1.06b: #1 may now be empty
{%
- \edef\XINT@restoreescapechar {\escapechar\the\escapechar\relax}%
+ \edef\XINT_restoreescapechar {\escapechar\the\escapechar\relax }%
\escapechar -1
- \edef\xint@arrayname {\string #2}% NOT #1! (amazing typo undetected during ages)
- \XINT@restoreescapechar
+ \edef\xint_arrayname {\string #2}%
+ \XINT_restoreescapechar
\count 255 0
- \expandafter
- \XINT@assignarray@loop \romannumeral-`0#1\xint@undef
- \csname\xint@arrayname 00\endcsname
- \csname\xint@arrayname 0\endcsname
- {\xint@arrayname}%
+ \expandafter\XINT_assignarray_loop \romannumeral-`0#1\xint_relax
+ \csname\xint_arrayname 00\endcsname
+ \csname\xint_arrayname 0\endcsname
+ {\xint_arrayname}%
#2%
}%
-\def\XINT@assignarray@loop #1%
+\def\XINT_assignarray_loop #1%
{%
- \def\xint@temp {#1}%
- \ifx\xint@bracedundef\xint@temp
- \edef\xint@temp{\the\count 255 }%
- \expandafter\let\csname\xint@arrayname0\endcsname\xint@temp
- \expandafter\XINT@assignarray@end
+ \def\xint_temp {#1}%
+ \ifx\xint_braced_xint_relax\xint_temp
+ \expandafter\edef\csname\xint_arrayname 0\endcsname{\the\count 255 }%
+ \expandafter\expandafter\expandafter\XINT_assignarray_end_a
\else
\advance\count 255 1
\expandafter\edef
- \csname\xint@arrayname\the\count 255\endcsname{\xint@temp}%
- \expandafter\XINT@assignarray@loop
+ \csname\xint_arrayname\the\count 255\endcsname{\xint_temp }%
+ \expandafter\XINT_assignarray_loop
\fi
}%
-\def\XINT@assignarray@end {\expandafter\XINT@assignarray@@end }%
-\def\XINT@assignarray@@end #1%
+\def\XINT_assignarray_end_a #1%
{%
- \expandafter\XINT@assignarray@@@end\expandafter #1%
+ \expandafter\XINT_assignarray_end_b\expandafter #1%
}%
-\def\XINT@assignarray@@@end #1#2#3%
+\def\XINT_assignarray_end_b #1#2#3%
{%
- \expandafter\XINT@assignarray@@@@end
- \expandafter #1\expandafter #2\expandafter{#3}%
+ \expandafter\XINT_assignarray_end_c
+ \expandafter #1\expandafter #2\expandafter {#3}%
}%
-\def\XINT@assignarray@@@@end #1#2#3#4%
+\def\XINT_assignarray_end_c #1#2#3#4%
{%
\def #4##1%
{%
- \romannumeral0%
- \expandafter #1\expandafter{\the\numexpr ##1}%
+ \romannumeral0\expandafter #1\expandafter{\the\numexpr ##1}%
}%
\def #1##1%
{%
\ifnum ##1< 0
- \xint@afterfi {\xintError:ArrayIndexIsNegative\space 0}%
+ \xint_afterfi {\xintError:ArrayIndexIsNegative\space 0}%
\else
- \xint@afterfi {%
+ \xint_afterfi {%
\ifnum ##1> #2
- \xint@afterfi {\xintError:ArrayIndexBeyondLimit\space 0}%
+ \xint_afterfi {\xintError:ArrayIndexBeyondLimit\space 0}%
\else
- \xint@afterfi
+ \xint_afterfi
{\expandafter\expandafter\expandafter
\space\csname #3##1\endcsname}%
\fi}%
@@ -542,1499 +539,1522 @@
}%
}%
\let\xintDigitsOf\xintAssignArray
-\def\XINT@RQ #1#2#3#4#5#6#7#8#9%
+\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_gob_til_r #9\XINT_RQ_end_a\R\XINT_RQ {#9#8#7#6#5#4#3#2#1}%
}%
-\def\XINT@RQ@end\R\XINT@RQ #1#2\Z
+\def\XINT_RQ_end_a\R\XINT_RQ #1#2\Z
{%
- \XINT@RQ@end@ #1\Z
+ \XINT_RQ_end_b #1\Z
}%
-\def\XINT@RQ@end@ #1#2#3#4#5#6#7#8%
+\def\XINT_RQ_end_b #1#2#3#4#5#6#7#8%
{%
- \xint@r #8\XINT@RQ@end@viii
- #7\XINT@RQ@end@vii
- #6\XINT@RQ@end@vi
- #5\XINT@RQ@end@v
- #4\XINT@RQ@end@iv
- #3\XINT@RQ@end@iii
- #2\XINT@RQ@end@ii
- \R\XINT@RQ@end@i
+ \xint_gob_til_r
+ #8\XINT_RQ_end_viii
+ #7\XINT_RQ_end_vii
+ #6\XINT_RQ_end_vi
+ #5\XINT_RQ_end_v
+ #4\XINT_RQ_end_iv
+ #3\XINT_RQ_end_iii
+ #2\XINT_RQ_end_ii
+ \R\XINT_RQ_end_i
\Z #2#3#4#5#6#7#8%
}%
-\def\XINT@RQ@end@viii #1\Z #2#3#4#5#6#7#8#9\Z { #9}%
-\def\XINT@RQ@end@vii #1\Z #2#3#4#5#6#7#8#9\Z { #8#9000}%
-\def\XINT@RQ@end@vi #1\Z #2#3#4#5#6#7#8#9\Z { #7#8#900}%
-\def\XINT@RQ@end@v #1\Z #2#3#4#5#6#7#8#9\Z { #6#7#8#90}%
-\def\XINT@RQ@end@iv #1\Z #2#3#4#5#6#7#8#9\Z { #5#6#7#8#9}%
-\def\XINT@RQ@end@iii #1\Z #2#3#4#5#6#7#8#9\Z { #4#5#6#7#8#9000}%
-\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%
+\def\XINT_RQ_end_viii #1\Z #2#3#4#5#6#7#8#9\Z { #9}%
+\def\XINT_RQ_end_vii #1\Z #2#3#4#5#6#7#8#9\Z { #8#9000}%
+\def\XINT_RQ_end_vi #1\Z #2#3#4#5#6#7#8#9\Z { #7#8#900}%
+\def\XINT_RQ_end_v #1\Z #2#3#4#5#6#7#8#9\Z { #6#7#8#90}%
+\def\XINT_RQ_end_iv #1\Z #2#3#4#5#6#7#8#9\Z { #5#6#7#8#9}%
+\def\XINT_RQ_end_iii #1\Z #2#3#4#5#6#7#8#9\Z { #4#5#6#7#8#9000}%
+\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
}%
-\def\xint@cleanupzeros@nospace #1#2#3#4%
+\def\xint_cleanupzeros_nospace #1#2#3#4%
{%
\the\numexpr #1#2#3#4\relax
}%
-\def\XINT@rev@andcuz #1%
+\def\XINT_rev_andcuz #1%
{%
- \expandafter\xint@cleanupzeros@andstop
- \romannumeral0\XINT@rord@main {}#1%
- \xint@UNDEF
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@UNDEF
+ \expandafter\xint_cleanupzeros_andstop
+ \romannumeral0\XINT_rord_main {}#1%
+ \xint_relax
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_relax
}%
-\def\XINT@cuz #1%
+\def\XINT_cuz #1%
{%
- \XINT@cuz@loop #1\W\W\W\W\W\W\W\Z%
+ \XINT_cuz_loop #1\W\W\W\W\W\W\W\Z%
}%
-\def\XINT@cuz@loop #1#2#3#4#5#6#7#8%
+\def\XINT_cuz_loop #1#2#3#4#5#6#7#8%
{%
- \xint@w #8\xint@cuz@enda\W
- \xint@z #8\xint@cuz@endb\Z
- \XINT@cuz@checka {#1#2#3#4#5#6#7#8}%
+ \xint_gob_til_w #8\xint_cuz_end_a\W
+ \xint_gob_til_z #8\xint_cuz_end_A\Z
+ \XINT_cuz_check_a {#1#2#3#4#5#6#7#8}%
}%
-\def\xint@cuz@enda #1\XINT@cuz@checka #2%
+\def\xint_cuz_end_a #1\XINT_cuz_check_a #2%
{%
- \xint@cuz@endaa #2%
+ \xint_cuz_end_b #2%
}%
-\def\xint@cuz@endaa #1#2#3#4#5\Z
+\def\xint_cuz_end_b #1#2#3#4#5\Z
{%
\expandafter\space\the\numexpr #1#2#3#4\relax
}%
-\def\xint@cuz@endb\Z\XINT@cuz@checka #1{ 0}%
-\def\XINT@cuz@checka #1%
+\def\xint_cuz_end_A \Z\XINT_cuz_check_a #1{ 0}%
+\def\XINT_cuz_check_a #1%
{%
- \expandafter \XINT@cuz@checkb \the\numexpr #1\relax
+ \expandafter\XINT_cuz_check_b\the\numexpr #1\relax
}%
-\def\XINT@cuz@checkb #1%
+\def\XINT_cuz_check_b #1%
{%
- \xint@zero #1\xint@cuz@backtoloop 0\XINT@cuz@Stop #1%
+ \xint_gob_til_zero #1\xint_cuz_backtoloop 0\XINT_cuz_stop #1%
}%
-\def\XINT@cuz@Stop #1\W #2\Z{ #1}%
-\def\xint@cuz@backtoloop 0\XINT@cuz@Stop 0{\XINT@cuz@loop }%
-\def\XINT@isOne #1{\romannumeral0\XINT@isone #1\W\Z }%
-\def\XINT@isone #1#2%
+\def\XINT_cuz_stop #1\W #2\Z{ #1}%
+\def\xint_cuz_backtoloop 0\XINT_cuz_stop 0{\XINT_cuz_loop }%
+\def\XINT_isOne #1{\romannumeral0\XINT_isone #1\W\Z }%
+\def\XINT_isone #1#2%
{%
- \xint@one #1\XINT@isone@b 1\expandafter\space\expandafter 0\xint@z #2%
+ \xint_gob_til_one #1\XINT_isone_b 1%
+ \expandafter\space\expandafter 0\xint_gob_til_z #2%
}%
-\def\XINT@isone@b #1\xint@z #2%
+\def\XINT_isone_b #1\xint_gob_til_z #2%
{%
- \xint@w #2\XINT@isone@yes\W\expandafter\space\expandafter 0\xint@z
+ \xint_gob_til_w #2\XINT_isone_yes \W
+ \expandafter\space\expandafter 0\xint_gob_til_z
}%
-\def\XINT@isone@yes #1\Z{ 1}%
+\def\XINT_isone_yes #1\Z { 1}%
\def\xintiNum {\romannumeral0\xintinum }%
\def\xintinum #1%
{%
- \expandafter\XINT@num\expandafter {\romannumeral-`0#1}%
+ \expandafter\XINT_num_loop
+ \romannumeral-`0#1\xint_relax\xint_relax\xint_relax\xint_relax
+ \xint_relax\xint_relax\xint_relax\xint_relax\Z
}%
\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%
+\def\XINT_num #1%
{%
- \xint@r #8\XINT@num@end\R\XINT@num@NumEight #1#2#3#4#5#6#7#8%
+ \XINT_num_loop #1\xint_relax\xint_relax\xint_relax\xint_relax
+ \xint_relax\xint_relax\xint_relax\xint_relax\Z
}%
-\def\XINT@num@end\R\XINT@num@NumEight #1\R #2\Z
+\def\XINT_num_loop #1#2#3#4#5#6#7#8%
+{%
+ \xint_gob_til_xint_relax #8\XINT_num_end\xint_relax
+ \XINT_num_NumEight #1#2#3#4#5#6#7#8%
+}%
+\def\XINT_num_end\xint_relax\XINT_num_NumEight #1\xint_relax #2\Z
{%
\expandafter\space\the\numexpr #1+0\relax
}%
-\def\XINT@num@NumEight #1#2#3#4#5#6#7#8%
+\def\XINT_num_NumEight #1#2#3#4#5#6#7#8%
{%
- \ifnum \numexpr #1#2#3#4#5#6#7#8+0\relax = 0
- \xint@afterfi {\expandafter\XINT@num@keepsign@a
+ \ifnum \numexpr #1#2#3#4#5#6#7#8+0= 0
+ \xint_afterfi {\expandafter\XINT_num_keepsign_a
\the\numexpr #1#2#3#4#5#6#7#81\relax}%
\else
- \xint@afterfi {\expandafter\XINT@num@finish
+ \xint_afterfi {\expandafter\XINT_num_finish
\the\numexpr #1#2#3#4#5#6#7#8\relax}%
\fi
}%
-\def\XINT@num@keepsign@a #1%
+\def\XINT_num_keepsign_a #1%
{%
- \xint@one#1\XINT@num@gobacktoloop 1\XINT@num@keepsign@b
+ \xint_gob_til_one#1\XINT_num_gobacktoloop 1\XINT_num_keepsign_b
}%
-\def\XINT@num@gobacktoloop 1\XINT@num@keepsign@b {\XINT@num@loop }%
-\def\XINT@num@keepsign@b #1{\XINT@num@loop -}%
-\def\XINT@num@finish #1\R #2\Z { #1}%
+\def\XINT_num_gobacktoloop 1\XINT_num_keepsign_b {\XINT_num_loop }%
+\def\XINT_num_keepsign_b #1{\XINT_num_loop -}%
+\def\XINT_num_finish #1\xint_relax #2\Z { #1}%
\def\xintiSgn {\romannumeral0\xintisgn }%
\def\xintisgn #1%
{%
- \expandafter\XINT@sgn \romannumeral-`0#1\Z%
+ \expandafter\XINT_sgn \romannumeral-`0#1\Z%
}%
\let\xintSgn\xintiSgn \let\xintsgn\xintisgn
-\def\XINT@Sgn #1{\romannumeral0\XINT@sgn #1\Z }%
-\def\XINT@sgn #1#2\Z
+\def\XINT_Sgn #1{\romannumeral0\XINT_sgn #1\Z }%
+\def\XINT_sgn #1#2\Z
{%
- \xint@UDzerominusfork
+ \xint_UDzerominusfork
#1-\dummy { 0}%
0#1\dummy { -1}%
0-\dummy { 1}%
- \xint@UDkrof
+ \krof
}%
\def\xintiOpp {\romannumeral0\xintiopp }%
\def\xintiopp #1%
{%
- \expandafter\XINT@opp \romannumeral-`0#1%
+ \expandafter\XINT_opp \romannumeral-`0#1%
}%
\let\xintOpp\xintiOpp \let\xintopp\xintiopp
-\def\XINT@Opp #1{\romannumeral0\XINT@opp #1}%
-\def\XINT@opp #1%
+\def\XINT_Opp #1{\romannumeral0\XINT_opp #1}%
+\def\XINT_opp #1%
{%
- \xint@UDzerominusfork
+ \xint_UDzerominusfork
#1-\dummy { 0}% zero
0#1\dummy { }% negative
0-\dummy { -#1}% positive
- \xint@UDkrof
+ \krof
}%
\def\xintiAbs {\romannumeral0\xintiabs }%
\def\xintiabs #1%
{%
- \expandafter\XINT@abs \romannumeral-`0#1%
+ \expandafter\XINT_abs \romannumeral-`0#1%
}%
\let\xintAbs\xintiAbs \let\xintabs\xintiabs
-\def\XINT@Abs #1{\romannumeral0\XINT@abs #1}%
-\def\XINT@abs #1%
+\def\XINT_Abs #1{\romannumeral0\XINT_abs #1}%
+\def\XINT_abs #1%
{%
- \xint@UDsignfork
+ \xint_UDsignfork
#1\dummy { }%
-\dummy { #1}%
- \xint@UDkrof
+ \krof
}%
-\def\XINT@add@A #1#2#3#4#5#6%
+\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_gob_til_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%
+\def\xint_add_az\W\XINT_add_AB #1#2%
{%
- \XINT@add@AC@checkcarry #1%
+ \XINT_add_AC_checkcarry #1%
}%
-\def\XINT@add@AB #1#2#3#4\W\X\Y\Z #5#6#7#8%
+\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_gob_til_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%
+\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%
+\def\XINT_add_ABEA #1#2#3.#4%
{%
- \XINT@add@A #2{#3#4}%
+ \XINT_add_A #2{#3#4}%
}%
-\def\xint@add@bz\W\XINT@add@ABE #1#2#3#4#5#6%
+\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%
+\def\XINT_add_CC #1#2#3.#4%
{%
- \XINT@add@AC@checkcarry #2{#3#4}% on va examiner et \'eliminer #2
+ \XINT_add_AC_checkcarry #2{#3#4}% on va examiner et \'eliminer #2
}%
-\def\XINT@add@AC@checkcarry #1%
+\def\XINT_add_AC_checkcarry #1%
{%
- \xint@zero #1\xint@add@AC@nocarry 0\XINT@add@C
+ \xint_gob_til_zero #1\xint_add_AC_nocarry 0\XINT_add_C
}%
-\def\xint@add@AC@nocarry 0\XINT@add@C #1#2\W\X\Y\Z
+\def\xint_add_AC_nocarry 0\XINT_add_C #1#2\W\X\Y\Z
{%
\expandafter
- \xint@cleanupzeros@andstop
+ \xint_cleanupzeros_andstop
\romannumeral0%
- \XINT@rord@main {}#2%
- \xint@UNDEF
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@UNDEF
+ \XINT_rord_main {}#2%
+ \xint_relax
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_relax
#1%
}%
-\def\XINT@add@C #1#2#3#4#5%
+\def\XINT_add_C #1#2#3#4#5%
{%
- \xint@w #2\xint@add@cz\W\XINT@add@CD {#5#4#3#2}{#1}%q
+ \xint_gob_til_w #2\xint_add_cz\W
+ \XINT_add_CD {#5#4#3#2}{#1}%
}%
-\def\XINT@add@CD #1%
+\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%
+\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_gob_til_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%
+\def\xint_addr_az\W\XINT_addr_B #1#2%
{%
- \XINT@addr@AC@checkcarry #1%
+ \XINT_addr_AC_checkcarry #1%
}%
-\def\XINT@addr@B #1#2#3#4\W\X\Y\Z #5#6#7#8%
+\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_gob_til_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%
+\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%
+\def\XINT_addr_ABEA #1#2#3#4#5#6#7%
{%
- \XINT@addr@A #2{#7#6#5#4#3}%
+ \XINT_addr_A #2{#7#6#5#4#3}%
}%
-\def\xint@addr@bz\W\XINT@addr@E #1#2#3#4#5#6%
+\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%
+\def\XINT_addr_CC #1#2#3#4#5#6#7%
{%
- \XINT@addr@AC@checkcarry #2{#7#6#5#4#3}%
+ \XINT_addr_AC_checkcarry #2{#7#6#5#4#3}%
}%
-\def\XINT@addr@AC@checkcarry #1%
+\def\XINT_addr_AC_checkcarry #1%
{%
- \xint@zero #1\xint@addr@AC@nocarry 0\XINT@addr@C
+ \xint_gob_til_zero #1\xint_addr_AC_nocarry 0\XINT_addr_C
}%
-\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%
+\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_gob_til_w #2\xint_addr_cz\W
+ \XINT_addr_D {#5#4#3#2}{#1}%
}%
-\def\XINT@addr@D #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%
+\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_gob_til_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%
+\def\xint_addm_az\W\XINT_addm_AB #1#2%
{%
- \XINT@addm@AC@checkcarry #1%
+ \XINT_addm_AC_checkcarry #1%
}%
-\def\XINT@addm@AB #1#2#3#4\W\X\Y\Z #5#6#7#8%
+\def\XINT_addm_AB #1#2#3#4\W\X\Y\Z #5#6#7#8%
{%
- \XINT@addm@ABE #1#2{#8#7#6#5}{#3}#4\W\X\Y\Z
+ \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%
+\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%
+\def\XINT_addm_ABEA #1#2#3.#4%
{%
- \XINT@addm@A #2{#3#4}%
+ \XINT_addm_A #2{#3#4}%
}%
-\def\XINT@addm@AC@checkcarry #1%
+\def\XINT_addm_AC_checkcarry #1%
{%
- \xint@zero #1\xint@addm@AC@nocarry 0\XINT@addm@C
+ \xint_gob_til_zero #1\xint_addm_AC_nocarry 0\XINT_addm_C
}%
-\def\xint@addm@AC@nocarry 0\XINT@addm@C #1#2\W\X\Y\Z
+\def\xint_addm_AC_nocarry 0\XINT_addm_C #1#2\W\X\Y\Z
{%
\expandafter
- \xint@cleanupzeros@andstop
+ \xint_cleanupzeros_andstop
\romannumeral0%
- \XINT@rord@main {}#2%
- \xint@UNDEF
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@UNDEF
+ \XINT_rord_main {}#2%
+ \xint_relax
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_relax
#1%
}%
-\def\XINT@addm@C #1#2#3#4#5%
+\def\XINT_addm_C #1#2#3#4#5%
{%
- \xint@w
- #5\xint@addm@cw
- #4\xint@addm@cx
- #3\xint@addm@cy
- #2\xint@addm@cz
- \W\XINT@addm@CD {#5#4#3#2}{#1}%
+ \xint_gob_til_w
+ #5\xint_addm_cw
+ #4\xint_addm_cx
+ #3\xint_addm_cy
+ #2\xint_addm_cz
+ \W\XINT_addm_CD {#5#4#3#2}{#1}%
}%
-\def\XINT@addm@CD #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%
+\def\XINT_addm_CC #1#2#3.#4%
{%
- \XINT@addm@AC@checkcarry #2{#3#4}%
+ \XINT_addm_AC_checkcarry #2{#3#4}%
}%
-\def\xint@addm@cw
- #1\xint@addm@cx
- #2\xint@addm@cy
- #3\xint@addm@cz
- \W\XINT@addm@CD
+\def\xint_addm_cw
+ #1\xint_addm_cx
+ #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
+\def\XINT_addm_CDw #1.#2#3\X\Y\Z
{%
- \XINT@addm@end #1#3%
+ \XINT_addm_end #1#3%
}%
-\def\xint@addm@cx
- #1\xint@addm@cy
- #2\xint@addm@cz
- \W\XINT@addm@CD
+\def\xint_addm_cx
+ #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
+\def\XINT_addm_CDx #1.#2#3\Y\Z
{%
- \XINT@addm@end #1#3%
+ \XINT_addm_end #1#3%
}%
-\def\xint@addm@cy
- #1\xint@addm@cz
- \W\XINT@addm@CD
+\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
+\def\XINT_addm_CDy #1.#2#3\Z
{%
- \XINT@addm@end #1#3%
+ \XINT_addm_end #1#3%
}%
-\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%
+\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}%
-\def\XINT@addp@A #1#2#3#4#5#6%
+\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_gob_til_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%
+\def\xint_addp_az\W\XINT_addp_AB #1#2%
{%
- \XINT@addp@AC@checkcarry #1%
+ \XINT_addp_AC_checkcarry #1%
}%
-\def\XINT@addp@AC@checkcarry #1%
+\def\XINT_addp_AC_checkcarry #1%
{%
- \xint@zero #1\xint@addp@AC@nocarry 0\XINT@addp@C
+ \xint_gob_til_zero #1\xint_addp_AC_nocarry 0\XINT_addp_C
}%
-\def\xint@addp@AC@nocarry 0\XINT@addp@C
+\def\xint_addp_AC_nocarry 0\XINT_addp_C
{%
- \XINT@addp@F
+ \XINT_addp_F
}%
-\def\XINT@addp@AB #1#2#3#4\W\X\Y\Z #5#6#7#8%
+\def\XINT_addp_AB #1#2#3#4\W\X\Y\Z #5#6#7#8%
{%
- \XINT@addp@ABE #1#2{#8#7#6#5}{#3}#4\W\X\Y\Z
+ \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%
+\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%
+\def\XINT_addp_ABEA #1#2#3#4#5#6#7%
{%
- \XINT@addp@A #2{#7#6#5#4#3}%<-- attention on met donc \`a droite
+ \XINT_addp_A #2{#7#6#5#4#3}%<-- attention on met donc \`a droite
}%
-\def\XINT@addp@C #1#2#3#4#5%
+\def\XINT_addp_C #1#2#3#4#5%
{%
- \xint@w
- #5\xint@addp@cw
- #4\xint@addp@cx
- #3\xint@addp@cy
- #2\xint@addp@cz
- \W\XINT@addp@CD {#5#4#3#2}{#1}%
+ \xint_gob_til_w
+ #5\xint_addp_cw
+ #4\xint_addp_cx
+ #3\xint_addp_cy
+ #2\xint_addp_cz
+ \W\XINT_addp_CD {#5#4#3#2}{#1}%
}%
-\def\XINT@addp@CD #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%
+\def\XINT_addp_CC #1#2#3#4#5#6#7%
{%
- \XINT@addp@AC@checkcarry #2{#7#6#5#4#3}%
+ \XINT_addp_AC_checkcarry #2{#7#6#5#4#3}%
}%
-\def\xint@addp@cw
- #1\xint@addp@cx
- #2\xint@addp@cy
- #3\xint@addp@cz
- \W\XINT@addp@CD
+\def\xint_addp_cw
+ #1\xint_addp_cx
+ #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%
+\def\XINT_addp_CDw #1#2#3#4#5#6%
{%
- \xint@quatrezeros #2#3#4#5\XINT@addp@endDw@zeros
- 0000\XINT@addp@endDw #2#3#4#5%
+ \xint_gob_til_zeros_iv #2#3#4#5\XINT_addp_endDw_zeros
+ 0000\XINT_addp_endDw #2#3#4#5%
}%
-\def\XINT@addp@endDw@zeros 0000\XINT@addp@endDw 0000#1\X\Y\Z{ #1}%
-\def\XINT@addp@endDw #1#2#3#4#5\X\Y\Z{ #5#4#3#2#1}%
-\def\xint@addp@cx
- #1\xint@addp@cy
- #2\xint@addp@cz
- \W\XINT@addp@CD
+\def\XINT_addp_endDw_zeros 0000\XINT_addp_endDw 0000#1\X\Y\Z{ #1}%
+\def\XINT_addp_endDw #1#2#3#4#5\X\Y\Z{ #5#4#3#2#1}%
+\def\xint_addp_cx
+ #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%
+\def\XINT_addp_CDx #1#2#3#4#5#6%
{%
- \xint@quatrezeros #2#3#4#5\XINT@addp@endDx@zeros
- 0000\XINT@addp@endDx #2#3#4#5%
+ \xint_gob_til_zeros_iv #2#3#4#5\XINT_addp_endDx_zeros
+ 0000\XINT_addp_endDx #2#3#4#5%
}%
-\def\XINT@addp@endDx@zeros 0000\XINT@addp@endDx 0000#1\Y\Z{ #1}%
-\def\XINT@addp@endDx #1#2#3#4#5\Y\Z{ #5#4#3#2#1}%
-\def\xint@addp@cy
- #1\xint@addp@cz
- \W\XINT@addp@CD
+\def\XINT_addp_endDx_zeros 0000\XINT_addp_endDx 0000#1\Y\Z{ #1}%
+\def\XINT_addp_endDx #1#2#3#4#5\Y\Z{ #5#4#3#2#1}%
+\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%
+\def\XINT_addp_CDy #1#2#3#4#5#6%
{%
- \xint@quatrezeros #2#3#4#5\XINT@addp@endDy@zeros
- 0000\XINT@addp@endDy #2#3#4#5%
+ \xint_gob_til_zeros_iv #2#3#4#5\XINT_addp_endDy_zeros
+ 0000\XINT_addp_endDy #2#3#4#5%
}%
-\def\XINT@addp@endDy@zeros 0000\XINT@addp@endDy 0000#1\Z{ #1}%
-\def\XINT@addp@endDy #1#2#3#4#5\Z{ #5#4#3#2#1}%
-\def\xint@addp@cz\W\XINT@addp@CD #1#2{ #21000}%
-\def\XINT@addp@F #1#2#3#4#5%
+\def\XINT_addp_endDy_zeros 0000\XINT_addp_endDy 0000#1\Z{ #1}%
+\def\XINT_addp_endDy #1#2#3#4#5\Z{ #5#4#3#2#1}%
+\def\xint_addp_cz\W\XINT_addp_CD #1#2{ #21000}%
+\def\XINT_addp_F #1#2#3#4#5%
{%
- \xint@w
- #5\xint@addp@Gw
- #4\xint@addp@Gx
- #3\xint@addp@Gy
- #2\xint@addp@Gz
- \W\XINT@addp@G {#2#3#4#5}{#1}%
+ \xint_gob_til_w
+ #5\xint_addp_Gw
+ #4\xint_addp_Gx
+ #3\xint_addp_Gy
+ #2\xint_addp_Gz
+ \W\XINT_addp_G {#2#3#4#5}{#1}%
}%
-\def\XINT@addp@G #1#2%
+\def\XINT_addp_G #1#2%
{%
- \XINT@addp@F {#2#1}%
+ \XINT_addp_F {#2#1}%
}%
-\def\xint@addp@Gw
- #1\xint@addp@Gx
- #2\xint@addp@Gy
- #3\xint@addp@Gz
- \W\XINT@addp@G #4%
+\def\xint_addp_Gw
+ #1\xint_addp_Gx
+ #2\xint_addp_Gy
+ #3\xint_addp_Gz
+ \W\XINT_addp_G #4%
{%
- \xint@quatrezeros #3#2#10\XINT@addp@endGw@zeros
- 0000\XINT@addp@endGw #3#2#10%
+ \xint_gob_til_zeros_iv #3#2#10\XINT_addp_endGw_zeros
+ 0000\XINT_addp_endGw #3#2#10%
}%
-\def\XINT@addp@endGw@zeros 0000\XINT@addp@endGw 0000#1\X\Y\Z{ #1}%
-\def\XINT@addp@endGw #1#2#3#4#5\X\Y\Z{ #5#1#2#3#4}%
-\def\xint@addp@Gx
- #1\xint@addp@Gy
- #2\xint@addp@Gz
- \W\XINT@addp@G #3%
+\def\XINT_addp_endGw_zeros 0000\XINT_addp_endGw 0000#1\X\Y\Z{ #1}%
+\def\XINT_addp_endGw #1#2#3#4#5\X\Y\Z{ #5#1#2#3#4}%
+\def\xint_addp_Gx
+ #1\xint_addp_Gy
+ #2\xint_addp_Gz
+ \W\XINT_addp_G #3%
{%
- \xint@quatrezeros #2#100\XINT@addp@endGx@zeros
- 0000\XINT@addp@endGx #2#100%
+ \xint_gob_til_zeros_iv #2#100\XINT_addp_endGx_zeros
+ 0000\XINT_addp_endGx #2#100%
}%
-\def\XINT@addp@endGx@zeros 0000\XINT@addp@endGx 0000#1\Y\Z{ #1}%
-\def\XINT@addp@endGx #1#2#3#4#5\Y\Z{ #5#1#2#3#4}%
-\def\xint@addp@Gy
- #1\xint@addp@Gz
- \W\XINT@addp@G #2%
+\def\XINT_addp_endGx_zeros 0000\XINT_addp_endGx 0000#1\Y\Z{ #1}%
+\def\XINT_addp_endGx #1#2#3#4#5\Y\Z{ #5#1#2#3#4}%
+\def\xint_addp_Gy
+ #1\xint_addp_Gz
+ \W\XINT_addp_G #2%
{%
- \xint@quatrezeros #1000\XINT@addp@endGy@zeros
- 0000\XINT@addp@endGy #1000%
+ \xint_gob_til_zeros_iv #1000\XINT_addp_endGy_zeros
+ 0000\XINT_addp_endGy #1000%
}%
-\def\XINT@addp@endGy@zeros 0000\XINT@addp@endGy 0000#1\Z{ #1}%
-\def\XINT@addp@endGy #1#2#3#4#5\Z{ #5#1#2#3#4}%
-\def\xint@addp@Gz\W\XINT@addp@G #1#2{ #2}%
+\def\XINT_addp_endGy_zeros 0000\XINT_addp_endGy 0000#1\Z{ #1}%
+\def\XINT_addp_endGy #1#2#3#4#5\Z{ #5#1#2#3#4}%
+\def\xint_addp_Gz\W\XINT_addp_G #1#2{ #2}%
\def\xintiAdd {\romannumeral0\xintiadd }%
\def\xintiadd #1%
{%
- \expandafter\xint@add\expandafter{\romannumeral-`0#1}%
+ \expandafter\xint_add\expandafter{\romannumeral-`0#1}%
}%
\let\xintAdd\xintiAdd \let\xintadd\xintiadd
-\def\xint@add #1#2%
+\def\xint_add #1#2%
{%
- \expandafter\XINT@add@fork \romannumeral-`0#2\Z #1\Z
+ \expandafter\XINT_add_fork \romannumeral-`0#2\Z #1\Z
}%
-\def\XINT@Add #1#2{\romannumeral0\XINT@add@fork #2\Z #1\Z }%
-\def\XINT@add #1#2{\XINT@add@fork #2\Z #1\Z }%
-\def\XINT@add@fork #1#2\Z #3#4\Z
+\def\XINT_Add #1#2{\romannumeral0\XINT_add_fork #2\Z #1\Z }%
+\def\XINT_add #1#2{\XINT_add_fork #2\Z #1\Z }%
+\def\XINT_add_fork #1#2\Z #3#4\Z
{%
- \xint@UDzerofork
- #1\dummy \XINT@add@secondiszero
- #3\dummy \XINT@add@firstiszero
+ \xint_UDzerofork
+ #1\dummy \XINT_add_secondiszero
+ #3\dummy \XINT_add_firstiszero
0\dummy
- {\xint@UDsignsfork
- #1#3\dummy \XINT@add@minusminus % #1 = #3 = -
- #1-\dummy \XINT@add@minusplus % #1 = -
- #3-\dummy \XINT@add@plusminus % #3 = -
- --\dummy \XINT@add@plusplus
- \xint@UDkrof }%
- \xint@UDkrof
+ {\xint_UDsignsfork
+ #1#3\dummy \XINT_add_minusminus % #1 = #3 = -
+ #1-\dummy \XINT_add_minusplus % #1 = -
+ #3-\dummy \XINT_add_plusminus % #3 = -
+ --\dummy \XINT_add_plusplus
+ \krof }%
+ \krof
{#2}{#4}#1#3%
}%
-\def\XINT@add@secondiszero #1#2#3#4{ #4#2}%
-\def\XINT@add@firstiszero #1#2#3#4{ #3#1}%
-\def\XINT@add@minusminus #1#2#3#4%
+\def\XINT_add_secondiszero #1#2#3#4{ #4#2}%
+\def\XINT_add_firstiszero #1#2#3#4{ #3#1}%
+\def\XINT_add_minusminus #1#2#3#4%
{%
- \expandafter\xint@minus@andstop%
- \romannumeral0\XINT@add@pre {#2}{#1}%
+ \expandafter\xint_minus_andstop%
+ \romannumeral0\XINT_add_pre {#2}{#1}%
}%
-\def\XINT@add@minusplus #1#2#3#4%
+\def\XINT_add_minusplus #1#2#3#4%
{%
- \XINT@sub@pre {#4#2}{#1}%
+ \XINT_sub_pre {#4#2}{#1}%
}%
-\def\XINT@add@plusminus #1#2#3#4%
+\def\XINT_add_plusminus #1#2#3#4%
{%
- \XINT@sub@pre {#3#1}{#2}%
+ \XINT_sub_pre {#3#1}{#2}%
}%
-\def\XINT@add@plusplus #1#2#3#4%
+\def\XINT_add_plusplus #1#2#3#4%
{%
- \XINT@add@pre {#4#2}{#3#1}%
+ \XINT_add_pre {#4#2}{#3#1}%
}%
-\def\XINT@add@pre #1%
+\def\XINT_add_pre #1%
{%
- \expandafter\XINT@add@@pre\expandafter
- {\romannumeral0\XINT@RQ {}#1\R\R\R\R\R\R\R\R\Z }%
+ \expandafter\XINT_add__pre\expandafter
+ {\romannumeral0\XINT_RQ {}#1\R\R\R\R\R\R\R\R\Z }%
}%
-\def\XINT@add@@pre #1#2%
+\def\XINT_add__pre #1#2%
{%
- \expandafter\XINT@add@A
+ \expandafter\XINT_add_A
\expandafter0\expandafter{\expandafter}%
- \romannumeral0\XINT@RQ {}#2\R\R\R\R\R\R\R\R\Z
+ \romannumeral0\XINT_RQ {}#2\R\R\R\R\R\R\R\R\Z
\W\X\Y\Z #1\W\X\Y\Z
}%
\def\xintiSub {\romannumeral0\xintisub }%
\def\xintisub #1%
{%
- \expandafter\xint@sub\expandafter{\romannumeral-`0#1}%
+ \expandafter\xint_sub\expandafter{\romannumeral-`0#1}%
}%
\let\xintSub\xintiSub \let\xintsub\xintisub
-\def\xint@sub #1#2%
-{%
- \expandafter\XINT@sub@fork \romannumeral-`0#2\Z #1\Z
-}%
-\def\XINT@Sub #1#2{\romannumeral0\XINT@sub@fork #2\Z #1\Z }%
-\def\XINT@sub #1#2{\XINT@sub@fork #2\Z #1\Z }%
-\def\XINT@sub@fork #1#2\Z #3#4\Z
-{%
- \xint@UDsignsfork
- #1#3\dummy \XINT@sub@minusminus
- #1-\dummy \XINT@sub@minusplus % attention, #3=0 possible
- #3-\dummy \XINT@sub@plusminus % attention, #1=0 possible
- --\dummy {\xint@UDzerofork
- #1\dummy \XINT@sub@secondiszero
- #3\dummy \XINT@sub@firstiszero
- 0\dummy \XINT@sub@plusplus
- \xint@UDkrof }%
- \xint@UDkrof
+\def\xint_sub #1#2%
+{%
+ \expandafter\XINT_sub_fork \romannumeral-`0#2\Z #1\Z
+}%
+\def\XINT_Sub #1#2{\romannumeral0\XINT_sub_fork #2\Z #1\Z }%
+\def\XINT_sub #1#2{\XINT_sub_fork #2\Z #1\Z }%
+\def\XINT_sub_fork #1#2\Z #3#4\Z
+{%
+ \xint_UDsignsfork
+ #1#3\dummy \XINT_sub_minusminus
+ #1-\dummy \XINT_sub_minusplus % attention, #3=0 possible
+ #3-\dummy \XINT_sub_plusminus % attention, #1=0 possible
+ --\dummy {\xint_UDzerofork
+ #1\dummy \XINT_sub_secondiszero
+ #3\dummy \XINT_sub_firstiszero
+ 0\dummy \XINT_sub_plusplus
+ \krof }%
+ \krof
{#2}{#4}#1#3%
}%
-\def\XINT@sub@secondiszero #1#2#3#4{ #4#2}%
-\def\XINT@sub@firstiszero #1#2#3#4{ -#3#1}%
-\def\XINT@sub@plusplus #1#2#3#4%
+\def\XINT_sub_secondiszero #1#2#3#4{ #4#2}%
+\def\XINT_sub_firstiszero #1#2#3#4{ -#3#1}%
+\def\XINT_sub_plusplus #1#2#3#4%
{%
- \XINT@sub@pre {#4#2}{#3#1}%
+ \XINT_sub_pre {#4#2}{#3#1}%
}%
-\def\XINT@sub@minusminus #1#2#3#4%
+\def\XINT_sub_minusminus #1#2#3#4%
{%
- \XINT@sub@pre {#1}{#2}%
+ \XINT_sub_pre {#1}{#2}%
}%
-\def\XINT@sub@minusplus #1#2#3#4%
+\def\XINT_sub_minusplus #1#2#3#4%
{%
- \xint@zero #4\xint@sub@mp0\XINT@add@pre {#4#2}{#1}%
+ \xint_gob_til_zero #4\xint_sub_mp0\XINT_add_pre {#4#2}{#1}%
}%
-\def\xint@sub@mp0\XINT@add@pre #1#2{ #2}%
-\def\XINT@sub@plusminus #1#2#3#4%
+\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\xint@minus@andstop%
- \romannumeral0\XINT@add@pre {#2}{#3#1}%
+ \xint_gob_til_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}%
-\def\XINT@sub@pre #1%
+\def\xint_sub_pm #1\XINT_add_pre #2#3{ -#2}%
+\def\XINT_sub_pre #1%
{%
- \expandafter\XINT@sub@@pre\expandafter
- {\romannumeral0\XINT@RQ {}#1\R\R\R\R\R\R\R\R\Z }%
+ \expandafter\XINT_sub__pre\expandafter
+ {\romannumeral0\XINT_RQ {}#1\R\R\R\R\R\R\R\R\Z }%
}%
-\def\XINT@sub@@pre #1#2%
+\def\XINT_sub__pre #1#2%
{%
- \expandafter\XINT@sub@A
+ \expandafter\XINT_sub_A
\expandafter1\expandafter{\expandafter}%
- \romannumeral0\XINT@RQ {}#2\R\R\R\R\R\R\R\R\Z
+ \romannumeral0\XINT_RQ {}#2\R\R\R\R\R\R\R\R\Z
\W\X\Y\Z #1 \W\X\Y\Z
}%
-\def\XINT@sub@A #1#2#3\W\X\Y\Z #4#5#6#7%
+\def\XINT_sub_A #1#2#3\W\X\Y\Z #4#5#6#7%
{%
- \xint@w
- #4\xint@sub@az
- \W\XINT@sub@B #1{#4#5#6#7}{#2}#3\W\X\Y\Z
+ \xint_gob_til_w
+ #4\xint_sub_az
+ \W\XINT_sub_B #1{#4#5#6#7}{#2}#3\W\X\Y\Z
}%
-\def\XINT@sub@B #1#2#3#4#5#6#7%
+\def\XINT_sub_B #1#2#3#4#5#6#7%
{%
- \xint@w
- #4\xint@sub@bz
- \W\XINT@sub@onestep #1#2{#7#6#5#4}{#3}%
+ \xint_gob_til_w
+ #4\xint_sub_bz
+ \W\XINT_sub_onestep #1#2{#7#6#5#4}{#3}%
}%
-\def\XINT@sub@onestep #1#2#3#4#5#6%
+\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%
+\def\XINT_sub_backtoA #1#2#3.#4%
{%
- \XINT@sub@A #2{#3#4}%
+ \XINT_sub_A #2{#3#4}%
}%
-\def\xint@sub@bz
- \W\XINT@sub@onestep #1#2#3#4#5#6#7%
+\def\xint_sub_bz
+ \W\XINT_sub_onestep #1#2#3#4#5#6#7%
{%
- \xint@UDzerofork
- #1\dummy \XINT@sub@C % une retenue
- 0\dummy \XINT@sub@D % pas de retenue
- \xint@UDkrof
+ \xint_UDzerofork
+ #1\dummy \XINT_sub_C % une retenue
+ 0\dummy \XINT_sub_D % pas de retenue
+ \krof
{#7}#2#3#4#5%
}%
-\def\XINT@sub@D #1#2\W\X\Y\Z
+\def\XINT_sub_D #1#2\W\X\Y\Z
{%
\expandafter
- \xint@cleanupzeros@andstop
+ \xint_cleanupzeros_andstop
\romannumeral0%
- \XINT@rord@main {}#2%
- \xint@UNDEF
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@UNDEF
+ \XINT_rord_main {}#2%
+ \xint_relax
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_relax
#1%
}%
-\def\XINT@sub@C #1#2#3#4#5%
+\def\XINT_sub_C #1#2#3#4#5%
{%
- \xint@w
- #2\xint@sub@cz
- \W\XINT@sub@AC@onestep {#5#4#3#2}{#1}%
+ \xint_gob_til_w
+ #2\xint_sub_cz
+ \W\XINT_sub_AC_onestep {#5#4#3#2}{#1}%
}%
-\def\XINT@sub@AC@onestep #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%
+\def\XINT_sub_backtoC #1#2#3.#4%
{%
- \XINT@sub@AC@checkcarry #2{#3#4}% la retenue va \^etre examin\'ee
+ \XINT_sub_AC_checkcarry #2{#3#4}% la retenue va \^etre examin\'ee
}%
-\def\XINT@sub@AC@checkcarry #1%
+\def\XINT_sub_AC_checkcarry #1%
{%
- \xint@one #1\xint@sub@AC@nocarry 1\XINT@sub@C
+ \xint_gob_til_one #1\xint_sub_AC_nocarry 1\XINT_sub_C
}%
-\def\xint@sub@AC@nocarry 1\XINT@sub@C #1#2\W\X\Y\Z
+\def\xint_sub_AC_nocarry 1\XINT_sub_C #1#2\W\X\Y\Z
{%
\expandafter
- \XINT@cuz@loop
+ \XINT_cuz_loop
\romannumeral0%
- \XINT@rord@main {}#2%
- \xint@UNDEF
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@UNDEF
+ \XINT_rord_main {}#2%
+ \xint_relax
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_relax
#1\W\W\W\W\W\W\W\Z
}%
-\def\xint@sub@cz\W\XINT@sub@AC@onestep #1%
+\def\xint_sub_cz\W\XINT_sub_AC_onestep #1%
{%
- \XINT@cuz
+ \XINT_cuz
}%
-\def\xint@sub@az\W\XINT@sub@B #1#2#3#4#5#6#7%
+\def\xint_sub_az\W\XINT_sub_B #1#2#3#4#5#6#7%
{%
- \xint@w
- #4\xint@sub@ez
- \W\XINT@sub@Eenter #1{#3}#4#5#6#7%
+ \xint_gob_til_w
+ #4\xint_sub_ez
+ \W\XINT_sub_Eenter #1{#3}#4#5#6#7%
}%
-\def\XINT@sub@Eenter #1#2%
+\def\XINT_sub_Eenter #1#2%
{%
\expandafter
- \XINT@sub@E\expandafter1\expandafter{\expandafter}%
+ \XINT_sub_E\expandafter1\expandafter{\expandafter}%
\romannumeral0%
- \XINT@rord@main {}#2%
- \xint@UNDEF
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@UNDEF
+ \XINT_rord_main {}#2%
+ \xint_relax
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_relax
\W\X\Y\Z #1%
}%
-\def\XINT@sub@E #1#2#3#4#5#6%
+\def\XINT_sub_E #1#2#3#4#5#6%
{%
- \xint@w #3\xint@sub@F\W\XINT@sub@Eonestep #1{#6#5#4#3}{#2}%
+ \xint_gob_til_w #3\xint_sub_F\W
+ \XINT_sub_Eonestep #1{#6#5#4#3}{#2}%
}%
-\def\XINT@sub@Eonestep #1#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%
+\def\XINT_sub_backtoE #1#2#3.#4%
{%
- \XINT@sub@E #2{#3#4}%
+ \XINT_sub_E #2{#3#4}%
}%
-\def\xint@sub@F\W\XINT@sub@Eonestep #1#2#3#4%
+\def\xint_sub_F\W\XINT_sub_Eonestep #1#2#3#4%
{%
- \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 -
- \xint@UDkrof
+ \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 -
+ \krof
{#3}%
}%
-\def\XINT@sub@DD {\expandafter\xint@minus@andstop\romannumeral0\XINT@sub@D }%
-\def\XINT@sub@Fdec #1#2#3#4#5#6%
+\def\XINT_sub_DD {\expandafter\xint_minus_andstop\romannumeral0\XINT_sub_D }%
+\def\XINT_sub_Fdec #1#2#3#4#5#6%
{%
- \xint@w #3\xint@sub@Fdec@finish\W
- \XINT@sub@Fdec@onestep #1{#6#5#4#3}{#2}%
+ \xint_gob_til_w #3\xint_sub_Fdec_finish\W
+ \XINT_sub_Fdec_onestep #1{#6#5#4#3}{#2}%
}%
-\def\XINT@sub@Fdec@onestep #1#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%
+\def\XINT_sub_backtoFdec #1#2#3.#4%
{%
- \XINT@sub@Fdec #2{#3#4}%
+ \XINT_sub_Fdec #2{#3#4}%
}%
-\def\xint@sub@Fdec@finish\W\XINT@sub@Fdec@onestep #1#2%
+\def\xint_sub_Fdec_finish\W\XINT_sub_Fdec_onestep #1#2%
{%
- \expandafter\xint@minus@andstop\romannumeral0\XINT@cuz
+ \expandafter\xint_minus_andstop\romannumeral0\XINT_cuz
}%
-\def\XINT@sub@Finc #1#2#3#4#5#6%
+\def\XINT_sub_Finc #1#2#3#4#5#6%
{%
- \xint@w #3\xint@sub@Finc@finish\W
- \XINT@sub@Finc@onestep #1{#6#5#4#3}{#2}%
+ \xint_gob_til_w #3\xint_sub_Finc_finish\W
+ \XINT_sub_Finc_onestep #1{#6#5#4#3}{#2}%
}%
-\def\XINT@sub@Finc@onestep #1#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%
+\def\XINT_sub_backtoFinc #1#2#3.#4%
{%
- \XINT@sub@Finc #2{#3#4}%
+ \XINT_sub_Finc #2{#3#4}%
}%
-\def\xint@sub@Finc@finish\W\XINT@sub@Finc@onestep #1#2#3%
+\def\xint_sub_Finc_finish\W\XINT_sub_Finc_onestep #1#2#3%
{%
- \xint@UDzerofork
- #1\dummy {\expandafter\xint@minus@andstop\xint@cleanupzeros@nospace}%
+ \xint_UDzerofork
+ #1\dummy {\expandafter\xint_minus_andstop\xint_cleanupzeros_nospace}%
0\dummy { -1}%
- \xint@UDkrof
+ \krof
#3%
}%
-\def\xint@sub@ez\W\XINT@sub@Eenter #1%
+\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
- \xint@UDkrof
+ \xint_UDzerofork
+ #1\dummy \XINT_sub_K % il y a une retenue
+ 0\dummy \XINT_sub_L % pas de retenue
+ \krof
}%
-\def\XINT@sub@L #1\W\X\Y\Z {\XINT@cuz@loop #1\W\W\W\W\W\W\W\Z }%
-\def\XINT@sub@K #1%
+\def\XINT_sub_L #1\W\X\Y\Z {\XINT_cuz_loop #1\W\W\W\W\W\W\W\Z }%
+\def\XINT_sub_K #1%
{%
\expandafter
- \XINT@sub@KK\expandafter1\expandafter{\expandafter}%
+ \XINT_sub_KK\expandafter1\expandafter{\expandafter}%
\romannumeral0%
- \XINT@rord@main {}#1%
- \xint@UNDEF
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@UNDEF
+ \XINT_rord_main {}#1%
+ \xint_relax
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_relax
}%
-\def\XINT@sub@KK #1#2#3#4#5#6%
+\def\XINT_sub_KK #1#2#3#4#5#6%
{%
- \xint@w #3\xint@sub@KK@finish\W
- \XINT@sub@KK@onestep #1{#6#5#4#3}{#2}%
+ \xint_gob_til_w #3\xint_sub_KK_finish\W
+ \XINT_sub_KK_onestep #1{#6#5#4#3}{#2}%
}%
-\def\XINT@sub@KK@onestep #1#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%
+\def\XINT_sub_backtoKK #1#2#3.#4%
{%
- \XINT@sub@KK #2{#3#4}%
+ \XINT_sub_KK #2{#3#4}%
}%
-\def\xint@sub@KK@finish\W\XINT@sub@KK@onestep #1#2#3%
+\def\xint_sub_KK_finish\W\XINT_sub_KK_onestep #1#2#3%
{%
- \expandafter\xint@minus@andstop
- \romannumeral0\XINT@cuz@loop #3\W\W\W\W\W\W\W\Z
+ \expandafter\xint_minus_andstop
+ \romannumeral0\XINT_cuz_loop #3\W\W\W\W\W\W\W\Z
}%
\def\xintiCmp {\romannumeral0\xinticmp }%
\def\xinticmp #1%
{%
- \expandafter\xint@cmp\expandafter{\romannumeral-`0#1}%
+ \expandafter\xint_cmp\expandafter{\romannumeral-`0#1}%
}%
\let\xintCmp\xintiCmp \let\xintcmp\xinticmp
-\def\xint@cmp #1#2%
-{%
- \expandafter\XINT@cmp@fork \romannumeral-`0#2\Z #1\Z
-}%
-\def\XINT@Cmp #1#2{\romannumeral0\XINT@cmp@fork #2\Z #1\Z }%
-\def\XINT@cmp@fork #1#2\Z #3#4\Z
-{%
- \xint@UDsignsfork
- #1#3\dummy \XINT@cmp@minusminus
- #1-\dummy \XINT@cmp@minusplus
- #3-\dummy \XINT@cmp@plusminus
- --\dummy {\xint@UDzerosfork
- #1#3\dummy \XINT@cmp@zerozero
- #10\dummy \XINT@cmp@zeroplus
- #30\dummy \XINT@cmp@pluszero
- 00\dummy \XINT@cmp@plusplus
- \xint@UDkrof }%
- \xint@UDkrof
+\def\xint_cmp #1#2%
+{%
+ \expandafter\XINT_cmp_fork \romannumeral-`0#2\Z #1\Z
+}%
+\def\XINT_Cmp #1#2{\romannumeral0\XINT_cmp_fork #2\Z #1\Z }%
+\def\XINT_cmp_fork #1#2\Z #3#4\Z
+{%
+ \xint_UDsignsfork
+ #1#3\dummy \XINT_cmp_minusminus
+ #1-\dummy \XINT_cmp_minusplus
+ #3-\dummy \XINT_cmp_plusminus
+ --\dummy {\xint_UDzerosfork
+ #1#3\dummy \XINT_cmp_zerozero
+ #10\dummy \XINT_cmp_zeroplus
+ #30\dummy \XINT_cmp_pluszero
+ 00\dummy \XINT_cmp_plusplus
+ \krof }%
+ \krof
{#2}{#4}#1#3%
}%
-\def\XINT@cmp@minusplus #1#2#3#4{ 1}%
-\def\XINT@cmp@plusminus #1#2#3#4{ -1}%
-\def\XINT@cmp@zerozero #1#2#3#4{ 0}%
-\def\XINT@cmp@zeroplus #1#2#3#4{ 1}%
-\def\XINT@cmp@pluszero #1#2#3#4{ -1}%
-\def\XINT@cmp@plusplus #1#2#3#4%
+\def\XINT_cmp_minusplus #1#2#3#4{ 1}%
+\def\XINT_cmp_plusminus #1#2#3#4{ -1}%
+\def\XINT_cmp_zerozero #1#2#3#4{ 0}%
+\def\XINT_cmp_zeroplus #1#2#3#4{ 1}%
+\def\XINT_cmp_pluszero #1#2#3#4{ -1}%
+\def\XINT_cmp_plusplus #1#2#3#4%
{%
- \XINT@cmp@pre {#4#2}{#3#1}%
+ \XINT_cmp_pre {#4#2}{#3#1}%
}%
-\def\XINT@cmp@minusminus #1#2#3#4%
+\def\XINT_cmp_minusminus #1#2#3#4%
{%
- \XINT@cmp@pre {#1}{#2}%
+ \XINT_cmp_pre {#1}{#2}%
}%
-\def\XINT@cmp@pre #1%
+\def\XINT_cmp_pre #1%
{%
- \expandafter\XINT@cmp@@pre\expandafter
- {\romannumeral0\XINT@RQ {}#1\R\R\R\R\R\R\R\R\Z }%
+ \expandafter\XINT_cmp__pre\expandafter
+ {\romannumeral0\XINT_RQ {}#1\R\R\R\R\R\R\R\R\Z }%
}%
-\def\XINT@cmp@@pre #1#2%
+\def\XINT_cmp__pre #1#2%
{%
- \expandafter\XINT@cmp@A
+ \expandafter\XINT_cmp_A
\expandafter1\expandafter{\expandafter}%
- \romannumeral0\XINT@RQ {}#2\R\R\R\R\R\R\R\R\Z
+ \romannumeral0\XINT_RQ {}#2\R\R\R\R\R\R\R\R\Z
\W\X\Y\Z #1\W\X\Y\Z
}%
-\def\XINT@cmp@A #1#2#3\W\X\Y\Z #4#5#6#7%
+\def\XINT_cmp_A #1#2#3\W\X\Y\Z #4#5#6#7%
{%
- \xint@w #4\xint@cmp@az\W\XINT@cmp@B #1{#4#5#6#7}{#2}#3\W\X\Y\Z
+ \xint_gob_til_w #4\xint_cmp_az\W
+ \XINT_cmp_B #1{#4#5#6#7}{#2}#3\W\X\Y\Z
}%
-\def\XINT@cmp@B #1#2#3#4#5#6#7%
+\def\XINT_cmp_B #1#2#3#4#5#6#7%
{%
- \xint@w#4\xint@cmp@bz\W\XINT@cmp@onestep #1#2{#7#6#5#4}{#3}%
+ \xint_gob_til_w#4\xint_cmp_bz\W
+ \XINT_cmp_onestep #1#2{#7#6#5#4}{#3}%
}%
-\def\XINT@cmp@onestep #1#2#3#4#5#6%
+\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%
+\def\XINT_cmp_backtoA #1#2#3.#4%
{%
- \XINT@cmp@A #2{#3#4}%
+ \XINT_cmp_A #2{#3#4}%
}%
-\def\xint@cmp@bz\W\XINT@cmp@onestep #1\Z { 1}%
-\def\xint@cmp@az\W\XINT@cmp@B #1#2#3#4#5#6#7%
+\def\xint_cmp_bz\W\XINT_cmp_onestep #1\Z { 1}%
+\def\xint_cmp_az\W\XINT_cmp_B #1#2#3#4#5#6#7%
{%
- \xint@w #4\xint@cmp@ez\W\XINT@cmp@Eenter #1{#3}#4#5#6#7%
+ \xint_gob_til_w #4\xint_cmp_ez\W
+ \XINT_cmp_Eenter #1{#3}#4#5#6#7%
}%
-\def\XINT@cmp@Eenter #1\Z { -1}%
-\def\xint@cmp@ez\W\XINT@cmp@Eenter #1%
+\def\XINT_cmp_Eenter #1\Z { -1}%
+\def\xint_cmp_ez\W\XINT_cmp_Eenter #1%
{%
- \xint@UDzerofork
- #1\dummy \XINT@cmp@K % il y a une retenue
- 0\dummy \XINT@cmp@L % pas de retenue
- \xint@UDkrof
+ \xint_UDzerofork
+ #1\dummy \XINT_cmp_K % il y a une retenue
+ 0\dummy \XINT_cmp_L % pas de retenue
+ \krof
}%
-\def\XINT@cmp@K #1\Z { -1}%
-\def\XINT@cmp@L #1{\XINT@OneIfPositive@main #1}%
-\def\XINT@OneIfPositive #1%
+\def\XINT_cmp_K #1\Z { -1}%
+\def\XINT_cmp_L #1{\XINT_OneIfPositive_main #1}%
+\def\XINT_OneIfPositive #1%
{%
- \XINT@OneIfPositive@main #1\W\X\Y\Z%
+ \XINT_OneIfPositive_main #1\W\X\Y\Z%
}%
-\def\XINT@OneIfPositive@main #1#2#3#4%
+\def\XINT_OneIfPositive_main #1#2#3#4%
{%
- \xint@z #4\xint@OneIfPositive@terminated\Z
- \XINT@OneIfPositive@onestep #1#2#3#4%
+ \xint_gob_til_z #4\xint_OneIfPositive_terminated\Z
+ \XINT_OneIfPositive_onestep #1#2#3#4%
}%
-\def\xint@OneIfPositive@terminated\Z\XINT@OneIfPositive@onestep\W\X\Y\Z { 0}%
-\def\XINT@OneIfPositive@onestep #1#2#3#4%
+\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\the\numexpr #1#2#3#4\relax
+ \expandafter\XINT_OneIfPositive_check\the\numexpr #1#2#3#4\relax
}%
-\def\XINT@OneIfPositive@check #1%
+\def\XINT_OneIfPositive_check #1%
{%
- \xint@zero #1\xint@OneIfPositive@backtomain 0%
- \XINT@OneIfPositive@finish #1%
+ \xint_gob_til_zero #1\xint_OneIfPositive_backtomain 0%
+ \XINT_OneIfPositive_finish #1%
}%
-\def\XINT@OneIfPositive@finish #1\W\X\Y\Z{ 1}%
-\def\xint@OneIfPositive@backtomain 0\XINT@OneIfPositive@finish 0%
- {\XINT@OneIfPositive@main }%
+\def\XINT_OneIfPositive_finish #1\W\X\Y\Z{ 1}%
+\def\xint_OneIfPositive_backtomain 0\XINT_OneIfPositive_finish 0%
+ {\XINT_OneIfPositive_main }%
\def\xintiGeq {\romannumeral0\xintigeq }%
\def\xintigeq #1%
{%
- \expandafter\xint@geq\expandafter {\romannumeral-`0#1}%
+ \expandafter\xint_geq\expandafter {\romannumeral-`0#1}%
}%
\let\xintGeq\xintiGeq \let\xintgeq\xintigeq
-\def\xint@geq #1#2%
-{%
- \expandafter\XINT@geq@fork \romannumeral-`0#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
-{%
- \xint@UDzerofork
- #1\dummy \XINT@geq@secondiszero % |#1#2|=0
- #3\dummy \XINT@geq@firstiszero % |#1#2|>0
- 0\dummy {\xint@UDsignsfork
- #1#3\dummy \XINT@geq@minusminus
- #1-\dummy \XINT@geq@minusplus
- #3-\dummy \XINT@geq@plusminus
- --\dummy \XINT@geq@plusplus
- \xint@UDkrof }%
- \xint@UDkrof
+\def\xint_geq #1#2%
+{%
+ \expandafter\XINT_geq_fork \romannumeral-`0#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
+{%
+ \xint_UDzerofork
+ #1\dummy \XINT_geq_secondiszero % |#1#2|=0
+ #3\dummy \XINT_geq_firstiszero % |#1#2|>0
+ 0\dummy {\xint_UDsignsfork
+ #1#3\dummy \XINT_geq_minusminus
+ #1-\dummy \XINT_geq_minusplus
+ #3-\dummy \XINT_geq_plusminus
+ --\dummy \XINT_geq_plusplus
+ \krof }%
+ \krof
{#2}{#4}#1#3%
}%
-\def\XINT@geq@secondiszero #1#2#3#4{ 1}%
-\def\XINT@geq@firstiszero #1#2#3#4{ 0}%
-\def\XINT@geq@plusplus #1#2#3#4{\XINT@geq@pre {#4#2}{#3#1}}%
-\def\XINT@geq@minusminus #1#2#3#4{\XINT@geq@pre {#2}{#1}}%
-\def\XINT@geq@minusplus #1#2#3#4{\XINT@geq@pre {#4#2}{#1}}%
-\def\XINT@geq@plusminus #1#2#3#4{\XINT@geq@pre {#2}{#3#1}}%
-\def\XINT@geq@pre #1%
+\def\XINT_geq_secondiszero #1#2#3#4{ 1}%
+\def\XINT_geq_firstiszero #1#2#3#4{ 0}%
+\def\XINT_geq_plusplus #1#2#3#4{\XINT_geq_pre {#4#2}{#3#1}}%
+\def\XINT_geq_minusminus #1#2#3#4{\XINT_geq_pre {#2}{#1}}%
+\def\XINT_geq_minusplus #1#2#3#4{\XINT_geq_pre {#4#2}{#1}}%
+\def\XINT_geq_plusminus #1#2#3#4{\XINT_geq_pre {#2}{#3#1}}%
+\def\XINT_geq_pre #1%
{%
- \expandafter\XINT@geq@@pre\expandafter
- {\romannumeral0\XINT@RQ {}#1\R\R\R\R\R\R\R\R\Z }%
+ \expandafter\XINT_geq__pre\expandafter
+ {\romannumeral0\XINT_RQ {}#1\R\R\R\R\R\R\R\R\Z }%
}%
-\def\XINT@geq@@pre #1#2%
+\def\XINT_geq__pre #1#2%
{%
- \expandafter\XINT@geq@A
+ \expandafter\XINT_geq_A
\expandafter1\expandafter{\expandafter}%
- \romannumeral0\XINT@RQ {}#2\R\R\R\R\R\R\R\R\Z
+ \romannumeral0\XINT_RQ {}#2\R\R\R\R\R\R\R\R\Z
\W\X\Y\Z #1 \W\X\Y\Z
}%
-\def\XINT@geq@A #1#2#3\W\X\Y\Z #4#5#6#7%
+\def\XINT_geq_A #1#2#3\W\X\Y\Z #4#5#6#7%
{%
- \xint@w #4\xint@geq@az\W\XINT@geq@B #1{#4#5#6#7}{#2}#3\W\X\Y\Z
+ \xint_gob_til_w #4\xint_geq_az\W
+ \XINT_geq_B #1{#4#5#6#7}{#2}#3\W\X\Y\Z
}%
-\def\XINT@geq@B #1#2#3#4#5#6#7%
+\def\XINT_geq_B #1#2#3#4#5#6#7%
{%
- \xint@w #4\xint@geq@bz\W\XINT@geq@onestep #1#2{#7#6#5#4}{#3}%
+ \xint_gob_til_w #4\xint_geq_bz\W
+ \XINT_geq_onestep #1#2{#7#6#5#4}{#3}%
}%
-\def\XINT@geq@onestep #1#2#3#4#5#6%
+\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%
+\def\XINT_geq_backtoA #1#2#3.#4%
{%
- \XINT@geq@A #2{#3#4}%
+ \XINT_geq_A #2{#3#4}%
}%
-\def\xint@geq@bz\W\XINT@geq@onestep #1\W\X\Y\Z { 1}%
-\def\xint@geq@az\W\XINT@geq@B #1#2#3#4#5#6#7%
+\def\xint_geq_bz\W\XINT_geq_onestep #1\W\X\Y\Z { 1}%
+\def\xint_geq_az\W\XINT_geq_B #1#2#3#4#5#6#7%
{%
- \xint@w #4\xint@geq@ez\W\XINT@geq@Eenter #1%
+ \xint_gob_til_w #4\xint_geq_ez\W
+ \XINT_geq_Eenter #1%
}%
-\def\XINT@geq@Eenter #1\W\X\Y\Z { 0}%
-\def\xint@geq@ez\W\XINT@geq@Eenter #1%
+\def\XINT_geq_Eenter #1\W\X\Y\Z { 0}%
+\def\xint_geq_ez\W\XINT_geq_Eenter #1%
{%
- \xint@UDzerofork
+ \xint_UDzerofork
#1\dummy { 0} % il y a une retenue
0\dummy { 1} % pas de retenue
- \xint@UDkrof
+ \krof
}%
\def\xintiMax {\romannumeral0\xintimax }%
\def\xintimax #1%
{%
- \expandafter\xint@max\expandafter {\romannumeral-`0#1}%
+ \expandafter\xint_max\expandafter {\romannumeral-`0#1}%
}%
\let\xintMax\xintiMax \let\xintmax\xintimax
-\def\xint@max #1#2%
-{%
- \expandafter\XINT@max@pre\expandafter {\romannumeral-`0#2}{#1}%
-}%
-\def\XINT@max@pre #1#2{\XINT@max@fork #1\Z #2\Z {#2}{#1}}%
-\def\XINT@Max #1#2{\romannumeral0\XINT@max@fork #2\Z #1\Z {#1}{#2}}%
-\def\XINT@max@fork #1#2\Z #3#4\Z
-{%
- \xint@UDsignsfork
- #1#3\dummy \XINT@max@minusminus % A < 0, B < 0
- #1-\dummy \XINT@max@minusplus % B < 0, A >= 0
- #3-\dummy \XINT@max@plusminus % A < 0, B >= 0
- --\dummy {\xint@UDzerosfork
- #1#3\dummy \XINT@max@zerozero % A = B = 0
- #10\dummy \XINT@max@zeroplus % B = 0, A > 0
- #30\dummy \XINT@max@pluszero % A = 0, B > 0
- 00\dummy \XINT@max@plusplus % A, B > 0
- \xint@UDkrof }%
- \xint@UDkrof
+\def\xint_max #1#2%
+{%
+ \expandafter\XINT_max_pre\expandafter {\romannumeral-`0#2}{#1}%
+}%
+\def\XINT_max_pre #1#2{\XINT_max_fork #1\Z #2\Z {#2}{#1}}%
+\def\XINT_Max #1#2{\romannumeral0\XINT_max_fork #2\Z #1\Z {#1}{#2}}%
+\def\XINT_max_fork #1#2\Z #3#4\Z
+{%
+ \xint_UDsignsfork
+ #1#3\dummy \XINT_max_minusminus % A < 0, B < 0
+ #1-\dummy \XINT_max_minusplus % B < 0, A >= 0
+ #3-\dummy \XINT_max_plusminus % A < 0, B >= 0
+ --\dummy {\xint_UDzerosfork
+ #1#3\dummy \XINT_max_zerozero % A = B = 0
+ #10\dummy \XINT_max_zeroplus % B = 0, A > 0
+ #30\dummy \XINT_max_pluszero % A = 0, B > 0
+ 00\dummy \XINT_max_plusplus % A, B > 0
+ \krof }%
+ \krof
{#2}{#4}#1#3%
}%
-\def\XINT@max@zerozero #1#2#3#4{\xint@firstoftwo@andstop }%
-\def\XINT@max@zeroplus #1#2#3#4{\xint@firstoftwo@andstop }%
-\def\XINT@max@pluszero #1#2#3#4{\xint@secondoftwo@andstop }%
-\def\XINT@max@minusplus #1#2#3#4{\xint@firstoftwo@andstop }%
-\def\XINT@max@plusminus #1#2#3#4{\xint@secondoftwo@andstop }%
-\def\XINT@max@plusplus #1#2#3#4%
+\def\XINT_max_zerozero #1#2#3#4{\xint_firstoftwo_andstop }%
+\def\XINT_max_zeroplus #1#2#3#4{\xint_firstoftwo_andstop }%
+\def\XINT_max_pluszero #1#2#3#4{\xint_secondoftwo_andstop }%
+\def\XINT_max_minusplus #1#2#3#4{\xint_firstoftwo_andstop }%
+\def\XINT_max_plusminus #1#2#3#4{\xint_secondoftwo_andstop }%
+\def\XINT_max_plusplus #1#2#3#4%
{%
- \ifodd\XINT@Geq {#4#2}{#3#1}
- \expandafter\xint@firstoftwo@andstop
+ \ifodd\XINT_Geq {#4#2}{#3#1}
+ \expandafter\xint_firstoftwo_andstop
\else
- \expandafter\xint@secondoftwo@andstop
+ \expandafter\xint_secondoftwo_andstop
\fi
}%
-\def\XINT@max@minusminus #1#2#3#4%
+\def\XINT_max_minusminus #1#2#3#4%
{%
- \ifodd\XINT@Geq {#1}{#2}
- \expandafter\xint@firstoftwo@andstop
+ \ifodd\XINT_Geq {#1}{#2}
+ \expandafter\xint_firstoftwo_andstop
\else
- \expandafter\xint@secondoftwo@andstop
+ \expandafter\xint_secondoftwo_andstop
\fi
}%
\def\xintiMin {\romannumeral0\xintimin }%
\def\xintimin #1%
{%
- \expandafter\xint@min\expandafter {\romannumeral-`0#1}%
+ \expandafter\xint_min\expandafter {\romannumeral-`0#1}%
}%
\let\xintMin\xintiMin \let\xintmin\xintimin
-\def\xint@min #1#2%
-{%
- \expandafter\XINT@min@pre\expandafter {\romannumeral-`0#2}{#1}%
-}%
-\def\XINT@min@pre #1#2{\XINT@min@fork #1\Z #2\Z {#2}{#1}}%
-\def\XINT@Min #1#2{\romannumeral0\XINT@min@fork #2\Z #1\Z {#1}{#2}}%
-\def\XINT@min@fork #1#2\Z #3#4\Z
-{%
- \xint@UDsignsfork
- #1#3\dummy \XINT@min@minusminus % A < 0, B < 0
- #1-\dummy \XINT@min@minusplus % B < 0, A >= 0
- #3-\dummy \XINT@min@plusminus % A < 0, B >= 0
- --\dummy {\xint@UDzerosfork
- #1#3\dummy \XINT@min@zerozero % A = B = 0
- #10\dummy \XINT@min@zeroplus % B = 0, A > 0
- #30\dummy \XINT@min@pluszero % A = 0, B > 0
- 00\dummy \XINT@min@plusplus % A, B > 0
- \xint@UDkrof }%
- \xint@UDkrof
+\def\xint_min #1#2%
+{%
+ \expandafter\XINT_min_pre\expandafter {\romannumeral-`0#2}{#1}%
+}%
+\def\XINT_min_pre #1#2{\XINT_min_fork #1\Z #2\Z {#2}{#1}}%
+\def\XINT_Min #1#2{\romannumeral0\XINT_min_fork #2\Z #1\Z {#1}{#2}}%
+\def\XINT_min_fork #1#2\Z #3#4\Z
+{%
+ \xint_UDsignsfork
+ #1#3\dummy \XINT_min_minusminus % A < 0, B < 0
+ #1-\dummy \XINT_min_minusplus % B < 0, A >= 0
+ #3-\dummy \XINT_min_plusminus % A < 0, B >= 0
+ --\dummy {\xint_UDzerosfork
+ #1#3\dummy \XINT_min_zerozero % A = B = 0
+ #10\dummy \XINT_min_zeroplus % B = 0, A > 0
+ #30\dummy \XINT_min_pluszero % A = 0, B > 0
+ 00\dummy \XINT_min_plusplus % A, B > 0
+ \krof }%
+ \krof
{#2}{#4}#1#3%
}%
-\def\XINT@min@zerozero #1#2#3#4{\xint@firstoftwo@andstop }%
-\def\XINT@min@zeroplus #1#2#3#4{\xint@secondoftwo@andstop }%
-\def\XINT@min@pluszero #1#2#3#4{\xint@firstoftwo@andstop }%
-\def\XINT@min@minusplus #1#2#3#4{\xint@secondoftwo@andstop }%
-\def\XINT@min@plusminus #1#2#3#4{\xint@firstoftwo@andstop }%
-\def\XINT@min@plusplus #1#2#3#4%
+\def\XINT_min_zerozero #1#2#3#4{\xint_firstoftwo_andstop }%
+\def\XINT_min_zeroplus #1#2#3#4{\xint_secondoftwo_andstop }%
+\def\XINT_min_pluszero #1#2#3#4{\xint_firstoftwo_andstop }%
+\def\XINT_min_minusplus #1#2#3#4{\xint_secondoftwo_andstop }%
+\def\XINT_min_plusminus #1#2#3#4{\xint_firstoftwo_andstop }%
+\def\XINT_min_plusplus #1#2#3#4%
{%
- \ifodd\XINT@Geq {#4#2}{#3#1}
- \expandafter\xint@secondoftwo@andstop
+ \ifodd\XINT_Geq {#4#2}{#3#1}
+ \expandafter\xint_secondoftwo_andstop
\else
- \expandafter\xint@firstoftwo@andstop
+ \expandafter\xint_firstoftwo_andstop
\fi
}%
-\def\XINT@min@minusminus #1#2#3#4%
+\def\XINT_min_minusminus #1#2#3#4%
{%
- \ifodd\XINT@Geq {#1}{#2}
- \expandafter\xint@secondoftwo@andstop
+ \ifodd\XINT_Geq {#1}{#2}
+ \expandafter\xint_secondoftwo_andstop
\else
- \expandafter\xint@firstoftwo@andstop
+ \expandafter\xint_firstoftwo_andstop
\fi
}%
\def\xintiSum {\romannumeral0\xintisum }%
\def\xintisum #1{\xintisumexpr #1\relax }%
\def\xintiSumExpr {\romannumeral0\xintisumexpr }%
-\def\xintisumexpr {\expandafter\XINT@sumexpr\romannumeral-`0}%
+\def\xintisumexpr {\expandafter\XINT_sumexpr\romannumeral-`0}%
\let\xintSum\xintiSum \let\xintsum\xintisum
\let\xintSumExpr\xintiSumExpr \let\xintsumexpr\xintisumexpr
-\def\XINT@sumexpr {\XINT@sum@loop {0000}{0000}}%
-\def\XINT@sum@loop #1#2#3%
+\def\XINT_sumexpr {\XINT_sum_loop {0000}{0000}}%
+\def\XINT_sum_loop #1#2#3%
{%
- \expandafter\XINT@sum@checksign\romannumeral-`0#3\Z {#1}{#2}%
+ \expandafter\XINT_sum_checksign\romannumeral-`0#3\Z {#1}{#2}%
}%
-\def\XINT@sum@checksign #1%
+\def\XINT_sum_checksign #1%
{%
- \xint@relax #1\XINT@sum@finished\relax
- \xint@zero #1\XINT@sum@skipzeroinput0%
- \xint@UDsignfork
- #1\dummy \XINT@sum@N
- -\dummy {\XINT@sum@P #1}%
- \xint@UDkrof
+ \xint_gob_til_relax #1\XINT_sum_finished\relax
+ \xint_gob_til_zero #1\XINT_sum_skipzeroinput0%
+ \xint_UDsignfork
+ #1\dummy \XINT_sum_N
+ -\dummy {\XINT_sum_P #1}%
+ \krof
}%
-\def\XINT@sum@finished #1\Z #2#3%
+\def\XINT_sum_finished #1\Z #2#3%
{%
- \XINT@sub@A 1{}#3\W\X\Y\Z #2\W\X\Y\Z
+ \XINT_sub_A 1{}#3\W\X\Y\Z #2\W\X\Y\Z
}%
-\def\XINT@sum@skipzeroinput #1\xint@UDkrof #2\Z {\XINT@sum@loop }%
-\def\XINT@sum@P #1\Z #2%
+\def\XINT_sum_skipzeroinput #1\krof #2\Z {\XINT_sum_loop }%
+\def\XINT_sum_P #1\Z #2%
{%
- \expandafter\XINT@sum@loop\expandafter
+ \expandafter\XINT_sum_loop\expandafter
{\romannumeral0\expandafter
- \XINT@addr@A\expandafter0\expandafter{\expandafter}%
- \romannumeral0\XINT@RQ {}#1\R\R\R\R\R\R\R\R\Z
+ \XINT_addr_A\expandafter0\expandafter{\expandafter}%
+ \romannumeral0\XINT_RQ {}#1\R\R\R\R\R\R\R\R\Z
\W\X\Y\Z #2\W\X\Y\Z }%
}%
-\def\XINT@sum@N #1\Z #2#3%
+\def\XINT_sum_N #1\Z #2#3%
{%
- \expandafter\XINT@sum@NN\expandafter
+ \expandafter\XINT_sum_NN\expandafter
{\romannumeral0\expandafter
- \XINT@addr@A\expandafter0\expandafter{\expandafter}%
- \romannumeral0\XINT@RQ {}#1\R\R\R\R\R\R\R\R\Z
+ \XINT_addr_A\expandafter0\expandafter{\expandafter}%
+ \romannumeral0\XINT_RQ {}#1\R\R\R\R\R\R\R\R\Z
\W\X\Y\Z #3\W\X\Y\Z }{#2}%
}%
-\def\XINT@sum@NN #1#2{\XINT@sum@loop {#2}{#1}}%
+\def\XINT_sum_NN #1#2{\XINT_sum_loop {#2}{#1}}%
\def\xintiMul {\romannumeral0\xintimul }%
\def\xintimul #1%
{%
- \expandafter\xint@mul\expandafter {\romannumeral-`0#1}%
+ \expandafter\xint_mul\expandafter {\romannumeral-`0#1}%
}%
\let\xintMul\xintiMul \let\xintmul\xintimul
-\def\xint@mul #1#2%
+\def\xint_mul #1#2%
{%
- \expandafter\XINT@mul@fork \romannumeral-`0#2\Z #1\Z
+ \expandafter\XINT_mul_fork \romannumeral-`0#2\Z #1\Z
}%
-\def\XINT@Mul #1#2{\romannumeral0\XINT@mul@fork #2\Z #1\Z }%
-\def\XINT@mul@fork #1#2\Z #3#4\Z
+\def\XINT_Mul #1#2{\romannumeral0\XINT_mul_fork #2\Z #1\Z }%
+\def\XINT_mul_fork #1#2\Z #3#4\Z
{%
- \xint@UDzerofork
- #1\dummy \XINT@mul@zero
- #3\dummy \XINT@mul@zero
+ \xint_UDzerofork
+ #1\dummy \XINT_mul_zero
+ #3\dummy \XINT_mul_zero
0\dummy
- {\xint@UDsignsfork
- #1#3\dummy \XINT@mul@minusminus % #1 = #3 = -
- #1-\dummy {\XINT@mul@minusplus #3}% % #1 = -
- #3-\dummy {\XINT@mul@plusminus #1}% % #3 = -
- --\dummy {\XINT@mul@plusplus #1#3}%
- \xint@UDkrof }%
- \xint@UDkrof
+ {\xint_UDsignsfork
+ #1#3\dummy \XINT_mul_minusminus % #1 = #3 = -
+ #1-\dummy {\XINT_mul_minusplus #3}% % #1 = -
+ #3-\dummy {\XINT_mul_plusminus #1}% % #3 = -
+ --\dummy {\XINT_mul_plusplus #1#3}%
+ \krof }%
+ \krof
{#2}{#4}%
}%
-\def\XINT@mul@zero #1#2{ 0}%
-\def\XINT@mul@minusminus #1#2%
+\def\XINT_mul_zero #1#2{ 0}%
+\def\XINT_mul_minusminus #1#2%
{%
- \expandafter\XINT@mul@choice@a
- \expandafter{\romannumeral0\XINT@length {#2}}%
- {\romannumeral0\XINT@length {#1}}{#1}{#2}%
+ \expandafter\XINT_mul_choice_a
+ \expandafter{\romannumeral0\XINT_length {#2}}%
+ {\romannumeral0\XINT_length {#1}}{#1}{#2}%
}%
-\def\XINT@mul@minusplus #1#2#3%
+\def\XINT_mul_minusplus #1#2#3%
{%
- \expandafter\xint@minus@andstop\romannumeral0\expandafter
- \XINT@mul@choice@a
- \expandafter{\romannumeral0\XINT@length {#1#3}}%
- {\romannumeral0\XINT@length {#2}}{#2}{#1#3}%
+ \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%
+\def\XINT_mul_plusminus #1#2#3%
{%
- \expandafter\xint@minus@andstop\romannumeral0\expandafter
- \XINT@mul@choice@a
- \expandafter{\romannumeral0\XINT@length {#3}}%
- {\romannumeral0\XINT@length {#1#2}}{#1#2}{#3}%
+ \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%
+\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%
+\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%
+\def\XINT_mul_choice_b #1#2%
{%
\ifnum #1<5
- \expandafter\XINT@mul@choice@littlebyfirst
+ \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}%
}%
-\def\XINT@mul@choice@littlebyfirst #1#2#3#4%
+\def\XINT_mul_choice_littlebyfirst #1#2#3#4%
{%
- \expandafter\XINT@mul@M
+ \expandafter\XINT_mul_M
\expandafter{\the\numexpr #3\expandafter}%
- \romannumeral0\XINT@RQ {}#4\R\R\R\R\R\R\R\R\Z \Z\Z\Z\Z
+ \romannumeral0\XINT_RQ {}#4\R\R\R\R\R\R\R\R\Z \Z\Z\Z\Z
}%
-\def\XINT@mul@choice@littlebysecond #1#2#3#4%
+\def\XINT_mul_choice_littlebysecond #1#2#3#4%
{%
- \expandafter\XINT@mul@M
+ \expandafter\XINT_mul_M
\expandafter{\the\numexpr #4\expandafter}%
- \romannumeral0\XINT@RQ {}#3\R\R\R\R\R\R\R\R\Z \Z\Z\Z\Z
+ \romannumeral0\XINT_RQ {}#3\R\R\R\R\R\R\R\R\Z \Z\Z\Z\Z
}%
-\def\XINT@mul@choice@compare #1#2%
+\def\XINT_mul_choice_compare #1#2%
{%
\ifnum #1>#2
- \expandafter \XINT@mul@choice@i
+ \expandafter \XINT_mul_choice_i
\else
- \expandafter \XINT@mul@choice@ii
+ \expandafter \XINT_mul_choice_ii
\fi
{#1}{#2}%
}%
-\def\XINT@mul@choice@i #1#2%
+\def\XINT_mul_choice_i #1#2%
{%
\ifnum #1<\numexpr\ifcase \numexpr (#2-3)/4\relax
\or 330\or 168\or 109\or 80\or 66\or 52\else 0\fi\relax
- \expandafter\XINT@mul@choice@same
+ \expandafter\XINT_mul_choice_same
\else
- \expandafter\XINT@mul@choice@permute
+ \expandafter\XINT_mul_choice_permute
\fi
}%
-\def\XINT@mul@choice@ii #1#2%
+\def\XINT_mul_choice_ii #1#2%
{%
\ifnum #2<\numexpr\ifcase \numexpr (#1-3)/4\relax
\or 330\or 168\or 109\or 80\or 66\or 52\else 0\fi\relax
- \expandafter\XINT@mul@choice@permute
+ \expandafter\XINT_mul_choice_permute
\else
- \expandafter\XINT@mul@choice@same
+ \expandafter\XINT_mul_choice_same
\fi
}%
-\def\XINT@mul@choice@same #1#2%
+\def\XINT_mul_choice_same #1#2%
{%
- \expandafter\XINT@mul@enter
- \romannumeral0\XINT@RQ {}#1\R\R\R\R\R\R\R\R\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%
+\def\XINT_mul_choice_permute #1#2%
{%
- \expandafter\XINT@mul@enter
- \romannumeral0\XINT@RQ {}#2\R\R\R\R\R\R\R\R\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%
+\def\XINT_mul_Ar #1#2#3#4#5#6%
{%
- \xint@z #6\xint@mul@br\Z\XINT@mul@Br #1{#6#5#4#3}{#2}%
+ \xint_gob_til_z #6\xint_mul_br\Z\XINT_mul_Br #1{#6#5#4#3}{#2}%
}%
-\def\xint@mul@br\Z\XINT@mul@Br #1#2%
+\def\xint_mul_br\Z\XINT_mul_Br #1#2%
{%
- \XINT@addr@AC@checkcarry #1%
+ \XINT_addr_AC_checkcarry #1%
}%
-\def\XINT@mul@Br #1#2#3#4\W\X\Y\Z #5#6#7#8%
+\def\XINT_mul_Br #1#2#3#4\W\X\Y\Z #5#6#7#8%
{%
- \expandafter\XINT@mul@ABEAr
+ \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%
+\def\XINT_mul_ABEAr #1#2#3#4#5#6.#7%
{%
- \XINT@mul@Ar #2{#7#6#5#4#3}%
+ \XINT_mul_Ar #2{#7#6#5#4#3}%
}%
-\def\XINT@mul@Mr #1%
+\def\XINT_mul_Mr #1%
{%
- \expandafter\XINT@mul@Mr@checkifzeroorone\expandafter{\the\numexpr #1}%
+ \expandafter\XINT_mul_Mr_checkifzeroorone\expandafter{\the\numexpr #1}%
}%
-\def\XINT@mul@Mr@checkifzeroorone #1%
+\def\XINT_mul_Mr_checkifzeroorone #1%
{%
\ifcase #1
- \expandafter\XINT@mul@Mr@zero
+ \expandafter\XINT_mul_Mr_zero
\or
- \expandafter\XINT@mul@Mr@one
+ \expandafter\XINT_mul_Mr_one
\else
- \expandafter\XINT@mul@Nr
+ \expandafter\XINT_mul_Nr
\fi
{0000}{}{#1}%
}%
-\def\XINT@mul@Mr@zero #1\Z\Z\Z\Z { 0000}%
-\def\XINT@mul@Mr@one #1#2#3#4\Z\Z\Z\Z { #4}%
-\def\XINT@mul@Nr #1#2#3#4#5#6#7%
+\def\XINT_mul_Mr_zero #1\Z\Z\Z\Z { 0000}%
+\def\XINT_mul_Mr_one #1#2#3#4\Z\Z\Z\Z { #4}%
+\def\XINT_mul_Nr #1#2#3#4#5#6#7%
{%
- \xint@z #4\xint@mul@pr\Z\XINT@mul@Pr {#1}{#3}{#7#6#5#4}{#2}{#3}%
+ \xint_gob_til_z #4\xint_mul_pr\Z\XINT_mul_Pr {#1}{#3}{#7#6#5#4}{#2}{#3}%
}%
-\def\XINT@mul@Pr #1#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%
+\def\XINT_mul_Lr 1#1#2#3#4#5#6#7#8#9%
{%
- \XINT@mul@Nr {#1#2#3#4}{#9#8#7#6#5}%
+ \XINT_mul_Nr {#1#2#3#4}{#9#8#7#6#5}%
}%
-\def\xint@mul@pr\Z\XINT@mul@Pr #1#2#3#4#5%
+\def\xint_mul_pr\Z\XINT_mul_Pr #1#2#3#4#5%
{%
- \xint@quatrezeros #1\XINT@mul@Mr@end@nocarry 0000%
- \XINT@mul@Mr@end@carry #1{#4}%
+ \xint_gob_til_zeros_iv #1\XINT_mul_Mr_end_nocarry 0000%
+ \XINT_mul_Mr_end_carry #1{#4}%
}%
-\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%
+\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}%
+ \expandafter\XINT_mul_M_checkifzeroorone\expandafter{\the\numexpr #1}%
}%
-\def\XINT@mul@M@checkifzeroorone #1%
+\def\XINT_mul_M_checkifzeroorone #1%
{%
\ifcase #1
- \expandafter\XINT@mul@M@zero
+ \expandafter\XINT_mul_M_zero
\or
- \expandafter\XINT@mul@M@one
+ \expandafter\XINT_mul_M_one
\else
- \expandafter\XINT@mul@N
+ \expandafter\XINT_mul_N
\fi
{0000}{}{#1}%
}%
-\def\XINT@mul@M@zero #1\Z\Z\Z\Z { 0}%
-\def\XINT@mul@M@one #1#2#3#4\Z\Z\Z\Z
+\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\romannumeral0\XINT@rev{#4}%
+ \expandafter\xint_cleanupzeros_andstop\romannumeral0\XINT_rev{#4}%
}%
-\def\XINT@mul@N #1#2#3#4#5#6#7%
+\def\XINT_mul_N #1#2#3#4#5#6#7%
{%
- \xint@z #4\xint@mul@p\Z\XINT@mul@P {#1}{#3}{#7#6#5#4}{#2}{#3}%
+ \xint_gob_til_z #4\xint_mul_p\Z\XINT_mul_P {#1}{#3}{#7#6#5#4}{#2}{#3}%
}%
-\def\XINT@mul@P #1#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%
+\def\XINT_mul_L 1#1#2#3#4#5#6#7#8#9%
{%
- \XINT@mul@N {#1#2#3#4}{#5#6#7#8#9}%
+ \XINT_mul_N {#1#2#3#4}{#5#6#7#8#9}%
}%
-\def\xint@mul@p\Z\XINT@mul@P #1#2#3#4#5%
+\def\xint_mul_p\Z\XINT_mul_P #1#2#3#4#5%
{%
- \XINT@mul@M@end #1#4%
+ \XINT_mul_M_end #1#4%
}%
-\def\XINT@mul@M@end #1#2#3#4#5#6#7#8%
+\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
}%
-\def\XINT@mul@enter #1\W\X\Y\Z #2#3#4#5%
+\def\XINT_mul_enter #1\W\X\Y\Z #2#3#4#5%
{%
- \xint@w
- #5\xint@mul@enterw
- #4\xint@mul@enterx
- #3\xint@mul@entery
- #2\xint@mul@enterz
- \W\XINT@mul@start {#2#3#4#5}#1\W\X\Y\Z
+ \xint_gob_til_w
+ #5\xint_mul_enterw
+ #4\xint_mul_enterx
+ #3\xint_mul_entery
+ #2\xint_mul_enterz
+ \W\XINT_mul_start {#2#3#4#5}#1\W\X\Y\Z
}%
-\def\xint@mul@enterw
- #1\xint@mul@enterx
- #2\xint@mul@entery
- #3\xint@mul@enterz
- \W\XINT@mul@start #4#5\W\X\Y\Z \X\Y\Z
+\def\xint_mul_enterw
+ #1\xint_mul_enterx
+ #2\xint_mul_entery
+ #3\xint_mul_enterz
+ \W\XINT_mul_start #4#5\W\X\Y\Z \X\Y\Z
{%
- \XINT@mul@M {#3#2#1}#5\Z\Z\Z\Z
+ \XINT_mul_M {#3#2#1}#5\Z\Z\Z\Z
}%
-\def\xint@mul@enterx
- #1\xint@mul@entery
- #2\xint@mul@enterz
- \W\XINT@mul@start #3#4\W\X\Y\Z \Y\Z
+\def\xint_mul_enterx
+ #1\xint_mul_entery
+ #2\xint_mul_enterz
+ \W\XINT_mul_start #3#4\W\X\Y\Z \Y\Z
{%
- \XINT@mul@M {#2#1}#4\Z\Z\Z\Z
+ \XINT_mul_M {#2#1}#4\Z\Z\Z\Z
}%
-\def\xint@mul@entery
- #1\xint@mul@enterz
- \W\XINT@mul@start #2#3\W\X\Y\Z \Z
+\def\xint_mul_entery
+ #1\xint_mul_enterz
+ \W\XINT_mul_start #2#3\W\X\Y\Z \Z
{%
- \XINT@mul@M {#1}#3\Z\Z\Z\Z
+ \XINT_mul_M {#1}#3\Z\Z\Z\Z
}%
-\def\XINT@mul@start #1#2\W\X\Y\Z
+\def\XINT_mul_start #1#2\W\X\Y\Z
{%
- \expandafter\XINT@mul@main\expandafter
- {\romannumeral0\XINT@mul@Mr {#1}#2\Z\Z\Z\Z}#2\W\X\Y\Z
+ \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%
+\def\XINT_mul_main #1#2\W\X\Y\Z #3#4#5#6%
{%
- \xint@w
- #6\xint@mul@mainw
- #5\xint@mul@mainx
- #4\xint@mul@mainy
- #3\xint@mul@mainz
- \W\XINT@mul@compute {#1}{#3#4#5#6}#2\W\X\Y\Z
+ \xint_gob_til_w
+ #6\xint_mul_mainw
+ #5\xint_mul_mainx
+ #4\xint_mul_mainy
+ #3\xint_mul_mainz
+ \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
+\def\XINT_mul_compute #1#2#3\W\X\Y\Z
{%
- \expandafter\XINT@mul@main\expandafter
+ \expandafter\XINT_mul_main\expandafter
{\romannumeral0\expandafter
- \XINT@mul@Ar\expandafter0\expandafter{\expandafter}%
- \romannumeral0\XINT@mul@Mr {#2}#3\Z\Z\Z\Z
+ \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
- #2\xint@mul@mainy
- #3\xint@mul@mainz
- \W\XINT@mul@compute #4#5#6\W\X\Y\Z \X\Y\Z
+\def\xint_mul_mainw
+ #1\xint_mul_mainx
+ #2\xint_mul_mainy
+ #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
+ \XINT_mul_Mr {#3#2#1}#6\Z\Z\Z\Z
\W\X\Y\Z 000#4\W\X\Y\Z
}%
-\def\xint@mul@mainx
- #1\xint@mul@mainy
- #2\xint@mul@mainz
- \W\XINT@mul@compute #3#4#5\W\X\Y\Z \Y\Z
+\def\xint_mul_mainx
+ #1\xint_mul_mainy
+ #2\xint_mul_mainz
+ \W\XINT_mul_compute #3#4#5\W\X\Y\Z \Y\Z
{%
- \expandafter\XINT@addm@A\expandafter
+ \expandafter\XINT_addm_A\expandafter
0\expandafter{\expandafter}%
- \romannumeral0\XINT@mul@Mr {#2#1}#5\Z\Z\Z\Z
+ \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
+\def\xint_mul_mainy
+ #1\xint_mul_mainz
+ \W\XINT_mul_compute #2#3#4\W\X\Y\Z \Z
{%
- \expandafter\XINT@addm@A\expandafter
+ \expandafter\XINT_addm_A\expandafter
0\expandafter{\expandafter}%
- \romannumeral0\XINT@mul@Mr {#1}#4\Z\Z\Z\Z
+ \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
+\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%
+\def\XINT_mulr_enter #1\W\X\Y\Z #2#3#4#5%
{%
- \xint@w
- #5\xint@mulr@enterw
- #4\xint@mulr@enterx
- #3\xint@mulr@entery
- #2\xint@mulr@enterz
- \W\XINT@mulr@start {#2#3#4#5}#1\W\X\Y\Z
+ \xint_gob_til_w
+ #5\xint_mulr_enterw
+ #4\xint_mulr_enterx
+ #3\xint_mulr_entery
+ #2\xint_mulr_enterz
+ \W\XINT_mulr_start {#2#3#4#5}#1\W\X\Y\Z
}%
-\def\xint@mulr@enterw
- #1\xint@mulr@enterx
- #2\xint@mulr@entery
- #3\xint@mulr@enterz
- \W\XINT@mulr@start #4#5\W\X\Y\Z \X\Y\Z
+\def\xint_mulr_enterw
+ #1\xint_mulr_enterx
+ #2\xint_mulr_entery
+ #3\xint_mulr_enterz
+ \W\XINT_mulr_start #4#5\W\X\Y\Z \X\Y\Z
{%
- \XINT@mul@Mr {#3#2#1}#5\Z\Z\Z\Z
+ \XINT_mul_Mr {#3#2#1}#5\Z\Z\Z\Z
}%
-\def\xint@mulr@enterx
- #1\xint@mulr@entery
- #2\xint@mulr@enterz
- \W\XINT@mulr@start #3#4\W\X\Y\Z \Y\Z
+\def\xint_mulr_enterx
+ #1\xint_mulr_entery
+ #2\xint_mulr_enterz
+ \W\XINT_mulr_start #3#4\W\X\Y\Z \Y\Z
{%
- \XINT@mul@Mr {#2#1}#4\Z\Z\Z\Z
+ \XINT_mul_Mr {#2#1}#4\Z\Z\Z\Z
}%
-\def\xint@mulr@entery
- #1\xint@mulr@enterz
- \W\XINT@mulr@start #2#3\W\X\Y\Z \Z
+\def\xint_mulr_entery
+ #1\xint_mulr_enterz
+ \W\XINT_mulr_start #2#3\W\X\Y\Z \Z
{%
- \XINT@mul@Mr {#1}#3\Z\Z\Z\Z
+ \XINT_mul_Mr {#1}#3\Z\Z\Z\Z
}%
-\def\XINT@mulr@start #1#2\W\X\Y\Z
+\def\XINT_mulr_start #1#2\W\X\Y\Z
{%
- \expandafter\XINT@mulr@main\expandafter
- {\romannumeral0\XINT@mul@Mr {#1}#2\Z\Z\Z\Z }#2\W\X\Y\Z
+ \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%
+\def\XINT_mulr_main #1#2\W\X\Y\Z #3#4#5#6%
{%
- \xint@w
- #6\xint@mulr@mainw
- #5\xint@mulr@mainx
- #4\xint@mulr@mainy
- #3\xint@mulr@mainz
- \W\XINT@mulr@compute {#1}{#3#4#5#6}#2\W\X\Y\Z
+ \xint_gob_til_w
+ #6\xint_mulr_mainw
+ #5\xint_mulr_mainx
+ #4\xint_mulr_mainy
+ #3\xint_mulr_mainz
+ \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
+\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
+ \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@mulr@mainw
- #1\xint@mulr@mainx
- #2\xint@mulr@mainy
- #3\xint@mulr@mainz
- \W\XINT@mulr@compute #4#5#6\W\X\Y\Z \X\Y\Z
+\def\xint_mulr_mainw
+ #1\xint_mulr_mainx
+ #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
+ \romannumeral0\XINT_mul_Mr {#3#2#1}#6\Z\Z\Z\Z
\W\X\Y\Z 000#4\W\X\Y\Z
}%
-\def\xint@mulr@mainx
- #1\xint@mulr@mainy
- #2\xint@mulr@mainz
- \W\XINT@mulr@compute #3#4#5\W\X\Y\Z \Y\Z
+\def\xint_mulr_mainx
+ #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
+ \romannumeral0\XINT_mul_Mr {#2#1}#5\Z\Z\Z\Z
\W\X\Y\Z 00#3\W\X\Y\Z
}%
-\def\xint@mulr@mainy
- #1\xint@mulr@mainz
- \W\XINT@mulr@compute #2#3#4\W\X\Y\Z \Z
+\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
+ \romannumeral0\XINT_mul_Mr {#1}#4\Z\Z\Z\Z
\W\X\Y\Z 0#2\W\X\Y\Z
}%
-\def\xint@mulr@mainz\W\XINT@mulr@compute #1#2#3\W\X\Y\Z { #1}%
+\def\xint_mulr_mainz\W\XINT_mulr_compute #1#2#3\W\X\Y\Z { #1}%
\def\xintiSqr {\romannumeral0\xintisqr }%
\def\xintisqr #1%
{%
- \expandafter\XINT@sqr\expandafter {\romannumeral0\xintiabs{#1}}%
+ \expandafter\XINT_sqr\expandafter {\romannumeral0\xintiabs{#1}}%
}%
\let\xintSqr\xintiSqr \let\xintsqr\xintisqr
-\def\XINT@sqr #1%
+\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
+ \XINT_RQ {}#1\R\R\R\R\R\R\R\R\Z
\W\X\Y\Z #1\W\X\Y\Z
}%
\def\xintiPrd {\romannumeral0\xintiprd }%
@@ -2042,776 +2062,776 @@
\let\xintPrd\xintiPrd
\let\xintprd\xintiprd
\def\xintiPrdExpr {\romannumeral0\xintiprdexpr }%
-\def\xintiprdexpr {\expandafter\XINT@prdexpr\romannumeral-`0}%
+\def\xintiprdexpr {\expandafter\XINT_prdexpr\romannumeral-`0}%
\let\xintPrdExpr\xintiPrdExpr
\let\xintprdexpr\xintiprdexpr
-\def\XINT@prdexpr {\XINT@prod@loop@a 1\Z }%
-\def\XINT@prod@loop@a #1\Z #2%
+\def\XINT_prdexpr {\XINT_prod_loop_a 1\Z }%
+\def\XINT_prod_loop_a #1\Z #2%
{%
- \expandafter\XINT@prod@loop@b \romannumeral-`0#2\Z #1\Z \Z
+ \expandafter\XINT_prod_loop_b \romannumeral-`0#2\Z #1\Z \Z
}%
-\def\XINT@prod@loop@b #1%
+\def\XINT_prod_loop_b #1%
{%
- \xint@relax #1\XINT@prod@finished\relax
- \XINT@prod@loop@c #1%
+ \xint_gob_til_relax #1\XINT_prod_finished\relax
+ \XINT_prod_loop_c #1%
}%
-\def\XINT@prod@loop@c
+\def\XINT_prod_loop_c
{%
- \expandafter\XINT@prod@loop@a\romannumeral0\XINT@mul@fork
+ \expandafter\XINT_prod_loop_a\romannumeral0\XINT_mul_fork
}%
-\def\XINT@prod@finished #1\Z #2\Z \Z { #2}%
+\def\XINT_prod_finished #1\Z #2\Z \Z { #2}%
\def\xintFac {\romannumeral0\xintfac }%
\def\xintfac #1%
{%
- \expandafter\XINT@fac@fork\expandafter{\the\numexpr #1}%
+ \expandafter\XINT_fac_fork\expandafter{\the\numexpr #1}%
}%
-\def\XINT@fac@fork #1%
+\def\XINT_fac_fork #1%
{%
- \ifcase\XINT@Sgn {#1}
- \xint@afterfi{\expandafter\space\expandafter 1\xint@gobble }%
+ \ifcase\XINT_Sgn {#1}
+ \xint_afterfi{\expandafter\space\expandafter 1\xint_gobble_i }%
\or
- \expandafter\XINT@fac@checklength
+ \expandafter\XINT_fac_checklength
\else
- \xint@afterfi{\expandafter\xintError:FactorialOfNegativeNumber
- \expandafter\space\expandafter 1\xint@gobble }%
+ \xint_afterfi{\expandafter\xintError:FactorialOfNegativeNumber
+ \expandafter\space\expandafter 1\xint_gobble_i }%
\fi
{#1}%
}%
-\def\XINT@fac@checklength #1%
+\def\XINT_fac_checklength #1%
{%
\ifnum #1>999999
- \xint@afterfi{\expandafter\xintError:FactorialOfTooBigNumber
- \expandafter\space\expandafter 1\xint@gobble }%
+ \xint_afterfi{\expandafter\xintError:FactorialOfTooBigNumber
+ \expandafter\space\expandafter 1\xint_gobble_i }%
\else
- \xint@afterfi{\ifnum #1>9999
- \expandafter\XINT@fac@big@loop
+ \xint_afterfi{\ifnum #1>9999
+ \expandafter\XINT_fac_big_loop
\else
- \expandafter\XINT@fac@loop
+ \expandafter\XINT_fac_loop
\fi }%
\fi
{#1}%
}%
-\def\XINT@fac@big@loop #1{\XINT@fac@big@loop@main {10000}{#1}{}}%
-\def\XINT@fac@big@loop@main #1#2#3%
+\def\XINT_fac_big_loop #1{\XINT_fac_big_loop_main {10000}{#1}{}}%
+\def\XINT_fac_big_loop_main #1#2#3%
{%
\ifnum #1<#2
\expandafter
- \XINT@fac@big@loop@main
+ \XINT_fac_big_loop_main
\expandafter
{\the\numexpr #1+1\expandafter }%
\else
- \expandafter\XINT@fac@big@docomputation
+ \expandafter\XINT_fac_big_docomputation
\fi
{#2}{#3{#1}}%
}%
-\def\XINT@fac@big@docomputation #1#2%
+\def\XINT_fac_big_docomputation #1#2%
{%
- \expandafter \XINT@fac@bigcompute@loop \expandafter
- {\romannumeral0\XINT@fac@loop {9999}}#2\relax
+ \expandafter \XINT_fac_bigcompute_loop \expandafter
+ {\romannumeral0\XINT_fac_loop {9999}}#2\relax
}%
-\def\XINT@fac@bigcompute@loop #1#2%
+\def\XINT_fac_bigcompute_loop #1#2%
{%
- \xint@relax #2\XINT@fac@bigcompute@end\relax
- \expandafter\XINT@fac@bigcompute@loop\expandafter
- {\expandafter\XINT@mul@enter
- \romannumeral0\XINT@RQ {}#2\R\R\R\R\R\R\R\R\Z
+ \xint_gob_til_relax #2\XINT_fac_bigcompute_end\relax
+ \expandafter\XINT_fac_bigcompute_loop\expandafter
+ {\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@fac@bigcompute@end #1#2#3#4#5%
+\def\XINT_fac_bigcompute_end #1#2#3#4#5%
{%
- \XINT@fac@bigcompute@end@ #5%
+ \XINT_fac_bigcompute_end_ #5%
}%
-\def\XINT@fac@bigcompute@end@ #1\R #2\Z \W\X\Y\Z #3\W\X\Y\Z { #3}%
-\def\XINT@fac@loop #1{\XINT@fac@loop@main 1{1000}{#1}}%
-\def\XINT@fac@loop@main #1#2#3%
+\def\XINT_fac_bigcompute_end_ #1\R #2\Z \W\X\Y\Z #3\W\X\Y\Z { #3}%
+\def\XINT_fac_loop #1{\XINT_fac_loop_main 1{1000}{#1}}%
+\def\XINT_fac_loop_main #1#2#3%
{%
\ifnum #3>#1
\else
- \expandafter\XINT@fac@loop@exit
+ \expandafter\XINT_fac_loop_exit
\fi
- \expandafter\XINT@fac@loop@main\expandafter
+ \expandafter\XINT_fac_loop_main\expandafter
{\the\numexpr #1+1\expandafter }\expandafter
- {\romannumeral0\XINT@mul@Mr {#1}#2\Z\Z\Z\Z }%
+ {\romannumeral0\XINT_mul_Mr {#1}#2\Z\Z\Z\Z }%
{#3}%
}%
-\def\XINT@fac@loop@exit #1#2#3#4#5#6#7%
+\def\XINT_fac_loop_exit #1#2#3#4#5#6#7%
{%
- \XINT@fac@loop@exit@ #6%
+ \XINT_fac_loop_exit_ #6%
}%
-\def\XINT@fac@loop@exit@ #1#2#3%
+\def\XINT_fac_loop_exit_ #1#2#3%
{%
- \XINT@mul@M
+ \XINT_mul_M
}%
\def\xintiPow {\romannumeral0\xintipow }%
\def\xintipow #1%
{%
- \expandafter\xint@pow\romannumeral-`0#1\Z%
+ \expandafter\xint_pow\romannumeral-`0#1\Z%
}%
\let\xintPow\xintiPow \let\xintpow\xintipow
-\def\xint@pow #1#2\Z
+\def\xint_pow #1#2\Z
{%
- \xint@UDsignfork
- #1\dummy \XINT@pow@Aneg
- -\dummy \XINT@pow@Anonneg
- \xint@UDkrof
+ \xint_UDsignfork
+ #1\dummy \XINT_pow_Aneg
+ -\dummy \XINT_pow_Anonneg
+ \krof
#1{#2}%
}%
-\def\XINT@pow@Aneg #1#2#3%
+\def\XINT_pow_Aneg #1#2#3%
{%
- \expandafter\XINT@pow@Aneg@\expandafter{\the\numexpr #3}{#2}%
+ \expandafter\XINT_pow_Aneg_\expandafter{\the\numexpr #3}{#2}%
}%
-\def\XINT@pow@Aneg@ #1%
+\def\XINT_pow_Aneg_ #1%
{%
\ifodd #1
- \expandafter\XINT@pow@Aneg@Bodd
+ \expandafter\XINT_pow_Aneg_Bodd
\fi
- \XINT@pow@Anonneg@ {#1}%
+ \XINT_pow_Anonneg_ {#1}%
}%
-\def\XINT@pow@Aneg@Bodd #1%
+\def\XINT_pow_Aneg_Bodd #1%
{%
- \expandafter\XINT@opp\romannumeral0\XINT@pow@Anonneg@
+ \expandafter\XINT_opp\romannumeral0\XINT_pow_Anonneg_
}%
-\def\XINT@pow@Anonneg #1#2#3%
+\def\XINT_pow_Anonneg #1#2#3%
{%
- \expandafter\XINT@pow@Anonneg@\expandafter {\the\numexpr #3}{#1#2}%
+ \expandafter\XINT_pow_Anonneg_\expandafter {\the\numexpr #3}{#1#2}%
}%
-\def\XINT@pow@Anonneg@ #1#2%
+\def\XINT_pow_Anonneg_ #1#2%
{%
- \ifcase\XINT@Cmp {#2}{1}
- \expandafter\XINT@pow@AisOne
+ \ifcase\XINT_Cmp {#2}{1}
+ \expandafter\XINT_pow_AisOne
\or
- \expandafter\XINT@pow@AatleastTwo
+ \expandafter\XINT_pow_AatleastTwo
\else
- \expandafter\XINT@pow@AisZero
+ \expandafter\XINT_pow_AisZero
\fi
{#1}{#2}%
}%
-\def\XINT@pow@AisOne #1#2{ 1}%
-\def\XINT@pow@AisZero #1#2%
+\def\XINT_pow_AisOne #1#2{ 1}%
+\def\XINT_pow_AisZero #1#2%
{%
- \ifcase\XINT@Sgn {#1}
- \xint@afterfi { 1}%
+ \ifcase\XINT_Sgn {#1}
+ \xint_afterfi { 1}%
\or
- \xint@afterfi { 0}%
+ \xint_afterfi { 0}%
\else
- \xint@afterfi {\xintError:DivisionByZero\space 0}%
+ \xint_afterfi {\xintError:DivisionByZero\space 0}%
\fi
}%
-\def\XINT@pow@AatleastTwo #1%
+\def\XINT_pow_AatleastTwo #1%
{%
- \ifcase\XINT@Sgn {#1}
- \expandafter\XINT@pow@BisZero
+ \ifcase\XINT_Sgn {#1}
+ \expandafter\XINT_pow_BisZero
\or
- \expandafter\XINT@pow@checkBlength
+ \expandafter\XINT_pow_checkBlength
\else
- \expandafter\XINT@pow@BisNegative
+ \expandafter\XINT_pow_BisNegative
\fi
{#1}%
}%
-\def\XINT@pow@BisNegative #1#2{\xintError:FractionRoundedToZero\space 0}%
-\def\XINT@pow@BisZero #1#2{ 1}%
-\def\XINT@pow@checkBlength #1#2%
+\def\XINT_pow_BisNegative #1#2{\xintError:FractionRoundedToZero\space 0}%
+\def\XINT_pow_BisZero #1#2{ 1}%
+\def\XINT_pow_checkBlength #1#2%
{%
\ifnum #1>999999999
- \expandafter\XINT@pow@BtooBig
+ \expandafter\XINT_pow_BtooBig
\else
- \expandafter\XINT@pow@loop
+ \expandafter\XINT_pow_loop
\fi
- {#1}{#2}\XINT@pow@posprod
- \xint@UNDEF
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@UNDEF
+ {#1}{#2}\XINT_pow_posprod
+ \xint_relax
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_relax
}%
-\def\XINT@pow@BtooBig #1\xint@UNDEF #2\xint@UNDEF
+\def\XINT_pow_BtooBig #1\xint_relax #2\xint_relax
{\xintError:ExponentTooBig\space 0}%
-\def\XINT@pow@loop #1#2%
+\def\XINT_pow_loop #1#2%
{%
\ifnum #1 = 1
- \expandafter\XINT@pow@loop@end
+ \expandafter\XINT_pow_loop_end
\else
- \xint@afterfi{\expandafter\XINT@pow@loop@a
+ \xint_afterfi{\expandafter\XINT_pow_loop_a
\expandafter{\the\numexpr 2*(#1/2)-#1\expandafter }% b mod 2
\expandafter{\the\numexpr #1-#1/2\expandafter }% [b/2]
\expandafter{\romannumeral0\xintisqr{#2}}}%
\fi
{{#2}}%
}%
-\def\XINT@pow@loop@end {\romannumeral0\XINT@rord@main {}\relax }%
-\def\XINT@pow@loop@a #1%
+\def\XINT_pow_loop_end {\romannumeral0\XINT_rord_main {}\relax }%
+\def\XINT_pow_loop_a #1%
{%
\ifnum #1 = 1
- \expandafter\XINT@pow@loop
+ \expandafter\XINT_pow_loop
\else
- \expandafter\XINT@pow@loop@throwaway
+ \expandafter\XINT_pow_loop_throwaway
\fi
}%
-\def\XINT@pow@loop@throwaway #1#2#3%
+\def\XINT_pow_loop_throwaway #1#2#3%
{%
- \XINT@pow@loop {#1}{#2}%
+ \XINT_pow_loop {#1}{#2}%
}%
-\def\XINT@pow@posprod #1%
+\def\XINT_pow_posprod #1%
{%
- \XINT@pow@pprod@checkifempty #1\Z
+ \XINT_pow_pprod_checkifempty #1\Z
}%
-\def\XINT@pow@pprod@checkifempty #1%
+\def\XINT_pow_pprod_checkifempty #1%
{%
- \xint@relax #1\XINT@pow@pprod@emptyproduct\relax
- \XINT@pow@pprod@RQfirst #1%
+ \xint_gob_til_relax #1\XINT_pow_pprod_emptyproduct\relax
+ \XINT_pow_pprod_RQfirst #1%
}%
-\def\XINT@pow@pprod@emptyproduct #1\Z { 1}%
-\def\XINT@pow@pprod@RQfirst #1\Z
+\def\XINT_pow_pprod_emptyproduct #1\Z { 1}%
+\def\XINT_pow_pprod_RQfirst #1\Z
{%
- \expandafter\XINT@pow@pprod@getnext\expandafter
- {\romannumeral0\XINT@RQ {}#1\R\R\R\R\R\R\R\R\Z}%
+ \expandafter\XINT_pow_pprod_getnext\expandafter
+ {\romannumeral0\XINT_RQ {}#1\R\R\R\R\R\R\R\R\Z}%
}%
-\def\XINT@pow@pprod@getnext #1#2%
+\def\XINT_pow_pprod_getnext #1#2%
{%
- \XINT@pow@pprod@checkiffinished #2\Z {#1}%
+ \XINT_pow_pprod_checkiffinished #2\Z {#1}%
}%
-\def\XINT@pow@pprod@checkiffinished #1%
+\def\XINT_pow_pprod_checkiffinished #1%
{%
- \xint@relax #1\XINT@pow@pprod@end\relax
- \XINT@pow@pprod@compute #1%
+ \xint_gob_til_relax #1\XINT_pow_pprod_end\relax
+ \XINT_pow_pprod_compute #1%
}%
-\def\XINT@pow@pprod@compute #1\Z #2%
+\def\XINT_pow_pprod_compute #1\Z #2%
{%
- \expandafter\XINT@pow@pprod@getnext\expandafter
- {\romannumeral0\XINT@mulr@enter #2\W\X\Y\Z #1\W\X\Y\Z}%
+ \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%
+\def\XINT_pow_pprod_end\relax\XINT_pow_pprod_compute #1\Z #2%
{%
- \expandafter\xint@cleanupzeros@andstop
- \romannumeral0\XINT@rev {#2}%
+ \expandafter\xint_cleanupzeros_andstop
+ \romannumeral0\XINT_rev {#2}%
}%
\def\xintiQuo {\romannumeral0\xintiquo }%
\def\xintiRem {\romannumeral0\xintirem }%
-\def\xintiquo {\expandafter\xint@firstoftwo@andstop
+\def\xintiquo {\expandafter\xint_firstoftwo_andstop
\romannumeral0\xintidivision }%
-\def\xintirem {\expandafter\xint@secondoftwo@andstop
+\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\xint@division\expandafter {\romannumeral-`0#1}%
+ \expandafter\xint_division\expandafter {\romannumeral-`0#1}%
}%
\let\xintDivision\xintiDivision \let\xintdivision\xintidivision
-\def\xint@division #1#2%
+\def\xint_division #1#2%
{%
- \expandafter\XINT@div@fork \romannumeral-`0#2\Z #1\Z
+ \expandafter\XINT_div_fork \romannumeral-`0#2\Z #1\Z
}%
-\def\XINT@Division #1#2{\romannumeral0\XINT@div@fork #2\Z #1\Z }%
-\def\XINT@div@fork #1#2\Z #3#4\Z
+\def\XINT_Division #1#2{\romannumeral0\XINT_div_fork #2\Z #1\Z }%
+\def\XINT_div_fork #1#2\Z #3#4\Z
{%
- \xint@UDzerofork
- #1\dummy \XINT@div@BisZero
- #3\dummy \XINT@div@AisZero
+ \xint_UDzerofork
+ #1\dummy \XINT_div_BisZero
+ #3\dummy \XINT_div_AisZero
0\dummy
- {\xint@UDsignfork
- #1\dummy \XINT@div@BisNegative % B < 0
- #3\dummy \XINT@div@AisNegative % A < 0, B > 0
- -\dummy \XINT@div@plusplus % B > 0, A > 0
- \xint@UDkrof }%
- \xint@UDkrof
+ {\xint_UDsignfork
+ #1\dummy \XINT_div_BisNegative % B < 0
+ #3\dummy \XINT_div_AisNegative % A < 0, B > 0
+ -\dummy \XINT_div_plusplus % B > 0, A > 0
+ \krof }%
+ \krof
{#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@AisZero #1#2#3#4{ {0}{0}}%
-\def\XINT@div@plusplus #1#2#3#4%
+\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%
{%
- \XINT@div@prepare {#3#1}{#4#2}%
+ \XINT_div_prepare {#3#1}{#4#2}%
}%
-\def\XINT@div@BisNegative #1#2#3#4%
+\def\XINT_div_BisNegative #1#2#3#4%
{%
- \expandafter\XINT@div@BisNegative@post
- \romannumeral0\XINT@div@fork #1\Z #4#2\Z
+ \expandafter\XINT_div_BisNegative_post
+ \romannumeral0\XINT_div_fork #1\Z #4#2\Z
}%
-\def\XINT@div@BisNegative@post #1%
+\def\XINT_div_BisNegative_post #1%
{%
- \expandafter\space\expandafter {\romannumeral0\XINT@opp #1}%
+ \expandafter\space\expandafter {\romannumeral0\XINT_opp #1}%
}%
-\def\XINT@div@AisNegative #1#2#3#4%
+\def\XINT_div_AisNegative #1#2#3#4%
{%
- \expandafter\XINT@div@AisNegative@post
- \romannumeral0\XINT@div@prepare {#3#1}{#2}{#3#1}%
+ \expandafter\XINT_div_AisNegative_post
+ \romannumeral0\XINT_div_prepare {#3#1}{#2}{#3#1}%
}%
-\def\XINT@div@AisNegative@post #1#2%
+\def\XINT_div_AisNegative_post #1#2%
{%
- \ifcase\XINT@Sgn {#2}
- \expandafter \XINT@div@AisNegative@zerorem
+ \ifcase\XINT_Sgn {#2}
+ \expandafter \XINT_div_AisNegative_zerorem
\or
- \expandafter \XINT@div@AisNegative@posrem
+ \expandafter \XINT_div_AisNegative_posrem
\fi
{#1}{#2}%
}%
-\def\XINT@div@AisNegative@zerorem #1#2#3%
+\def\XINT_div_AisNegative_zerorem #1#2#3%
{%
- \expandafter\space\expandafter {\romannumeral0\XINT@opp #1}{0}%
+ \expandafter\space\expandafter {\romannumeral0\XINT_opp #1}{0}%
}%
-\def\XINT@div@AisNegative@posrem #1%
+\def\XINT_div_AisNegative_posrem #1%
{%
- \expandafter \XINT@div@AisNegative@posrem@b \expandafter
+ \expandafter \XINT_div_AisNegative_posrem_b \expandafter
{\romannumeral0\xintiopp{\xintiAdd {#1}{1}}}%
}%
-\def\XINT@div@AisNegative@posrem@b #1#2#3%
+\def\XINT_div_AisNegative_posrem_b #1#2#3%
{%
- \expandafter \xint@exchangetwo@keepbraces@andstop \expandafter
- {\romannumeral0\XINT@sub {#3}{#2}}{#1}%
+ \expandafter \xint_exchangetwo_keepbraces_andstop \expandafter
+ {\romannumeral0\XINT_sub {#3}{#2}}{#1}%
}%
-\def\XINT@div@prepare #1%
+\def\XINT_div_prepare #1%
{%
- \expandafter \XINT@div@prepareB@aa \expandafter
- {\romannumeral0\XINT@length {#1}}{#1}% B > 0 ici
+ \expandafter \XINT_div_prepareB_aa \expandafter
+ {\romannumeral0\XINT_length {#1}}{#1}% B > 0 ici
}%
-\def\XINT@div@prepareB@aa #1%
+\def\XINT_div_prepareB_aa #1%
{%
\ifnum #1=1
- \expandafter\XINT@div@prepareB@ab
+ \expandafter\XINT_div_prepareB_ab
\else
- \expandafter\XINT@div@prepareB@a
+ \expandafter\XINT_div_prepareB_a
\fi
{#1}%
}%
-\def\XINT@div@prepareB@ab #1#2%
+\def\XINT_div_prepareB_ab #1#2%
{%
\ifnum #2=1
- \expandafter\XINT@div@prepareB@BisOne
+ \expandafter\XINT_div_prepareB_BisOne
\else
- \expandafter\XINT@div@prepareB@e
+ \expandafter\XINT_div_prepareB_e
\fi {000}{3}{4}{#2}%
}%
-\def\XINT@div@prepareB@BisOne #1#2#3#4#5{ {#5}{0}}%
-\def\XINT@div@prepareB@a #1%
+\def\XINT_div_prepareB_BisOne #1#2#3#4#5{ {#5}{0}}%
+\def\XINT_div_prepareB_a #1%
{%
- \expandafter\XINT@div@prepareB@c\expandafter{\the\numexpr 4*((#1+1)/4)}{#1}%
+ \expandafter\XINT_div_prepareB_c\expandafter{\the\numexpr 4*((#1+1)/4)}{#1}%
}%
-\def\XINT@div@prepareB@c #1#2%
+\def\XINT_div_prepareB_c #1#2%
{%
\ifcase \numexpr #1-#2\relax
- \expandafter\XINT@div@prepareB@d
+ \expandafter\XINT_div_prepareB_d
\or
- \expandafter\XINT@div@prepareB@di
+ \expandafter\XINT_div_prepareB_di
\or
- \expandafter\XINT@div@prepareB@dii
+ \expandafter\XINT_div_prepareB_dii
\or
- \expandafter\XINT@div@prepareB@diii
+ \expandafter\XINT_div_prepareB_diii
\fi {#1}%
}%
-\def\XINT@div@prepareB@d {\XINT@div@prepareB@e {}{0}}%
-\def\XINT@div@prepareB@di {\XINT@div@prepareB@e {0}{1}}%
-\def\XINT@div@prepareB@dii {\XINT@div@prepareB@e {00}{2}}%
-\def\XINT@div@prepareB@diii {\XINT@div@prepareB@e {000}{3}}%
-\def\XINT@div@prepareB@e #1#2#3#4%
+\def\XINT_div_prepareB_d {\XINT_div_prepareB_e {}{0}}%
+\def\XINT_div_prepareB_di {\XINT_div_prepareB_e {0}{1}}%
+\def\XINT_div_prepareB_dii {\XINT_div_prepareB_e {00}{2}}%
+\def\XINT_div_prepareB_diii {\XINT_div_prepareB_e {000}{3}}%
+\def\XINT_div_prepareB_e #1#2#3#4%
{%
- \XINT@div@prepareB@f #4#1\Z {#3}{#2}{#1}%
+ \XINT_div_prepareB_f #4#1\Z {#3}{#2}{#1}%
}%
-\def\XINT@div@prepareB@f #1#2#3#4#5\Z
+\def\XINT_div_prepareB_f #1#2#3#4#5\Z
{%
- \expandafter \XINT@div@prepareB@g \expandafter
- {\romannumeral0\XINT@rev {#1#2#3#4#5}}{#1#2#3#4}%
+ \expandafter \XINT_div_prepareB_g \expandafter
+ {\romannumeral0\XINT_rev {#1#2#3#4#5}}{#1#2#3#4}%
}%
-\def\XINT@div@prepareB@g #1#2#3#4#5#6%
+\def\XINT_div_prepareB_g #1#2#3#4#5#6%
{%
- \XINT@div@prepareA@a {#6#5}{#2}{#3}{#1}{#4}%
+ \XINT_div_prepareA_a {#6#5}{#2}{#3}{#1}{#4}%
}%
-\def\XINT@div@prepareA@a #1%
+\def\XINT_div_prepareA_a #1%
{%
- \expandafter \XINT@div@prepareA@b \expandafter
- {\romannumeral0\XINT@length {#1}}{#1}% A >0 ici
+ \expandafter \XINT_div_prepareA_b \expandafter
+ {\romannumeral0\XINT_length {#1}}{#1}% A >0 ici
}%
-\def\XINT@div@prepareA@b #1%
+\def\XINT_div_prepareA_b #1%
{%
- \expandafter\XINT@div@prepareA@c\expandafter{\the\numexpr 4*((#1+1)/4)}{#1}%
+ \expandafter\XINT_div_prepareA_c\expandafter{\the\numexpr 4*((#1+1)/4)}{#1}%
}%
-\def\XINT@div@prepareA@c #1#2%
+\def\XINT_div_prepareA_c #1#2%
{%
\ifcase \numexpr #1-#2\relax
- \expandafter\XINT@div@prepareA@d
+ \expandafter\XINT_div_prepareA_d
\or
- \expandafter\XINT@div@prepareA@di
+ \expandafter\XINT_div_prepareA_di
\or
- \expandafter\XINT@div@prepareA@dii
+ \expandafter\XINT_div_prepareA_dii
\or
- \expandafter\XINT@div@prepareA@diii
+ \expandafter\XINT_div_prepareA_diii
\fi {#1}%
}%
-\def\XINT@div@prepareA@d {\XINT@div@prepareA@e {}}%
-\def\XINT@div@prepareA@di {\XINT@div@prepareA@e {0}}%
-\def\XINT@div@prepareA@dii {\XINT@div@prepareA@e {00}}%
-\def\XINT@div@prepareA@diii {\XINT@div@prepareA@e {000}}%
-\def\XINT@div@prepareA@e #1#2#3%
+\def\XINT_div_prepareA_d {\XINT_div_prepareA_e {}}%
+\def\XINT_div_prepareA_di {\XINT_div_prepareA_e {0}}%
+\def\XINT_div_prepareA_dii {\XINT_div_prepareA_e {00}}%
+\def\XINT_div_prepareA_diii {\XINT_div_prepareA_e {000}}%
+\def\XINT_div_prepareA_e #1#2#3%
{%
- \XINT@div@startswitch {#1#3}{#2}%
+ \XINT_div_startswitch {#1#3}{#2}%
}%
-\def\XINT@div@startswitch #1#2#3#4%
+\def\XINT_div_startswitch #1#2#3#4%
{%
\ifnum #2 > #4
- \expandafter\XINT@div@body@a
+ \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%
+\def\XINT_div_finished_a #1#2#3%
{%
- \expandafter\XINT@div@finished@b\expandafter {\romannumeral0\XINT@cuz {#1}}%
+ \expandafter\XINT_div_finished_b\expandafter {\romannumeral0\XINT_cuz {#1}}%
}%
-\def\XINT@div@finished@b #1#2#3#4#5%
+\def\XINT_div_finished_b #1#2#3#4#5%
{%
- \ifcase \XINT@Sgn {#1}
- \xint@afterfi {\XINT@div@finished@c {0}}%
+ \ifcase \XINT_Sgn {#1}
+ \xint_afterfi {\XINT_div_finished_c {0}}%
\or
- \xint@afterfi {\expandafter\XINT@div@finished@c\expandafter
- {\romannumeral0\XINT@dsh@checksignx #5\Z {#1}}%
+ \xint_afterfi {\expandafter\XINT_div_finished_c\expandafter
+ {\romannumeral0\XINT_dsh_checksignx #5\Z {#1}}%
}%
\fi
{#2}%
}%
-\def\XINT@div@finished@c #1#2%
+\def\XINT_div_finished_c #1#2%
{%
- \expandafter\space\expandafter {\romannumeral0\XINT@rev@andcuz {#2}}{#1}%
+ \expandafter\space\expandafter {\romannumeral0\XINT_rev_andcuz {#2}}{#1}%
}%
-\def\XINT@div@final@a #1%
+\def\XINT_div_final_a #1%
{%
- \XINT@div@final@b #1\Z
+ \XINT_div_final_b #1\Z
}%
-\def\XINT@div@final@b #1#2#3#4#5\Z
+\def\XINT_div_final_b #1#2#3#4#5\Z
{%
- \xint@quatrezeros #1#2#3#4\xint@div@final@c0000%
- \XINT@div@final@c {#1#2#3#4}{#1#2#3#4#5}%
+ \xint_gob_til_zeros_iv #1#2#3#4\xint_div_final_c0000%
+ \XINT_div_final_c {#1#2#3#4}{#1#2#3#4#5}%
}%
-\def\xint@div@final@c0000\XINT@div@final@c #1{\XINT@div@finished@a }%
-\def\XINT@div@final@c #1#2#3#4%
+\def\xint_div_final_c0000\XINT_div_final_c #1{\XINT_div_finished_a }%
+\def\XINT_div_final_c #1#2#3#4%
{%
- \expandafter \XINT@div@final@da \expandafter
+ \expandafter \XINT_div_final_da \expandafter
{\the\numexpr #1-(#1/#4)*#4\expandafter }\expandafter
{\the\numexpr #1/#4\expandafter }\expandafter
- {\romannumeral0\xint@cleanupzeros@andstop #2}%
+ {\romannumeral0\xint_cleanupzeros_andstop #2}%
}%
-\def\XINT@div@final@da #1%
+\def\XINT_div_final_da #1%
{%
\ifnum #1>9
- \expandafter\XINT@div@final@dP
+ \expandafter\XINT_div_final_dP
\else
- \xint@afterfi
+ \xint_afterfi
{\ifnum #1<0
- \expandafter\XINT@div@final@dN
+ \expandafter\XINT_div_final_dN
\else
- \expandafter\XINT@div@final@db
+ \expandafter\XINT_div_final_db
\fi }%
\fi
}%
-\def\XINT@div@final@dN #1%
+\def\XINT_div_final_dN #1%
{%
- \expandafter\XINT@div@final@dP\the\numexpr #1-1\relax
+ \expandafter\XINT_div_final_dP\the\numexpr #1-1\relax
}%
-\def\XINT@div@final@dP #1#2#3#4#5% q,A,Q,L,B (puis c)
+\def\XINT_div_final_dP #1#2#3#4#5% q,A,Q,L,B (puis c)
{%
- \expandafter \XINT@div@final@f \expandafter
+ \expandafter \XINT_div_final_f \expandafter
{\romannumeral0\xintisub {#2}%
- {\romannumeral0\XINT@mul@M {#1}#5\Z\Z\Z\Z }}%
- {\romannumeral0\XINT@add@A 0{}#1000\W\X\Y\Z #3\W\X\Y\Z }%
+ {\romannumeral0\XINT_mul_M {#1}#5\Z\Z\Z\Z }}%
+ {\romannumeral0\XINT_add_A 0{}#1000\W\X\Y\Z #3\W\X\Y\Z }%
}%
-\def\XINT@div@final@db #1#2#3#4#5% q,A,Q,L,B (puis c)
+\def\XINT_div_final_db #1#2#3#4#5% q,A,Q,L,B (puis c)
{%
- \expandafter\XINT@div@final@dc\expandafter
+ \expandafter\XINT_div_final_dc\expandafter
{\romannumeral0\xintisub {#2}%
- {\romannumeral0\XINT@mul@M {#1}#5\Z\Z\Z\Z }}%
+ {\romannumeral0\XINT_mul_M {#1}#5\Z\Z\Z\Z }}%
{#1}{#2}{#3}{#4}{#5}%
}%
-\def\XINT@div@final@dc #1#2%
+\def\XINT_div_final_dc #1#2%
{%
- \ifnum\XINT@Sgn{#1}<0
- \xint@afterfi {\expandafter\XINT@div@final@dP\the\numexpr #2-1\relax}%
- \else \xint@afterfi {\XINT@div@final@e {#1}#2}%
+ \ifnum\XINT_Sgn{#1}<0
+ \xint_afterfi {\expandafter\XINT_div_final_dP\the\numexpr #2-1\relax}%
+ \else \xint_afterfi {\XINT_div_final_e {#1}#2}%
\fi
}%
-\def\XINT@div@final@e #1#2#3#4#5#6% A final, q, trash, Q, L, B
+\def\XINT_div_final_e #1#2#3#4#5#6% A final, q, trash, Q, L, B
{%
- \XINT@div@final@f {#1}%
- {\romannumeral0\XINT@add@A 0{}#2000\W\X\Y\Z #4\W\X\Y\Z }%
+ \XINT_div_final_f {#1}%
+ {\romannumeral0\XINT_add_A 0{}#2000\W\X\Y\Z #4\W\X\Y\Z }%
}%
-\def\XINT@div@final@f #1#2#3% R,Q \`a d\'evelopper,c
+\def\XINT_div_final_f #1#2#3% R,Q \`a d\'evelopper,c
{%
- \ifcase \XINT@Sgn {#1}
- \xint@afterfi {\XINT@div@final@end {0}}%
+ \ifcase \XINT_Sgn {#1}
+ \xint_afterfi {\XINT_div_final_end {0}}%
\or
- \xint@afterfi {\expandafter\XINT@div@final@end\expandafter
- {\romannumeral0\XINT@dsh@checksignx #3\Z {#1}}%
+ \xint_afterfi {\expandafter\XINT_div_final_end\expandafter
+ {\romannumeral0\XINT_dsh_checksignx #3\Z {#1}}%
}%
\fi
{#2}%
}%
-\def\XINT@div@final@end #1#2%
+\def\XINT_div_final_end #1#2%
{%
\expandafter\space\expandafter {#2}{#1}%
}%
-\def\XINT@div@body@a #1%
+\def\XINT_div_body_a #1%
{%
- \XINT@div@body@b #1\Z {#1}%
+ \XINT_div_body_b #1\Z {#1}%
}%
-\def\XINT@div@body@b #1#2#3#4#5#6#7#8#9\Z
+\def\XINT_div_body_b #1#2#3#4#5#6#7#8#9\Z
{%
- \XINT@div@body@c {#1#2#3#4#5#6#7#8}%
+ \XINT_div_body_c {#1#2#3#4#5#6#7#8}%
}%
-\def\XINT@div@body@c #1#2#3%
+\def\XINT_div_body_c #1#2#3%
{%
- \XINT@div@body@d {#3}{}#2\Z {#1}{#3}%
+ \XINT_div_body_d {#3}{}#2\Z {#1}{#3}%
}%
-\def\XINT@div@body@d #1#2#3#4#5#6%
+\def\XINT_div_body_d #1#2#3#4#5#6%
{%
\ifnum #1 > 0
- \expandafter\XINT@div@body@d
+ \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}%
}%
-\def\XINT@div@body@e #1#2\Z #3%
+\def\XINT_div_body_e #1#2\Z #3%
{%
- \XINT@div@body@f {#3}{#1}{#2}%
+ \XINT_div_body_f {#3}{#1}{#2}%
}%
-\def\XINT@div@body@f #1#2#3#4#5#6#7#8%
+\def\XINT_div_body_f #1#2#3#4#5#6#7#8%
{%
- \expandafter\XINT@div@body@gg
+ \expandafter\XINT_div_body_gg
\the\numexpr (#1+(#5+1)/2)/(#5+1)+99999\relax
{#8}{#2}{#8}{#4}{#5}{#3}{#6}{#7}{#8}%
}%
-\def\XINT@div@body@gg #1#2#3#4#5#6%
+\def\XINT_div_body_gg #1#2#3#4#5#6%
{%
- \xint@UDzerofork
- #2\dummy \XINT@div@body@gk
- 0\dummy {\XINT@div@body@ggk #2}%
- \xint@UDkrof
+ \xint_UDzerofork
+ #2\dummy \XINT_div_body_gk
+ 0\dummy {\XINT_div_body_ggk #2}%
+ \krof
{#3#4#5#6}%
}%
-\def\XINT@div@body@gk #1#2#3%
+\def\XINT_div_body_gk #1#2#3%
{%
- \expandafter\XINT@div@body@h
- \romannumeral0\XINT@div@sub@xpxp
- {\romannumeral0\XINT@mul@Mr {#1}#2\Z\Z\Z\Z }{#3}\Z {#1}%
+ \expandafter\XINT_div_body_h
+ \romannumeral0\XINT_div_sub_xpxp
+ {\romannumeral0\XINT_mul_Mr {#1}#2\Z\Z\Z\Z }{#3}\Z {#1}%
}%
-\def\XINT@div@body@ggk #1#2#3%
+\def\XINT_div_body_ggk #1#2#3%
{%
- \expandafter \XINT@div@body@gggk \expandafter
- {\romannumeral0\XINT@mul@Mr {#1}0000#3\Z\Z\Z\Z }%
- {\romannumeral0\XINT@mul@Mr {#2}#3\Z\Z\Z\Z }%
+ \expandafter \XINT_div_body_gggk \expandafter
+ {\romannumeral0\XINT_mul_Mr {#1}0000#3\Z\Z\Z\Z }%
+ {\romannumeral0\XINT_mul_Mr {#2}#3\Z\Z\Z\Z }%
{#1#2}%
}%
-\def\XINT@div@body@gggk #1#2#3#4%
+\def\XINT_div_body_gggk #1#2#3#4%
{%
- \expandafter\XINT@div@body@h
- \romannumeral0\XINT@div@sub@xpxp
- {\romannumeral0\expandafter\XINT@mul@Ar
+ \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 }%
{#4}\Z {#3}%
}%
-\def\XINT@div@body@h #1#2#3#4#5#6#7#8#9\Z
+\def\XINT_div_body_h #1#2#3#4#5#6#7#8#9\Z
{%
\ifnum #1#2#3#4>0
- \xint@afterfi{\XINT@div@body@i {#1#2#3#4#5#6#7#8}}%
+ \xint_afterfi{\XINT_div_body_i {#1#2#3#4#5#6#7#8}}%
\else
- \expandafter\XINT@div@body@k
+ \expandafter\XINT_div_body_k
\fi
{#1#2#3#4#5#6#7#8#9}%
}%
-\def\XINT@div@body@k #1#2#3%
+\def\XINT_div_body_k #1#2#3%
{%
- \XINT@div@body@l {#1}{#2}%
+ \XINT_div_body_l {#1}{#2}%
}%
-\def\XINT@div@body@i #1#2#3#4#5#6%
+\def\XINT_div_body_i #1#2#3#4#5#6%
{%
- \expandafter\XINT@div@body@j
+ \expandafter\XINT_div_body_j
\expandafter{\the\numexpr (#1+(#6+1)/2)/(#6+1)-1}%
{#2}{#3}{#4}{#5}{#6}%
}%
-\def\XINT@div@body@j #1#2#3#4%
+\def\XINT_div_body_j #1#2#3#4%
{%
- \expandafter \XINT@div@body@l \expandafter
- {\romannumeral0\XINT@div@sub@xpxp
- {\romannumeral0\XINT@mul@Mr {#1}#4\Z\Z\Z\Z }{\XINT@Rev{#2}}}%
+ \expandafter \XINT_div_body_l \expandafter
+ {\romannumeral0\XINT_div_sub_xpxp
+ {\romannumeral0\XINT_mul_Mr {#1}#4\Z\Z\Z\Z }{\XINT_Rev{#2}}}%
{#3+#1}%
}%
-\def\XINT@div@body@l #1#2#3#4#5#6#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}%
}%
-\def\XINT@div@body@m #1#2#3#4#5#6#7#8#9%
+\def\XINT_div_body_m #1#2#3#4#5#6#7#8#9%
{%
\ifnum #2#3#4#5>0
- \xint@afterfi {\XINT@div@body@n {#9#8#7#6#5#4#3#2}}%
+ \xint_afterfi {\XINT_div_body_n {#9#8#7#6#5#4#3#2}}%
\else
- \xint@afterfi {\XINT@div@body@n {#9#8#7#6}}%
+ \xint_afterfi {\XINT_div_body_n {#9#8#7#6}}%
\fi
}%
-\def\XINT@div@body@n #1#2%
+\def\XINT_div_body_n #1#2%
{%
- \expandafter\XINT@div@body@o\expandafter
- {\romannumeral0\XINT@addr@A 0{}#1\W\X\Y\Z #2\W\X\Y\Z }%
+ \expandafter\XINT_div_body_o\expandafter
+ {\romannumeral0\XINT_addr_A 0{}#1\W\X\Y\Z #2\W\X\Y\Z }%
}%
-\def\XINT@div@body@o #1#2#3#4%
+\def\XINT_div_body_o #1#2#3#4%
{%
- \XINT@div@body@p {#3}{#2}{}#4\Z {#1}%
+ \XINT_div_body_p {#3}{#2}{}#4\Z {#1}%
}%
-\def\XINT@div@body@p #1#2#3#4#5#6#7%
+\def\XINT_div_body_p #1#2#3#4#5#6#7%
{%
\ifnum #1 > #2
- \xint@afterfi
+ \xint_afterfi
{\ifnum #4#5#6#7 > 0
- \expandafter\XINT@div@body@q
+ \expandafter\XINT_div_body_q
\else
- \expandafter\XINT@div@body@repeatp
+ \expandafter\XINT_div_body_repeatp
\fi }%
\else
- \expandafter\XINT@div@gotofinal@a
+ \expandafter\XINT_div_gotofinal_a
\fi
{#1}{#2}{#3}#4#5#6#7%
}%
-\def\XINT@div@body@repeatp #1#2#3#4#5#6#7%
+\def\XINT_div_body_repeatp #1#2#3#4#5#6#7%
{%
- \expandafter\XINT@div@body@p\expandafter{\the\numexpr #1-4}{#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%
+\def\XINT_div_body_q #1#2#3#4\Z #5#6%
{%
- \XINT@div@body@b #4\Z {#4}{#2}{#6}{#3#5}{#1}%
+ \XINT_div_body_b #4\Z {#4}{#2}{#6}{#3#5}{#1}%
}%
-\def\XINT@div@gotofinal@a #1#2#3#4\Z %
+\def\XINT_div_gotofinal_a #1#2#3#4\Z %
{%
- \XINT@div@gotofinal@b #3\Z {#4}{#1}%
+ \XINT_div_gotofinal_b #3\Z {#4}{#1}%
}%
-\def\XINT@div@gotofinal@b 0000#1\Z #2#3#4#5%
+\def\XINT_div_gotofinal_b 0000#1\Z #2#3#4#5%
{%
- \XINT@div@final@a {#2}{#3}{#5}{#1#4}{#3}%
+ \XINT_div_final_a {#2}{#3}{#5}{#1#4}{#3}%
}%
-\def\XINT@div@sub@xpxp #1%
+\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%
+\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@@
+\def\XINT_div_sub_xpxp__
{%
- \XINT@div@sub@A 1{}%
+ \XINT_div_sub_A 1{}%
}%
-\def\XINT@div@sub@A #1#2#3#4#5#6%
+\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_gob_til_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%
+\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_gob_til_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%
+\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%
+\def\XINT_div_sub_backtoA #1#2#3.#4%
{%
- \XINT@div@sub@A #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 %
- 0\dummy \XINT@div@sub@D % pas de retenue
- \xint@UDkrof
+ \xint_UDzerofork
+ #1\dummy \XINT_div_sub_C %
+ 0\dummy \XINT_div_sub_D % pas de retenue
+ \krof
{#7}#2#3#4#5%
}%
-\def\XINT@div@sub@D #1#2\W\X\Y\Z
+\def\XINT_div_sub_D #1#2\W\X\Y\Z
{%
\expandafter\space
\romannumeral0%
- \XINT@rord@main {}#2%
- \xint@UNDEF
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@UNDEF
+ \XINT_rord_main {}#2%
+ \xint_relax
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_relax
#1%
}%
-\def\XINT@div@sub@C #1#2#3#4#5%
+\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_gob_til_w #2\xint_div_sub_cz\W
+ \XINT_div_sub_AC_onestep {#5#4#3#2}{#1}%
}%
-\def\XINT@div@sub@AC@onestep #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%
+\def\XINT_div_sub_backtoC #1#2#3.#4%
{%
- \XINT@div@sub@AC@checkcarry #2{#3#4}% la retenue va \^etre examin\'ee
+ \XINT_div_sub_AC_checkcarry #2{#3#4}% la retenue va \^etre examin\'ee
}%
-\def\XINT@div@sub@AC@checkcarry #1%
+\def\XINT_div_sub_AC_checkcarry #1%
{%
- \xint@one #1\xint@div@sub@AC@nocarry 1\XINT@div@sub@C
+ \xint_gob_til_one #1\xint_div_sub_AC_nocarry 1\XINT_div_sub_C
}%
-\def\xint@div@sub@AC@nocarry 1\XINT@div@sub@C #1#2\W\X\Y\Z
+\def\xint_div_sub_AC_nocarry 1\XINT_div_sub_C #1#2\W\X\Y\Z
{%
\expandafter\space
\romannumeral0%
- \XINT@rord@main {}#2%
- \xint@UNDEF
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@UNDEF
+ \XINT_rord_main {}#2%
+ \xint_relax
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_relax
#1%
}%
-\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\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\xintiFDg {\romannumeral0\xintifdg }%
\def\xintifdg #1%
{%
- \expandafter\XINT@fdg \romannumeral-`0#1\W\Z
+ \expandafter\XINT_fdg \romannumeral-`0#1\W\Z
}%
\let\xintFDg\xintiFDg \let\xintfdg\xintifdg
-\def\XINT@FDg #1{\romannumeral0\XINT@fdg #1\W\Z }%
-\def\XINT@fdg #1#2#3\Z
+\def\XINT_FDg #1{\romannumeral0\XINT_fdg #1\W\Z }%
+\def\XINT_fdg #1#2#3\Z
{%
- \xint@UDzerominusfork
+ \xint_UDzerominusfork
#1-\dummy { 0}% zero
0#1\dummy { #2}% negative
0-\dummy { #1}% positive
- \xint@UDkrof
+ \krof
}%
\def\xintiLDg {\romannumeral0\xintildg }%
\def\xintildg #1%
{%
- \expandafter\XINT@ldg\expandafter {\romannumeral-`0#1}%
+ \expandafter\XINT_ldg\expandafter {\romannumeral-`0#1}%
}%
\let\xintLDg\xintiLDg \let\xintldg\xintildg
-\def\XINT@LDg #1{\romannumeral0\XINT@ldg {#1}}%
-\def\XINT@ldg #1%
+\def\XINT_LDg #1{\romannumeral0\XINT_ldg {#1}}%
+\def\XINT_ldg #1%
{%
- \expandafter\XINT@ldg@\romannumeral0\XINT@rev {#1}\Z
+ \expandafter\XINT_ldg_\romannumeral0\XINT_rev {#1}\Z
}%
-\def\XINT@ldg@ #1#2\Z{ #1}%
+\def\XINT_ldg_ #1#2\Z{ #1}%
\def\xintiMON {\romannumeral0\xintimon }%
\def\xintimon #1%
{%
\ifodd\xintiLDg {#1}
- \xint@afterfi{ -1}%
+ \xint_afterfi{ -1}%
\else
- \xint@afterfi{ 1}%
+ \xint_afterfi{ 1}%
\fi
}%
\def\xintiMMON {\romannumeral0\xintimmon }%
\def\xintimmon #1%
{%
\ifodd\xintiLDg {#1}
- \xint@afterfi{ 1}%
+ \xint_afterfi{ 1}%
\else
- \xint@afterfi{ -1}%
+ \xint_afterfi{ -1}%
\fi
}%
\let\xintMON\xintiMON \let\xintmon\xintimon
@@ -2820,198 +2840,198 @@
\def\xintiodd #1%
{%
\ifodd\xintiLDg{#1}
- \xint@afterfi{ 1}%
+ \xint_afterfi{ 1}%
\else
- \xint@afterfi{ 0}%
+ \xint_afterfi{ 0}%
\fi
}%
-\def\XINT@Odd #1%
+\def\XINT_Odd #1%
{\romannumeral0%
- \ifodd\XINT@LDg{#1}
- \xint@afterfi{ 1}%
+ \ifodd\XINT_LDg{#1}
+ \xint_afterfi{ 1}%
\else
- \xint@afterfi{ 0}%
+ \xint_afterfi{ 0}%
\fi
}%
\let\xintOdd\xintiOdd \let\xintodd\xintiodd
\def\xintDSL {\romannumeral0\xintdsl }%
\def\xintdsl #1%
{%
- \expandafter\XINT@dsl \romannumeral-`0#1\Z
+ \expandafter\XINT_dsl \romannumeral-`0#1\Z
}%
-\def\XINT@DSL #1{\romannumeral0\XINT@dsl #1\Z }%
-\def\XINT@dsl #1%
+\def\XINT_DSL #1{\romannumeral0\XINT_dsl #1\Z }%
+\def\XINT_dsl #1%
{%
- \xint@zero #1\xint@dsl@zero 0\XINT@dsl@ #1%
+ \xint_gob_til_zero #1\xint_dsl_zero 0\XINT_dsl_ #1%
}%
-\def\xint@dsl@zero 0\XINT@dsl@ 0#1\Z { 0}%
-\def\XINT@dsl@ #1\Z { #10}%
+\def\xint_dsl_zero 0\XINT_dsl_ 0#1\Z { 0}%
+\def\XINT_dsl_ #1\Z { #10}%
\def\xintDSR {\romannumeral0\xintdsr }%
\def\xintdsr #1%
{%
- \expandafter\XINT@dsr@a\expandafter {\romannumeral-`0#1}\W\Z
+ \expandafter\XINT_dsr_a\expandafter {\romannumeral-`0#1}\W\Z
}%
-\def\XINT@DSR #1{\romannumeral0\XINT@dsr@a {#1}\W\Z }%
-\def\XINT@dsr@a
+\def\XINT_DSR #1{\romannumeral0\XINT_dsr_a {#1}\W\Z }%
+\def\XINT_dsr_a
{%
- \expandafter\XINT@dsr@b\romannumeral0\XINT@rev
+ \expandafter\XINT_dsr_b\romannumeral0\XINT_rev
}%
-\def\XINT@dsr@b #1#2#3\Z
+\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
- \romannumeral0\XINT@rev {#2#3}%
+ \xint_gob_til_w #2\xint_dsr_onedigit\W
+ \xint_minus #2\xint_dsr_onedigit-%
+ \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\xint_dsr_onedigit #1\XINT_rev #2{ 0}%
+\def\XINT_dsr_removew #1\W { }%
\def\xintDSHr {\romannumeral0\xintdshr }%
\def\xintdshr #1%
{%
- \expandafter\XINT@dshr@checkxpositive \the\numexpr #1\relax\Z
+ \expandafter\XINT_dshr_checkxpositive \the\numexpr #1\relax\Z
}%
-\def\XINT@dshr@checkxpositive #1%
+\def\XINT_dshr_checkxpositive #1%
{%
- \xint@UDzerominusfork
- 0#1\dummy \XINT@dshr@xzeroorneg
- #1-\dummy \XINT@dshr@xzeroorneg
- 0-\dummy \XINT@dshr@xpositive
- \xint@UDkrof #1%
+ \xint_UDzerominusfork
+ 0#1\dummy \XINT_dshr_xzeroorneg
+ #1-\dummy \XINT_dshr_xzeroorneg
+ 0-\dummy \XINT_dshr_xpositive
+ \krof #1%
}%
-\def\XINT@dshr@xzeroorneg #1\Z #2{ 0}%
-\def\XINT@dshr@xpositive #1\Z
+\def\XINT_dshr_xzeroorneg #1\Z #2{ 0}%
+\def\XINT_dshr_xpositive #1\Z
{%
- \expandafter\xint@secondoftwo@andstop\romannumeral0\xintdsx {#1}%
+ \expandafter\xint_secondoftwo_andstop\romannumeral0\xintdsx {#1}%
}%
\def\xintDSH {\romannumeral0\xintdsh }%
\def\xintdsh #1#2%
{%
- \expandafter\xint@dsh\expandafter {\romannumeral-`0#2}{#1}%
+ \expandafter\xint_dsh\expandafter {\romannumeral-`0#2}{#1}%
}%
-\def\xint@dsh #1#2%
+\def\xint_dsh #1#2%
{%
- \expandafter\XINT@dsh@checksignx \the\numexpr #2\relax\Z {#1}%
+ \expandafter\XINT_dsh_checksignx \the\numexpr #2\relax\Z {#1}%
}%
-\def\XINT@dsh@checksignx #1%
+\def\XINT_dsh_checksignx #1%
{%
- \xint@UDzerominusfork
- #1-\dummy \XINT@dsh@xiszero
- 0#1\dummy \XINT@dsx@xisNeg@checkA % on passe direct dans DSx
- 0-\dummy {\XINT@dsh@xisPos #1}%
- \xint@UDkrof
+ \xint_UDzerominusfork
+ #1-\dummy \XINT_dsh_xiszero
+ 0#1\dummy \XINT_dsx_xisNeg_checkA % on passe direct dans DSx
+ 0-\dummy {\XINT_dsh_xisPos #1}%
+ \krof
}%
-\def\XINT@dsh@xiszero #1\Z #2{ #2}%
-\def\XINT@dsh@xisPos #1\Z #2%
+\def\XINT_dsh_xiszero #1\Z #2{ #2}%
+\def\XINT_dsh_xisPos #1\Z #2%
{%
- \expandafter\xint@firstoftwo@andstop
- \romannumeral0\XINT@dsx@checksignA #2\Z {#1}% via DSx
+ \expandafter\xint_firstoftwo_andstop
+ \romannumeral0\XINT_dsx_checksignA #2\Z {#1}% via DSx
}%
\def\xintDSx {\romannumeral0\xintdsx }%
\def\xintdsx #1#2%
{%
- \expandafter\xint@dsx\expandafter {\romannumeral-`0#2}{#1}%
+ \expandafter\xint_dsx\expandafter {\romannumeral-`0#2}{#1}%
}%
-\def\xint@dsx #1#2%
+\def\xint_dsx #1#2%
{%
- \expandafter\XINT@dsx@checksignx \the\numexpr #2\relax\Z {#1}%
+ \expandafter\XINT_dsx_checksignx \the\numexpr #2\relax\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}}%
-\def\XINT@dsx@checksignx #1%
+\def\XINT_DSx #1#2{\romannumeral0\XINT_dsx_checksignx #1\Z {#2}}%
+\def\XINT_dsx #1#2{\XINT_dsx_checksignx #1\Z {#2}}%
+\def\XINT_dsx_checksignx #1%
{%
- \xint@UDzerominusfork
- #1-\dummy \XINT@dsx@xisZero
- 0#1\dummy \XINT@dsx@xisNeg@checkA
- 0-\dummy {\XINT@dsx@xisPos #1}%
- \xint@UDkrof
+ \xint_UDzerominusfork
+ #1-\dummy \XINT_dsx_xisZero
+ 0#1\dummy \XINT_dsx_xisNeg_checkA
+ 0-\dummy {\XINT_dsx_xisPos #1}%
+ \krof
}%
-\def\XINT@dsx@xisZero #1\Z #2{ {#2}{0}}% attention comme x > 0
-\def\XINT@dsx@xisNeg@checkA #1\Z #2%
+\def\XINT_dsx_xisZero #1\Z #2{ {#2}{0}}% attention comme x > 0
+\def\XINT_dsx_xisNeg_checkA #1\Z #2%
{%
- \XINT@dsx@xisNeg@checkA@ #2\Z {#1}%
+ \XINT_dsx_xisNeg_checkA_ #2\Z {#1}%
}%
-\def\XINT@dsx@xisNeg@checkA@ #1#2\Z #3%
+\def\XINT_dsx_xisNeg_checkA_ #1#2\Z #3%
{%
- \xint@zero #1\XINT@dsx@xisNeg@Azero 0%
- \XINT@dsx@xisNeg@checkx {#3}{#3}\Z {#1#2}%
+ \xint_gob_til_zero #1\XINT_dsx_xisNeg_Azero 0%
+ \XINT_dsx_xisNeg_checkx {#3}{#3}\Z {#1#2}%
}%
-\def\XINT@dsx@xisNeg@Azero #1\Z #2{ 0}%
-\def\XINT@dsx@xisNeg@checkx #1%
+\def\XINT_dsx_xisNeg_Azero #1\Z #2{ 0}%
+\def\XINT_dsx_xisNeg_checkx #1%
{%
- \ifnum #1> 999999999
- \xint@afterfi
+ \ifnum #1>999999999
+ \xint_afterfi
{\xintError:TooBigDecimalShift
- \expandafter\space\expandafter 0\xint@gobble@iii }%
+ \expandafter\space\expandafter 0\xint_gobble_iii }%
\else
- \expandafter \XINT@dsx@zeroloop
+ \expandafter \XINT_dsx_zeroloop
\fi
}%
-\def\XINT@dsx@zeroloop #1%
+\def\XINT_dsx_zeroloop #1%
{%
- \ifnum #1<9 \XINT@dsx@exita\fi
- \expandafter\XINT@dsx@zeroloop\expandafter
+ \ifnum #1<9 \XINT_dsx_exita\fi
+ \expandafter\XINT_dsx_zeroloop\expandafter
{\the\numexpr #1-8}00000000%
}%
-\def\XINT@dsx@exita\fi\expandafter\XINT@dsx@zeroloop
+\def\XINT_dsx_exita\fi\expandafter\XINT_dsx_zeroloop
{%
- \fi\expandafter\XINT@dsx@exitb
+ \fi\expandafter\XINT_dsx_exitb
}%
-\def\XINT@dsx@exitb #1%
+\def\XINT_dsx_exitb #1%
{%
\expandafter\expandafter\expandafter
- \XINT@dsx@addzeros\csname xint@gobble@\romannumeral -#1\endcsname
+ \XINT_dsx_addzeros\csname xint_gobble_\romannumeral -#1\endcsname
}%
-\def\XINT@dsx@addzeros #1\Z #2{ #2#1}%
-\def\XINT@dsx@xisPos #1\Z #2%
+\def\XINT_dsx_addzeros #1\Z #2{ #2#1}%
+\def\XINT_dsx_xisPos #1\Z #2%
{%
- \XINT@dsx@checksignA #2\Z {#1}%
+ \XINT_dsx_checksignA #2\Z {#1}%
}%
-\def\XINT@dsx@checksignA #1%
+\def\XINT_dsx_checksignA #1%
{%
- \xint@UDzerominusfork
- #1-\dummy \XINT@dsx@AisZero
- 0#1\dummy \XINT@dsx@AisNeg
- 0-\dummy {\XINT@dsx@AisPos #1}%
- \xint@UDkrof
+ \xint_UDzerominusfork
+ #1-\dummy \XINT_dsx_AisZero
+ 0#1\dummy \XINT_dsx_AisNeg
+ 0-\dummy {\XINT_dsx_AisPos #1}%
+ \krof
}%
-\def\XINT@dsx@AisZero #1\Z #2{ {0}{0}}%
-\def\XINT@dsx@AisNeg #1\Z #2%
+\def\XINT_dsx_AisZero #1\Z #2{ {0}{0}}%
+\def\XINT_dsx_AisNeg #1\Z #2%
{%
- \expandafter\XINT@dsx@AisNeg@dosplit@andcheckfirst
- \romannumeral0\XINT@split@checksizex {#2}{#1}%
+ \expandafter\XINT_dsx_AisNeg_dosplit_andcheckfirst
+ \romannumeral0\XINT_split_checksizex {#2}{#1}%
}%
-\def\XINT@dsx@AisNeg@dosplit@andcheckfirst #1%
+\def\XINT_dsx_AisNeg_dosplit_andcheckfirst #1%
{%
- \XINT@dsx@AisNeg@checkiffirstempty #1\Z
+ \XINT_dsx_AisNeg_checkiffirstempty #1\Z
}%
-\def\XINT@dsx@AisNeg@checkiffirstempty #1%
+\def\XINT_dsx_AisNeg_checkiffirstempty #1%
{%
- \xint@z #1\XINT@dsx@AisNeg@finish@zero\Z
- \XINT@dsx@AisNeg@finish@notzero #1%
+ \xint_gob_til_z #1\XINT_dsx_AisNeg_finish_zero\Z
+ \XINT_dsx_AisNeg_finish_notzero #1%
}%
-\def\XINT@dsx@AisNeg@finish@zero\Z
- \XINT@dsx@AisNeg@finish@notzero\Z #1%
+\def\XINT_dsx_AisNeg_finish_zero\Z
+ \XINT_dsx_AisNeg_finish_notzero\Z #1%
{%
- \expandafter\XINT@dsx@end
- \expandafter {\romannumeral0\XINT@num {-#1}}{0}%
+ \expandafter\XINT_dsx_end
+ \expandafter {\romannumeral0\XINT_num {-#1}}{0}%
}%
-\def\XINT@dsx@AisNeg@finish@notzero #1\Z #2%
+\def\XINT_dsx_AisNeg_finish_notzero #1\Z #2%
{%
- \expandafter\XINT@dsx@end
- \expandafter {\romannumeral0\XINT@num {#2}}{-#1}%
+ \expandafter\XINT_dsx_end
+ \expandafter {\romannumeral0\XINT_num {#2}}{-#1}%
}%
-\def\XINT@dsx@AisPos #1\Z #2%
+\def\XINT_dsx_AisPos #1\Z #2%
{%
- \expandafter\XINT@dsx@AisPos@finish
- \romannumeral0\XINT@split@checksizex {#2}{#1}%
+ \expandafter\XINT_dsx_AisPos_finish
+ \romannumeral0\XINT_split_checksizex {#2}{#1}%
}%
-\def\XINT@dsx@AisPos@finish #1#2%
+\def\XINT_dsx_AisPos_finish #1#2%
{%
- \expandafter\XINT@dsx@end
- \expandafter {\romannumeral0\XINT@num {#2}}%
- {\romannumeral0\XINT@num {#1}}%
+ \expandafter\XINT_dsx_end
+ \expandafter {\romannumeral0\XINT_num {#2}}%
+ {\romannumeral0\XINT_num {#1}}%
}%
-\def\XINT@dsx@end #1#2%
+\def\XINT_dsx_end #1#2%
{%
\expandafter\space\expandafter{#2}{#1}%
}%
@@ -3019,156 +3039,158 @@
\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 }%
\def\xintdecsplit #1#2%
{%
- \expandafter \xint@split \expandafter
+ \expandafter \xint_split \expandafter
{\romannumeral0\xintiabs {#2}}{#1}% fait expansion de A
}%
-\def\xint@split #1#2%
+\def\xint_split #1#2%
{%
- \expandafter\XINT@split@checksizex\expandafter{\the\numexpr #2}{#1}%
+ \expandafter\XINT_split_checksizex\expandafter{\the\numexpr #2}{#1}%
}%
-\def\XINT@split@checksizex #1% 999999999 is anyhow very big, could be reduced
+\def\XINT_split_checksizex #1% 999999999 is anyhow very big, could be reduced
{%
- \ifnum\numexpr\XINT@Abs{#1}\relax > 999999999
- \xint@afterfi {\xintError:TooBigDecimalSplit\XINT@split@bigx }%
+ \ifnum\numexpr\XINT_Abs{#1}>999999999
+ \xint_afterfi {\xintError:TooBigDecimalSplit\XINT_split_bigx }%
\else
- \expandafter\XINT@split@xfork
+ \expandafter\XINT_split_xfork
\fi
#1\Z
}%
-\def\XINT@split@bigx #1\Z #2%
+\def\XINT_split_bigx #1\Z #2%
{%
- \ifcase\XINT@Sgn {#1}
- \or \xint@afterfi { {}{#2}}% positive big x
+ \ifcase\XINT_Sgn {#1}
+ \or \xint_afterfi { {}{#2}}% positive big x
\else
- \xint@afterfi { {#2}{}}% negative big x
+ \xint_afterfi { {#2}{}}% negative big x
\fi
}%
-\def\XINT@split@xfork #1%
+\def\XINT_split_xfork #1%
{%
- \xint@UDzerominusfork
- #1-\dummy \XINT@split@zerosplit
- 0#1\dummy \XINT@split@fromleft
- 0-\dummy {\XINT@split@fromright #1}%
- \xint@UDkrof
+ \xint_UDzerominusfork
+ #1-\dummy \XINT_split_zerosplit
+ 0#1\dummy \XINT_split_fromleft
+ 0-\dummy {\XINT_split_fromright #1}%
+ \krof
}%
-\def\XINT@split@zerosplit #1\Z #2{ {#2}{}}%
-\def\XINT@split@fromleft #1\Z #2%
+\def\XINT_split_zerosplit #1\Z #2{ {#2}{}}%
+\def\XINT_split_fromleft #1\Z #2%
{%
- \XINT@split@fromleft@loop {#1}{}#2\W\W\W\W\W\W\W\W\Z
+ \XINT_split_fromleft_loop {#1}{}#2\W\W\W\W\W\W\W\W\Z
}%
-\def\XINT@split@fromleft@loop #1%
+\def\XINT_split_fromleft_loop #1%
{%
- \ifnum #1<8 \XINT@split@fromleft@exita\fi
- \expandafter\XINT@split@fromleft@loop@perhaps\expandafter
- {\the\numexpr #1-8\expandafter}\XINT@split@fromleft@eight
+ \ifnum #1<8 \XINT_split_fromleft_exita\fi
+ \expandafter\XINT_split_fromleft_loop_perhaps\expandafter
+ {\the\numexpr #1-8\expandafter}\XINT_split_fromleft_eight
}%
-\def\XINT@split@fromleft@eight #1#2#3#4#5#6#7#8#9{#9{#1#2#3#4#5#6#7#8#9}}%
-\def\XINT@split@fromleft@loop@perhaps #1#2%
+\def\XINT_split_fromleft_eight #1#2#3#4#5#6#7#8#9{#9{#1#2#3#4#5#6#7#8#9}}%
+\def\XINT_split_fromleft_loop_perhaps #1#2%
{%
- \xint@w #2\XINT@split@fromleft@toofar\W\XINT@split@fromleft@loop {#1}%
+ \xint_gob_til_w #2\XINT_split_fromleft_toofar\W
+ \XINT_split_fromleft_loop {#1}%
}%
-\def\XINT@split@fromleft@toofar\W\XINT@split@fromleft@loop #1#2#3\Z
+\def\XINT_split_fromleft_toofar\W\XINT_split_fromleft_loop #1#2#3\Z
{%
- \XINT@split@fromleft@toofar@b #2\Z
+ \XINT_split_fromleft_toofar_b #2\Z
}%
-\def\XINT@split@fromleft@toofar@b #1\W #2\Z { {#1}{}}%
-\def\XINT@split@fromleft@exita\fi
- \expandafter\XINT@split@fromleft@loop@perhaps\expandafter #1#2%
- {\fi \XINT@split@fromleft@exitb #1}%
-\def\XINT@split@fromleft@exitb\the\numexpr #1-8\expandafter
+\def\XINT_split_fromleft_toofar_b #1\W #2\Z { {#1}{}}%
+\def\XINT_split_fromleft_exita\fi
+ \expandafter\XINT_split_fromleft_loop_perhaps\expandafter #1#2%
+ {\fi \XINT_split_fromleft_exitb #1}%
+\def\XINT_split_fromleft_exitb\the\numexpr #1-8\expandafter
{%
- \csname XINT@split@fromleft@endsplit@\romannumeral #1\endcsname
+ \csname XINT_split_fromleft_endsplit_\romannumeral #1\endcsname
}%
-\def\XINT@split@fromleft@endsplit@ #1#2\W #3\Z { {#1}{#2}}%
-\def\XINT@split@fromleft@endsplit@i #1#2%
- {\XINT@split@fromleft@checkiftoofar #2{#1#2}}%
-\def\XINT@split@fromleft@endsplit@ii #1#2#3%
- {\XINT@split@fromleft@checkiftoofar #3{#1#2#3}}%
-\def\XINT@split@fromleft@endsplit@iii #1#2#3#4%
- {\XINT@split@fromleft@checkiftoofar #4{#1#2#3#4}}%
-\def\XINT@split@fromleft@endsplit@iv #1#2#3#4#5%
- {\XINT@split@fromleft@checkiftoofar #5{#1#2#3#4#5}}%
-\def\XINT@split@fromleft@endsplit@v #1#2#3#4#5#6%
- {\XINT@split@fromleft@checkiftoofar #6{#1#2#3#4#5#6}}%
-\def\XINT@split@fromleft@endsplit@vi #1#2#3#4#5#6#7%
- {\XINT@split@fromleft@checkiftoofar #7{#1#2#3#4#5#6#7}}%
-\def\XINT@split@fromleft@endsplit@vii #1#2#3#4#5#6#7#8%
- {\XINT@split@fromleft@checkiftoofar #8{#1#2#3#4#5#6#7#8}}%
-\def\XINT@split@fromleft@checkiftoofar #1#2#3\W #4\Z
+\def\XINT_split_fromleft_endsplit_ #1#2\W #3\Z { {#1}{#2}}%
+\def\XINT_split_fromleft_endsplit_i #1#2%
+ {\XINT_split_fromleft_checkiftoofar #2{#1#2}}%
+\def\XINT_split_fromleft_endsplit_ii #1#2#3%
+ {\XINT_split_fromleft_checkiftoofar #3{#1#2#3}}%
+\def\XINT_split_fromleft_endsplit_iii #1#2#3#4%
+ {\XINT_split_fromleft_checkiftoofar #4{#1#2#3#4}}%
+\def\XINT_split_fromleft_endsplit_iv #1#2#3#4#5%
+ {\XINT_split_fromleft_checkiftoofar #5{#1#2#3#4#5}}%
+\def\XINT_split_fromleft_endsplit_v #1#2#3#4#5#6%
+ {\XINT_split_fromleft_checkiftoofar #6{#1#2#3#4#5#6}}%
+\def\XINT_split_fromleft_endsplit_vi #1#2#3#4#5#6#7%
+ {\XINT_split_fromleft_checkiftoofar #7{#1#2#3#4#5#6#7}}%
+\def\XINT_split_fromleft_endsplit_vii #1#2#3#4#5#6#7#8%
+ {\XINT_split_fromleft_checkiftoofar #8{#1#2#3#4#5#6#7#8}}%
+\def\XINT_split_fromleft_checkiftoofar #1#2#3\W #4\Z
{%
- \xint@w #1\XINT@split@fromleft@wenttoofar\W\space {#2}{#3}%
+ \xint_gob_til_w #1\XINT_split_fromleft_wenttoofar\W
+ \space {#2}{#3}%
}%
-\def\XINT@split@fromleft@wenttoofar\W\space #1%
+\def\XINT_split_fromleft_wenttoofar\W\space #1%
{%
- \XINT@split@fromleft@wenttoofar@b #1\Z
+ \XINT_split_fromleft_wenttoofar_b #1\Z
}%
-\def\XINT@split@fromleft@wenttoofar@b #1\W #2\Z { {#1}}%
-\def\XINT@split@fromright #1\Z #2%
+\def\XINT_split_fromleft_wenttoofar_b #1\W #2\Z { {#1}}%
+\def\XINT_split_fromright #1\Z #2%
{%
- \expandafter \XINT@split@fromright@a \expandafter
- {\romannumeral0\XINT@rev {#2}}{#1}{#2}%
+ \expandafter \XINT_split_fromright_a \expandafter
+ {\romannumeral0\XINT_rev {#2}}{#1}{#2}%
}%
-\def\XINT@split@fromright@a #1#2%
+\def\XINT_split_fromright_a #1#2%
{%
- \XINT@split@fromright@loop {#2}{}#1\W\W\W\W\W\W\W\W\Z
+ \XINT_split_fromright_loop {#2}{}#1\W\W\W\W\W\W\W\W\Z
}%
-\def\XINT@split@fromright@loop #1%
+\def\XINT_split_fromright_loop #1%
{%
- \ifnum #1<8 \XINT@split@fromright@exita\fi
- \expandafter\XINT@split@fromright@loop@perhaps\expandafter
- {\the\numexpr #1-8\expandafter }\XINT@split@fromright@eight
+ \ifnum #1<8 \XINT_split_fromright_exita\fi
+ \expandafter\XINT_split_fromright_loop_perhaps\expandafter
+ {\the\numexpr #1-8\expandafter }\XINT_split_fromright_eight
}%
-\def\XINT@split@fromright@eight #1#2#3#4#5#6#7#8#9{#9{#9#8#7#6#5#4#3#2#1}}%
-\def\XINT@split@fromright@loop@perhaps #1#2%
+\def\XINT_split_fromright_eight #1#2#3#4#5#6#7#8#9{#9{#9#8#7#6#5#4#3#2#1}}%
+\def\XINT_split_fromright_loop_perhaps #1#2%
{%
- \xint@w #2\XINT@split@fromright@toofar\W
- \XINT@split@fromright@loop {#1}%
+ \xint_gob_til_w #2\XINT_split_fromright_toofar\W
+ \XINT_split_fromright_loop {#1}%
}%
-\def\XINT@split@fromright@toofar\W\XINT@split@fromright@loop #1#2#3\Z { {}}%
-\def\XINT@split@fromright@exita\fi
- \expandafter\XINT@split@fromright@loop@perhaps\expandafter #1#2%
- {\fi \XINT@split@fromright@exitb #1}%
-\def\XINT@split@fromright@exitb\the\numexpr #1-8\expandafter
+\def\XINT_split_fromright_toofar\W\XINT_split_fromright_loop #1#2#3\Z { {}}%
+\def\XINT_split_fromright_exita\fi
+ \expandafter\XINT_split_fromright_loop_perhaps\expandafter #1#2%
+ {\fi \XINT_split_fromright_exitb #1}%
+\def\XINT_split_fromright_exitb\the\numexpr #1-8\expandafter
{%
- \csname XINT@split@fromright@endsplit@\romannumeral #1\endcsname
+ \csname XINT_split_fromright_endsplit_\romannumeral #1\endcsname
}%
-\def\XINT@split@fromright@endsplit@ #1#2\W #3\Z #4%
+\def\XINT_split_fromright_endsplit_ #1#2\W #3\Z #4%
{%
- \expandafter\space\expandafter {\romannumeral0\XINT@rev{#2}}{#1}%
+ \expandafter\space\expandafter {\romannumeral0\XINT_rev{#2}}{#1}%
}%
-\def\XINT@split@fromright@endsplit@i #1#2%
- {\XINT@split@fromright@checkiftoofar #2{#2#1}}%
-\def\XINT@split@fromright@endsplit@ii #1#2#3%
- {\XINT@split@fromright@checkiftoofar #3{#3#2#1}}%
-\def\XINT@split@fromright@endsplit@iii #1#2#3#4%
- {\XINT@split@fromright@checkiftoofar #4{#4#3#2#1}}%
-\def\XINT@split@fromright@endsplit@iv #1#2#3#4#5%
- {\XINT@split@fromright@checkiftoofar #5{#5#4#3#2#1}}%
-\def\XINT@split@fromright@endsplit@v #1#2#3#4#5#6%
- {\XINT@split@fromright@checkiftoofar #6{#6#5#4#3#2#1}}%
-\def\XINT@split@fromright@endsplit@vi #1#2#3#4#5#6#7%
- {\XINT@split@fromright@checkiftoofar #7{#7#6#5#4#3#2#1}}%
-\def\XINT@split@fromright@endsplit@vii #1#2#3#4#5#6#7#8%
- {\XINT@split@fromright@checkiftoofar #8{#8#7#6#5#4#3#2#1}}%
-\def\XINT@split@fromright@checkiftoofar #1%
+\def\XINT_split_fromright_endsplit_i #1#2%
+ {\XINT_split_fromright_checkiftoofar #2{#2#1}}%
+\def\XINT_split_fromright_endsplit_ii #1#2#3%
+ {\XINT_split_fromright_checkiftoofar #3{#3#2#1}}%
+\def\XINT_split_fromright_endsplit_iii #1#2#3#4%
+ {\XINT_split_fromright_checkiftoofar #4{#4#3#2#1}}%
+\def\XINT_split_fromright_endsplit_iv #1#2#3#4#5%
+ {\XINT_split_fromright_checkiftoofar #5{#5#4#3#2#1}}%
+\def\XINT_split_fromright_endsplit_v #1#2#3#4#5#6%
+ {\XINT_split_fromright_checkiftoofar #6{#6#5#4#3#2#1}}%
+\def\XINT_split_fromright_endsplit_vi #1#2#3#4#5#6#7%
+ {\XINT_split_fromright_checkiftoofar #7{#7#6#5#4#3#2#1}}%
+\def\XINT_split_fromright_endsplit_vii #1#2#3#4#5#6#7#8%
+ {\XINT_split_fromright_checkiftoofar #8{#8#7#6#5#4#3#2#1}}%
+\def\XINT_split_fromright_checkiftoofar #1%
{%
- \xint@w #1\XINT@split@fromright@wenttoofar\W
- \XINT@split@fromright@endsplit@
+ \xint_gob_til_w #1\XINT_split_fromright_wenttoofar\W
+ \XINT_split_fromright_endsplit_
}%
-\def\XINT@split@fromright@wenttoofar\W\XINT@split@fromright@endsplit@ #1\Z #2%
+\def\XINT_split_fromright_wenttoofar\W\XINT_split_fromright_endsplit_ #1\Z #2%
{ {}{#2}}%
-\XINT@restorecatcodes@endinput%
+\XINT_restorecatcodes_endinput%
\endinput
%%
%% End of file `xint.sty'.
diff --git a/Master/texmf-dist/tex/generic/xint/xintcfrac.sty b/Master/texmf-dist/tex/generic/xint/xintcfrac.sty
index 47af0cfe0de..7cbe6299ef0 100644
--- a/Master/texmf-dist/tex/generic/xint/xintcfrac.sty
+++ b/Master/texmf-dist/tex/generic/xint/xintcfrac.sty
@@ -22,7 +22,7 @@
%% in the same archive or directory.)
%%
%%----------------------------------------------------------------
-%% The xint bundle (version 1.06a of May 9, 2013)
+%% The xint bundle (version 1.06b of May 14, 2013)
%% xintcfrac: Expandable continued fractions with xint package
%% Copyright (C) 2013 by Jean-Francois Burnol
%%----------------------------------------------------------------
@@ -108,11 +108,11 @@
\endlinechar=13 %
\catcode123=1 % {
\catcode125=2 % }
- \catcode64=11 % @
+ \catcode95=11 % _
\def\x
{%
\endgroup
- \edef\XINT@cfrac@restorecatcodes@endinput
+ \edef\XINT_cfrac_restorecatcodes_endinput
{%
\catcode93=\the\catcode93 % ]
\catcode91=\the\catcode91 % [
@@ -129,7 +129,7 @@
\catcode45=\the\catcode45 % -
\catcode44=\the\catcode44 % ,
\catcode35=\the\catcode35 % #
- \catcode64=\the\catcode64 % @
+ \catcode95=\the\catcode95 % _
\catcode125=\the\catcode125 % }
\catcode123=\the\catcode123 % {
\endlinechar=\the\endlinechar
@@ -138,12 +138,13 @@
\catcode61=\the\catcode61\relax % =
\noexpand\endinput
}%
- \XINT@setcatcodes
+ \XINT_setcatcodes
\catcode91=12 % [
\catcode93=12 % ]
}%
\x
\begingroup
+ \catcode64=11 % @
\catcode58=12 % :
\expandafter\ifx\csname ProvidesPackage\endcsname\relax
\def\x#1#2#3[#4]{\endgroup
@@ -163,296 +164,297 @@
\fi
\expandafter\x\csname ver@xintcfrac.sty\endcsname
\ProvidesPackage{xintcfrac}%
- [2013/05/09 v1.06a Expandable continued fractions with xint package (jfB)]%
+ [2013/05/14 v1.06b Expandable continued fractions with xint package (jfB)]%
\def\xintCFrac {\romannumeral0\xintcfrac }%
\def\xintcfrac #1%
{%
- \XINT@cfrac@opt@a #1\Z
+ \XINT_cfrac_opt_a #1\Z
}%
-\def\XINT@cfrac@opt@a #1%
+\def\XINT_cfrac_opt_a #1%
{%
- \ifx#1[\XINT@cfrac@opt@b\fi \XINT@cfrac@noopt #1%
+ \ifx#1[\XINT_cfrac_opt_b\fi \XINT_cfrac_noopt #1%
}%
-\def\XINT@cfrac@noopt #1\Z
+\def\XINT_cfrac_noopt #1\Z
{%
- \expandafter\XINT@cfrac@A\romannumeral0\xintraw {#1}\Z
+ \expandafter\XINT_cfrac_A\romannumeral0\xintraw {#1}\Z
\relax\relax
}%
-\def\XINT@cfrac@opt@b\fi\XINT@cfrac@noopt [\Z #1]%
+\def\XINT_cfrac_opt_b\fi\XINT_cfrac_noopt [\Z #1]%
{%
- \fi\csname XINT@cfrac@opt#1\endcsname
+ \fi\csname XINT_cfrac_opt#1\endcsname
}%
-\def\XINT@cfrac@optl #1%
+\def\XINT_cfrac_optl #1%
{%
- \expandafter\XINT@cfrac@A\romannumeral0\xintraw {#1}\Z
+ \expandafter\XINT_cfrac_A\romannumeral0\xintraw {#1}\Z
\relax\hfill
}%
-\def\XINT@cfrac@optc #1%
+\def\XINT_cfrac_optc #1%
{%
- \expandafter\XINT@cfrac@A\romannumeral0\xintraw {#1}\Z
+ \expandafter\XINT_cfrac_A\romannumeral0\xintraw {#1}\Z
\relax\relax
}%
-\def\XINT@cfrac@optr #1%
+\def\XINT_cfrac_optr #1%
{%
- \expandafter\XINT@cfrac@A\romannumeral0\xintraw {#1}\Z
+ \expandafter\XINT_cfrac_A\romannumeral0\xintraw {#1}\Z
\hfill\relax
}%
-\def\XINT@cfrac@A #1/#2\Z
+\def\XINT_cfrac_A #1/#2\Z
{%
- \expandafter\XINT@cfrac@B\romannumeral0\xintidivision {#1}{#2}{#2}%
+ \expandafter\XINT_cfrac_B\romannumeral0\xintidivision {#1}{#2}{#2}%
}%
-\def\XINT@cfrac@B #1#2%
+\def\XINT_cfrac_B #1#2%
{%
- \XINT@cfrac@C #2\Z {#1}%
+ \XINT_cfrac_C #2\Z {#1}%
}%
-\def\XINT@cfrac@C #1%
+\def\XINT_cfrac_C #1%
{%
- \xint@zero #1\XINT@cfrac@integer 0\XINT@cfrac@D #1%
+ \xint_gob_til_zero #1\XINT_cfrac_integer 0\XINT_cfrac_D #1%
}%
-\def\XINT@cfrac@integer 0\XINT@cfrac@D 0#1\Z #2#3#4#5{ #2}%
-\def\XINT@cfrac@D #1\Z #2#3{\XINT@cfrac@loop@a {#1}{#3}{#1}{{#2}}}%
-\def\XINT@cfrac@loop@a
+\def\XINT_cfrac_integer 0\XINT_cfrac_D 0#1\Z #2#3#4#5{ #2}%
+\def\XINT_cfrac_D #1\Z #2#3{\XINT_cfrac_loop_a {#1}{#3}{#1}{{#2}}}%
+\def\XINT_cfrac_loop_a
{%
- \expandafter\XINT@cfrac@loop@d\romannumeral0\XINT@div@prepare
+ \expandafter\XINT_cfrac_loop_d\romannumeral0\XINT_div_prepare
}%
-\def\XINT@cfrac@loop@d #1#2%
+\def\XINT_cfrac_loop_d #1#2%
{%
- \XINT@cfrac@loop@e #2.{#1}%
+ \XINT_cfrac_loop_e #2.{#1}%
}%
-\def\XINT@cfrac@loop@e #1%
+\def\XINT_cfrac_loop_e #1%
{%
- \xint@zero #1\xint@cfrac@loop@exit0\XINT@cfrac@loop@f #1%
+ \xint_gob_til_zero #1\xint_cfrac_loop_exit0\XINT_cfrac_loop_f #1%
}%
-\def\XINT@cfrac@loop@f #1.#2#3#4%
+\def\XINT_cfrac_loop_f #1.#2#3#4%
{%
- \XINT@cfrac@loop@a {#1}{#3}{#1}{{#2}#4}%
+ \XINT_cfrac_loop_a {#1}{#3}{#1}{{#2}#4}%
}%
-\def\xint@cfrac@loop@exit0\XINT@cfrac@loop@f #1.#2#3#4#5#6%
- {\XINT@cfrac@T #5#6{#2}#4\Z }%
-\def\XINT@cfrac@T #1#2#3#4%
+\def\xint_cfrac_loop_exit0\XINT_cfrac_loop_f #1.#2#3#4#5#6%
+ {\XINT_cfrac_T #5#6{#2}#4\Z }%
+\def\XINT_cfrac_T #1#2#3#4%
{%
- \xint@z #4\XINT@cfrac@end\Z\XINT@cfrac@T #1#2{#4+\cfrac{#11#2}{#3}}%
+ \xint_gob_til_z #4\XINT_cfrac_end\Z\XINT_cfrac_T #1#2{#4+\cfrac{#11#2}{#3}}%
}%
-\def\XINT@cfrac@end\Z\XINT@cfrac@T #1#2#3%
+\def\XINT_cfrac_end\Z\XINT_cfrac_T #1#2#3%
{%
- \XINT@cfrac@@end #3%
+ \XINT_cfrac__end #3%
}%
-\def\XINT@cfrac@@end \Z+\cfrac#1#2{ #2}%
+\def\XINT_cfrac__end \Z+\cfrac#1#2{ #2}%
\def\xintGCFrac {\romannumeral0\xintgcfrac }%
\def\xintgcfrac #1%
{%
- \XINT@gcfrac@opt@a #1\Z
+ \XINT_gcfrac_opt_a #1\Z
}%
-\def\XINT@gcfrac@opt@a #1%
+\def\XINT_gcfrac_opt_a #1%
{%
- \ifx#1[\XINT@gcfrac@opt@b\fi \XINT@gcfrac@noopt #1%
+ \ifx#1[\XINT_gcfrac_opt_b\fi \XINT_gcfrac_noopt #1%
}%
-\def\XINT@gcfrac@noopt #1\Z
+\def\XINT_gcfrac_noopt #1\Z
{%
- \XINT@gcfrac #1+\W/\relax\relax
+ \XINT_gcfrac #1+\W/\relax\relax
}%
-\def\XINT@gcfrac@opt@b\fi\XINT@gcfrac@noopt [\Z #1]%
+\def\XINT_gcfrac_opt_b\fi\XINT_gcfrac_noopt [\Z #1]%
{%
- \fi\csname XINT@gcfrac@opt#1\endcsname
+ \fi\csname XINT_gcfrac_opt#1\endcsname
}%
-\def\XINT@gcfrac@optl #1%
+\def\XINT_gcfrac_optl #1%
{%
- \XINT@gcfrac #1+\W/\relax\hfill
+ \XINT_gcfrac #1+\W/\relax\hfill
}%
-\def\XINT@gcfrac@optc #1%
+\def\XINT_gcfrac_optc #1%
{%
- \XINT@gcfrac #1+\W/\relax\relax
+ \XINT_gcfrac #1+\W/\relax\relax
}%
-\def\XINT@gcfrac@optr #1%
+\def\XINT_gcfrac_optr #1%
{%
- \XINT@gcfrac #1+\W/\hfill\relax
+ \XINT_gcfrac #1+\W/\hfill\relax
}%
-\def\XINT@gcfrac
+\def\XINT_gcfrac
{%
- \expandafter\XINT@gcfrac@enter\romannumeral-`0%
+ \expandafter\XINT_gcfrac_enter\romannumeral-`0%
}%
-\def\XINT@gcfrac@enter {\XINT@gcfrac@loop {}}%
-\def\XINT@gcfrac@loop #1#2+#3/%
+\def\XINT_gcfrac_enter {\XINT_gcfrac_loop {}}%
+\def\XINT_gcfrac_loop #1#2+#3/%
{%
- \xint@w #3\XINT@gcfrac@endloop\W\XINT@gcfrac@loop {{#3}{#2}#1}%
+ \xint_gob_til_w #3\XINT_gcfrac_endloop\W
+ \XINT_gcfrac_loop {{#3}{#2}#1}%
}%
-\def\XINT@gcfrac@endloop\W\XINT@gcfrac@loop #1#2#3%
+\def\XINT_gcfrac_endloop\W\XINT_gcfrac_loop #1#2#3%
{%
- \XINT@gcfrac@T #2#3#1\Z\Z
+ \XINT_gcfrac_T #2#3#1\Z\Z
}%
-\def\XINT@gcfrac@T #1#2#3#4{\XINT@gcfrac@U #1#2{\xintFrac{#4}}}%
-\def\XINT@gcfrac@U #1#2#3#4#5%
+\def\XINT_gcfrac_T #1#2#3#4{\XINT_gcfrac_U #1#2{\xintFrac{#4}}}%
+\def\XINT_gcfrac_U #1#2#3#4#5%
{%
- \xint@z #5\XINT@gcfrac@end\Z\XINT@gcfrac@U
+ \xint_gob_til_z #5\XINT_gcfrac_end\Z\XINT_gcfrac_U
#1#2{\xintFrac{#5}%
\ifcase\xintSgn{#4}
+\or+\else-\fi
\cfrac{#1\xintFrac{\xintAbs{#4}}#2}{#3}}%
}%
-\def\XINT@gcfrac@end\Z\XINT@gcfrac@U #1#2#3%
+\def\XINT_gcfrac_end\Z\XINT_gcfrac_U #1#2#3%
{%
- \XINT@gcfrac@@end #3%
+ \XINT_gcfrac__end #3%
}%
-\def\XINT@gcfrac@@end #1\cfrac#2#3{ #3}%
+\def\XINT_gcfrac__end #1\cfrac#2#3{ #3}%
\def\xintGCtoGCx {\romannumeral0\xintgctogcx }%
\def\xintgctogcx #1#2#3%
{%
- \expandafter\XINT@gctgcx@start\expandafter {\romannumeral-`0#3}{#1}{#2}%
+ \expandafter\XINT_gctgcx_start\expandafter {\romannumeral-`0#3}{#1}{#2}%
}%
-\def\XINT@gctgcx@start #1#2#3{\XINT@gctgcx@loop@a {}{#2}{#3}#1+\W/}%
-\def\XINT@gctgcx@loop@a #1#2#3#4+#5/%
+\def\XINT_gctgcx_start #1#2#3{\XINT_gctgcx_loop_a {}{#2}{#3}#1+\W/}%
+\def\XINT_gctgcx_loop_a #1#2#3#4+#5/%
{%
- \xint@w #5\XINT@gctgcx@end\W
- \XINT@gctgcx@loop@b {#1{#4}}{#2{#5}#3}{#2}{#3}%
+ \xint_gob_til_w #5\XINT_gctgcx_end\W
+ \XINT_gctgcx_loop_b {#1{#4}}{#2{#5}#3}{#2}{#3}%
}%
-\def\XINT@gctgcx@loop@b #1#2%
+\def\XINT_gctgcx_loop_b #1#2%
{%
- \XINT@gctgcx@loop@a {#1#2}%
+ \XINT_gctgcx_loop_a {#1#2}%
}%
-\def\XINT@gctgcx@end\W\XINT@gctgcx@loop@b #1#2#3#4{ #1}%
+\def\XINT_gctgcx_end\W\XINT_gctgcx_loop_b #1#2#3#4{ #1}%
\def\xintFtoCs {\romannumeral0\xintftocs }%
\def\xintftocs #1%
{%
- \expandafter\XINT@ftc@A\romannumeral0\xintraw {#1}\Z
+ \expandafter\XINT_ftc_A\romannumeral0\xintraw {#1}\Z
}%
-\def\XINT@ftc@A #1/#2\Z
+\def\XINT_ftc_A #1/#2\Z
{%
- \expandafter\XINT@ftc@B\romannumeral0\xintidivision {#1}{#2}{#2}%
+ \expandafter\XINT_ftc_B\romannumeral0\xintidivision {#1}{#2}{#2}%
}%
-\def\XINT@ftc@B #1#2%
+\def\XINT_ftc_B #1#2%
{%
- \XINT@ftc@C #2.{#1}%
+ \XINT_ftc_C #2.{#1}%
}%
-\def\XINT@ftc@C #1%
+\def\XINT_ftc_C #1%
{%
- \xint@zero #1\XINT@ftc@integer 0\XINT@ftc@D #1%
+ \xint_gob_til_zero #1\XINT_ftc_integer 0\XINT_ftc_D #1%
}%
-\def\XINT@ftc@integer 0\XINT@ftc@D 0#1.#2#3{ #2}%
-\def\XINT@ftc@D #1.#2#3{\XINT@ftc@loop@a {#1}{#3}{#1}{#2,}}%
-\def\XINT@ftc@loop@a
+\def\XINT_ftc_integer 0\XINT_ftc_D 0#1.#2#3{ #2}%
+\def\XINT_ftc_D #1.#2#3{\XINT_ftc_loop_a {#1}{#3}{#1}{#2,}}%
+\def\XINT_ftc_loop_a
{%
- \expandafter\XINT@ftc@loop@d\romannumeral0\XINT@div@prepare
+ \expandafter\XINT_ftc_loop_d\romannumeral0\XINT_div_prepare
}%
-\def\XINT@ftc@loop@d #1#2%
+\def\XINT_ftc_loop_d #1#2%
{%
- \XINT@ftc@loop@e #2.{#1}%
+ \XINT_ftc_loop_e #2.{#1}%
}%
-\def\XINT@ftc@loop@e #1%
+\def\XINT_ftc_loop_e #1%
{%
- \xint@zero #1\xint@ftc@loop@exit0\XINT@ftc@loop@f #1%
+ \xint_gob_til_zero #1\xint_ftc_loop_exit0\XINT_ftc_loop_f #1%
}%
-\def\XINT@ftc@loop@f #1.#2#3#4%
+\def\XINT_ftc_loop_f #1.#2#3#4%
{%
- \XINT@ftc@loop@a {#1}{#3}{#1}{#4#2,}%
+ \XINT_ftc_loop_a {#1}{#3}{#1}{#4#2,}%
}%
-\def\xint@ftc@loop@exit0\XINT@ftc@loop@f #1.#2#3#4{ #4#2}%
+\def\xint_ftc_loop_exit0\XINT_ftc_loop_f #1.#2#3#4{ #4#2}%
\def\xintFtoCx {\romannumeral0\xintftocx }%
\def\xintftocx #1#2%
{%
- \expandafter\XINT@ftcx@A\romannumeral0\xintraw {#2}\Z {#1}%
+ \expandafter\XINT_ftcx_A\romannumeral0\xintraw {#2}\Z {#1}%
}%
-\def\XINT@ftcx@A #1/#2\Z
+\def\XINT_ftcx_A #1/#2\Z
{%
- \expandafter\XINT@ftcx@B\romannumeral0\xintidivision {#1}{#2}{#2}%
+ \expandafter\XINT_ftcx_B\romannumeral0\xintidivision {#1}{#2}{#2}%
}%
-\def\XINT@ftcx@B #1#2%
+\def\XINT_ftcx_B #1#2%
{%
- \XINT@ftcx@C #2.{#1}%
+ \XINT_ftcx_C #2.{#1}%
}%
-\def\XINT@ftcx@C #1%
+\def\XINT_ftcx_C #1%
{%
- \xint@zero #1\XINT@ftcx@integer 0\XINT@ftcx@D #1%
+ \xint_gob_til_zero #1\XINT_ftcx_integer 0\XINT_ftcx_D #1%
}%
-\def\XINT@ftcx@integer 0\XINT@ftcx@D 0#1.#2#3#4{ #2}%
-\def\XINT@ftcx@D #1.#2#3#4{\XINT@ftcx@loop@a {#1}{#3}{#1}{#2#4}{#4}}%
-\def\XINT@ftcx@loop@a
+\def\XINT_ftcx_integer 0\XINT_ftcx_D 0#1.#2#3#4{ #2}%
+\def\XINT_ftcx_D #1.#2#3#4{\XINT_ftcx_loop_a {#1}{#3}{#1}{#2#4}{#4}}%
+\def\XINT_ftcx_loop_a
{%
- \expandafter\XINT@ftcx@loop@d\romannumeral0\XINT@div@prepare
+ \expandafter\XINT_ftcx_loop_d\romannumeral0\XINT_div_prepare
}%
-\def\XINT@ftcx@loop@d #1#2%
+\def\XINT_ftcx_loop_d #1#2%
{%
- \XINT@ftcx@loop@e #2.{#1}%
+ \XINT_ftcx_loop_e #2.{#1}%
}%
-\def\XINT@ftcx@loop@e #1%
+\def\XINT_ftcx_loop_e #1%
{%
- \xint@zero #1\xint@ftcx@loop@exit0\XINT@ftcx@loop@f #1%
+ \xint_gob_til_zero #1\xint_ftcx_loop_exit0\XINT_ftcx_loop_f #1%
}%
-\def\XINT@ftcx@loop@f #1.#2#3#4#5%
+\def\XINT_ftcx_loop_f #1.#2#3#4#5%
{%
- \XINT@ftcx@loop@a {#1}{#3}{#1}{#4{#2}#5}{#5}%
+ \XINT_ftcx_loop_a {#1}{#3}{#1}{#4{#2}#5}{#5}%
}%
-\def\xint@ftcx@loop@exit0\XINT@ftcx@loop@f #1.#2#3#4#5{ #4{#2}}%
+\def\xint_ftcx_loop_exit0\XINT_ftcx_loop_f #1.#2#3#4#5{ #4{#2}}%
\def\xintFtoGC {\romannumeral0\xintftogc }%
\def\xintftogc {\xintftocx {+1/}}%
\def\xintFtoCC {\romannumeral0\xintftocc }%
\def\xintftocc #1%
{%
- \expandafter\XINT@ftcc@A\expandafter {\romannumeral0\xintraw {#1}}%
+ \expandafter\XINT_ftcc_A\expandafter {\romannumeral0\xintraw {#1}}%
}%
-\def\XINT@ftcc@A #1%
+\def\XINT_ftcc_A #1%
{%
- \expandafter\XINT@ftcc@B
+ \expandafter\XINT_ftcc_B
\romannumeral0\xintraw {\xintAdd {1/2[0]}{#1[0]}}\Z {#1[0]}%
}%
-\def\XINT@ftcc@B #1/#2\Z
+\def\XINT_ftcc_B #1/#2\Z
{%
- \expandafter\XINT@ftcc@C\expandafter {\romannumeral0\xintiquo {#1}{#2}}%
+ \expandafter\XINT_ftcc_C\expandafter {\romannumeral0\xintiquo {#1}{#2}}%
}%
-\def\XINT@ftcc@C #1#2%
+\def\XINT_ftcc_C #1#2%
{%
- \expandafter\XINT@ftcc@D\romannumeral0\xintsub {#2}{#1}\Z {#1}%
+ \expandafter\XINT_ftcc_D\romannumeral0\xintsub {#2}{#1}\Z {#1}%
}%
-\def\XINT@ftcc@D #1%
+\def\XINT_ftcc_D #1%
{%
- \xint@UDzerominusfork
- #1-\dummy \XINT@ftcc@integer
- 0#1\dummy \XINT@ftcc@En
- 0-\dummy {\XINT@ftcc@Ep #1}%
- \xint@UDkrof
+ \xint_UDzerominusfork
+ #1-\dummy \XINT_ftcc_integer
+ 0#1\dummy \XINT_ftcc_En
+ 0-\dummy {\XINT_ftcc_Ep #1}%
+ \krof
}%
-\def\XINT@ftcc@Ep #1\Z #2%
+\def\XINT_ftcc_Ep #1\Z #2%
{%
- \expandafter\XINT@ftcc@loop@a\expandafter
+ \expandafter\XINT_ftcc_loop_a\expandafter
{\romannumeral0\xintdiv {1[0]}{#1}}{#2+1/}%
}%
-\def\XINT@ftcc@En #1\Z #2%
+\def\XINT_ftcc_En #1\Z #2%
{%
- \expandafter\XINT@ftcc@loop@a\expandafter
+ \expandafter\XINT_ftcc_loop_a\expandafter
{\romannumeral0\xintdiv {1[0]}{#1}}{#2+-1/}%
}%
-\def\XINT@ftcc@integer #1\Z #2{ #2}%
-\def\XINT@ftcc@loop@a #1%
+\def\XINT_ftcc_integer #1\Z #2{ #2}%
+\def\XINT_ftcc_loop_a #1%
{%
- \expandafter\XINT@ftcc@loop@b
+ \expandafter\XINT_ftcc_loop_b
\romannumeral0\xintraw {\xintAdd {1/2[0]}{#1}}\Z {#1}%
}%
-\def\XINT@ftcc@loop@b #1/#2\Z
+\def\XINT_ftcc_loop_b #1/#2\Z
{%
- \expandafter\XINT@ftcc@loop@c\expandafter
+ \expandafter\XINT_ftcc_loop_c\expandafter
{\romannumeral0\xintiquo {#1}{#2}}%
}%
-\def\XINT@ftcc@loop@c #1#2%
+\def\XINT_ftcc_loop_c #1#2%
{%
- \expandafter\XINT@ftcc@loop@d
+ \expandafter\XINT_ftcc_loop_d
\romannumeral0\xintsub {#2}{#1[0]}\Z {#1}%
}%
-\def\XINT@ftcc@loop@d #1%
+\def\XINT_ftcc_loop_d #1%
{%
- \xint@UDzerominusfork
- #1-\dummy \XINT@ftcc@end
- 0#1\dummy \XINT@ftcc@loop@N
- 0-\dummy {\XINT@ftcc@loop@P #1}%
- \xint@UDkrof
+ \xint_UDzerominusfork
+ #1-\dummy \XINT_ftcc_end
+ 0#1\dummy \XINT_ftcc_loop_N
+ 0-\dummy {\XINT_ftcc_loop_P #1}%
+ \krof
}%
-\def\XINT@ftcc@end #1\Z #2#3{ #3#2}%
-\def\XINT@ftcc@loop@P #1\Z #2#3%
+\def\XINT_ftcc_end #1\Z #2#3{ #3#2}%
+\def\XINT_ftcc_loop_P #1\Z #2#3%
{%
- \expandafter\XINT@ftcc@loop@a\expandafter
+ \expandafter\XINT_ftcc_loop_a\expandafter
{\romannumeral0\xintdiv {1[0]}{#1}}{#3#2+1/}%
}%
-\def\XINT@ftcc@loop@N #1\Z #2#3%
+\def\XINT_ftcc_loop_N #1\Z #2#3%
{%
- \expandafter\XINT@ftcc@loop@a\expandafter
+ \expandafter\XINT_ftcc_loop_a\expandafter
{\romannumeral0\xintdiv {1[0]}{#1}}{#3#2+-1/}%
}%
\def\xintFtoCv {\romannumeral0\xintftocv }%
@@ -468,566 +470,571 @@
\def\xintCstoF {\romannumeral0\xintcstof }%
\def\xintcstof #1%
{%
- \expandafter\XINT@cstf@prep \romannumeral-`0#1,\W,%
+ \expandafter\XINT_cstf_prep \romannumeral-`0#1,\W,%
}%
-\def\XINT@cstf@prep
+\def\XINT_cstf_prep
{%
- \XINT@cstf@loop@a 1001%
+ \XINT_cstf_loop_a 1001%
}%
-\def\XINT@cstf@loop@a #1#2#3#4#5,%
+\def\XINT_cstf_loop_a #1#2#3#4#5,%
{%
- \xint@w #5\XINT@cstf@end\W\expandafter\XINT@cstf@loop@b
+ \xint_gob_til_w #5\XINT_cstf_end\W
+ \expandafter\XINT_cstf_loop_b
\romannumeral0\xintraw {#5}.{#1}{#2}{#3}{#4}%
}%
-\def\XINT@cstf@loop@b #1/#2.#3#4#5#6%
+\def\XINT_cstf_loop_b #1/#2.#3#4#5#6%
{%
- \expandafter\XINT@cstf@loop@c\expandafter
- {\romannumeral0\XINT@mul@fork #2\Z #4\Z }%
- {\romannumeral0\XINT@mul@fork #2\Z #3\Z }%
- {\romannumeral0\xintiadd {\XINT@Mul {#2}{#6}}{\XINT@Mul {#1}{#4}}}%
- {\romannumeral0\xintiadd {\XINT@Mul {#2}{#5}}{\XINT@Mul {#1}{#3}}}%
+ \expandafter\XINT_cstf_loop_c\expandafter
+ {\romannumeral0\XINT_mul_fork #2\Z #4\Z }%
+ {\romannumeral0\XINT_mul_fork #2\Z #3\Z }%
+ {\romannumeral0\xintiadd {\XINT_Mul {#2}{#6}}{\XINT_Mul {#1}{#4}}}%
+ {\romannumeral0\xintiadd {\XINT_Mul {#2}{#5}}{\XINT_Mul {#1}{#3}}}%
}%
-\def\XINT@cstf@loop@c #1#2%
+\def\XINT_cstf_loop_c #1#2%
{%
- \expandafter\XINT@cstf@loop@d\expandafter {\expandafter{#2}{#1}}%
+ \expandafter\XINT_cstf_loop_d\expandafter {\expandafter{#2}{#1}}%
}%
-\def\XINT@cstf@loop@d #1#2%
+\def\XINT_cstf_loop_d #1#2%
{%
- \expandafter\XINT@cstf@loop@e\expandafter {\expandafter{#2}#1}%
+ \expandafter\XINT_cstf_loop_e\expandafter {\expandafter{#2}#1}%
}%
-\def\XINT@cstf@loop@e #1#2%
+\def\XINT_cstf_loop_e #1#2%
{%
- \expandafter\XINT@cstf@loop@a\expandafter{#2}#1%
+ \expandafter\XINT_cstf_loop_a\expandafter{#2}#1%
}%
-\def\XINT@cstf@end #1.#2#3#4#5{\xintraw {#2/#3}[0]}%
+\def\XINT_cstf_end #1.#2#3#4#5{\xintraw {#2/#3}[0]}%
\def\xintiCstoF {\romannumeral0\xinticstof }%
\def\xinticstof #1%
{%
- \expandafter\XINT@icstf@prep \romannumeral-`0#1,\W,%
+ \expandafter\XINT_icstf_prep \romannumeral-`0#1,\W,%
}%
-\def\XINT@icstf@prep
+\def\XINT_icstf_prep
{%
- \XINT@icstf@loop@a 1001%
+ \XINT_icstf_loop_a 1001%
}%
-\def\XINT@icstf@loop@a #1#2#3#4#5,%
+\def\XINT_icstf_loop_a #1#2#3#4#5,%
{%
- \xint@w #5\XINT@icstf@end\W
+ \xint_gob_til_w #5\XINT_icstf_end\W
\expandafter
- \XINT@icstf@loop@b \romannumeral-`0#5.{#1}{#2}{#3}{#4}%
+ \XINT_icstf_loop_b \romannumeral-`0#5.{#1}{#2}{#3}{#4}%
}%
-\def\XINT@icstf@loop@b #1.#2#3#4#5%
+\def\XINT_icstf_loop_b #1.#2#3#4#5%
{%
- \expandafter\XINT@icstf@loop@c\expandafter
- {\romannumeral0\xintiadd {#5}{\XINT@Mul {#1}{#3}}}%
- {\romannumeral0\xintiadd {#4}{\XINT@Mul {#1}{#2}}}%
+ \expandafter\XINT_icstf_loop_c\expandafter
+ {\romannumeral0\xintiadd {#5}{\XINT_Mul {#1}{#3}}}%
+ {\romannumeral0\xintiadd {#4}{\XINT_Mul {#1}{#2}}}%
{#2}{#3}%
}%
-\def\XINT@icstf@loop@c #1#2%
+\def\XINT_icstf_loop_c #1#2%
{%
- \expandafter\XINT@icstf@loop@a\expandafter {#2}{#1}%
+ \expandafter\XINT_icstf_loop_a\expandafter {#2}{#1}%
}%
-\def\XINT@icstf@end#1.#2#3#4#5{\xintraw {#2/#3}[0]}%
+\def\XINT_icstf_end#1.#2#3#4#5{\xintraw {#2/#3}[0]}%
\def\xintGCtoF {\romannumeral0\xintgctof }%
\def\xintgctof #1%
{%
- \expandafter\XINT@gctf@prep \romannumeral-`0#1+\W/%
+ \expandafter\XINT_gctf_prep \romannumeral-`0#1+\W/%
}%
-\def\XINT@gctf@prep
+\def\XINT_gctf_prep
{%
- \XINT@gctf@loop@a 1001%
+ \XINT_gctf_loop_a 1001%
}%
-\def\XINT@gctf@loop@a #1#2#3#4#5+%
+\def\XINT_gctf_loop_a #1#2#3#4#5+%
{%
- \expandafter\XINT@gctf@loop@b
+ \expandafter\XINT_gctf_loop_b
\romannumeral0\xintraw {#5}.{#1}{#2}{#3}{#4}%
}%
-\def\XINT@gctf@loop@b #1/#2.#3#4#5#6%
+\def\XINT_gctf_loop_b #1/#2.#3#4#5#6%
{%
- \expandafter\XINT@gctf@loop@c\expandafter
- {\romannumeral0\XINT@mul@fork #2\Z #4\Z }%
- {\romannumeral0\XINT@mul@fork #2\Z #3\Z }%
- {\romannumeral0\xintiadd {\XINT@Mul {#2}{#6}}{\XINT@Mul {#1}{#4}}}%
- {\romannumeral0\xintiadd {\XINT@Mul {#2}{#5}}{\XINT@Mul {#1}{#3}}}%
+ \expandafter\XINT_gctf_loop_c\expandafter
+ {\romannumeral0\XINT_mul_fork #2\Z #4\Z }%
+ {\romannumeral0\XINT_mul_fork #2\Z #3\Z }%
+ {\romannumeral0\xintiadd {\XINT_Mul {#2}{#6}}{\XINT_Mul {#1}{#4}}}%
+ {\romannumeral0\xintiadd {\XINT_Mul {#2}{#5}}{\XINT_Mul {#1}{#3}}}%
}%
-\def\XINT@gctf@loop@c #1#2%
+\def\XINT_gctf_loop_c #1#2%
{%
- \expandafter\XINT@gctf@loop@d\expandafter {\expandafter{#2}{#1}}%
+ \expandafter\XINT_gctf_loop_d\expandafter {\expandafter{#2}{#1}}%
}%
-\def\XINT@gctf@loop@d #1#2%
+\def\XINT_gctf_loop_d #1#2%
{%
- \expandafter\XINT@gctf@loop@e\expandafter {\expandafter{#2}#1}%
+ \expandafter\XINT_gctf_loop_e\expandafter {\expandafter{#2}#1}%
}%
-\def\XINT@gctf@loop@e #1#2%
+\def\XINT_gctf_loop_e #1#2%
{%
- \expandafter\XINT@gctf@loop@f\expandafter {\expandafter{#2}#1}%
+ \expandafter\XINT_gctf_loop_f\expandafter {\expandafter{#2}#1}%
}%
-\def\XINT@gctf@loop@f #1#2/%
+\def\XINT_gctf_loop_f #1#2/%
{%
- \xint@w #2\XINT@gctf@end\W\expandafter\XINT@gctf@loop@g
+ \xint_gob_til_w #2\XINT_gctf_end\W
+ \expandafter\XINT_gctf_loop_g
\romannumeral0\xintraw {#2}.#1%
}%
-\def\XINT@gctf@loop@g #1/#2.#3#4#5#6%
+\def\XINT_gctf_loop_g #1/#2.#3#4#5#6%
{%
- \expandafter\XINT@gctf@loop@h\expandafter
- {\romannumeral0\XINT@mul@fork #1\Z #6\Z }%
- {\romannumeral0\XINT@mul@fork #1\Z #5\Z }%
- {\romannumeral0\XINT@mul@fork #2\Z #4\Z }%
- {\romannumeral0\XINT@mul@fork #2\Z #3\Z }%
+ \expandafter\XINT_gctf_loop_h\expandafter
+ {\romannumeral0\XINT_mul_fork #1\Z #6\Z }%
+ {\romannumeral0\XINT_mul_fork #1\Z #5\Z }%
+ {\romannumeral0\XINT_mul_fork #2\Z #4\Z }%
+ {\romannumeral0\XINT_mul_fork #2\Z #3\Z }%
}%
-\def\XINT@gctf@loop@h #1#2%
+\def\XINT_gctf_loop_h #1#2%
{%
- \expandafter\XINT@gctf@loop@i\expandafter {\expandafter{#2}{#1}}%
+ \expandafter\XINT_gctf_loop_i\expandafter {\expandafter{#2}{#1}}%
}%
-\def\XINT@gctf@loop@i #1#2%
+\def\XINT_gctf_loop_i #1#2%
{%
- \expandafter\XINT@gctf@loop@j\expandafter {\expandafter{#2}#1}%
+ \expandafter\XINT_gctf_loop_j\expandafter {\expandafter{#2}#1}%
}%
-\def\XINT@gctf@loop@j #1#2%
+\def\XINT_gctf_loop_j #1#2%
{%
- \expandafter\XINT@gctf@loop@a\expandafter {#2}#1%
+ \expandafter\XINT_gctf_loop_a\expandafter {#2}#1%
}%
-\def\XINT@gctf@end #1.#2#3#4#5{\xintraw {#2/#3}[0]}%
+\def\XINT_gctf_end #1.#2#3#4#5{\xintraw {#2/#3}[0]}%
\def\xintiGCtoF {\romannumeral0\xintigctof }%
\def\xintigctof #1%
{%
- \expandafter\XINT@igctf@prep \romannumeral-`0#1+\W/%
+ \expandafter\XINT_igctf_prep \romannumeral-`0#1+\W/%
}%
-\def\XINT@igctf@prep
+\def\XINT_igctf_prep
{%
- \XINT@igctf@loop@a 1001%
+ \XINT_igctf_loop_a 1001%
}%
-\def\XINT@igctf@loop@a #1#2#3#4#5+%
+\def\XINT_igctf_loop_a #1#2#3#4#5+%
{%
- \expandafter\XINT@igctf@loop@b
+ \expandafter\XINT_igctf_loop_b
\romannumeral-`0#5.{#1}{#2}{#3}{#4}%
}%
-\def\XINT@igctf@loop@b #1.#2#3#4#5%
+\def\XINT_igctf_loop_b #1.#2#3#4#5%
{%
- \expandafter\XINT@igctf@loop@c\expandafter
- {\romannumeral0\xintiadd {#5}{\XINT@Mul {#1}{#3}}}%
- {\romannumeral0\xintiadd {#4}{\XINT@Mul {#1}{#2}}}%
+ \expandafter\XINT_igctf_loop_c\expandafter
+ {\romannumeral0\xintiadd {#5}{\XINT_Mul {#1}{#3}}}%
+ {\romannumeral0\xintiadd {#4}{\XINT_Mul {#1}{#2}}}%
{#2}{#3}%
}%
-\def\XINT@igctf@loop@c #1#2%
+\def\XINT_igctf_loop_c #1#2%
{%
- \expandafter\XINT@igctf@loop@f\expandafter {\expandafter{#2}{#1}}%
+ \expandafter\XINT_igctf_loop_f\expandafter {\expandafter{#2}{#1}}%
}%
-\def\XINT@igctf@loop@f #1#2#3#4/%
+\def\XINT_igctf_loop_f #1#2#3#4/%
{%
- \xint@w #4\XINT@igctf@end\W
- \expandafter\XINT@igctf@loop@g
+ \xint_gob_til_w #4\XINT_igctf_end\W
+ \expandafter\XINT_igctf_loop_g
\romannumeral-`0#4.{#2}{#3}#1%
}%
-\def\XINT@igctf@loop@g #1.#2#3%
+\def\XINT_igctf_loop_g #1.#2#3%
{%
- \expandafter\XINT@igctf@loop@h\expandafter
- {\romannumeral0\XINT@mul@fork #1\Z #3\Z }%
- {\romannumeral0\XINT@mul@fork #1\Z #2\Z }%
+ \expandafter\XINT_igctf_loop_h\expandafter
+ {\romannumeral0\XINT_mul_fork #1\Z #3\Z }%
+ {\romannumeral0\XINT_mul_fork #1\Z #2\Z }%
}%
-\def\XINT@igctf@loop@h #1#2%
+\def\XINT_igctf_loop_h #1#2%
{%
- \expandafter\XINT@igctf@loop@i\expandafter {#2}{#1}%
+ \expandafter\XINT_igctf_loop_i\expandafter {#2}{#1}%
}%
-\def\XINT@igctf@loop@i #1#2#3#4%
+\def\XINT_igctf_loop_i #1#2#3#4%
{%
- \XINT@igctf@loop@a {#3}{#4}{#1}{#2}%
+ \XINT_igctf_loop_a {#3}{#4}{#1}{#2}%
}%
-\def\XINT@igctf@end #1.#2#3#4#5{\xintraw {#4/#5}[0]}%
+\def\XINT_igctf_end #1.#2#3#4#5{\xintraw {#4/#5}[0]}%
\def\xintCstoCv {\romannumeral0\xintcstocv }%
\def\xintcstocv #1%
{%
- \expandafter\XINT@cstcv@prep \romannumeral-`0#1,\W,%
+ \expandafter\XINT_cstcv_prep \romannumeral-`0#1,\W,%
}%
-\def\XINT@cstcv@prep
+\def\XINT_cstcv_prep
{%
- \XINT@cstcv@loop@a {}1001%
+ \XINT_cstcv_loop_a {}1001%
}%
-\def\XINT@cstcv@loop@a #1#2#3#4#5#6,%
+\def\XINT_cstcv_loop_a #1#2#3#4#5#6,%
{%
- \xint@w #6\XINT@cstcv@end\W
- \expandafter\XINT@cstcv@loop@b
+ \xint_gob_til_w #6\XINT_cstcv_end\W
+ \expandafter\XINT_cstcv_loop_b
\romannumeral0\xintraw {#6}.{#2}{#3}{#4}{#5}{#1}%
}%
-\def\XINT@cstcv@loop@b #1/#2.#3#4#5#6%
+\def\XINT_cstcv_loop_b #1/#2.#3#4#5#6%
{%
- \expandafter\XINT@cstcv@loop@c\expandafter
- {\romannumeral0\XINT@mul@fork #2\Z #4\Z }%
- {\romannumeral0\XINT@mul@fork #2\Z #3\Z }%
- {\romannumeral0\xintiadd {\XINT@Mul {#2}{#6}}{\XINT@Mul {#1}{#4}}}%
- {\romannumeral0\xintiadd {\XINT@Mul {#2}{#5}}{\XINT@Mul {#1}{#3}}}%
+ \expandafter\XINT_cstcv_loop_c\expandafter
+ {\romannumeral0\XINT_mul_fork #2\Z #4\Z }%
+ {\romannumeral0\XINT_mul_fork #2\Z #3\Z }%
+ {\romannumeral0\xintiadd {\XINT_Mul {#2}{#6}}{\XINT_Mul {#1}{#4}}}%
+ {\romannumeral0\xintiadd {\XINT_Mul {#2}{#5}}{\XINT_Mul {#1}{#3}}}%
}%
-\def\XINT@cstcv@loop@c #1#2%
+\def\XINT_cstcv_loop_c #1#2%
{%
- \expandafter\XINT@cstcv@loop@d\expandafter {\expandafter{#2}{#1}}%
+ \expandafter\XINT_cstcv_loop_d\expandafter {\expandafter{#2}{#1}}%
}%
-\def\XINT@cstcv@loop@d #1#2%
+\def\XINT_cstcv_loop_d #1#2%
{%
- \expandafter\XINT@cstcv@loop@e\expandafter {\expandafter{#2}#1}%
+ \expandafter\XINT_cstcv_loop_e\expandafter {\expandafter{#2}#1}%
}%
-\def\XINT@cstcv@loop@e #1#2%
+\def\XINT_cstcv_loop_e #1#2%
{%
- \expandafter\XINT@cstcv@loop@f\expandafter{#2}#1%
+ \expandafter\XINT_cstcv_loop_f\expandafter{#2}#1%
}%
-\def\XINT@cstcv@loop@f #1#2#3#4#5%
+\def\XINT_cstcv_loop_f #1#2#3#4#5%
{%
- \expandafter\XINT@cstcv@loop@g\expandafter
+ \expandafter\XINT_cstcv_loop_g\expandafter
{\romannumeral0\xintraw {#1/#2}}{#5}{#1}{#2}{#3}{#4}%
}%
-\def\XINT@cstcv@loop@g #1#2{\XINT@cstcv@loop@a {#2{#1[0]}}}%
-\def\XINT@cstcv@end #1.#2#3#4#5#6{ #6}%
+\def\XINT_cstcv_loop_g #1#2{\XINT_cstcv_loop_a {#2{#1[0]}}}%
+\def\XINT_cstcv_end #1.#2#3#4#5#6{ #6}%
\def\xintiCstoCv {\romannumeral0\xinticstocv }%
\def\xinticstocv #1%
{%
- \expandafter\XINT@icstcv@prep \romannumeral-`0#1,\W,%
+ \expandafter\XINT_icstcv_prep \romannumeral-`0#1,\W,%
}%
-\def\XINT@icstcv@prep
+\def\XINT_icstcv_prep
{%
- \XINT@icstcv@loop@a {}1001%
+ \XINT_icstcv_loop_a {}1001%
}%
-\def\XINT@icstcv@loop@a #1#2#3#4#5#6,%
+\def\XINT_icstcv_loop_a #1#2#3#4#5#6,%
{%
- \xint@w #6\XINT@icstcv@end\W
+ \xint_gob_til_w #6\XINT_icstcv_end\W
\expandafter
- \XINT@icstcv@loop@b \romannumeral-`0#6.{#2}{#3}{#4}{#5}{#1}%
+ \XINT_icstcv_loop_b \romannumeral-`0#6.{#2}{#3}{#4}{#5}{#1}%
}%
-\def\XINT@icstcv@loop@b #1.#2#3#4#5%
+\def\XINT_icstcv_loop_b #1.#2#3#4#5%
{%
- \expandafter\XINT@icstcv@loop@c\expandafter
- {\romannumeral0\xintiadd {#5}{\XINT@Mul {#1}{#3}}}%
- {\romannumeral0\xintiadd {#4}{\XINT@Mul {#1}{#2}}}%
+ \expandafter\XINT_icstcv_loop_c\expandafter
+ {\romannumeral0\xintiadd {#5}{\XINT_Mul {#1}{#3}}}%
+ {\romannumeral0\xintiadd {#4}{\XINT_Mul {#1}{#2}}}%
{{#2}{#3}}%
}%
-\def\XINT@icstcv@loop@c #1#2%
+\def\XINT_icstcv_loop_c #1#2%
{%
- \expandafter\XINT@icstcv@loop@d\expandafter {#2}{#1}%
+ \expandafter\XINT_icstcv_loop_d\expandafter {#2}{#1}%
}%
-\def\XINT@icstcv@loop@d #1#2%
+\def\XINT_icstcv_loop_d #1#2%
{%
- \expandafter\XINT@icstcv@loop@e\expandafter
+ \expandafter\XINT_icstcv_loop_e\expandafter
{\romannumeral0\xintraw {#1/#2}}{{#1}{#2}}%
}%
-\def\XINT@icstcv@loop@e #1#2#3#4{\XINT@icstcv@loop@a {#4{#1[0]}}#2#3}%
-\def\XINT@icstcv@end #1.#2#3#4#5#6{ #6}%
+\def\XINT_icstcv_loop_e #1#2#3#4{\XINT_icstcv_loop_a {#4{#1[0]}}#2#3}%
+\def\XINT_icstcv_end #1.#2#3#4#5#6{ #6}%
\def\xintGCtoCv {\romannumeral0\xintgctocv }%
\def\xintgctocv #1%
{%
- \expandafter\XINT@gctcv@prep \romannumeral-`0#1+\W/%
+ \expandafter\XINT_gctcv_prep \romannumeral-`0#1+\W/%
}%
-\def\XINT@gctcv@prep
+\def\XINT_gctcv_prep
{%
- \XINT@gctcv@loop@a {}1001%
+ \XINT_gctcv_loop_a {}1001%
}%
-\def\XINT@gctcv@loop@a #1#2#3#4#5#6+%
+\def\XINT_gctcv_loop_a #1#2#3#4#5#6+%
{%
- \expandafter\XINT@gctcv@loop@b
+ \expandafter\XINT_gctcv_loop_b
\romannumeral0\xintraw {#6}.{#2}{#3}{#4}{#5}{#1}%
}%
-\def\XINT@gctcv@loop@b #1/#2.#3#4#5#6%
+\def\XINT_gctcv_loop_b #1/#2.#3#4#5#6%
{%
- \expandafter\XINT@gctcv@loop@c\expandafter
- {\romannumeral0\XINT@mul@fork #2\Z #4\Z }%
- {\romannumeral0\XINT@mul@fork #2\Z #3\Z }%
- {\romannumeral0\xintiadd {\XINT@Mul {#2}{#6}}{\XINT@Mul {#1}{#4}}}%
- {\romannumeral0\xintiadd {\XINT@Mul {#2}{#5}}{\XINT@Mul {#1}{#3}}}%
+ \expandafter\XINT_gctcv_loop_c\expandafter
+ {\romannumeral0\XINT_mul_fork #2\Z #4\Z }%
+ {\romannumeral0\XINT_mul_fork #2\Z #3\Z }%
+ {\romannumeral0\xintiadd {\XINT_Mul {#2}{#6}}{\XINT_Mul {#1}{#4}}}%
+ {\romannumeral0\xintiadd {\XINT_Mul {#2}{#5}}{\XINT_Mul {#1}{#3}}}%
}%
-\def\XINT@gctcv@loop@c #1#2%
+\def\XINT_gctcv_loop_c #1#2%
{%
- \expandafter\XINT@gctcv@loop@d\expandafter {\expandafter{#2}{#1}}%
+ \expandafter\XINT_gctcv_loop_d\expandafter {\expandafter{#2}{#1}}%
}%
-\def\XINT@gctcv@loop@d #1#2%
+\def\XINT_gctcv_loop_d #1#2%
{%
- \expandafter\XINT@gctcv@loop@e\expandafter {\expandafter{#2}{#1}}%
+ \expandafter\XINT_gctcv_loop_e\expandafter {\expandafter{#2}{#1}}%
}%
-\def\XINT@gctcv@loop@e #1#2%
+\def\XINT_gctcv_loop_e #1#2%
{%
- \expandafter\XINT@gctcv@loop@f\expandafter {#2}#1%
+ \expandafter\XINT_gctcv_loop_f\expandafter {#2}#1%
}%
-\def\XINT@gctcv@loop@f #1#2%
+\def\XINT_gctcv_loop_f #1#2%
{%
- \expandafter\XINT@gctcv@loop@g\expandafter
+ \expandafter\XINT_gctcv_loop_g\expandafter
{\romannumeral0\xintraw {#1/#2}}{{#1}{#2}}%
}%
-\def\XINT@gctcv@loop@g #1#2#3#4%
+\def\XINT_gctcv_loop_g #1#2#3#4%
{%
- \XINT@gctcv@loop@h {#4{#1[0]}}{#2#3}%
+ \XINT_gctcv_loop_h {#4{#1[0]}}{#2#3}%
}%
-\def\XINT@gctcv@loop@h #1#2#3/%
+\def\XINT_gctcv_loop_h #1#2#3/%
{%
- \xint@w #3\XINT@gctcv@end\W\expandafter\XINT@gctcv@loop@i
+ \xint_gob_til_w #3\XINT_gctcv_end\W
+ \expandafter\XINT_gctcv_loop_i
\romannumeral0\xintraw {#3}.#2{#1}%
}%
-\def\XINT@gctcv@loop@i #1/#2.#3#4#5#6%
+\def\XINT_gctcv_loop_i #1/#2.#3#4#5#6%
{%
- \expandafter\XINT@gctcv@loop@j\expandafter
- {\romannumeral0\XINT@mul@fork #1\Z #6\Z }%
- {\romannumeral0\XINT@mul@fork #1\Z #5\Z }%
- {\romannumeral0\XINT@mul@fork #2\Z #4\Z }%
- {\romannumeral0\XINT@mul@fork #2\Z #3\Z }%
+ \expandafter\XINT_gctcv_loop_j\expandafter
+ {\romannumeral0\XINT_mul_fork #1\Z #6\Z }%
+ {\romannumeral0\XINT_mul_fork #1\Z #5\Z }%
+ {\romannumeral0\XINT_mul_fork #2\Z #4\Z }%
+ {\romannumeral0\XINT_mul_fork #2\Z #3\Z }%
}%
-\def\XINT@gctcv@loop@j #1#2%
+\def\XINT_gctcv_loop_j #1#2%
{%
- \expandafter\XINT@gctcv@loop@k\expandafter {\expandafter{#2}{#1}}%
+ \expandafter\XINT_gctcv_loop_k\expandafter {\expandafter{#2}{#1}}%
}%
-\def\XINT@gctcv@loop@k #1#2%
+\def\XINT_gctcv_loop_k #1#2%
{%
- \expandafter\XINT@gctcv@loop@l\expandafter {\expandafter{#2}#1}%
+ \expandafter\XINT_gctcv_loop_l\expandafter {\expandafter{#2}#1}%
}%
-\def\XINT@gctcv@loop@l #1#2%
+\def\XINT_gctcv_loop_l #1#2%
{%
- \expandafter\XINT@gctcv@loop@m\expandafter {\expandafter{#2}#1}%
+ \expandafter\XINT_gctcv_loop_m\expandafter {\expandafter{#2}#1}%
}%
-\def\XINT@gctcv@loop@m #1#2{\XINT@gctcv@loop@a {#2}#1}%
-\def\XINT@gctcv@end #1.#2#3#4#5#6{ #6}%
+\def\XINT_gctcv_loop_m #1#2{\XINT_gctcv_loop_a {#2}#1}%
+\def\XINT_gctcv_end #1.#2#3#4#5#6{ #6}%
\def\xintiGCtoCv {\romannumeral0\xintigctocv }%
\def\xintigctocv #1%
{%
- \expandafter\XINT@igctcv@prep \romannumeral-`0#1+\W/%
+ \expandafter\XINT_igctcv_prep \romannumeral-`0#1+\W/%
}%
-\def\XINT@igctcv@prep
+\def\XINT_igctcv_prep
{%
- \XINT@igctcv@loop@a {}1001%
+ \XINT_igctcv_loop_a {}1001%
}%
-\def\XINT@igctcv@loop@a #1#2#3#4#5#6+%
+\def\XINT_igctcv_loop_a #1#2#3#4#5#6+%
{%
- \expandafter\XINT@igctcv@loop@b
+ \expandafter\XINT_igctcv_loop_b
\romannumeral-`0#6.{#2}{#3}{#4}{#5}{#1}%
}%
-\def\XINT@igctcv@loop@b #1.#2#3#4#5%
+\def\XINT_igctcv_loop_b #1.#2#3#4#5%
{%
- \expandafter\XINT@igctcv@loop@c\expandafter
- {\romannumeral0\xintiadd {#5}{\XINT@Mul {#1}{#3}}}%
- {\romannumeral0\xintiadd {#4}{\XINT@Mul {#1}{#2}}}%
+ \expandafter\XINT_igctcv_loop_c\expandafter
+ {\romannumeral0\xintiadd {#5}{\XINT_Mul {#1}{#3}}}%
+ {\romannumeral0\xintiadd {#4}{\XINT_Mul {#1}{#2}}}%
{{#2}{#3}}%
}%
-\def\XINT@igctcv@loop@c #1#2%
+\def\XINT_igctcv_loop_c #1#2%
{%
- \expandafter\XINT@igctcv@loop@f\expandafter {\expandafter{#2}{#1}}%
+ \expandafter\XINT_igctcv_loop_f\expandafter {\expandafter{#2}{#1}}%
}%
-\def\XINT@igctcv@loop@f #1#2#3#4/%
+\def\XINT_igctcv_loop_f #1#2#3#4/%
{%
- \xint@w #4\XINT@igctcv@end@a\W
- \expandafter\XINT@igctcv@loop@g
+ \xint_gob_til_w #4\XINT_igctcv_end_a\W
+ \expandafter\XINT_igctcv_loop_g
\romannumeral-`0#4.#1#2{#3}%
}%
-\def\XINT@igctcv@loop@g #1.#2#3#4#5%
+\def\XINT_igctcv_loop_g #1.#2#3#4#5%
{%
- \expandafter\XINT@igctcv@loop@h\expandafter
- {\romannumeral0\XINT@mul@fork #1\Z #5\Z }%
- {\romannumeral0\XINT@mul@fork #1\Z #4\Z }%
+ \expandafter\XINT_igctcv_loop_h\expandafter
+ {\romannumeral0\XINT_mul_fork #1\Z #5\Z }%
+ {\romannumeral0\XINT_mul_fork #1\Z #4\Z }%
{{#2}{#3}}%
}%
-\def\XINT@igctcv@loop@h #1#2%
+\def\XINT_igctcv_loop_h #1#2%
{%
- \expandafter\XINT@igctcv@loop@i\expandafter {\expandafter{#2}{#1}}%
+ \expandafter\XINT_igctcv_loop_i\expandafter {\expandafter{#2}{#1}}%
}%
-\def\XINT@igctcv@loop@i #1#2{\XINT@igctcv@loop@k #2{#2#1}}%
-\def\XINT@igctcv@loop@k #1#2%
+\def\XINT_igctcv_loop_i #1#2{\XINT_igctcv_loop_k #2{#2#1}}%
+\def\XINT_igctcv_loop_k #1#2%
{%
- \expandafter\XINT@igctcv@loop@l\expandafter
+ \expandafter\XINT_igctcv_loop_l\expandafter
{\romannumeral0\xintraw {#1/#2}}%
}%
-\def\XINT@igctcv@loop@l #1#2#3{\XINT@igctcv@loop@a {#3{#1[0]}}#2}%
-\def\XINT@igctcv@end@a #1.#2#3#4#5%
+\def\XINT_igctcv_loop_l #1#2#3{\XINT_igctcv_loop_a {#3{#1[0]}}#2}%
+\def\XINT_igctcv_end_a #1.#2#3#4#5%
{%
- \expandafter\XINT@igctcv@end@b\expandafter
+ \expandafter\XINT_igctcv_end_b\expandafter
{\romannumeral0\xintraw {#2/#3}}%
}%
-\def\XINT@igctcv@end@b #1#2{ #2{#1[0]}}%
+\def\XINT_igctcv_end_b #1#2{ #2{#1[0]}}%
\def\xintCntoF {\romannumeral0\xintcntof }%
\def\xintcntof #1%
{%
- \expandafter\XINT@cntf\expandafter {\the\numexpr #1}%
+ \expandafter\XINT_cntf\expandafter {\the\numexpr #1}%
}%
-\def\XINT@cntf #1#2%
+\def\XINT_cntf #1#2%
{%
\ifnum #1>0
- \xint@afterfi {\expandafter\XINT@cntf@loop\expandafter
+ \xint_afterfi {\expandafter\XINT_cntf_loop\expandafter
{\the\numexpr #1-1\expandafter}\expandafter
{\romannumeral-`0#2{#1}}{#2}}%
\else
- \xint@afterfi
+ \xint_afterfi
{\ifnum #1=0
- \xint@afterfi {\expandafter\space \romannumeral-`0#2{0}}%
- \else \xint@afterfi { 0/1[0]}%
+ \xint_afterfi {\expandafter\space \romannumeral-`0#2{0}}%
+ \else \xint_afterfi { 0/1[0]}%
\fi}%
\fi
}%
-\def\XINT@cntf@loop #1#2#3%
+\def\XINT_cntf_loop #1#2#3%
{%
- \ifnum #1>0 \else \XINT@cntf@exit \fi
- \expandafter\XINT@cntf@loop\expandafter
+ \ifnum #1>0 \else \XINT_cntf_exit \fi
+ \expandafter\XINT_cntf_loop\expandafter
{\the\numexpr #1-1\expandafter }\expandafter
{\romannumeral0\xintadd {\xintDiv {1[0]}{#2}}{#3{#1}}}%
{#3}%
}%
-\def\XINT@cntf@exit \fi
- \expandafter\XINT@cntf@loop\expandafter
+\def\XINT_cntf_exit \fi
+ \expandafter\XINT_cntf_loop\expandafter
#1\expandafter #2#3%
{%
- \fi\xint@gobble@ii #2%
+ \fi\xint_gobble_ii #2%
}%
\def\xintGCntoF {\romannumeral0\xintgcntof }%
\def\xintgcntof #1%
{%
- \expandafter\XINT@gcntf\expandafter {\the\numexpr #1}%
+ \expandafter\XINT_gcntf\expandafter {\the\numexpr #1}%
}%
-\def\XINT@gcntf #1#2#3%
+\def\XINT_gcntf #1#2#3%
{%
\ifnum #1>0
- \xint@afterfi {\expandafter\XINT@gcntf@loop\expandafter
+ \xint_afterfi {\expandafter\XINT_gcntf_loop\expandafter
{\the\numexpr #1-1\expandafter}\expandafter
{\romannumeral-`0#2{#1}}{#2}{#3}}%
\else
- \xint@afterfi
+ \xint_afterfi
{\ifnum #1=0
- \xint@afterfi {\expandafter\space\romannumeral-`0#2{0}}%
- \else \xint@afterfi { 0/1[0]}%
+ \xint_afterfi {\expandafter\space\romannumeral-`0#2{0}}%
+ \else \xint_afterfi { 0/1[0]}%
\fi}%
\fi
}%
-\def\XINT@gcntf@loop #1#2#3#4%
+\def\XINT_gcntf_loop #1#2#3#4%
{%
- \ifnum #1>0 \else \XINT@gcntf@exit \fi
- \expandafter\XINT@gcntf@loop\expandafter
+ \ifnum #1>0 \else \XINT_gcntf_exit \fi
+ \expandafter\XINT_gcntf_loop\expandafter
{\the\numexpr #1-1\expandafter }\expandafter
{\romannumeral0\xintadd {\xintDiv {#4{#1}}{#2}}{#3{#1}}}%
{#3}{#4}%
}%
-\def\XINT@gcntf@exit \fi
- \expandafter\XINT@gcntf@loop\expandafter
+\def\XINT_gcntf_exit \fi
+ \expandafter\XINT_gcntf_loop\expandafter
#1\expandafter #2#3#4%
{%
- \fi\xint@gobble@ii #2%
+ \fi\xint_gobble_ii #2%
}%
\def\xintCntoCs {\romannumeral0\xintcntocs }%
\def\xintcntocs #1%
{%
- \expandafter\XINT@cntcs\expandafter {\the\numexpr #1}%
+ \expandafter\XINT_cntcs\expandafter {\the\numexpr #1}%
}%
-\def\XINT@cntcs #1#2%
+\def\XINT_cntcs #1#2%
{%
\ifnum #1<0
- \xint@afterfi { 0/1[0]}%
+ \xint_afterfi { 0/1[0]}%
\else
- \xint@afterfi {\expandafter\XINT@cntcs@loop\expandafter
+ \xint_afterfi {\expandafter\XINT_cntcs_loop\expandafter
{\the\numexpr #1-1\expandafter}\expandafter
{\expandafter{\romannumeral-`0#2{#1}}}{#2}}%
\fi
}%
-\def\XINT@cntcs@loop #1#2#3%
+\def\XINT_cntcs_loop #1#2#3%
{%
- \ifnum #1>-1 \else \XINT@cntcs@exit \fi
- \expandafter\XINT@cntcs@loop\expandafter
+ \ifnum #1>-1 \else \XINT_cntcs_exit \fi
+ \expandafter\XINT_cntcs_loop\expandafter
{\the\numexpr #1-1\expandafter }\expandafter
{\expandafter{\romannumeral-`0#3{#1}},#2}{#3}%
}%
-\def\XINT@cntcs@exit \fi
- \expandafter\XINT@cntcs@loop\expandafter
+\def\XINT_cntcs_exit \fi
+ \expandafter\XINT_cntcs_loop\expandafter
#1\expandafter #2#3%
{%
- \fi\XINT@cntcs@@exit #2%
+ \fi\XINT_cntcs__exit #2%
}%
-\def\XINT@cntcs@@exit #1,{ }%
+\def\XINT_cntcs__exit #1,{ }%
\def\xintCntoGC {\romannumeral0\xintcntogc }%
\def\xintcntogc #1%
{%
- \expandafter\XINT@cntgc\expandafter {\the\numexpr #1}%
+ \expandafter\XINT_cntgc\expandafter {\the\numexpr #1}%
}%
-\def\XINT@cntgc #1#2%
+\def\XINT_cntgc #1#2%
{%
\ifnum #1<0
- \xint@afterfi { 0/1[0]}%
+ \xint_afterfi { 0/1[0]}%
\else
- \xint@afterfi {\expandafter\XINT@cntgc@loop\expandafter
+ \xint_afterfi {\expandafter\XINT_cntgc_loop\expandafter
{\the\numexpr #1-1\expandafter}\expandafter
{\expandafter{\romannumeral-`0#2{#1}}}{#2}}%
\fi
}%
-\def\XINT@cntgc@loop #1#2#3%
+\def\XINT_cntgc_loop #1#2#3%
{%
- \ifnum #1>-1 \else \XINT@cntgc@exit \fi
- \expandafter\XINT@cntgc@loop\expandafter
+ \ifnum #1>-1 \else \XINT_cntgc_exit \fi
+ \expandafter\XINT_cntgc_loop\expandafter
{\the\numexpr #1-1\expandafter }\expandafter
{\expandafter{\romannumeral-`0#3{#1}}+1/#2}{#3}%
}%
-\def\XINT@cntgc@exit \fi
- \expandafter\XINT@cntgc@loop\expandafter
+\def\XINT_cntgc_exit \fi
+ \expandafter\XINT_cntgc_loop\expandafter
#1\expandafter #2#3%
{%
- \fi\XINT@cntgc@@exit #2%
+ \fi\XINT_cntgc__exit #2%
}%
-\def\XINT@cntgc@@exit #1+1/{ }%
+\def\XINT_cntgc__exit #1+1/{ }%
\def\xintGCntoGC {\romannumeral0\xintgcntogc }%
\def\xintgcntogc #1%
{%
- \expandafter\XINT@gcntgc\expandafter {\the\numexpr #1}%
+ \expandafter\XINT_gcntgc\expandafter {\the\numexpr #1}%
}%
-\def\XINT@gcntgc #1#2#3%
+\def\XINT_gcntgc #1#2#3%
{%
\ifnum #1<0
- \xint@afterfi { {0/1[0]}}%
+ \xint_afterfi { {0/1[0]}}%
\else
- \xint@afterfi {\expandafter\XINT@gcntgc@loop\expandafter
+ \xint_afterfi {\expandafter\XINT_gcntgc_loop\expandafter
{\the\numexpr #1-1\expandafter}\expandafter
{\expandafter{\romannumeral-`0#2{#1}}}{#2}{#3}}%
\fi
}%
-\def\XINT@gcntgc@loop #1#2#3#4%
+\def\XINT_gcntgc_loop #1#2#3#4%
{%
- \ifnum #1>-1 \else \XINT@gcntgc@exit \fi
- \expandafter\XINT@gcntgc@loop@b\expandafter
+ \ifnum #1>-1 \else \XINT_gcntgc_exit \fi
+ \expandafter\XINT_gcntgc_loop_b\expandafter
{\expandafter{\romannumeral-`0#4{#1}}/#2}{#3{#1}}{#1}{#3}{#4}%
}%
-\def\XINT@gcntgc@loop@b #1#2#3%
+\def\XINT_gcntgc_loop_b #1#2#3%
{%
- \expandafter\XINT@gcntgc@loop\expandafter
+ \expandafter\XINT_gcntgc_loop\expandafter
{\the\numexpr #3-1\expandafter}\expandafter
{\expandafter{\romannumeral-`0#2}+#1}%
}%
-\def\XINT@gcntgc@exit \fi
- \expandafter\XINT@gcntgc@loop@b\expandafter #1#2#3#4#5%
+\def\XINT_gcntgc_exit \fi
+ \expandafter\XINT_gcntgc_loop_b\expandafter #1#2#3#4#5%
{%
- \fi\XINT@gcntgc@@exit #1%
+ \fi\XINT_gcntgc__exit #1%
}%
-\def\XINT@gcntgc@@exit #1/{ }%
+\def\XINT_gcntgc__exit #1/{ }%
\def\xintCstoGC {\romannumeral0\xintcstogc }%
\def\xintcstogc #1%
{%
- \expandafter\XINT@cstc@prep \romannumeral-`0#1,\W,%
+ \expandafter\XINT_cstc_prep \romannumeral-`0#1,\W,%
}%
-\def\XINT@cstc@prep #1,{\XINT@cstc@loop@a {{#1}}}%
-\def\XINT@cstc@loop@a #1#2,%
+\def\XINT_cstc_prep #1,{\XINT_cstc_loop_a {{#1}}}%
+\def\XINT_cstc_loop_a #1#2,%
{%
- \xint@w #2\XINT@cstc@end\W\XINT@cstc@loop@b {#1}{#2}%
+ \xint_gob_til_w #2\XINT_cstc_end\W
+ \XINT_cstc_loop_b {#1}{#2}%
}%
-\def\XINT@cstc@loop@b #1#2{\XINT@cstc@loop@a {#1+1/{#2}}}%
-\def\XINT@cstc@end\W\XINT@cstc@loop@b #1#2{ #1}%
+\def\XINT_cstc_loop_b #1#2{\XINT_cstc_loop_a {#1+1/{#2}}}%
+\def\XINT_cstc_end\W\XINT_cstc_loop_b #1#2{ #1}%
\def\xintGCtoGC {\romannumeral0\xintgctogc }%
\def\xintgctogc #1%
{%
- \expandafter\XINT@gctgc@start \romannumeral-`0#1+\W/%
+ \expandafter\XINT_gctgc_start \romannumeral-`0#1+\W/%
}%
-\def\XINT@gctgc@start {\XINT@gctgc@loop@a {}}%
-\def\XINT@gctgc@loop@a #1#2+#3/%
+\def\XINT_gctgc_start {\XINT_gctgc_loop_a {}}%
+\def\XINT_gctgc_loop_a #1#2+#3/%
{%
- \xint@w #3\XINT@gctgc@end\W\expandafter\XINT@gctgc@loop@b\expandafter
+ \xint_gob_til_w #3\XINT_gctgc_end\W
+ \expandafter\XINT_gctgc_loop_b\expandafter
{\romannumeral-`0#2}{#3}{#1}%
}%
-\def\XINT@gctgc@loop@b #1#2%
+\def\XINT_gctgc_loop_b #1#2%
{%
- \expandafter\XINT@gctgc@loop@c\expandafter
+ \expandafter\XINT_gctgc_loop_c\expandafter
{\romannumeral-`0#2}{#1}%
}%
-\def\XINT@gctgc@loop@c #1#2#3%
+\def\XINT_gctgc_loop_c #1#2#3%
{%
- \XINT@gctgc@loop@a {#3{#2}+{#1}/}%
+ \XINT_gctgc_loop_a {#3{#2}+{#1}/}%
}%
-\def\XINT@gctgc@end\W\expandafter\XINT@gctgc@loop@b
+\def\XINT_gctgc_end\W\expandafter\XINT_gctgc_loop_b
{%
- \expandafter\XINT@gctgc@@end
+ \expandafter\XINT_gctgc__end
}%
-\def\XINT@gctgc@@end #1#2#3{ #3{#1}}%
-\XINT@cfrac@restorecatcodes@endinput%
+\def\XINT_gctgc__end #1#2#3{ #3{#1}}%
+\XINT_cfrac_restorecatcodes_endinput%
\endinput
%%
%% End of file `xintcfrac.sty'.
diff --git a/Master/texmf-dist/tex/generic/xint/xintfrac.sty b/Master/texmf-dist/tex/generic/xint/xintfrac.sty
index b74569d3c1b..a63770ad592 100644
--- a/Master/texmf-dist/tex/generic/xint/xintfrac.sty
+++ b/Master/texmf-dist/tex/generic/xint/xintfrac.sty
@@ -22,7 +22,7 @@
%% in the same archive or directory.)
%%
%%----------------------------------------------------------------
-%% The xint bundle (version 1.06a of May 9, 2013)
+%% The xint bundle (version 1.06b of May 14, 2013)
%% xintfrac: Expandable operations on fractions
%% Copyright (C) 2013 by Jean-Francois Burnol
%%----------------------------------------------------------------
@@ -108,11 +108,11 @@
\endlinechar=13 %
\catcode123=1 % {
\catcode125=2 % }
- \catcode64=11 % @
+ \catcode95=11 % _
\def\x
{%
\endgroup
- \edef\XINT@frac@restorecatcodes@endinput
+ \edef\XINT_frac_restorecatcodes_endinput
{%
\catcode94=\the\catcode94 % ^
\catcode93=\the\catcode93 % ]
@@ -130,7 +130,7 @@
\catcode45=\the\catcode45 % -
\catcode44=\the\catcode44 % ,
\catcode35=\the\catcode35 % #
- \catcode64=\the\catcode64 % @
+ \catcode95=\the\catcode95 % _
\catcode125=\the\catcode125 % }
\catcode123=\the\catcode123 % {
\endlinechar=\the\endlinechar
@@ -139,13 +139,14 @@
\catcode61=\the\catcode61\relax % =
\noexpand\endinput
}%
- \XINT@setcatcodes
+ \XINT_setcatcodes
\catcode91=12 % [
\catcode93=12 % ]
\catcode94=7 % ^
}%
\x
\begingroup
+ \catcode64=11 % @
\catcode58=12 % :
\expandafter\ifx\csname ProvidesPackage\endcsname\relax
\def\x#1#2#3[#4]{\endgroup
@@ -165,745 +166,750 @@
\fi
\expandafter\x\csname ver@xintfrac.sty\endcsname
\ProvidesPackage{xintfrac}%
- [2013/05/09 v1.06a Expandable operations on fractions (jfB)]%
+ [2013/05/14 v1.06b Expandable operations on fractions (jfB)]%
\def\xintLen {\romannumeral0\xintlen }%
\def\xintlen #1%
{%
- \expandafter\XINT@flen\romannumeral0\XINT@infrac {#1}%
+ \expandafter\XINT_flen\romannumeral0\XINT_infrac {#1}%
}%
-\def\XINT@flen #1#2#3%
+\def\XINT_flen #1#2#3%
{%
\expandafter\space
- \the\numexpr -1+\XINT@Abs {#1}+\XINT@Len {#2}+\XINT@Len {#3}\relax
+ \the\numexpr -1+\XINT_Abs {#1}+\XINT_Len {#2}+\XINT_Len {#3}\relax
}%
-\def\XINT@outfrac #1#2#3%
+\def\XINT_outfrac #1#2#3%
{%
- \ifcase\XINT@Sgn{#3}
- \expandafter \XINT@outfrac@divisionbyzero
+ \ifcase\XINT_Sgn{#3}
+ \expandafter \XINT_outfrac_divisionbyzero
\or
- \expandafter \XINT@outfrac@P
+ \expandafter \XINT_outfrac_P
\else
- \expandafter \XINT@outfrac@N
+ \expandafter \XINT_outfrac_N
\fi
{#2}{#3}[#1]%
}%
-\def\XINT@outfrac@divisionbyzero #1#2{\xintError:DivisionByZero\space #1/0}%
-\def\XINT@outfrac@P #1#2%
+\def\XINT_outfrac_divisionbyzero #1#2{\xintError:DivisionByZero\space #1/0}%
+\def\XINT_outfrac_P #1#2%
{%
- \ifcase\XINT@Sgn{#1}
- \expandafter\XINT@outfrac@Zero
+ \ifcase\XINT_Sgn{#1}
+ \expandafter\XINT_outfrac_Zero
\fi
\space #1/#2%
}%
-\def\XINT@outfrac@Zero #1[#2]{ 0/1[0]}%
-\def\XINT@outfrac@N #1#2%
+\def\XINT_outfrac_Zero #1[#2]{ 0/1[0]}%
+\def\XINT_outfrac_N #1#2%
{%
- \expandafter\XINT@outfrac@N@a\expandafter
- {\romannumeral0\XINT@opp #2}{\romannumeral0\XINT@opp #1}%
+ \expandafter\XINT_outfrac_N_a\expandafter
+ {\romannumeral0\XINT_opp #2}{\romannumeral0\XINT_opp #1}%
}%
-\def\XINT@outfrac@N@a #1#2%
+\def\XINT_outfrac_N_a #1#2%
{%
- \expandafter\XINT@outfrac@P\expandafter {#2}{#1}%
+ \expandafter\XINT_outfrac_P\expandafter {#2}{#1}%
}%
-\def\XINT@inFrac {\romannumeral0\XINT@infrac }%
-\def\XINT@infrac #1%
+\def\XINT_inFrac {\romannumeral0\XINT_infrac }%
+\def\XINT_infrac #1%
{%
- \expandafter\XINT@infrac@ \romannumeral-`0#1[\W]\Z\T
+ \expandafter\XINT_infrac_ \romannumeral-`0#1[\W]\Z\T
}%
-\def\XINT@infrac@ #1[#2#3]#4\Z
+\def\XINT_infrac_ #1[#2#3]#4\Z
{%
- \xint@UDwfork
- #2\dummy \XINT@infrac@A
- \W\dummy \XINT@infrac@B
- \xint@UDkrof
+ \xint_UDwfork
+ #2\dummy \XINT_infrac_A
+ \W\dummy \XINT_infrac_B
+ \krof
#1[#2#3]#4%
}%
-\def\XINT@infrac@A #1[\W]\T
+\def\XINT_infrac_A #1[\W]\T
{%
- \XINT@frac #1/\W\Z
+ \XINT_frac #1/\W\Z
}%
-\def\XINT@infrac@B #1%
+\def\XINT_infrac_B #1%
{%
- \xint@zero #1\XINT@infrac@Zero0\XINT@infrac@BB #1%
+ \xint_gob_til_zero #1\XINT_infrac_Zero0\XINT_infrac_BB #1%
}%
-\def\XINT@infrac@BB #1[\W]\T {\XINT@infrac@BC #1/\W\Z }%
-\def\XINT@infrac@BC #1/#2#3\Z
+\def\XINT_infrac_BB #1[\W]\T {\XINT_infrac_BC #1/\W\Z }%
+\def\XINT_infrac_BC #1/#2#3\Z
{%
- \xint@UDwfork
- #2\dummy \XINT@infrac@BCa
- \W\dummy {\expandafter\XINT@infrac@BCb \romannumeral-`0#2}%
- \xint@UDkrof
+ \xint_UDwfork
+ #2\dummy \XINT_infrac_BCa
+ \W\dummy {\expandafter\XINT_infrac_BCb \romannumeral-`0#2}%
+ \krof
#3\Z #1\Z
}%
-\def\XINT@infrac@BCa \Z #1[#2]#3\Z { {#2}{#1}{1}}%
-\def\XINT@infrac@BCb #1[#2]/\W\Z #3\Z { {#2}{#3}{#1}}%
-\def\XINT@infrac@Zero #1\T { {0}{0}{1}}%
-\def\XINT@frac #1/#2#3\Z
+\def\XINT_infrac_BCa \Z #1[#2]#3\Z { {#2}{#1}{1}}%
+\def\XINT_infrac_BCb #1[#2]/\W\Z #3\Z { {#2}{#3}{#1}}%
+\def\XINT_infrac_Zero #1\T { {0}{0}{1}}%
+\def\XINT_frac #1/#2#3\Z
{%
- \xint@UDwfork
- #2\dummy \XINT@frac@A
- \W\dummy {\expandafter\XINT@frac@B \romannumeral-`0#2}%
- \xint@UDkrof
+ \xint_UDwfork
+ #2\dummy \XINT_frac_A
+ \W\dummy {\expandafter\XINT_frac_B \romannumeral-`0#2}%
+ \krof
#3.\W\Z #1.\W\Z
}%
-\def\XINT@frac@B #1.#2#3\Z
+\def\XINT_frac_B #1.#2#3\Z
{%
- \xint@UDwfork
- #2\dummy \XINT@frac@Ba
- \W\dummy {\XINT@frac@Bb #2}%
- \xint@UDkrof
+ \xint_UDwfork
+ #2\dummy \XINT_frac_Ba
+ \W\dummy {\XINT_frac_Bb #2}%
+ \krof
#3\Z #1\Z
}%
-\def\XINT@frac@Bb #1/\W.\W\Z #2\Z
+\def\XINT_frac_Bb #1/\W.\W\Z #2\Z
{%
- \expandafter \XINT@frac@C \expandafter
- {\romannumeral0\XINT@length {#1}}{#2#1}%
+ \expandafter \XINT_frac_C \expandafter
+ {\romannumeral0\XINT_length {#1}}{#2#1}%
}%
-\def\XINT@frac@Ba \Z #1/\W\Z {\XINT@frac@C {0}{#1}}%
-\def\XINT@frac@A .\W\Z {\XINT@frac@C {0}{1}}%
-\def\XINT@frac@C #1#2#3.#4#5\Z
+\def\XINT_frac_Ba \Z #1/\W\Z {\XINT_frac_C {0}{#1}}%
+\def\XINT_frac_A .\W\Z {\XINT_frac_C {0}{1}}%
+\def\XINT_frac_C #1#2#3.#4#5\Z
{%
- \xint@UDwfork
- #4\dummy \XINT@frac@Ca
- \W\dummy {\XINT@frac@Cb #4}%
- \xint@UDkrof
+ \xint_UDwfork
+ #4\dummy \XINT_frac_Ca
+ \W\dummy {\XINT_frac_Cb #4}%
+ \krof
#5\Z #3\Z {#1}{#2}%
}%
-\def\XINT@frac@Ca \Z #1\Z {\XINT@frac@D {0}{#1}}%
-\def\XINT@frac@Cb #1.\W\Z #2\Z
+\def\XINT_frac_Ca \Z #1\Z {\XINT_frac_D {0}{#1}}%
+\def\XINT_frac_Cb #1.\W\Z #2\Z
{%
- \expandafter\XINT@frac@D\expandafter
- {\romannumeral0\XINT@length {#1}}{#2#1}%
+ \expandafter\XINT_frac_D\expandafter
+ {\romannumeral0\XINT_length {#1}}{#2#1}%
}%
-\def\XINT@frac@D #1#2#3#4%
+\def\XINT_frac_D #1#2#3#4%
{%
- \expandafter \XINT@frac@E \expandafter
+ \expandafter \XINT_frac_E \expandafter
{\the\numexpr -#1+#3\expandafter}\expandafter
- {\romannumeral0\XINT@num@loop #2\R\R\R\R\R\R\R\R\Z }%
- {\romannumeral0\XINT@num@loop #4\R\R\R\R\R\R\R\R\Z }%
+ {\romannumeral0\XINT_num_loop #2%
+ \xint_relax\xint_relax\xint_relax\xint_relax
+ \xint_relax\xint_relax\xint_relax\xint_relax\Z }%
+ {\romannumeral0\XINT_num_loop #4%
+ \xint_relax\xint_relax\xint_relax\xint_relax
+ \xint_relax\xint_relax\xint_relax\xint_relax\Z }%
}%
-\def\XINT@frac@E #1#2#3%
+\def\XINT_frac_E #1#2#3%
{%
- \expandafter \XINT@frac@F #3\Z {#2}{#1}%
+ \expandafter \XINT_frac_F #3\Z {#2}{#1}%
}%
-\def\XINT@frac@F #1%
+\def\XINT_frac_F #1%
{%
- \xint@UDzerominusfork
- #1-\dummy \XINT@frac@Gdivisionbyzero
- 0#1\dummy \XINT@frac@Gneg
- 0-\dummy {\XINT@frac@Gpos #1}%
- \xint@UDkrof
+ \xint_UDzerominusfork
+ #1-\dummy \XINT_frac_Gdivisionbyzero
+ 0#1\dummy \XINT_frac_Gneg
+ 0-\dummy {\XINT_frac_Gpos #1}%
+ \krof
}%
-\def\XINT@frac@Gdivisionbyzero #1\Z #2#3%
+\def\XINT_frac_Gdivisionbyzero #1\Z #2#3%
{%
\xintError:DivisionByZero\space {0}{#2}{0}%
}%
-\def\XINT@frac@Gneg #1\Z #2#3%
+\def\XINT_frac_Gneg #1\Z #2#3%
{%
- \expandafter\XINT@frac@H \expandafter{\romannumeral0\XINT@opp #2}{#3}{#1}%
+ \expandafter\XINT_frac_H \expandafter{\romannumeral0\XINT_opp #2}{#3}{#1}%
}%
-\def\XINT@frac@H #1#2{ {#2}{#1}}%
-\def\XINT@frac@Gpos #1\Z #2#3{ {#3}{#2}{#1}}%
-\def\XINT@factortens #1%
+\def\XINT_frac_H #1#2{ {#2}{#1}}%
+\def\XINT_frac_Gpos #1\Z #2#3{ {#3}{#2}{#1}}%
+\def\XINT_factortens #1%
{%
- \expandafter\XINT@cuz@cnt@loop\expandafter
- {\expandafter}\romannumeral0\XINT@rord@main {}#1%
- \xint@UNDEF
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@UNDEF
+ \expandafter\XINT_cuz_cnt_loop\expandafter
+ {\expandafter}\romannumeral0\XINT_rord_main {}#1%
+ \xint_relax
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_relax
\R\R\R\R\R\R\R\R\Z
}%
-\def\XINT@cuz@cnt #1%
+\def\XINT_cuz_cnt #1%
{%
- \XINT@cuz@cnt@loop {}#1\R\R\R\R\R\R\R\R\Z
+ \XINT_cuz_cnt_loop {}#1\R\R\R\R\R\R\R\R\Z
}%
-\def\XINT@cuz@cnt@loop #1#2#3#4#5#6#7#8#9%
+\def\XINT_cuz_cnt_loop #1#2#3#4#5#6#7#8#9%
{%
- \xint@r #9\XINT@cuz@cnt@toofara \R
- \expandafter\XINT@cuz@cnt@checka\expandafter
+ \xint_gob_til_r #9\XINT_cuz_cnt_toofara \R
+ \expandafter\XINT_cuz_cnt_checka\expandafter
{\the\numexpr #1+8\relax}{#2#3#4#5#6#7#8#9}%
}%
-\def\XINT@cuz@cnt@toofara\R
- \expandafter\XINT@cuz@cnt@checka\expandafter #1#2%
+\def\XINT_cuz_cnt_toofara\R
+ \expandafter\XINT_cuz_cnt_checka\expandafter #1#2%
{%
- \XINT@cuz@cnt@toofarb {#1}#2%
+ \XINT_cuz_cnt_toofarb {#1}#2%
}%
-\def\XINT@cuz@cnt@toofarb #1#2\Z {\XINT@cuz@cnt@toofarc #2\Z {#1}}%
-\def\XINT@cuz@cnt@toofarc #1#2#3#4#5#6#7#8%
+\def\XINT_cuz_cnt_toofarb #1#2\Z {\XINT_cuz_cnt_toofarc #2\Z {#1}}%
+\def\XINT_cuz_cnt_toofarc #1#2#3#4#5#6#7#8%
{%
- \xint@r #2\XINT@cuz@cnt@toofard 7%
- #3\XINT@cuz@cnt@toofard 6%
- #4\XINT@cuz@cnt@toofard 5%
- #5\XINT@cuz@cnt@toofard 4%
- #6\XINT@cuz@cnt@toofard 3%
- #7\XINT@cuz@cnt@toofard 2%
- #8\XINT@cuz@cnt@toofard 1%
+ \xint_gob_til_r #2\XINT_cuz_cnt_toofard 7%
+ #3\XINT_cuz_cnt_toofard 6%
+ #4\XINT_cuz_cnt_toofard 5%
+ #5\XINT_cuz_cnt_toofard 4%
+ #6\XINT_cuz_cnt_toofard 3%
+ #7\XINT_cuz_cnt_toofard 2%
+ #8\XINT_cuz_cnt_toofard 1%
\Z #1#2#3#4#5#6#7#8%
}%
-\def\XINT@cuz@cnt@toofard #1#2\Z #3\R #4\Z #5%
+\def\XINT_cuz_cnt_toofard #1#2\Z #3\R #4\Z #5%
{%
- \expandafter\XINT@cuz@cnt@toofare
+ \expandafter\XINT_cuz_cnt_toofare
\the\numexpr #3\relax \R\R\R\R\R\R\R\R\Z
{\the\numexpr #5-#1\relax}\R\Z
}%
-\def\XINT@cuz@cnt@toofare #1#2#3#4#5#6#7#8%
+\def\XINT_cuz_cnt_toofare #1#2#3#4#5#6#7#8%
{%
- \xint@r #2\XINT@cuz@cnt@stopc 1%
- #3\XINT@cuz@cnt@stopc 2%
- #4\XINT@cuz@cnt@stopc 3%
- #5\XINT@cuz@cnt@stopc 4%
- #6\XINT@cuz@cnt@stopc 5%
- #7\XINT@cuz@cnt@stopc 6%
- #8\XINT@cuz@cnt@stopc 7%
+ \xint_gob_til_r #2\XINT_cuz_cnt_stopc 1%
+ #3\XINT_cuz_cnt_stopc 2%
+ #4\XINT_cuz_cnt_stopc 3%
+ #5\XINT_cuz_cnt_stopc 4%
+ #6\XINT_cuz_cnt_stopc 5%
+ #7\XINT_cuz_cnt_stopc 6%
+ #8\XINT_cuz_cnt_stopc 7%
\Z #1#2#3#4#5#6#7#8%
}%
-\def\XINT@cuz@cnt@checka #1#2%
+\def\XINT_cuz_cnt_checka #1#2%
{%
- \expandafter\XINT@cuz@cnt@checkb\the\numexpr #2\relax \Z {#1}%
+ \expandafter\XINT_cuz_cnt_checkb\the\numexpr #2\relax \Z {#1}%
}%
-\def\XINT@cuz@cnt@checkb #1%
+\def\XINT_cuz_cnt_checkb #1%
{%
- \xint@zero #1\expandafter\XINT@cuz@cnt@loop\xint@z
- 0\XINT@cuz@cnt@stopa #1%
+ \xint_gob_til_zero #1\expandafter\XINT_cuz_cnt_loop\xint_gob_til_z
+ 0\XINT_cuz_cnt_stopa #1%
}%
-\def\XINT@cuz@cnt@stopa #1\Z
+\def\XINT_cuz_cnt_stopa #1\Z
{%
- \XINT@cuz@cnt@stopb #1\R\R\R\R\R\R\R\R\Z %
+ \XINT_cuz_cnt_stopb #1\R\R\R\R\R\R\R\R\Z %
}%
-\def\XINT@cuz@cnt@stopb #1#2#3#4#5#6#7#8#9%
+\def\XINT_cuz_cnt_stopb #1#2#3#4#5#6#7#8#9%
{%
- \xint@r #2\XINT@cuz@cnt@stopc 1%
- #3\XINT@cuz@cnt@stopc 2%
- #4\XINT@cuz@cnt@stopc 3%
- #5\XINT@cuz@cnt@stopc 4%
- #6\XINT@cuz@cnt@stopc 5%
- #7\XINT@cuz@cnt@stopc 6%
- #8\XINT@cuz@cnt@stopc 7%
- #9\XINT@cuz@cnt@stopc 8%
+ \xint_gob_til_r #2\XINT_cuz_cnt_stopc 1%
+ #3\XINT_cuz_cnt_stopc 2%
+ #4\XINT_cuz_cnt_stopc 3%
+ #5\XINT_cuz_cnt_stopc 4%
+ #6\XINT_cuz_cnt_stopc 5%
+ #7\XINT_cuz_cnt_stopc 6%
+ #8\XINT_cuz_cnt_stopc 7%
+ #9\XINT_cuz_cnt_stopc 8%
\Z #1#2#3#4#5#6#7#8#9%
}%
-\def\XINT@cuz@cnt@stopc #1#2\Z #3\R #4\Z #5%
+\def\XINT_cuz_cnt_stopc #1#2\Z #3\R #4\Z #5%
{%
- \expandafter\XINT@cuz@cnt@stopd\expandafter
+ \expandafter\XINT_cuz_cnt_stopd\expandafter
{\the\numexpr #5-#1}#3%
}%
-\def\XINT@cuz@cnt@stopd #1#2\R #3\Z
+\def\XINT_cuz_cnt_stopd #1#2\R #3\Z
{%
\expandafter\space\expandafter
- {\romannumeral0\XINT@rord@main {}#2%
- \xint@UNDEF
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@UNDEF }{#1}%
+ {\romannumeral0\XINT_rord_main {}#2%
+ \xint_relax
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_relax }{#1}%
}%
\def\xintRaw {\romannumeral0\xintraw }%
\def\xintraw
{%
- \expandafter\XINT@raw\romannumeral0\XINT@infrac
+ \expandafter\XINT_raw\romannumeral0\XINT_infrac
}%
-\def\XINT@raw #1%
+\def\XINT_raw #1%
{%
- \ifcase\XINT@Sgn {#1}
- \expandafter\XINT@raw@Ba
+ \ifcase\XINT_Sgn {#1}
+ \expandafter\XINT_raw_Ba
\or
- \expandafter\XINT@raw@A
+ \expandafter\XINT_raw_A
\else
- \expandafter\XINT@raw@Ba
+ \expandafter\XINT_raw_Ba
\fi
{#1}%
}%
-\def\XINT@raw@A #1#2#3{\xint@dsh {#2}{-#1}/#3}%
-\def\XINT@raw@Ba #1#2#3{\expandafter\XINT@raw@Bb
- \expandafter{\romannumeral0\xint@dsh {#3}{#1}}{#2}}%
-\def\XINT@raw@Bb #1#2{ #2/#1}%
+\def\XINT_raw_A #1#2#3{\xint_dsh {#2}{-#1}/#3}%
+\def\XINT_raw_Ba #1#2#3{\expandafter\XINT_raw_Bb
+ \expandafter{\romannumeral0\xint_dsh {#3}{#1}}{#2}}%
+\def\XINT_raw_Bb #1#2{ #2/#1}%
\def\xintNumerator {\romannumeral0\xintnumerator }%
\def\xintnumerator
{%
- \expandafter\XINT@numer\romannumeral0\XINT@infrac
+ \expandafter\XINT_numer\romannumeral0\XINT_infrac
}%
-\def\XINT@numer #1%
+\def\XINT_numer #1%
{%
- \ifcase\XINT@Sgn {#1}
- \expandafter\XINT@numer@B
+ \ifcase\XINT_Sgn {#1}
+ \expandafter\XINT_numer_B
\or
- \expandafter\XINT@numer@A
+ \expandafter\XINT_numer_A
\else
- \expandafter\XINT@numer@B
+ \expandafter\XINT_numer_B
\fi
{#1}%
}%
-\def\XINT@numer@A #1#2#3{\xint@dsh {#2}{-#1}}%
-\def\XINT@numer@B #1#2#3{ #2}%
+\def\XINT_numer_A #1#2#3{\xint_dsh {#2}{-#1}}%
+\def\XINT_numer_B #1#2#3{ #2}%
\def\xintDenominator {\romannumeral0\xintdenominator }%
\def\xintdenominator
{%
- \expandafter\XINT@denom\romannumeral0\XINT@infrac
+ \expandafter\XINT_denom\romannumeral0\XINT_infrac
}%
-\def\XINT@denom #1%
+\def\XINT_denom #1%
{%
- \ifcase\XINT@Sgn {#1}
- \expandafter\XINT@denom@B
+ \ifcase\XINT_Sgn {#1}
+ \expandafter\XINT_denom_B
\or
- \expandafter\XINT@denom@A
+ \expandafter\XINT_denom_A
\else
- \expandafter\XINT@denom@B
+ \expandafter\XINT_denom_B
\fi
{#1}%
}%
-\def\XINT@denom@A #1#2#3{ #3}%
-\def\XINT@denom@B #1#2#3{\xint@dsh {#3}{#1}}%
+\def\XINT_denom_A #1#2#3{ #3}%
+\def\XINT_denom_B #1#2#3{\xint_dsh {#3}{#1}}%
\def\xintFrac {\romannumeral0\xintfrac }%
\def\xintfrac #1%
{%
- \expandafter\XINT@@frac@A\romannumeral0\XINT@infrac {#1}%
+ \expandafter\XINT__frac_A\romannumeral0\XINT_infrac {#1}%
}%
-\def\XINT@@frac@A #1{\XINT@@frac@B #1\Z }%
-\def\XINT@@frac@B #1#2\Z
+\def\XINT__frac_A #1{\XINT__frac_B #1\Z }%
+\def\XINT__frac_B #1#2\Z
{%
- \xint@zero #1\XINT@@frac@C 0\XINT@@frac@D {10^{#1#2}}%
+ \xint_gob_til_zero #1\XINT__frac_C 0\XINT__frac_D {10^{#1#2}}%
}%
-\def\XINT@@frac@C #1#2#3#4#5%
+\def\XINT__frac_C #1#2#3#4#5%
{%
- \ifcase\XINT@isOne {#5}
- \or \xint@afterfi {\expandafter\xint@firstoftwo@andstop\xint@gobble@ii }%
+ \ifcase\XINT_isOne {#5}
+ \or \xint_afterfi {\expandafter\xint_firstoftwo_andstop\xint_gobble_ii }%
\fi
\space
\frac {#4}{#5}%
}%
-\def\XINT@@frac@D #1#2#3%
+\def\XINT__frac_D #1#2#3%
{%
- \ifcase\XINT@isOne {#3}
- \or \XINT@@frac@E
+ \ifcase\XINT_isOne {#3}
+ \or \XINT__frac_E
\fi
\space
\frac {#2}{#3}#1%
}%
-\def\XINT@@frac@E \fi #1#2#3#4{\fi \space #3\cdot }%
+\def\XINT__frac_E \fi #1#2#3#4{\fi \space #3\cdot }%
\def\xintSignedFrac {\romannumeral0\xintsignedfrac }%
\def\xintsignedfrac #1%
{%
- \expandafter\XINT@sgnfrac@a\romannumeral0\XINT@infrac {#1}%
+ \expandafter\XINT_sgnfrac_a\romannumeral0\XINT_infrac {#1}%
}%
-\def\XINT@sgnfrac@a #1#2%
+\def\XINT_sgnfrac_a #1#2%
{%
- \XINT@sgnfrac@b #2\Z {#1}%
+ \XINT_sgnfrac_b #2\Z {#1}%
}%
-\def\XINT@sgnfrac@b #1%
+\def\XINT_sgnfrac_b #1%
{%
- \xint@UDsignfork
- #1\dummy \XINT@sgnfrac@N
- -\dummy {\XINT@sgnfrac@P #1}%
- \xint@UDkrof
+ \xint_UDsignfork
+ #1\dummy \XINT_sgnfrac_N
+ -\dummy {\XINT_sgnfrac_P #1}%
+ \krof
}%
-\def\XINT@sgnfrac@P #1\Z #2%
+\def\XINT_sgnfrac_P #1\Z #2%
{%
- \XINT@@frac@A {#2}{#1}%
+ \XINT__frac_A {#2}{#1}%
}%
-\def\XINT@sgnfrac@N
+\def\XINT_sgnfrac_N
{%
- \expandafter\xint@minus@andstop\romannumeral0\XINT@sgnfrac@P
+ \expandafter\xint_minus_andstop\romannumeral0\XINT_sgnfrac_P
}%
\def\xintFwOver {\romannumeral0\xintfwover }%
\def\xintfwover #1%
{%
- \expandafter\XINT@fwover@A\romannumeral0\XINT@infrac {#1}%
+ \expandafter\XINT_fwover_A\romannumeral0\XINT_infrac {#1}%
}%
-\def\XINT@fwover@A #1{\XINT@fwover@B #1\Z }%
-\def\XINT@fwover@B #1#2\Z
+\def\XINT_fwover_A #1{\XINT_fwover_B #1\Z }%
+\def\XINT_fwover_B #1#2\Z
{%
- \xint@zero #1\XINT@fwover@C 0\XINT@fwover@D {10^{#1#2}}%
+ \xint_gob_til_zero #1\XINT_fwover_C 0\XINT_fwover_D {10^{#1#2}}%
}%
-\def\XINT@fwover@C #1#2#3#4#5%
+\def\XINT_fwover_C #1#2#3#4#5%
{%
- \ifcase\XINT@isOne {#5}
- \xint@afterfi { {#4\over #5}}%
+ \ifcase\XINT_isOne {#5}
+ \xint_afterfi { {#4\over #5}}%
\or
- \xint@afterfi { #4}%
+ \xint_afterfi { #4}%
\fi
}%
-\def\XINT@fwover@D #1#2#3%
+\def\XINT_fwover_D #1#2#3%
{%
- \ifcase\XINT@isOne {#3}
- \xint@afterfi { {#2\over #3}}%
+ \ifcase\XINT_isOne {#3}
+ \xint_afterfi { {#2\over #3}}%
\or
- \xint@afterfi { #2\cdot }%
+ \xint_afterfi { #2\cdot }%
\fi
#1%
}%
\def\xintSignedFwOver {\romannumeral0\xintsignedfwover }%
\def\xintsignedfwover #1%
{%
- \expandafter\XINT@sgnfwover@a\romannumeral0\XINT@infrac {#1}%
+ \expandafter\XINT_sgnfwover_a\romannumeral0\XINT_infrac {#1}%
}%
-\def\XINT@sgnfwover@a #1#2%
+\def\XINT_sgnfwover_a #1#2%
{%
- \XINT@sgnfwover@b #2\Z {#1}%
+ \XINT_sgnfwover_b #2\Z {#1}%
}%
-\def\XINT@sgnfwover@b #1%
+\def\XINT_sgnfwover_b #1%
{%
- \xint@UDsignfork
- #1\dummy \XINT@sgnfwover@N
- -\dummy {\XINT@sgnfwover@P #1}%
- \xint@UDkrof
+ \xint_UDsignfork
+ #1\dummy \XINT_sgnfwover_N
+ -\dummy {\XINT_sgnfwover_P #1}%
+ \krof
}%
-\def\XINT@sgnfwover@P #1\Z #2%
+\def\XINT_sgnfwover_P #1\Z #2%
{%
- \XINT@fwover@A {#2}{#1}%
+ \XINT_fwover_A {#2}{#1}%
}%
-\def\XINT@sgnfwover@N
+\def\XINT_sgnfwover_N
{%
- \expandafter\xint@minus@andstop\romannumeral0\XINT@sgnfwover@P
+ \expandafter\xint_minus_andstop\romannumeral0\XINT_sgnfwover_P
}%
\def\xintREZ {\romannumeral0\xintrez }%
\def\xintrez
{%
- \expandafter\XINT@rez@A\romannumeral0\XINT@infrac
+ \expandafter\XINT_rez_A\romannumeral0\XINT_infrac
}%
-\def\XINT@rez@A #1#2%
+\def\XINT_rez_A #1#2%
{%
- \XINT@rez@AB #2\Z {#1}%
+ \XINT_rez_AB #2\Z {#1}%
}%
-\def\XINT@rez@AB #1%
+\def\XINT_rez_AB #1%
{%
- \xint@UDzerominusfork
- #1-\dummy \XINT@rez@zero
- 0#1\dummy \XINT@rez@neg
- 0-\dummy {\XINT@rez@B #1}%
- \xint@UDkrof
+ \xint_UDzerominusfork
+ #1-\dummy \XINT_rez_zero
+ 0#1\dummy \XINT_rez_neg
+ 0-\dummy {\XINT_rez_B #1}%
+ \krof
}%
-\def\XINT@rez@zero #1\Z #2#3{ 0/1[0]}%
-\def\XINT@rez@neg {\expandafter\xint@minus@andstop\romannumeral0\XINT@rez@B }%
-\def\XINT@rez@B #1\Z
+\def\XINT_rez_zero #1\Z #2#3{ 0/1[0]}%
+\def\XINT_rez_neg {\expandafter\xint_minus_andstop\romannumeral0\XINT_rez_B }%
+\def\XINT_rez_B #1\Z
{%
- \expandafter\XINT@rez@C\romannumeral0\XINT@factortens {#1}%
+ \expandafter\XINT_rez_C\romannumeral0\XINT_factortens {#1}%
}%
-\def\XINT@rez@C #1#2#3#4%
+\def\XINT_rez_C #1#2#3#4%
{%
- \expandafter\XINT@rez@D\romannumeral0\XINT@factortens {#4}{#3}{#2}{#1}%
+ \expandafter\XINT_rez_D\romannumeral0\XINT_factortens {#4}{#3}{#2}{#1}%
}%
-\def\XINT@rez@D #1#2#3#4#5%
+\def\XINT_rez_D #1#2#3#4#5%
{%
- \expandafter\XINT@rez@E\expandafter
+ \expandafter\XINT_rez_E\expandafter
{\the\numexpr #3+#4-#2}{#1}{#5}%
}%
-\def\XINT@rez@E #1#2#3{ #3/#2[#1]}%
+\def\XINT_rez_E #1#2#3{ #3/#2[#1]}%
\def\xintIrr {\romannumeral0\xintirr }%
\def\xintirr #1%
{%
- \expandafter\XINT@irr@start\romannumeral0\xintraw {#1}\Z
+ \expandafter\XINT_irr_start\romannumeral0\xintraw {#1}\Z
}%
-\def\XINT@irr@start #1#2/#3\Z
+\def\XINT_irr_start #1#2/#3\Z
{%
- \ifcase\XINT@isOne {#3}
- \xint@afterfi
- {\xint@UDsignfork
- #1\dummy \XINT@irr@negative
- -\dummy {\XINT@irr@nonneg #1}%
- \xint@UDkrof}%
+ \ifcase\XINT_isOne {#3}
+ \xint_afterfi
+ {\xint_UDsignfork
+ #1\dummy \XINT_irr_negative
+ -\dummy {\XINT_irr_nonneg #1}%
+ \krof}%
\or
- \xint@afterfi{\XINT@irr@denomisone #1}%
+ \xint_afterfi{\XINT_irr_denomisone #1}%
\fi
#2\Z {#3}%
}%
-\def\XINT@irr@denomisone #1\Z #2{ #1}%
-\def\XINT@irr@negative #1\Z #2{\XINT@irr@D #1\Z #2\Z \xint@minus@andstop}%
-\def\XINT@irr@nonneg #1\Z #2{\XINT@irr@D #1\Z #2\Z \space}%
-\def\XINT@irr@D #1#2\Z #3#4\Z
-{%
- \xint@UDzerosfork
- #3#1\dummy \XINT@irr@indeterminate
- #30\dummy \XINT@irr@divisionbyzero
- #10\dummy \XINT@irr@zero
- 00\dummy \XINT@irr@loop@a
- \xint@UDkrof
+\def\XINT_irr_denomisone #1\Z #2{ #1}%
+\def\XINT_irr_negative #1\Z #2{\XINT_irr_D #1\Z #2\Z \xint_minus_andstop}%
+\def\XINT_irr_nonneg #1\Z #2{\XINT_irr_D #1\Z #2\Z \space}%
+\def\XINT_irr_D #1#2\Z #3#4\Z
+{%
+ \xint_UDzerosfork
+ #3#1\dummy \XINT_irr_indeterminate
+ #30\dummy \XINT_irr_divisionbyzero
+ #10\dummy \XINT_irr_zero
+ 00\dummy \XINT_irr_loop_a
+ \krof
{#3#4}{#1#2}{#3#4}{#1#2}%
}%
-\def\XINT@irr@indeterminate #1#2#3#4#5{\xintError:NaN\space 0/0}%
-\def\XINT@irr@divisionbyzero #1#2#3#4#5{\xintError:DivisionByZero #5#2/0}%
-\def\XINT@irr@zero #1#2#3#4#5{ 0}%
-\def\XINT@irr@loop@a #1#2%
+\def\XINT_irr_indeterminate #1#2#3#4#5{\xintError:NaN\space 0/0}%
+\def\XINT_irr_divisionbyzero #1#2#3#4#5{\xintError:DivisionByZero #5#2/0}%
+\def\XINT_irr_zero #1#2#3#4#5{ 0}%
+\def\XINT_irr_loop_a #1#2%
{%
- \expandafter\XINT@irr@loop@d
- \romannumeral0\XINT@div@prepare {#1}{#2}{#1}%
+ \expandafter\XINT_irr_loop_d
+ \romannumeral0\XINT_div_prepare {#1}{#2}{#1}%
}%
-\def\XINT@irr@loop@d #1#2%
+\def\XINT_irr_loop_d #1#2%
{%
- \XINT@irr@loop@e #2\Z
+ \XINT_irr_loop_e #2\Z
}%
-\def\XINT@irr@loop@e #1#2\Z
+\def\XINT_irr_loop_e #1#2\Z
{%
- \xint@zero #1\xint@irr@loop@exit0\XINT@irr@loop@a {#1#2}%
+ \xint_gob_til_zero #1\xint_irr_loop_exit0\XINT_irr_loop_a {#1#2}%
}%
-\def\xint@irr@loop@exit0\XINT@irr@loop@a #1#2#3#4%
+\def\xint_irr_loop_exit0\XINT_irr_loop_a #1#2#3#4%
{%
- \expandafter\XINT@irr@loop@exitb\expandafter
+ \expandafter\XINT_irr_loop_exitb\expandafter
{\romannumeral0\xintiquo {#3}{#2}}%
{\romannumeral0\xintiquo {#4}{#2}}%
}%
-\def\XINT@irr@loop@exitb #1#2%
+\def\XINT_irr_loop_exitb #1#2%
{%
- \expandafter\XINT@irr@finish\expandafter {#2}{#1}%
+ \expandafter\XINT_irr_finish\expandafter {#2}{#1}%
}%
-\def\XINT@irr@finish #1#2#3%
+\def\XINT_irr_finish #1#2#3%
{%
- \ifcase\XINT@isOne {#2}
- \xint@afterfi {#3#1/#2}%
+ \ifcase\XINT_isOne {#2}
+ \xint_afterfi {#3#1/#2}%
\or
- \xint@afterfi {#3#1}%
+ \xint_afterfi {#3#1}%
\fi
}%
\def\xintNum {\romannumeral0\xintnum }%
-\def\xintnum #1{\expandafter\XINT@intcheck\romannumeral0\xintirr {#1}/\W\Z }%
-\def\XINT@intcheck #1/#2#3\Z
+\def\xintnum #1{\expandafter\XINT_intcheck\romannumeral0\xintirr {#1}/\W\Z }%
+\def\XINT_intcheck #1/#2#3\Z
{%
- \xint@w #2\xint@gobble@ii\W\xintError:NotAnInteger
+ \xint_gob_til_w #2\xint_gobble_ii\W
+ \xintError:NotAnInteger
\space #1%
}%
\def\xintJrr {\romannumeral0\xintjrr }%
\def\xintjrr #1%
{%
- \expandafter\XINT@jrr@start\romannumeral0\xintraw {#1}\Z
+ \expandafter\XINT_jrr_start\romannumeral0\xintraw {#1}\Z
}%
-\def\XINT@jrr@start #1#2/#3\Z
+\def\XINT_jrr_start #1#2/#3\Z
{%
- \ifcase\XINT@isOne {#3}
- \xint@afterfi
- {\xint@UDsignfork
- #1\dummy \XINT@jrr@negative
- -\dummy {\XINT@jrr@nonneg #1}%
- \xint@UDkrof}%
+ \ifcase\XINT_isOne {#3}
+ \xint_afterfi
+ {\xint_UDsignfork
+ #1\dummy \XINT_jrr_negative
+ -\dummy {\XINT_jrr_nonneg #1}%
+ \krof}%
\or
- \xint@afterfi{\XINT@jrr@denomisone #1}%
+ \xint_afterfi{\XINT_jrr_denomisone #1}%
\fi
#2\Z {#3}%
}%
-\def\XINT@jrr@denomisone #1\Z #2{ #1}%
-\def\XINT@jrr@negative #1\Z #2{\XINT@jrr@D #1\Z #2\Z \xint@minus@andstop }%
-\def\XINT@jrr@nonneg #1\Z #2{\XINT@jrr@D #1\Z #2\Z \space}%
-\def\XINT@jrr@D #1#2\Z #3#4\Z
-{%
- \xint@UDzerosfork
- #3#1\dummy \XINT@jrr@indeterminate
- #30\dummy \XINT@jrr@divisionbyzero
- #10\dummy \XINT@jrr@zero
- 00\dummy \XINT@jrr@loop@a
- \xint@UDkrof
+\def\XINT_jrr_denomisone #1\Z #2{ #1}%
+\def\XINT_jrr_negative #1\Z #2{\XINT_jrr_D #1\Z #2\Z \xint_minus_andstop }%
+\def\XINT_jrr_nonneg #1\Z #2{\XINT_jrr_D #1\Z #2\Z \space}%
+\def\XINT_jrr_D #1#2\Z #3#4\Z
+{%
+ \xint_UDzerosfork
+ #3#1\dummy \XINT_jrr_indeterminate
+ #30\dummy \XINT_jrr_divisionbyzero
+ #10\dummy \XINT_jrr_zero
+ 00\dummy \XINT_jrr_loop_a
+ \krof
{#3#4}{#1#2}1001%
}%
-\def\XINT@jrr@indeterminate #1#2#3#4#5#6#7{\xintError:NaN\space 0/0}%
-\def\XINT@jrr@divisionbyzero #1#2#3#4#5#6#7{\xintError:DivisionByZero #7#2/0}%
-\def\XINT@jrr@zero #1#2#3#4#5#6#7{ 0}%
-\def\XINT@jrr@loop@a #1#2%
+\def\XINT_jrr_indeterminate #1#2#3#4#5#6#7{\xintError:NaN\space 0/0}%
+\def\XINT_jrr_divisionbyzero #1#2#3#4#5#6#7{\xintError:DivisionByZero #7#2/0}%
+\def\XINT_jrr_zero #1#2#3#4#5#6#7{ 0}%
+\def\XINT_jrr_loop_a #1#2%
{%
- \expandafter\XINT@jrr@loop@b
- \romannumeral0\XINT@div@prepare {#1}{#2}{#1}%
+ \expandafter\XINT_jrr_loop_b
+ \romannumeral0\XINT_div_prepare {#1}{#2}{#1}%
}%
-\def\XINT@jrr@loop@b #1#2#3#4#5#6#7%
+\def\XINT_jrr_loop_b #1#2#3#4#5#6#7%
{%
- \expandafter \XINT@jrr@loop@c \expandafter
- {\romannumeral0\xintiadd{\XINT@Mul{#4}{#1}}{#6}}%
- {\romannumeral0\xintiadd{\XINT@Mul{#5}{#1}}{#7}}%
+ \expandafter \XINT_jrr_loop_c \expandafter
+ {\romannumeral0\xintiadd{\XINT_Mul{#4}{#1}}{#6}}%
+ {\romannumeral0\xintiadd{\XINT_Mul{#5}{#1}}{#7}}%
{#2}{#3}{#4}{#5}%
}%
-\def\XINT@jrr@loop@c #1#2%
+\def\XINT_jrr_loop_c #1#2%
{%
- \expandafter \XINT@jrr@loop@d \expandafter{#2}{#1}%
+ \expandafter \XINT_jrr_loop_d \expandafter{#2}{#1}%
}%
-\def\XINT@jrr@loop@d #1#2#3#4%
+\def\XINT_jrr_loop_d #1#2#3#4%
{%
- \XINT@jrr@loop@e #3\Z {#4}{#2}{#1}%
+ \XINT_jrr_loop_e #3\Z {#4}{#2}{#1}%
}%
-\def\XINT@jrr@loop@e #1#2\Z
+\def\XINT_jrr_loop_e #1#2\Z
{%
- \xint@zero #1\xint@jrr@loop@exit0\XINT@jrr@loop@a {#1#2}%
+ \xint_gob_til_zero #1\xint_jrr_loop_exit0\XINT_jrr_loop_a {#1#2}%
}%
-\def\xint@jrr@loop@exit0\XINT@jrr@loop@a #1#2#3#4#5#6%
+\def\xint_jrr_loop_exit0\XINT_jrr_loop_a #1#2#3#4#5#6%
{%
- \XINT@irr@finish {#3}{#4}%
+ \XINT_irr_finish {#3}{#4}%
}%
\def\xintTrunc {\romannumeral0\xinttrunc }%
\def\xintiTrunc {\romannumeral0\xintitrunc }%
\def\xinttrunc #1%
{%
- \expandafter\XINT@trunc\expandafter {\the\numexpr #1}%
+ \expandafter\XINT_trunc\expandafter {\the\numexpr #1}%
}%
-\def\XINT@trunc #1#2%
+\def\XINT_trunc #1#2%
{%
- \expandafter\XINT@trunc@G
- \romannumeral0\expandafter\XINT@trunc@A
- \romannumeral0\XINT@infrac {#2}{#1}{#1}%
+ \expandafter\XINT_trunc_G
+ \romannumeral0\expandafter\XINT_trunc_A
+ \romannumeral0\XINT_infrac {#2}{#1}{#1}%
}%
\def\xintitrunc #1%
{%
- \expandafter\XINT@itrunc\expandafter {\the\numexpr #1}%
+ \expandafter\XINT_itrunc\expandafter {\the\numexpr #1}%
}%
-\def\XINT@itrunc #1#2%
+\def\XINT_itrunc #1#2%
{%
- \expandafter\XINT@itrunc@G
- \romannumeral0\expandafter\XINT@trunc@A
- \romannumeral0\XINT@infrac {#2}{#1}{#1}%
+ \expandafter\XINT_itrunc_G
+ \romannumeral0\expandafter\XINT_trunc_A
+ \romannumeral0\XINT_infrac {#2}{#1}{#1}%
}%
-\def\XINT@trunc@A #1#2#3#4%
+\def\XINT_trunc_A #1#2#3#4%
{%
- \expandafter\XINT@trunc@checkifzero
+ \expandafter\XINT_trunc_checkifzero
\expandafter{\the\numexpr #1+#4}#2\Z {#3}%
}%
-\def\XINT@trunc@checkifzero #1#2#3\Z
+\def\XINT_trunc_checkifzero #1#2#3\Z
{%
- \xint@zero #2\XINT@trunc@iszero0\XINT@trunc@B {#1}{#2#3}%
+ \xint_gob_til_zero #2\XINT_trunc_iszero0\XINT_trunc_B {#1}{#2#3}%
}%
-\def\XINT@trunc@iszero #1#2#3#4#5{ 0\Z 0}%
-\def\XINT@trunc@B #1%
+\def\XINT_trunc_iszero #1#2#3#4#5{ 0\Z 0}%
+\def\XINT_trunc_B #1%
{%
- \ifcase\XINT@Sgn {#1}
- \expandafter\XINT@trunc@D
+ \ifcase\XINT_Sgn {#1}
+ \expandafter\XINT_trunc_D
\or
- \expandafter\XINT@trunc@D
+ \expandafter\XINT_trunc_D
\else
- \expandafter\XINT@trunc@C
+ \expandafter\XINT_trunc_C
\fi
{#1}%
}%
-\def\XINT@trunc@C #1#2#3%
+\def\XINT_trunc_C #1#2#3%
{%
- \expandafter \XINT@trunc@E
- \romannumeral0\xint@dsh {#3}{#1}\Z #2\Z
+ \expandafter \XINT_trunc_E
+ \romannumeral0\xint_dsh {#3}{#1}\Z #2\Z
}%
-\def\XINT@trunc@D #1#2%
+\def\XINT_trunc_D #1#2%
{%
- \expandafter \XINT@trunc@DE \expandafter
- {\romannumeral0\xint@dsh {#2}{-#1}}%
+ \expandafter \XINT_trunc_DE \expandafter
+ {\romannumeral0\xint_dsh {#2}{-#1}}%
}%
-\def\XINT@trunc@DE #1#2{\XINT@trunc@E #2\Z #1\Z }%
-\def\XINT@trunc@E #1#2\Z #3#4\Z
+\def\XINT_trunc_DE #1#2{\XINT_trunc_E #2\Z #1\Z }%
+\def\XINT_trunc_E #1#2\Z #3#4\Z
{%
- \xint@UDsignsfork
- #1#3\dummy \XINT@trunc@minusminus
- #1-\dummy {\XINT@trunc@minusplus #3}%
- #3-\dummy {\XINT@trunc@plusminus #1}%
- --\dummy {\XINT@trunc@plusplus #3#1}%
- \xint@UDkrof
+ \xint_UDsignsfork
+ #1#3\dummy \XINT_trunc_minusminus
+ #1-\dummy {\XINT_trunc_minusplus #3}%
+ #3-\dummy {\XINT_trunc_plusminus #1}%
+ --\dummy {\XINT_trunc_plusplus #3#1}%
+ \krof
{#4}{#2}%
}%
-\def\XINT@trunc@minusminus #1#2{\xintiquo {#1}{#2}\Z \space}%
-\def\XINT@trunc@minusplus #1#2#3{\xintiquo {#1#2}{#3}\Z \xint@minus@andstop}%
-\def\XINT@trunc@plusminus #1#2#3{\xintiquo {#2}{#1#3}\Z \xint@minus@andstop}%
-\def\XINT@trunc@plusplus #1#2#3#4{\xintiquo {#1#3}{#2#4}\Z \space}%
-\def\XINT@itrunc@G #1#2\Z #3#4%
+\def\XINT_trunc_minusminus #1#2{\xintiquo {#1}{#2}\Z \space}%
+\def\XINT_trunc_minusplus #1#2#3{\xintiquo {#1#2}{#3}\Z \xint_minus_andstop}%
+\def\XINT_trunc_plusminus #1#2#3{\xintiquo {#2}{#1#3}\Z \xint_minus_andstop}%
+\def\XINT_trunc_plusplus #1#2#3#4{\xintiquo {#1#3}{#2#4}\Z \space}%
+\def\XINT_itrunc_G #1#2\Z #3#4%
{%
- \xint@zero #1\XINT@trunc@zero 0\xint@firstoftwo {#3#1#2}0%
+ \xint_gob_til_zero #1\XINT_trunc_zero 0\xint_firstoftwo {#3#1#2}0%
}%
-\def\XINT@trunc@G #1\Z #2#3%
+\def\XINT_trunc_G #1\Z #2#3%
{%
- \xint@zero #2\XINT@trunc@zero 0%
- \expandafter\XINT@trunc@H\expandafter
- {\the\numexpr\romannumeral0\XINT@length {#1}-#3}{#3}{#1}#2%
+ \xint_gob_til_zero #2\XINT_trunc_zero 0%
+ \expandafter\XINT_trunc_H\expandafter
+ {\the\numexpr\romannumeral0\XINT_length {#1}-#3}{#3}{#1}#2%
}%
-\def\XINT@trunc@zero 0#10{ 0}%
-\def\XINT@trunc@H #1#2%
+\def\XINT_trunc_zero 0#10{ 0}%
+\def\XINT_trunc_H #1#2%
{%
\ifnum #1 > 0
- \xint@afterfi {\XINT@trunc@Ha {#2}}%
+ \xint_afterfi {\XINT_trunc_Ha {#2}}%
\else
- \xint@afterfi {\XINT@trunc@Hb {-#1}}% -0,--1,--2, ....
+ \xint_afterfi {\XINT_trunc_Hb {-#1}}% -0,--1,--2, ....
\fi
}%
-\def\XINT@trunc@Ha
+\def\XINT_trunc_Ha
{%
- \expandafter\XINT@trunc@Haa\romannumeral0\xintdecsplit
+ \expandafter\XINT_trunc_Haa\romannumeral0\xintdecsplit
}%
-\def\XINT@trunc@Haa #1#2#3%
+\def\XINT_trunc_Haa #1#2#3%
{%
#3#1.#2%
}%
-\def\XINT@trunc@Hb #1#2#3%
+\def\XINT_trunc_Hb #1#2#3%
{%
\expandafter #3\expandafter0\expandafter.%
- \romannumeral0\XINT@dsx@zeroloop {#1}\Z {}#2% #1=-0 possible!
+ \romannumeral0\XINT_dsx_zeroloop {#1}\Z {}#2% #1=-0 possible!
}%
\def\xintRound {\romannumeral0\xintround }%
\def\xintiRound {\romannumeral0\xintiround }%
\def\xintround #1%
{%
- \expandafter\XINT@round\expandafter {\the\numexpr #1}%
+ \expandafter\XINT_round\expandafter {\the\numexpr #1}%
}%
-\def\XINT@round
+\def\XINT_round
{%
- \expandafter\XINT@trunc@G\romannumeral0\XINT@round@A
+ \expandafter\XINT_trunc_G\romannumeral0\XINT_round_A
}%
\def\xintiround #1%
{%
- \expandafter\XINT@iround\expandafter {\the\numexpr #1}%
+ \expandafter\XINT_iround\expandafter {\the\numexpr #1}%
}%
-\def\XINT@iround
+\def\XINT_iround
{%
- \expandafter\XINT@itrunc@G\romannumeral0\XINT@round@A
+ \expandafter\XINT_itrunc_G\romannumeral0\XINT_round_A
}%
-\def\XINT@round@A #1#2%
+\def\XINT_round_A #1#2%
{%
- \expandafter\XINT@round@B
- \romannumeral0\expandafter\XINT@trunc@A
- \romannumeral0\XINT@infrac {#2}{\the\numexpr #1+1\relax}{#1}%
+ \expandafter\XINT_round_B
+ \romannumeral0\expandafter\XINT_trunc_A
+ \romannumeral0\XINT_infrac {#2}{\the\numexpr #1+1\relax}{#1}%
}%
-\def\XINT@round@B #1\Z
+\def\XINT_round_B #1\Z
{%
- \expandafter\XINT@round@C
- \romannumeral0\XINT@rord@main {}#1%
- \xint@UNDEF
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@UNDEF
+ \expandafter\XINT_round_C
+ \romannumeral0\XINT_rord_main {}#1%
+ \xint_relax
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_relax
\Z
}%
-\def\XINT@round@C #1%
+\def\XINT_round_C #1%
{%
\ifnum #1<5
- \expandafter\XINT@round@Daa
+ \expandafter\XINT_round_Daa
\else
- \expandafter\XINT@round@Dba
+ \expandafter\XINT_round_Dba
\fi
}%
-\def\XINT@round@Daa #1%
+\def\XINT_round_Daa #1%
{%
- \xint@z #1\XINT@round@Daz\Z \XINT@round@Da #1%
+ \xint_gob_til_z #1\XINT_round_Daz\Z \XINT_round_Da #1%
}%
-\def\XINT@round@Daz\Z \XINT@round@Da \Z { 0\Z }%
-\def\XINT@round@Da #1\Z
+\def\XINT_round_Daz\Z \XINT_round_Da \Z { 0\Z }%
+\def\XINT_round_Da #1\Z
{%
- \XINT@rord@main {}#1%
- \xint@UNDEF
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@UNDEF \Z
+ \XINT_rord_main {}#1%
+ \xint_relax
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_relax \Z
}%
-\def\XINT@round@Dba #1%
+\def\XINT_round_Dba #1%
{%
- \xint@z #1\XINT@round@Dbz\Z \XINT@round@Db #1%
+ \xint_gob_til_z #1\XINT_round_Dbz\Z \XINT_round_Db #1%
}%
-\def\XINT@round@Dbz\Z \XINT@round@Db \Z { 1\Z }%
-\def\XINT@round@Db #1\Z
+\def\XINT_round_Dbz\Z \XINT_round_Db \Z { 1\Z }%
+\def\XINT_round_Db #1\Z
{%
- \XINT@addm@A 0{}1000\W\X\Y\Z #1000\W\X\Y\Z \Z
+ \XINT_addm_A 0{}1000\W\X\Y\Z #1000\W\X\Y\Z \Z
}%
\def\xintAdd {\romannumeral0\xintadd }%
\def\xintadd #1%
{%
- \expandafter\xint@fadd\expandafter {\romannumeral0\XINT@infrac {#1}}%
+ \expandafter\xint_fadd\expandafter {\romannumeral0\XINT_infrac {#1}}%
}%
-\def\xint@fadd #1#2{\expandafter\XINT@fadd@A\romannumeral0\XINT@infrac{#2}#1}%
-\def\XINT@fadd@A #1#2#3#4%
+\def\xint_fadd #1#2{\expandafter\XINT_fadd_A\romannumeral0\XINT_infrac{#2}#1}%
+\def\XINT_fadd_A #1#2#3#4%
{%
\ifnum #4 > #1
- \xint@afterfi {\XINT@fadd@B {#1}}%
+ \xint_afterfi {\XINT_fadd_B {#1}}%
\else
- \xint@afterfi {\XINT@fadd@B {#4}}%
+ \xint_afterfi {\XINT_fadd_B {#4}}%
\fi
{#1}{#4}{#2}{#3}%
}%
-\def\XINT@fadd@B #1#2#3#4#5#6#7%
+\def\XINT_fadd_B #1#2#3#4#5#6#7%
{%
- \expandafter\XINT@fadd@C\expandafter
+ \expandafter\XINT_fadd_C\expandafter
{\romannumeral0\xintimul {#7}{#5}}%
{\romannumeral0\xintiadd
{\romannumeral0\xintimul {\xintDSH {\the\numexpr -#3+#1\relax}{#6}}{#5}}%
@@ -911,30 +917,30 @@
}%
{#1}%
}%
-\def\XINT@fadd@C #1#2#3%
+\def\XINT_fadd_C #1#2#3%
{%
- \expandafter\XINT@fadd@D\expandafter {#2}{#3}{#1}%
+ \expandafter\XINT_fadd_D\expandafter {#2}{#3}{#1}%
}%
-\def\XINT@fadd@D #1#2{\XINT@outfrac {#2}{#1}}%
+\def\XINT_fadd_D #1#2{\XINT_outfrac {#2}{#1}}%
\def\xintSub {\romannumeral0\xintsub }%
\def\xintsub #1%
{%
- \expandafter\xint@fsub\expandafter {\romannumeral0\XINT@infrac {#1}}%
+ \expandafter\xint_fsub\expandafter {\romannumeral0\XINT_infrac {#1}}%
}%
-\def\xint@fsub #1#2%
- {\expandafter\XINT@fsub@A\romannumeral0\XINT@infrac {#2}#1}%
-\def\XINT@fsub@A #1#2#3#4%
+\def\xint_fsub #1#2%
+ {\expandafter\XINT_fsub_A\romannumeral0\XINT_infrac {#2}#1}%
+\def\XINT_fsub_A #1#2#3#4%
{%
\ifnum #4 > #1
- \xint@afterfi {\XINT@fsub@B {#1}}%
+ \xint_afterfi {\XINT_fsub_B {#1}}%
\else
- \xint@afterfi {\XINT@fsub@B {#4}}%
+ \xint_afterfi {\XINT_fsub_B {#4}}%
\fi
{#1}{#4}{#2}{#3}%
}%
-\def\XINT@fsub@B #1#2#3#4#5#6#7%
+\def\XINT_fsub_B #1#2#3#4#5#6#7%
{%
- \expandafter\XINT@fsub@C\expandafter
+ \expandafter\XINT_fsub_C\expandafter
{\romannumeral0\xintimul {#7}{#5}}%
{\romannumeral0\xintisub
{\romannumeral0\xintimul {\xintDSH {\the\numexpr -#3+#1\relax}{#6}}{#5}}%
@@ -942,151 +948,151 @@
}%
{#1}%
}%
-\def\XINT@fsub@C #1#2#3%
+\def\XINT_fsub_C #1#2#3%
{%
- \expandafter\XINT@fsub@D\expandafter {#2}{#3}{#1}%
+ \expandafter\XINT_fsub_D\expandafter {#2}{#3}{#1}%
}%
-\def\XINT@fsub@D #1#2{\XINT@outfrac {#2}{#1}}%
+\def\XINT_fsub_D #1#2{\XINT_outfrac {#2}{#1}}%
\def\xintSum {\romannumeral0\xintsum }%
\def\xintsum #1{\xintsumexpr #1\relax }%
\def\xintSumExpr {\romannumeral0\xintsumexpr }%
-\def\xintsumexpr {\expandafter\XINT@fsumexpr\romannumeral-`0}%
-\def\XINT@fsumexpr {\XINT@fsum@loop@a {0/1[0]}}%
-\def\XINT@fsum@loop@a #1#2%
+\def\xintsumexpr {\expandafter\XINT_fsumexpr\romannumeral-`0}%
+\def\XINT_fsumexpr {\XINT_fsum_loop_a {0/1[0]}}%
+\def\XINT_fsum_loop_a #1#2%
{%
- \expandafter\XINT@fsum@loop@b \romannumeral-`0#2\Z {#1}%
+ \expandafter\XINT_fsum_loop_b \romannumeral-`0#2\Z {#1}%
}%
-\def\XINT@fsum@loop@b #1%
+\def\XINT_fsum_loop_b #1%
{%
- \xint@relax #1\XINT@fsum@finished\relax
- \XINT@fsum@loop@c #1%
+ \xint_gob_til_relax #1\XINT_fsum_finished\relax
+ \XINT_fsum_loop_c #1%
}%
-\def\XINT@fsum@loop@c #1\Z #2%
+\def\XINT_fsum_loop_c #1\Z #2%
{%
- \expandafter\XINT@fsum@loop@a\expandafter{\romannumeral0\xintadd {#2}{#1}}%
+ \expandafter\XINT_fsum_loop_a\expandafter{\romannumeral0\xintadd {#2}{#1}}%
}%
-\def\XINT@fsum@finished #1\Z #2{ #2}%
+\def\XINT_fsum_finished #1\Z #2{ #2}%
\def\xintMul {\romannumeral0\xintmul }%
\def\xintmul #1%
{%
- \expandafter\xint@fmul\expandafter {\romannumeral0\XINT@infrac {#1}}%
+ \expandafter\xint_fmul\expandafter {\romannumeral0\XINT_infrac {#1}}%
}%
-\def\xint@fmul #1#2%
- {\expandafter\XINT@fmul@A\romannumeral0\XINT@infrac {#2}#1}%
-\def\XINT@fmul@A #1#2#3#4#5#6%
+\def\xint_fmul #1#2%
+ {\expandafter\XINT_fmul_A\romannumeral0\XINT_infrac {#2}#1}%
+\def\XINT_fmul_A #1#2#3#4#5#6%
{%
- \expandafter\XINT@fmul@B
+ \expandafter\XINT_fmul_B
\expandafter{\the\numexpr #1+#4\expandafter}%
\expandafter{\romannumeral0\xintimul {#6}{#3}}%
{\romannumeral0\xintimul {#5}{#2}}%
}%
-\def\XINT@fmul@B #1#2#3%
+\def\XINT_fmul_B #1#2#3%
{%
- \expandafter \XINT@fmul@C \expandafter{#3}{#1}{#2}%
+ \expandafter \XINT_fmul_C \expandafter{#3}{#1}{#2}%
}%
-\def\XINT@fmul@C #1#2{\XINT@outfrac {#2}{#1}}%
+\def\XINT_fmul_C #1#2{\XINT_outfrac {#2}{#1}}%
\def\xintSqr {\romannumeral0\xintsqr }%
\def\xintsqr #1%
{%
- \expandafter\xint@fsqr\expandafter{\romannumeral0\XINT@infrac {#1}}%
+ \expandafter\xint_fsqr\expandafter{\romannumeral0\XINT_infrac {#1}}%
}%
-\def\xint@fsqr #1{\XINT@fmul@A #1#1}%
+\def\xint_fsqr #1{\XINT_fmul_A #1#1}%
\def\xintPow {\romannumeral0\xintpow }%
\def\xintpow #1%
{%
- \expandafter\xint@fpow\expandafter {\romannumeral0\XINT@infrac {#1}}%
+ \expandafter\xint_fpow\expandafter {\romannumeral0\XINT_infrac {#1}}%
}%
-\def\xint@fpow #1#2%
+\def\xint_fpow #1#2%
{%
- \expandafter\XINT@fpow@fork\the\numexpr #2\relax\Z #1%
+ \expandafter\XINT_fpow_fork\the\numexpr #2\relax\Z #1%
}%
-\def\XINT@fpow@fork #1#2\Z
+\def\XINT_fpow_fork #1#2\Z
{%
- \xint@UDzerominusfork
- #1-\dummy \XINT@fpow@zero
- 0#1\dummy \XINT@fpow@neg
- 0-\dummy {\XINT@fpow@pos #1}%
- \xint@UDkrof
+ \xint_UDzerominusfork
+ #1-\dummy \XINT_fpow_zero
+ 0#1\dummy \XINT_fpow_neg
+ 0-\dummy {\XINT_fpow_pos #1}%
+ \krof
{#2}%
}%
-\def\XINT@fpow@zero #1#2#3#4%
+\def\XINT_fpow_zero #1#2#3#4%
{%
\space 1/1[0]%
}%
-\def\XINT@fpow@pos #1#2#3#4#5%
+\def\XINT_fpow_pos #1#2#3#4#5%
{%
- \expandafter\XINT@fpow@pos@A\expandafter
+ \expandafter\XINT_fpow_pos_A\expandafter
{\the\numexpr #1#2*#3\expandafter}\expandafter
{\romannumeral0\xintipow {#5}{#1#2}}%
{\romannumeral0\xintipow {#4}{#1#2}}%
}%
-\def\XINT@fpow@neg #1#2#3#4%
+\def\XINT_fpow_neg #1#2#3#4%
{%
- \expandafter\XINT@fpow@pos@A\expandafter
+ \expandafter\XINT_fpow_pos_A\expandafter
{\the\numexpr -#1*#2\expandafter}\expandafter
{\romannumeral0\xintipow {#3}{#1}}%
{\romannumeral0\xintipow {#4}{#1}}%
}%
-\def\XINT@fpow@pos@A #1#2#3%
+\def\XINT_fpow_pos_A #1#2#3%
{%
- \expandafter\XINT@fpow@pos@B\expandafter {#3}{#1}{#2}%
+ \expandafter\XINT_fpow_pos_B\expandafter {#3}{#1}{#2}%
}%
-\def\XINT@fpow@pos@B #1#2{\XINT@outfrac {#2}{#1}}%
+\def\XINT_fpow_pos_B #1#2{\XINT_outfrac {#2}{#1}}%
\def\xintPrd {\romannumeral0\xintprd }%
\def\xintprd #1{\xintprdexpr #1\relax }%
\def\xintPrdExpr {\romannumeral0\xintprdexpr }%
-\def\xintprdexpr {\expandafter\XINT@fprdexpr \romannumeral-`0}%
-\def\XINT@fprdexpr {\XINT@fprod@loop@a {1/1[0]}}%
-\def\XINT@fprod@loop@a #1#2%
+\def\xintprdexpr {\expandafter\XINT_fprdexpr \romannumeral-`0}%
+\def\XINT_fprdexpr {\XINT_fprod_loop_a {1/1[0]}}%
+\def\XINT_fprod_loop_a #1#2%
{%
- \expandafter\XINT@fprod@loop@b \romannumeral-`0#2\Z {#1}%
+ \expandafter\XINT_fprod_loop_b \romannumeral-`0#2\Z {#1}%
}%
-\def\XINT@fprod@loop@b #1%
+\def\XINT_fprod_loop_b #1%
{%
- \xint@relax #1\XINT@fprod@finished\relax
- \XINT@fprod@loop@c #1%
+ \xint_gob_til_relax #1\XINT_fprod_finished\relax
+ \XINT_fprod_loop_c #1%
}%
-\def\XINT@fprod@loop@c #1\Z #2%
+\def\XINT_fprod_loop_c #1\Z #2%
{%
- \expandafter\XINT@fprod@loop@a\expandafter{\romannumeral0\xintmul {#1}{#2}}%
+ \expandafter\XINT_fprod_loop_a\expandafter{\romannumeral0\xintmul {#1}{#2}}%
}%
-\def\XINT@fprod@finished #1\Z #2{ #2}%
+\def\XINT_fprod_finished #1\Z #2{ #2}%
\def\xintDiv {\romannumeral0\xintdiv }%
\def\xintdiv #1%
{%
- \expandafter\xint@fdiv\expandafter {\romannumeral0\XINT@infrac {#1}}%
+ \expandafter\xint_fdiv\expandafter {\romannumeral0\XINT_infrac {#1}}%
}%
-\def\xint@fdiv #1#2%
- {\expandafter\XINT@fdiv@A\romannumeral0\XINT@infrac {#2}#1}%
-\def\XINT@fdiv@A #1#2#3#4#5#6%
+\def\xint_fdiv #1#2%
+ {\expandafter\XINT_fdiv_A\romannumeral0\XINT_infrac {#2}#1}%
+\def\XINT_fdiv_A #1#2#3#4#5#6%
{%
- \expandafter\XINT@fdiv@B
+ \expandafter\XINT_fdiv_B
\expandafter{\the\numexpr #4-#1\expandafter}%
\expandafter{\romannumeral0\xintimul {#2}{#6}}%
{\romannumeral0\xintimul {#3}{#5}}%
}%
-\def\XINT@fdiv@B #1#2#3%
+\def\XINT_fdiv_B #1#2#3%
{%
- \expandafter\XINT@fdiv@C
+ \expandafter\XINT_fdiv_C
\expandafter{#3}{#1}{#2}%
}%
-\def\XINT@fdiv@C #1#2{\XINT@outfrac {#2}{#1}}%
+\def\XINT_fdiv_C #1#2{\XINT_outfrac {#2}{#1}}%
\def\xintCmp {\romannumeral0\xintcmp }%
\def\xintcmp #1%
{%
- \expandafter\xint@fcmp\expandafter {\romannumeral0\XINT@infrac {#1}}%
+ \expandafter\xint_fcmp\expandafter {\romannumeral0\XINT_infrac {#1}}%
}%
-\def\xint@fcmp #1#2{\expandafter\XINT@fcmp@A\romannumeral0\XINT@infrac {#2}#1}%
-\def\XINT@fcmp@A #1#2#3#4%
+\def\xint_fcmp #1#2{\expandafter\XINT_fcmp_A\romannumeral0\XINT_infrac {#2}#1}%
+\def\XINT_fcmp_A #1#2#3#4%
{%
\ifnum #4 > #1
- \xint@afterfi {\XINT@fcmp@B {#1}}%
+ \xint_afterfi {\XINT_fcmp_B {#1}}%
\else
- \xint@afterfi {\XINT@fcmp@B {#4}}%
+ \xint_afterfi {\XINT_fcmp_B {#4}}%
\fi
{#1}{#4}{#2}{#3}%
}%
-\def\XINT@fcmp@B #1#2#3#4#5#6#7%
+\def\XINT_fcmp_B #1#2#3#4#5#6#7%
{%
\xinticmp
{\romannumeral0\xintimul {\xintDSH {\the\numexpr -#3+#1\relax}{#6}}{#5}}%
@@ -1095,150 +1101,150 @@
\def\xintMax {\romannumeral0\xintmax }%
\def\xintmax #1%
{%
- \expandafter\xint@fmax\expandafter {\romannumeral0\XINT@infrac {#1}}%
+ \expandafter\xint_fmax\expandafter {\romannumeral0\XINT_infrac {#1}}%
}%
-\def\xint@fmax #1#2{\expandafter\XINT@outfrac
- \romannumeral0\expandafter\XINT@fmax@A
- \romannumeral0\XINT@infrac {#2}#1}%
-\def\XINT@fmax@A #1#2#3#4#5#6%
+\def\xint_fmax #1#2{\expandafter\XINT_outfrac
+ \romannumeral0\expandafter\XINT_fmax_A
+ \romannumeral0\XINT_infrac {#2}#1}%
+\def\XINT_fmax_A #1#2#3#4#5#6%
{%
\ifnum #4 > #1
- \xint@afterfi {\XINT@fmax@B {#1}}%
+ \xint_afterfi {\XINT_fmax_B {#1}}%
\else
- \xint@afterfi {\XINT@fmax@B {#4}}%
+ \xint_afterfi {\XINT_fmax_B {#4}}%
\fi
{#1}{#4}{#2}{#3}{#5}{#6}{{#4}{#5}{#6}}{{#1}{#2}{#3}}%
}%
-\def\XINT@fmax@B #1#2#3#4#5#6#7%
+\def\XINT_fmax_B #1#2#3#4#5#6#7%
{%
- \expandafter\XINT@fmax@C\expandafter
+ \expandafter\XINT_fmax_C\expandafter
{\romannumeral0\xintimul {\xintDSH {\the\numexpr -#3+#1\relax}{#6}}{#5}}%
{\romannumeral0\xintimul {#7}{\xintDSH {\the\numexpr -#2+#1\relax}{#4}}}%
}%
-\def\XINT@fmax@C #1#2%
+\def\XINT_fmax_C #1#2%
{%
- \expandafter\XINT@max@fork #2\Z #1\Z
+ \expandafter\XINT_max_fork #2\Z #1\Z
}%
\def\xintMin {\romannumeral0\xintmin }%
\def\xintmin #1%
{%
- \expandafter\xint@fmin\expandafter {\romannumeral0\XINT@infrac {#1}}%
+ \expandafter\xint_fmin\expandafter {\romannumeral0\XINT_infrac {#1}}%
}%
-\def\xint@fmin #1#2%
+\def\xint_fmin #1#2%
{%
- \expandafter\XINT@outfrac
- \romannumeral0\expandafter\XINT@fmin@A
- \romannumeral0\XINT@infrac {#2}#1%
+ \expandafter\XINT_outfrac
+ \romannumeral0\expandafter\XINT_fmin_A
+ \romannumeral0\XINT_infrac {#2}#1%
}%
-\def\XINT@fmin@A #1#2#3#4#5#6%
+\def\XINT_fmin_A #1#2#3#4#5#6%
{%
\ifnum #4 > #1
- \xint@afterfi {\XINT@fmin@B {#1}}%
+ \xint_afterfi {\XINT_fmin_B {#1}}%
\else
- \xint@afterfi {\XINT@fmin@B {#4}}%
+ \xint_afterfi {\XINT_fmin_B {#4}}%
\fi
{#1}{#4}{#2}{#3}{#5}{#6}{{#4}{#5}{#6}}{{#1}{#2}{#3}}%
}%
-\def\XINT@fmin@B #1#2#3#4#5#6#7%
+\def\XINT_fmin_B #1#2#3#4#5#6#7%
{%
- \expandafter\XINT@fmin@C\expandafter
+ \expandafter\XINT_fmin_C\expandafter
{\romannumeral0\xintimul {\xintDSH {\the\numexpr -#3+#1\relax}{#6}}{#5}}%
{\romannumeral0\xintimul {#7}{\xintDSH {\the\numexpr -#2+#1\relax}{#4}}}%
}%
-\def\XINT@fmin@C #1#2%
+\def\XINT_fmin_C #1#2%
{%
- \expandafter\XINT@min@fork #2\Z #1\Z
+ \expandafter\XINT_min_fork #2\Z #1\Z
}%
\def\xintAbs {\romannumeral0\xintabs }%
\def\xintabs #1%
{%
- \expandafter\xint@fabs\romannumeral0\XINT@infrac {#1}%
+ \expandafter\xint_fabs\romannumeral0\XINT_infrac {#1}%
}%
-\def\xint@fabs #1#2%
+\def\xint_fabs #1#2%
{%
- \expandafter\XINT@outfrac\expandafter
+ \expandafter\XINT_outfrac\expandafter
{\the\numexpr #1\expandafter}\expandafter
- {\romannumeral0\XINT@abs #2}%
+ {\romannumeral0\XINT_abs #2}%
}%
\def\xintOpp {\romannumeral0\xintopp }%
\def\xintopp #1%
{%
- \expandafter\xint@fopp\romannumeral0\XINT@infrac {#1}%
+ \expandafter\xint_fopp\romannumeral0\XINT_infrac {#1}%
}%
-\def\xint@fopp #1#2%
+\def\xint_fopp #1#2%
{%
- \expandafter\XINT@outfrac\expandafter
+ \expandafter\XINT_outfrac\expandafter
{\the\numexpr #1\expandafter}\expandafter
- {\romannumeral0\XINT@opp #2}%
+ {\romannumeral0\XINT_opp #2}%
}%
\def\xintSgn {\romannumeral0\xintsgn }%
\def\xintsgn #1%
{%
- \expandafter\xint@fsgn\romannumeral0\XINT@infrac {#1}%
+ \expandafter\xint_fsgn\romannumeral0\XINT_infrac {#1}%
}%
-\def\xint@fsgn #1#2#3{\xintisgn {#2}}%
+\def\xint_fsgn #1#2#3{\xintisgn {#2}}%
\def\xintGeq {\romannumeral0\xintgeq }%
\def\xintgeq #1%
{%
- \expandafter\xint@xgeq\expandafter{\romannumeral0\xintnum {#1}}%
+ \expandafter\xint_xgeq\expandafter{\romannumeral0\xintnum {#1}}%
}%
-\def\xint@xgeq #1#2%
+\def\xint_xgeq #1#2%
{%
- \expandafter\XINT@geq@fork\romannumeral0\xintnum {#2}\Z #1\Z
+ \expandafter\XINT_geq_fork\romannumeral0\xintnum {#2}\Z #1\Z
}%
\def\xintDivision {\romannumeral0\xintdivision }%
\def\xintdivision #1%
{%
- \expandafter\xint@xdivision\expandafter{\romannumeral0\xintnum {#1}}%
+ \expandafter\xint_xdivision\expandafter{\romannumeral0\xintnum {#1}}%
}%
-\def\xint@xdivision #1#2%
+\def\xint_xdivision #1#2%
{%
- \expandafter\XINT@div@fork\romannumeral0\xintnum {#2}\Z #1\Z
+ \expandafter\XINT_div_fork\romannumeral0\xintnum {#2}\Z #1\Z
}%
\def\xintQuo {\romannumeral0\xintquo }%
\def\xintRem {\romannumeral0\xintrem }%
-\def\xintquo {\expandafter\xint@firstoftwo@andstop
+\def\xintquo {\expandafter\xint_firstoftwo_andstop
\romannumeral0\xintdivision }%
-\def\xintrem {\expandafter\xint@secondoftwo@andstop
+\def\xintrem {\expandafter\xint_secondoftwo_andstop
\romannumeral0\xintdivision }%
\def\xintFDg {\romannumeral0\xintfdg }%
\def\xintfdg #1%
{%
- \expandafter\XINT@fdg\romannumeral0\xintnum {#1}\W\Z
+ \expandafter\XINT_fdg\romannumeral0\xintnum {#1}\W\Z
}%
\def\xintLDg {\romannumeral0\xintldg }%
\def\xintldg #1%
{%
- \expandafter\XINT@ldg\expandafter{\romannumeral0\xintnum {#1}}%
+ \expandafter\XINT_ldg\expandafter{\romannumeral0\xintnum {#1}}%
}%
\def\xintMON {\romannumeral0\xintmon }%
\def\xintmon #1%
{%
\ifodd\xintLDg {#1}
- \xint@afterfi{ -1}%
+ \xint_afterfi{ -1}%
\else
- \xint@afterfi{ 1}%
+ \xint_afterfi{ 1}%
\fi
}%
\def\xintMMON {\romannumeral0\xintmmon }%
\def\xintmmon #1%
{%
\ifodd\xintLDg {#1}
- \xint@afterfi{ 1}%
+ \xint_afterfi{ 1}%
\else
- \xint@afterfi{ -1}%
+ \xint_afterfi{ -1}%
\fi
}%
\def\xintOdd {\romannumeral0\xintodd }%
\def\xintodd #1%
{%
\ifodd\xintLDg{#1}
- \xint@afterfi{ 1}%
+ \xint_afterfi{ 1}%
\else
- \xint@afterfi{ 0}%
+ \xint_afterfi{ 0}%
\fi
}%
-\XINT@frac@restorecatcodes@endinput%
+\XINT_frac_restorecatcodes_endinput%
\endinput
%%
%% End of file `xintfrac.sty'.
diff --git a/Master/texmf-dist/tex/generic/xint/xintgcd.sty b/Master/texmf-dist/tex/generic/xint/xintgcd.sty
index 6339b64cbe1..77bee301efe 100644
--- a/Master/texmf-dist/tex/generic/xint/xintgcd.sty
+++ b/Master/texmf-dist/tex/generic/xint/xintgcd.sty
@@ -22,7 +22,7 @@
%% in the same archive or directory.)
%%
%%----------------------------------------------------------------
-%% The xint bundle (version 1.06a of May 9, 2013)
+%% The xint bundle (version 1.06b of May 14, 2013)
%% xintgcd: Euclidean algorithm with xint package
%% Copyright (C) 2013 by Jean-Francois Burnol
%%----------------------------------------------------------------
@@ -108,11 +108,11 @@
\endlinechar=13 %
\catcode123=1 % {
\catcode125=2 % }
- \catcode64=11 % @
+ \catcode95=11 % _
\def\x
{%
\endgroup
- \edef\XINT@gcd@restorecatcodes@endinput
+ \edef\XINT_gcd_restorecatcodes_endinput
{%
\catcode36=\the\catcode36 % $
\catcode96=\the\catcode96 % `
@@ -128,7 +128,7 @@
\catcode45=\the\catcode45 % -
\catcode44=\the\catcode44 % ,
\catcode35=\the\catcode35 % #
- \catcode64=\the\catcode64 % @
+ \catcode95=\the\catcode95 % _
\catcode125=\the\catcode125 % }
\catcode123=\the\catcode123 % {
\endlinechar=\the\endlinechar
@@ -137,11 +137,12 @@
\catcode61=\the\catcode61\relax % =
\noexpand\endinput
}%
- \XINT@setcatcodes
+ \XINT_setcatcodes
\catcode36=3 % $
}%
\x
\begingroup
+ \catcode64=11 % @
\catcode91=12 % [
\catcode93=12 % ]
\catcode58=12 % :
@@ -163,289 +164,289 @@
\fi
\expandafter\x\csname ver@xintgcd.sty\endcsname
\ProvidesPackage{xintgcd}%
- [2013/05/09 v1.06a Euclide algorithm with xint package (jfB)]%
+ [2013/05/14 v1.06b Euclide algorithm with xint package (jfB)]%
\def\xintGCD {\romannumeral0\xintgcd }%
\def\xintgcd #1%
{%
- \expandafter\XINT@gcd\expandafter{\romannumeral0\xintiabs {#1}}%
+ \expandafter\XINT_gcd\expandafter{\romannumeral0\xintiabs {#1}}%
}%
-\def\XINT@gcd #1#2%
+\def\XINT_gcd #1#2%
{%
- \expandafter\XINT@gcd@fork\romannumeral0\xintiabs {#2}\Z #1\Z
+ \expandafter\XINT_gcd_fork\romannumeral0\xintiabs {#2}\Z #1\Z
}%
-\def\XINT@gcd@fork #1#2\Z #3#4\Z
+\def\XINT_gcd_fork #1#2\Z #3#4\Z
{%
- \xint@UDzerofork
- #1\dummy \XINT@gcd@BisZero
- #3\dummy \XINT@gcd@AisZero
- 0\dummy \XINT@gcd@loop
- \xint@UDkrof
+ \xint_UDzerofork
+ #1\dummy \XINT_gcd_BisZero
+ #3\dummy \XINT_gcd_AisZero
+ 0\dummy \XINT_gcd_loop
+ \krof
{#1#2}{#3#4}%
}%
-\def\XINT@gcd@AisZero #1#2{ #1}%
-\def\XINT@gcd@BisZero #1#2{ #2}%
-\def\XINT@gcd@CheckRem #1#2\Z
+\def\XINT_gcd_AisZero #1#2{ #1}%
+\def\XINT_gcd_BisZero #1#2{ #2}%
+\def\XINT_gcd_CheckRem #1#2\Z
{%
- \xint@zero #1\xint@gcd@end0\XINT@gcd@loop {#1#2}%
+ \xint_gob_til_zero #1\xint_gcd_end0\XINT_gcd_loop {#1#2}%
}%
-\def\xint@gcd@end0\XINT@gcd@loop #1#2{ #2}%
-\def\XINT@gcd@loop #1#2%
+\def\xint_gcd_end0\XINT_gcd_loop #1#2{ #2}%
+\def\XINT_gcd_loop #1#2%
{%
\expandafter\expandafter\expandafter
- \XINT@gcd@CheckRem
- \expandafter\xint@secondoftwo
- \romannumeral0\XINT@div@prepare {#1}{#2}\Z
+ \XINT_gcd_CheckRem
+ \expandafter\xint_secondoftwo
+ \romannumeral0\XINT_div_prepare {#1}{#2}\Z
{#1}%
}%
\def\xintBezout {\romannumeral0\xintbezout }%
\def\xintbezout #1%
{%
- \expandafter\xint@bezout\expandafter {\romannumeral-`0#1}%
+ \expandafter\xint_bezout\expandafter {\romannumeral-`0#1}%
}%
-\def\xint@bezout #1#2%
+\def\xint_bezout #1#2%
{%
- \expandafter\XINT@bezout@fork \romannumeral-`0#2\Z #1\Z
+ \expandafter\XINT_bezout_fork \romannumeral-`0#2\Z #1\Z
}%
-\def\XINT@bezout@fork #1#2\Z #3#4\Z
+\def\XINT_bezout_fork #1#2\Z #3#4\Z
{%
- \xint@UDzerosfork
- #1#3\dummy \XINT@bezout@botharezero
- #10\dummy \XINT@bezout@secondiszero
- #30\dummy \XINT@bezout@firstiszero
+ \xint_UDzerosfork
+ #1#3\dummy \XINT_bezout_botharezero
+ #10\dummy \XINT_bezout_secondiszero
+ #30\dummy \XINT_bezout_firstiszero
00\dummy
- {\xint@UDsignsfork
- #1#3\dummy \XINT@bezout@minusminus % A < 0, B < 0
- #1-\dummy \XINT@bezout@minusplus % A > 0, B < 0
- #3-\dummy \XINT@bezout@plusminus % A < 0, B > 0
- --\dummy \XINT@bezout@plusplus % A > 0, B > 0
- \xint@UDkrof }%
- \xint@UDkrof
+ {\xint_UDsignsfork
+ #1#3\dummy \XINT_bezout_minusminus % A < 0, B < 0
+ #1-\dummy \XINT_bezout_minusplus % A > 0, B < 0
+ #3-\dummy \XINT_bezout_plusminus % A < 0, B > 0
+ --\dummy \XINT_bezout_plusplus % A > 0, B > 0
+ \krof }%
+ \krof
{#2}{#4}#1#3{#3#4}{#1#2}% #1#2=B, #3#4=A
}%
-\def\XINT@bezout@botharezero #1#2#3#4#5#6%
+\def\XINT_bezout_botharezero #1#2#3#4#5#6%
{%
\xintError:NoBezoutForZeros
\space {0}{0}{0}{0}{0}%
}%
-\def\XINT@bezout@firstiszero #1#2#3#4#5#6%
+\def\XINT_bezout_firstiszero #1#2#3#4#5#6%
{%
- \xint@UDsignfork
+ \xint_UDsignfork
#3\dummy { {0}{#3#1}{0}{1}{#1}}%
-\dummy { {0}{#3#1}{0}{-1}{#1}}%
- \xint@UDkrof
+ \krof
}%
-\def\XINT@bezout@secondiszero #1#2#3#4#5#6%
+\def\XINT_bezout_secondiszero #1#2#3#4#5#6%
{%
- \xint@UDsignfork
+ \xint_UDsignfork
#4\dummy{ {#4#2}{0}{-1}{0}{#2}}%
-\dummy{ {#4#2}{0}{1}{0}{#2}}%
- \xint@UDkrof
+ \krof
}%
-\def\XINT@bezout@minusminus #1#2#3#4%
+\def\XINT_bezout_minusminus #1#2#3#4%
{%
- \expandafter\XINT@bezout@mm@post
- \romannumeral0\XINT@bezout@loop@a 1{#1}{#2}1001%
+ \expandafter\XINT_bezout_mm_post
+ \romannumeral0\XINT_bezout_loop_a 1{#1}{#2}1001%
}%
-\def\XINT@bezout@mm@post #1#2%
+\def\XINT_bezout_mm_post #1#2%
{%
- \expandafter\XINT@bezout@mm@postb\expandafter
+ \expandafter\XINT_bezout_mm_postb\expandafter
{\romannumeral0\xintiopp{#2}}{\romannumeral0\xintiopp{#1}}%
}%
-\def\XINT@bezout@mm@postb #1#2%
+\def\XINT_bezout_mm_postb #1#2%
{%
- \expandafter\XINT@bezout@mm@postc\expandafter {#2}{#1}%
+ \expandafter\XINT_bezout_mm_postc\expandafter {#2}{#1}%
}%
-\def\XINT@bezout@mm@postc #1#2#3#4#5%
+\def\XINT_bezout_mm_postc #1#2#3#4#5%
{%
\space {#4}{#5}{#1}{#2}{#3}%
}%
-\def\XINT@bezout@minusplus #1#2#3#4%
+\def\XINT_bezout_minusplus #1#2#3#4%
{%
- \expandafter\XINT@bezout@mp@post
- \romannumeral0\XINT@bezout@loop@a 1{#1}{#4#2}1001%
+ \expandafter\XINT_bezout_mp_post
+ \romannumeral0\XINT_bezout_loop_a 1{#1}{#4#2}1001%
}%
-\def\XINT@bezout@mp@post #1#2%
+\def\XINT_bezout_mp_post #1#2%
{%
- \expandafter\XINT@bezout@mp@postb\expandafter
+ \expandafter\XINT_bezout_mp_postb\expandafter
{\romannumeral0\xintiopp {#2}}{#1}%
}%
-\def\XINT@bezout@mp@postb #1#2#3#4#5%
+\def\XINT_bezout_mp_postb #1#2#3#4#5%
{%
\space {#4}{#5}{#2}{#1}{#3}%
}%
-\def\XINT@bezout@plusminus #1#2#3#4%
+\def\XINT_bezout_plusminus #1#2#3#4%
{%
- \expandafter\XINT@bezout@pm@post
- \romannumeral0\XINT@bezout@loop@a 1{#3#1}{#2}1001%
+ \expandafter\XINT_bezout_pm_post
+ \romannumeral0\XINT_bezout_loop_a 1{#3#1}{#2}1001%
}%
-\def\XINT@bezout@pm@post #1%
+\def\XINT_bezout_pm_post #1%
{%
- \expandafter \XINT@bezout@pm@postb \expandafter
+ \expandafter \XINT_bezout_pm_postb \expandafter
{\romannumeral0\xintiopp{#1}}%
}%
-\def\XINT@bezout@pm@postb #1#2#3#4#5%
+\def\XINT_bezout_pm_postb #1#2#3#4#5%
{%
\space {#4}{#5}{#1}{#2}{#3}%
}%
-\def\XINT@bezout@plusplus #1#2#3#4%
+\def\XINT_bezout_plusplus #1#2#3#4%
{%
- \expandafter\XINT@bezout@pp@post
- \romannumeral0\XINT@bezout@loop@a 1{#3#1}{#4#2}1001%
+ \expandafter\XINT_bezout_pp_post
+ \romannumeral0\XINT_bezout_loop_a 1{#3#1}{#4#2}1001%
}%
-\def\XINT@bezout@pp@post #1#2#3#4#5%
+\def\XINT_bezout_pp_post #1#2#3#4#5%
{%
\space {#4}{#5}{#1}{#2}{#3}%
}%
-\def\XINT@bezout@loop@a #1#2#3%
+\def\XINT_bezout_loop_a #1#2#3%
{%
- \expandafter\XINT@bezout@loop@b
+ \expandafter\XINT_bezout_loop_b
\expandafter{\the\numexpr -#1\expandafter }%
- \romannumeral0\XINT@div@prepare {#2}{#3}{#2}%
+ \romannumeral0\XINT_div_prepare {#2}{#3}{#2}%
}%
-\def\XINT@bezout@loop@b #1#2#3#4#5#6#7#8%
+\def\XINT_bezout_loop_b #1#2#3#4#5#6#7#8%
{%
- \expandafter \XINT@bezout@loop@c \expandafter
- {\romannumeral0\xintiadd{\XINT@Mul{#5}{#2}}{#7}}%
- {\romannumeral0\xintiadd{\XINT@Mul{#6}{#2}}{#8}}%
+ \expandafter \XINT_bezout_loop_c \expandafter
+ {\romannumeral0\xintiadd{\XINT_Mul{#5}{#2}}{#7}}%
+ {\romannumeral0\xintiadd{\XINT_Mul{#6}{#2}}{#8}}%
{#1}{#3}{#4}{#5}{#6}%
}%
-\def\XINT@bezout@loop@c #1#2%
+\def\XINT_bezout_loop_c #1#2%
{%
- \expandafter \XINT@bezout@loop@d \expandafter
+ \expandafter \XINT_bezout_loop_d \expandafter
{#2}{#1}%
}%
-\def\XINT@bezout@loop@d #1#2#3#4#5%
+\def\XINT_bezout_loop_d #1#2#3#4#5%
{%
- \XINT@bezout@loop@e #4\Z {#3}{#5}{#2}{#1}%
+ \XINT_bezout_loop_e #4\Z {#3}{#5}{#2}{#1}%
}%
-\def\XINT@bezout@loop@e #1#2\Z
+\def\XINT_bezout_loop_e #1#2\Z
{%
- \xint@zero #1\xint@bezout@loop@exit0\XINT@bezout@loop@f
+ \xint_gob_til_zero #1\xint_bezout_loop_exit0\XINT_bezout_loop_f
{#1#2}%
}%
-\def\XINT@bezout@loop@f #1#2%
+\def\XINT_bezout_loop_f #1#2%
{%
- \XINT@bezout@loop@a {#2}{#1}%
+ \XINT_bezout_loop_a {#2}{#1}%
}%
-\def\xint@bezout@loop@exit0\XINT@bezout@loop@f #1#2%
+\def\xint_bezout_loop_exit0\XINT_bezout_loop_f #1#2%
{%
\ifcase #2
- \or \expandafter\XINT@bezout@exiteven
- \else\expandafter\XINT@bezout@exitodd
+ \or \expandafter\XINT_bezout_exiteven
+ \else\expandafter\XINT_bezout_exitodd
\fi
}%
-\def\XINT@bezout@exiteven #1#2#3#4#5%
+\def\XINT_bezout_exiteven #1#2#3#4#5%
{%
\space {#5}{#4}{#1}%
}%
-\def\XINT@bezout@exitodd #1#2#3#4#5%
+\def\XINT_bezout_exitodd #1#2#3#4#5%
{%
\space {-#5}{-#4}{#1}%
}%
\def\xintEuclideAlgorithm {\romannumeral0\xinteuclidealgorithm }%
\def\xinteuclidealgorithm #1%
{%
- \expandafter \XINT@euc \expandafter{\romannumeral0\xintiabs {#1}}%
+ \expandafter \XINT_euc \expandafter{\romannumeral0\xintiabs {#1}}%
}%
-\def\XINT@euc #1#2%
+\def\XINT_euc #1#2%
{%
- \expandafter\XINT@euc@fork \romannumeral0\xintiabs {#2}\Z #1\Z
+ \expandafter\XINT_euc_fork \romannumeral0\xintiabs {#2}\Z #1\Z
}%
-\def\XINT@euc@fork #1#2\Z #3#4\Z
+\def\XINT_euc_fork #1#2\Z #3#4\Z
{%
- \xint@UDzerofork
- #1\dummy \XINT@euc@BisZero
- #3\dummy \XINT@euc@AisZero
- 0\dummy \XINT@euc@a
- \xint@UDkrof
+ \xint_UDzerofork
+ #1\dummy \XINT_euc_BisZero
+ #3\dummy \XINT_euc_AisZero
+ 0\dummy \XINT_euc_a
+ \krof
{0}{#1#2}{#3#4}{{#3#4}{#1#2}}{}\Z
}%
-\def\XINT@euc@AisZero #1#2#3#4#5#6{ {1}{0}{#2}{#2}{0}{0}}%
-\def\XINT@euc@BisZero #1#2#3#4#5#6{ {1}{0}{#3}{#3}{0}{0}}%
-\def\XINT@euc@a #1#2#3%
+\def\XINT_euc_AisZero #1#2#3#4#5#6{ {1}{0}{#2}{#2}{0}{0}}%
+\def\XINT_euc_BisZero #1#2#3#4#5#6{ {1}{0}{#3}{#3}{0}{0}}%
+\def\XINT_euc_a #1#2#3%
{%
- \expandafter\XINT@euc@b
+ \expandafter\XINT_euc_b
\expandafter {\the\numexpr #1+1\expandafter }%
- \romannumeral0\XINT@div@prepare {#2}{#3}{#2}%
+ \romannumeral0\XINT_div_prepare {#2}{#3}{#2}%
}%
-\def\XINT@euc@b #1#2#3#4%
+\def\XINT_euc_b #1#2#3#4%
{%
- \XINT@euc@c #3\Z {#1}{#3}{#4}{{#2}{#3}}%
+ \XINT_euc_c #3\Z {#1}{#3}{#4}{{#2}{#3}}%
}%
-\def\XINT@euc@c #1#2\Z
+\def\XINT_euc_c #1#2\Z
{%
- \xint@zero #1\xint@euc@end0\XINT@euc@a
+ \xint_gob_til_zero #1\xint_euc_end0\XINT_euc_a
}%
-\def\xint@euc@end0\XINT@euc@a #1#2#3#4\Z%
+\def\xint_euc_end0\XINT_euc_a #1#2#3#4\Z%
{%
- \expandafter\xint@euc@end@
+ \expandafter\xint_euc_end_
\romannumeral0%
- \XINT@rord@main {}#4{{#1}{#3}}%
- \xint@UNDEF
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@UNDEF
+ \XINT_rord_main {}#4{{#1}{#3}}%
+ \xint_relax
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_relax
}%
-\def\xint@euc@end@ #1#2#3%
+\def\xint_euc_end_ #1#2#3%
{%
\space {#1}{#3}{#2}%
}%
\def\xintBezoutAlgorithm {\romannumeral0\xintbezoutalgorithm }%
\def\xintbezoutalgorithm #1%
{%
- \expandafter \XINT@bezalg \expandafter{\romannumeral0\xintiabs {#1}}%
+ \expandafter \XINT_bezalg \expandafter{\romannumeral0\xintiabs {#1}}%
}%
-\def\XINT@bezalg #1#2%
+\def\XINT_bezalg #1#2%
{%
- \expandafter\XINT@bezalg@fork \romannumeral0\xintiabs {#2}\Z #1\Z
+ \expandafter\XINT_bezalg_fork \romannumeral0\xintiabs {#2}\Z #1\Z
}%
-\def\XINT@bezalg@fork #1#2\Z #3#4\Z
+\def\XINT_bezalg_fork #1#2\Z #3#4\Z
{%
- \xint@UDzerofork
- #1\dummy \XINT@bezalg@BisZero
- #3\dummy \XINT@bezalg@AisZero
- 0\dummy \XINT@bezalg@a
- \xint@UDkrof
+ \xint_UDzerofork
+ #1\dummy \XINT_bezalg_BisZero
+ #3\dummy \XINT_bezalg_AisZero
+ 0\dummy \XINT_bezalg_a
+ \krof
0{#1#2}{#3#4}1001{{#3#4}{#1#2}}{}\Z
}%
-\def\XINT@bezalg@AisZero #1#2#3\Z{ {1}{0}{0}{1}{#2}{#2}{1}{0}{0}{0}{0}{1}}%
-\def\XINT@bezalg@BisZero #1#2#3#4\Z{ {1}{0}{0}{1}{#3}{#3}{1}{0}{0}{0}{0}{1}}%
-\def\XINT@bezalg@a #1#2#3%
+\def\XINT_bezalg_AisZero #1#2#3\Z{ {1}{0}{0}{1}{#2}{#2}{1}{0}{0}{0}{0}{1}}%
+\def\XINT_bezalg_BisZero #1#2#3#4\Z{ {1}{0}{0}{1}{#3}{#3}{1}{0}{0}{0}{0}{1}}%
+\def\XINT_bezalg_a #1#2#3%
{%
- \expandafter\XINT@bezalg@b
+ \expandafter\XINT_bezalg_b
\expandafter {\the\numexpr #1+1\expandafter }%
- \romannumeral0\XINT@div@prepare {#2}{#3}{#2}%
+ \romannumeral0\XINT_div_prepare {#2}{#3}{#2}%
}%
-\def\XINT@bezalg@b #1#2#3#4#5#6#7#8%
+\def\XINT_bezalg_b #1#2#3#4#5#6#7#8%
{%
- \expandafter\XINT@bezalg@c\expandafter
+ \expandafter\XINT_bezalg_c\expandafter
{\romannumeral0\xintiadd {\xintiMul {#6}{#2}}{#8}}%
{\romannumeral0\xintiadd {\xintiMul {#5}{#2}}{#7}}%
{#1}{#2}{#3}{#4}{#5}{#6}%
}%
-\def\XINT@bezalg@c #1#2#3#4#5#6%
+\def\XINT_bezalg_c #1#2#3#4#5#6%
{%
- \expandafter\XINT@bezalg@d\expandafter {#2}{#3}{#4}{#5}{#6}{#1}%
+ \expandafter\XINT_bezalg_d\expandafter {#2}{#3}{#4}{#5}{#6}{#1}%
}%
-\def\XINT@bezalg@d #1#2#3#4#5#6#7#8%
+\def\XINT_bezalg_d #1#2#3#4#5#6#7#8%
{%
- \XINT@bezalg@e #4\Z {#2}{#4}{#5}{#1}{#6}{#7}{#8}{{#3}{#4}{#1}{#6}}%
+ \XINT_bezalg_e #4\Z {#2}{#4}{#5}{#1}{#6}{#7}{#8}{{#3}{#4}{#1}{#6}}%
}%
-\def\XINT@bezalg@e #1#2\Z
+\def\XINT_bezalg_e #1#2\Z
{%
- \xint@zero #1\xint@bezalg@end0\XINT@bezalg@a
+ \xint_gob_til_zero #1\xint_bezalg_end0\XINT_bezalg_a
}%
-\def\xint@bezalg@end0\XINT@bezalg@a #1#2#3#4#5#6#7#8\Z
+\def\xint_bezalg_end0\XINT_bezalg_a #1#2#3#4#5#6#7#8\Z
{%
- \expandafter\xint@bezalg@end@
+ \expandafter\xint_bezalg_end_
\romannumeral0%
- \XINT@rord@main {}#8{{#1}{#3}}%
- \xint@UNDEF
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@undef\xint@undef\xint@undef\xint@undef
- \xint@UNDEF
+ \XINT_rord_main {}#8{{#1}{#3}}%
+ \xint_relax
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_undef\xint_undef\xint_undef\xint_undef
+ \xint_relax
}%
-\def\xint@bezalg@end@ #1#2#3#4%
+\def\xint_bezalg_end_ #1#2#3#4%
{%
\space {#1}{#3}{0}{1}{#2}{#4}{1}{0}%
}%
@@ -509,7 +510,7 @@
\par
\endgroup
}%
-\XINT@gcd@restorecatcodes@endinput%
+\XINT_gcd_restorecatcodes_endinput%
\endinput
%%
%% End of file `xintgcd.sty'.
diff --git a/Master/texmf-dist/tex/generic/xint/xintseries.sty b/Master/texmf-dist/tex/generic/xint/xintseries.sty
index 4dd1c96c299..7d6c1bc0901 100644
--- a/Master/texmf-dist/tex/generic/xint/xintseries.sty
+++ b/Master/texmf-dist/tex/generic/xint/xintseries.sty
@@ -22,7 +22,7 @@
%% in the same archive or directory.)
%%
%%----------------------------------------------------------------
-%% The xint bundle (version 1.06a of May 9, 2013)
+%% The xint bundle (version 1.06b of May 14, 2013)
%% xintseries: Expandable partial sums with xint package
%% Copyright (C) 2013 by Jean-Francois Burnol
%%----------------------------------------------------------------
@@ -108,11 +108,11 @@
\endlinechar=13 %
\catcode123=1 % {
\catcode125=2 % }
- \catcode64=11 % @
+ \catcode95=11 % _
\def\x
{%
\endgroup
- \edef\XINT@series@restorecatcodes@endinput
+ \edef\XINT_series_restorecatcodes_endinput
{%
\catcode93=\the\catcode93 % ]
\catcode91=\the\catcode91 % [
@@ -129,7 +129,7 @@
\catcode45=\the\catcode45 % -
\catcode44=\the\catcode44 % ,
\catcode35=\the\catcode35 % #
- \catcode64=\the\catcode64 % @
+ \catcode95=\the\catcode95 % _
\catcode125=\the\catcode125 % }
\catcode123=\the\catcode123 % {
\endlinechar=\the\endlinechar
@@ -138,12 +138,13 @@
\catcode61=\the\catcode61\relax % =
\noexpand\endinput
}%
- \XINT@setcatcodes
+ \XINT_setcatcodes
\catcode91=12 % [
\catcode93=12 % ]
}%
\x
\begingroup
+ \catcode64=11 % @
\catcode58=12 % :
\expandafter\ifx\csname ProvidesPackage\endcsname\relax
\def\x#1#2#3[#4]{\endgroup
@@ -163,237 +164,237 @@
\fi
\expandafter\x\csname ver@xintseries.sty\endcsname
\ProvidesPackage{xintseries}%
- [2013/05/09 v1.06a Expandable partial sums with xint package (jfB)]%
+ [2013/05/14 v1.06b Expandable partial sums with xint package (jfB)]%
\def\xintSeries {\romannumeral0\xintseries }%
\def\xintseries #1#2%
{%
- \expandafter\XINT@series@i\expandafter {\the\numexpr #2}{#1}%
+ \expandafter\XINT_series_i\expandafter {\the\numexpr #2}{#1}%
}%
-\def\XINT@series@i #1#2%
+\def\XINT_series_i #1#2%
{%
- \expandafter\XINT@series@ii\expandafter {\the\numexpr #2}{#1}%
+ \expandafter\XINT_series_ii\expandafter {\the\numexpr #2}{#1}%
}%
-\def\XINT@series@ii #1#2#3%
+\def\XINT_series_ii #1#2#3%
{%
\ifnum #2<#1
- \xint@afterfi { 0/1[0]}%
+ \xint_afterfi { 0/1[0]}%
\else
- \xint@afterfi {\XINT@series@loop {#1}{0}{#2}{#3}}%
+ \xint_afterfi {\XINT_series_loop {#1}{0}{#2}{#3}}%
\fi
}%
-\def\XINT@series@loop #1#2#3#4%
+\def\XINT_series_loop #1#2#3#4%
{%
- \ifnum #3>#1 \else \XINT@series@exit \fi
- \expandafter\XINT@series@loop\expandafter
+ \ifnum #3>#1 \else \XINT_series_exit \fi
+ \expandafter\XINT_series_loop\expandafter
{\the\numexpr #1+1\expandafter }\expandafter
{\romannumeral0\xintadd {#2}{#4{#1}}}%
{#3}{#4}%
}%
-\def\XINT@series@exit \fi #1#2#3#4#5#6#7#8%
+\def\XINT_series_exit \fi #1#2#3#4#5#6#7#8%
{%
- \fi\xint@gobble@ii #6%
+ \fi\xint_gobble_ii #6%
}%
\def\xintiSeries {\romannumeral0\xintiseries }%
\def\xintiseries #1#2%
{%
- \expandafter\XINT@iseries@i\expandafter {\the\numexpr #2}{#1}%
+ \expandafter\XINT_iseries_i\expandafter {\the\numexpr #2}{#1}%
}%
-\def\XINT@iseries@i #1#2%
+\def\XINT_iseries_i #1#2%
{%
- \expandafter\XINT@iseries@ii\expandafter {\the\numexpr #2}{#1}%
+ \expandafter\XINT_iseries_ii\expandafter {\the\numexpr #2}{#1}%
}%
-\def\XINT@iseries@ii #1#2#3%
+\def\XINT_iseries_ii #1#2#3%
{%
\ifnum #2<#1
- \xint@afterfi { 0}%
+ \xint_afterfi { 0}%
\else
- \xint@afterfi {\XINT@iseries@loop {#1}{0}{#2}{#3}}%
+ \xint_afterfi {\XINT_iseries_loop {#1}{0}{#2}{#3}}%
\fi
}%
-\def\XINT@iseries@loop #1#2#3#4%
+\def\XINT_iseries_loop #1#2#3#4%
{%
- \ifnum #3>#1 \else \XINT@iseries@exit \fi
- \expandafter\XINT@iseries@loop\expandafter
+ \ifnum #3>#1 \else \XINT_iseries_exit \fi
+ \expandafter\XINT_iseries_loop\expandafter
{\the\numexpr #1+1\expandafter }\expandafter
{\romannumeral0\xintiadd {#2}{#4{#1}}}%
{#3}{#4}%
}%
-\def\XINT@iseries@exit \fi #1#2#3#4#5#6#7#8%
+\def\XINT_iseries_exit \fi #1#2#3#4#5#6#7#8%
{%
- \fi\xint@gobble@ii #6%
+ \fi\xint_gobble_ii #6%
}%
\def\xintPowerSeries {\romannumeral0\xintpowerseries }%
\def\xintpowerseries #1#2%
{%
- \expandafter\XINT@powseries@i\expandafter {\the\numexpr #2}{#1}%
+ \expandafter\XINT_powseries_i\expandafter {\the\numexpr #2}{#1}%
}%
-\def\XINT@powseries@i #1#2%
+\def\XINT_powseries_i #1#2%
{%
- \expandafter\XINT@powseries@ii\expandafter {\the\numexpr #2}{#1}%
+ \expandafter\XINT_powseries_ii\expandafter {\the\numexpr #2}{#1}%
}%
-\def\XINT@powseries@ii #1#2#3#4%
+\def\XINT_powseries_ii #1#2#3#4%
{%
\ifnum #2<#1
- \xint@afterfi { 0/1[0]}%
+ \xint_afterfi { 0/1[0]}%
\else
- \xint@afterfi
- {\XINT@powseries@loop@i {#3{#2}}{#1}{#2}{#3}{#4}}%
+ \xint_afterfi
+ {\XINT_powseries_loop_i {#3{#2}}{#1}{#2}{#3}{#4}}%
\fi
}%
-\def\XINT@powseries@loop@i #1#2#3#4#5%
+\def\XINT_powseries_loop_i #1#2#3#4#5%
{%
- \ifnum #3>#2 \else\XINT@powseries@exit@i\fi
- \expandafter\XINT@powseries@loop@ii\expandafter
+ \ifnum #3>#2 \else\XINT_powseries_exit_i\fi
+ \expandafter\XINT_powseries_loop_ii\expandafter
{\the\numexpr #3-1\expandafter}\expandafter
{\romannumeral0\xintmul {#1}{#5}}{#2}{#4}{#5}%
}%
-\def\XINT@powseries@loop@ii #1#2#3#4%
+\def\XINT_powseries_loop_ii #1#2#3#4%
{%
- \expandafter\XINT@powseries@loop@i\expandafter
+ \expandafter\XINT_powseries_loop_i\expandafter
{\romannumeral0\xintadd {#4{#1}}{#2}}{#3}{#1}{#4}%
}%
-\def\XINT@powseries@exit@i\fi #1#2#3#4#5#6#7#8#9%
+\def\XINT_powseries_exit_i\fi #1#2#3#4#5#6#7#8#9%
{%
- \fi \XINT@powseries@exit@ii #6{#7}%
+ \fi \XINT_powseries_exit_ii #6{#7}%
}%
-\def\XINT@powseries@exit@ii #1#2#3#4#5#6%
+\def\XINT_powseries_exit_ii #1#2#3#4#5#6%
{%
\xintmul{\xintPow {#5}{#6}}{#4}%
}%
\def\xintPowerSeriesX {\romannumeral0\xintpowerseriesx }%
\def\xintpowerseriesx #1#2%
{%
- \expandafter\XINT@powseriesx@i\expandafter {\the\numexpr #2}{#1}%
+ \expandafter\XINT_powseriesx_i\expandafter {\the\numexpr #2}{#1}%
}%
-\def\XINT@powseriesx@i #1#2%
+\def\XINT_powseriesx_i #1#2%
{%
- \expandafter\XINT@powseriesx@ii\expandafter {\the\numexpr #2}{#1}%
+ \expandafter\XINT_powseriesx_ii\expandafter {\the\numexpr #2}{#1}%
}%
-\def\XINT@powseriesx@ii #1#2#3#4%
+\def\XINT_powseriesx_ii #1#2#3#4%
{%
\ifnum #2<#1
- \xint@afterfi { 0/1[0]}%
+ \xint_afterfi { 0/1[0]}%
\else
- \xint@afterfi
- {\expandafter\XINT@powseriesx@pre\expandafter
+ \xint_afterfi
+ {\expandafter\XINT_powseriesx_pre\expandafter
{\romannumeral-`0#4}{#1}{#2}{#3}%
}%
\fi
}%
-\def\XINT@powseriesx@pre #1#2#3#4%
+\def\XINT_powseriesx_pre #1#2#3#4%
{%
- \XINT@powseries@loop@i {#4{#3}}{#2}{#3}{#4}{#1}%
+ \XINT_powseries_loop_i {#4{#3}}{#2}{#3}{#4}{#1}%
}%
\def\xintRationalSeries {\romannumeral0\xintratseries }%
\def\xintratseries #1#2%
{%
- \expandafter\XINT@ratseries@i\expandafter {\the\numexpr #2}{#1}%
+ \expandafter\XINT_ratseries_i\expandafter {\the\numexpr #2}{#1}%
}%
-\def\XINT@ratseries@i #1#2%
+\def\XINT_ratseries_i #1#2%
{%
- \expandafter\XINT@ratseries@ii\expandafter {\the\numexpr #2}{#1}%
+ \expandafter\XINT_ratseries_ii\expandafter {\the\numexpr #2}{#1}%
}%
-\def\XINT@ratseries@ii #1#2#3#4%
+\def\XINT_ratseries_ii #1#2#3#4%
{%
\ifnum #2<#1
- \xint@afterfi { 0/1[0]}%
+ \xint_afterfi { 0/1[0]}%
\else
- \xint@afterfi
- {\XINT@ratseries@loop {#2}{1}{#1}{#4}{#3}}%
+ \xint_afterfi
+ {\XINT_ratseries_loop {#2}{1}{#1}{#4}{#3}}%
\fi
}%
-\def\XINT@ratseries@loop #1#2#3#4%
+\def\XINT_ratseries_loop #1#2#3#4%
{%
- \ifnum #1>#3 \else\XINT@ratseries@exit@i\fi
- \expandafter\XINT@ratseries@loop\expandafter
+ \ifnum #1>#3 \else\XINT_ratseries_exit_i\fi
+ \expandafter\XINT_ratseries_loop\expandafter
{\the\numexpr #1-1\expandafter}\expandafter
{\romannumeral0\xintadd {1}{\xintMul {#2}{#4{#1}}}}{#3}{#4}%
}%
-\def\XINT@ratseries@exit@i\fi #1#2#3#4#5#6#7#8%
+\def\XINT_ratseries_exit_i\fi #1#2#3#4#5#6#7#8%
{%
- \fi \XINT@ratseries@exit@ii #6%
+ \fi \XINT_ratseries_exit_ii #6%
}%
-\def\XINT@ratseries@exit@ii #1#2#3#4#5%
+\def\XINT_ratseries_exit_ii #1#2#3#4#5%
{%
- \XINT@ratseries@exit@iii #5%
+ \XINT_ratseries_exit_iii #5%
}%
-\def\XINT@ratseries@exit@iii #1#2#3#4%
+\def\XINT_ratseries_exit_iii #1#2#3#4%
{%
\xintmul{#2}{#4}%
}%
\def\xintRationalSeriesX {\romannumeral0\xintratseriesx }%
\def\xintratseriesx #1#2%
{%
- \expandafter\XINT@ratseriesx@i\expandafter {\the\numexpr #2}{#1}%
+ \expandafter\XINT_ratseriesx_i\expandafter {\the\numexpr #2}{#1}%
}%
-\def\XINT@ratseriesx@i #1#2%
+\def\XINT_ratseriesx_i #1#2%
{%
- \expandafter\XINT@ratseriesx@ii\expandafter {\the\numexpr #2}{#1}%
+ \expandafter\XINT_ratseriesx_ii\expandafter {\the\numexpr #2}{#1}%
}%
-\def\XINT@ratseriesx@ii #1#2#3#4#5%
+\def\XINT_ratseriesx_ii #1#2#3#4#5%
{%
\ifnum #2<#1
- \xint@afterfi { 0/1[0]}%
+ \xint_afterfi { 0/1[0]}%
\else
- \xint@afterfi
- {\expandafter\XINT@ratseriesx@pre\expandafter
+ \xint_afterfi
+ {\expandafter\XINT_ratseriesx_pre\expandafter
{\romannumeral-`0#5}{#2}{#1}{#4}{#3}%
}%
\fi
}%
-\def\XINT@ratseriesx@pre #1#2#3#4#5%
+\def\XINT_ratseriesx_pre #1#2#3#4#5%
{%
- \XINT@ratseries@loop {#2}{1}{#3}{#4{#1}}{#5{#1}}%
+ \XINT_ratseries_loop {#2}{1}{#3}{#4{#1}}{#5{#1}}%
}%
\def\xintFxPtPowerSeries {\romannumeral0\xintfxptpowerseries }%
\def\xintfxptpowerseries #1#2%
{%
- \expandafter\XINT@fppowseries@i\expandafter {\the\numexpr #2}{#1}%
+ \expandafter\XINT_fppowseries_i\expandafter {\the\numexpr #2}{#1}%
}%
-\def\XINT@fppowseries@i #1#2%
+\def\XINT_fppowseries_i #1#2%
{%
- \expandafter\XINT@fppowseries@ii\expandafter {\the\numexpr #2}{#1}%
+ \expandafter\XINT_fppowseries_ii\expandafter {\the\numexpr #2}{#1}%
}%
-\def\XINT@fppowseries@ii #1#2#3#4#5%
+\def\XINT_fppowseries_ii #1#2#3#4#5%
{%
\ifnum #2<#1
- \xint@afterfi { 0}%
+ \xint_afterfi { 0}%
\else
- \xint@afterfi
- {\expandafter\XINT@fppowseries@loop@pre\expandafter
+ \xint_afterfi
+ {\expandafter\XINT_fppowseries_loop_pre\expandafter
{\romannumeral0\xinttrunc {#5}{\xintPow {#4}{#1}}}%
{#1}{#4}{#2}{#3}{#5}%
}%
\fi
}%
-\def\XINT@fppowseries@loop@pre #1#2#3#4#5#6%
+\def\XINT_fppowseries_loop_pre #1#2#3#4#5#6%
{%
- \ifnum #4>#2 \else\XINT@fppowseries@dont@i \fi
- \expandafter\XINT@fppowseries@loop@i\expandafter
+ \ifnum #4>#2 \else\XINT_fppowseries_dont_i \fi
+ \expandafter\XINT_fppowseries_loop_i\expandafter
{\the\numexpr #2+1\expandafter}\expandafter
{\romannumeral0\xintitrunc {#6}{\xintMul {#5{#2}}{#1}}}%
{#1}{#3}{#4}{#5}{#6}%
}%
-\def\XINT@fppowseries@dont@i \fi\expandafter\XINT@fppowseries@loop@i
- {\fi \expandafter\XINT@fppowseries@dont@ii }%
-\def\XINT@fppowseries@dont@ii #1#2#3#4#5#6#7{\xinttrunc {#7}{#2[-#7]}}%
-\def\XINT@fppowseries@loop@i #1#2#3#4#5#6#7%
+\def\XINT_fppowseries_dont_i \fi\expandafter\XINT_fppowseries_loop_i
+ {\fi \expandafter\XINT_fppowseries_dont_ii }%
+\def\XINT_fppowseries_dont_ii #1#2#3#4#5#6#7{\xinttrunc {#7}{#2[-#7]}}%
+\def\XINT_fppowseries_loop_i #1#2#3#4#5#6#7%
{%
- \ifnum #5>#1 \else \XINT@fppowseries@exit@i \fi
- \expandafter\XINT@fppowseries@loop@ii\expandafter
+ \ifnum #5>#1 \else \XINT_fppowseries_exit_i \fi
+ \expandafter\XINT_fppowseries_loop_ii\expandafter
{\romannumeral0\xinttrunc {#7}{\xintMul {#3}{#4}}}%
{#1}{#4}{#2}{#5}{#6}{#7}%
}%
-\def\XINT@fppowseries@loop@ii #1#2#3#4#5#6#7%
+\def\XINT_fppowseries_loop_ii #1#2#3#4#5#6#7%
{%
- \expandafter\XINT@fppowseries@loop@i\expandafter
+ \expandafter\XINT_fppowseries_loop_i\expandafter
{\the\numexpr #2+1\expandafter}\expandafter
{\romannumeral0\xintiadd {#4}{\xintiTrunc {#7}{\xintMul {#6{#2}}{#1}}}}%
{#1}{#3}{#5}{#6}{#7}%
}%
-\def\XINT@fppowseries@exit@i\fi\expandafter\XINT@fppowseries@loop@ii
- {\fi \expandafter\XINT@fppowseries@exit@ii }%
-\def\XINT@fppowseries@exit@ii #1#2#3#4#5#6#7%
+\def\XINT_fppowseries_exit_i\fi\expandafter\XINT_fppowseries_loop_ii
+ {\fi \expandafter\XINT_fppowseries_exit_ii }%
+\def\XINT_fppowseries_exit_ii #1#2#3#4#5#6#7%
{%
\xinttrunc {#7}
{\xintiAdd {#4}{\xintiTrunc {#7}{\xintMul {#6{#2}}{#1}}}[-#7]}%
@@ -401,30 +402,30 @@
\def\xintFxPtPowerSeriesX {\romannumeral0\xintfxptpowerseriesx }%
\def\xintfxptpowerseriesx #1#2%
{%
- \expandafter\XINT@fppowseriesx@i\expandafter {\the\numexpr #2}{#1}%
+ \expandafter\XINT_fppowseriesx_i\expandafter {\the\numexpr #2}{#1}%
}%
-\def\XINT@fppowseriesx@i #1#2%
+\def\XINT_fppowseriesx_i #1#2%
{%
- \expandafter\XINT@fppowseriesx@ii\expandafter {\the\numexpr #2}{#1}%
+ \expandafter\XINT_fppowseriesx_ii\expandafter {\the\numexpr #2}{#1}%
}%
-\def\XINT@fppowseriesx@ii #1#2#3#4#5%
+\def\XINT_fppowseriesx_ii #1#2#3#4#5%
{%
\ifnum #2<#1
- \xint@afterfi { 0}%
+ \xint_afterfi { 0}%
\else
- \xint@afterfi
- {\expandafter \XINT@fppowseriesx@pre \expandafter
+ \xint_afterfi
+ {\expandafter \XINT_fppowseriesx_pre \expandafter
{\romannumeral-`0#4}{#1}{#2}{#3}{#5}%
}%
\fi
}%
-\def\XINT@fppowseriesx@pre #1#2#3#4#5%
+\def\XINT_fppowseriesx_pre #1#2#3#4#5%
{%
- \expandafter\XINT@fppowseries@loop@pre\expandafter
+ \expandafter\XINT_fppowseries_loop_pre\expandafter
{\romannumeral0\xinttrunc {#5}{\xintPow {#1}{#2}}}%
{#2}{#1}{#3}{#4}{#5}%
}%
-\XINT@series@restorecatcodes@endinput%
+\XINT_series_restorecatcodes_endinput%
\endinput
%%
%% End of file `xintseries.sty'.