summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/xint/xintfrac.sty
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/generic/xint/xintfrac.sty
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/generic/xint/xintfrac.sty')
-rw-r--r--Master/texmf-dist/tex/generic/xint/xintfrac.sty1072
1 files changed, 539 insertions, 533 deletions
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'.