summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/xint/xintcfrac.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/xint/xintcfrac.sty')
-rw-r--r--Master/texmf-dist/tex/generic/xint/xintcfrac.sty192
1 files changed, 100 insertions, 92 deletions
diff --git a/Master/texmf-dist/tex/generic/xint/xintcfrac.sty b/Master/texmf-dist/tex/generic/xint/xintcfrac.sty
index 21ccae4f1f4..244f3fa5cff 100644
--- a/Master/texmf-dist/tex/generic/xint/xintcfrac.sty
+++ b/Master/texmf-dist/tex/generic/xint/xintcfrac.sty
@@ -21,7 +21,7 @@
%% same distribution. (The sources need not necessarily be
%% in the same archive or directory.)
%% ---------------------------------------------------------------
-%% The xint bundle 1.2k 2017/01/06
+%% The xint bundle 1.2l 2017/07/26
%% Copyright (C) 2013-2017 by Jean-Francois Burnol
%% xintcfrac: Expandable continued fractions with xint package
%% ---------------------------------------------------------------
@@ -70,22 +70,22 @@
\XINTsetupcatcodes% defined in xintkernel.sty
\XINT_providespackage
\ProvidesPackage{xintcfrac}%
- [2017/01/06 1.2k Expandable continued fractions with xint package (JFB)]%
+ [2017/07/26 1.2l Expandable continued fractions with xint package (JFB)]%
\def\xintCFrac {\romannumeral0\xintcfrac }%
\def\xintcfrac #1%
{%
- \XINT_cfrac_opt_a #1\xint_relax
+ \XINT_cfrac_opt_a #1\xint:
}%
\def\XINT_cfrac_opt_a #1%
{%
\ifx[#1\XINT_cfrac_opt_b\fi \XINT_cfrac_noopt #1%
}%
-\def\XINT_cfrac_noopt #1\xint_relax
+\def\XINT_cfrac_noopt #1\xint:
{%
\expandafter\XINT_cfrac_A\romannumeral0\xintrawwithzeros {#1}\Z
\relax\relax
}%
-\def\XINT_cfrac_opt_b\fi\XINT_cfrac_noopt [\xint_relax #1]%
+\def\XINT_cfrac_opt_b\fi\XINT_cfrac_noopt [\xint:#1]%
{%
\fi\csname XINT_cfrac_opt#1\endcsname
}%
@@ -146,30 +146,30 @@
}%
\def\XINT_cfrac_end_b \Z+\cfrac#1#2{ #2}%
\def\xintGCFrac {\romannumeral0\xintgcfrac }%
-\def\xintgcfrac #1{\XINT_gcfrac_opt_a #1\xint_relax }%
+\def\xintgcfrac #1{\XINT_gcfrac_opt_a #1\xint:}%
\def\XINT_gcfrac_opt_a #1%
{%
\ifx[#1\XINT_gcfrac_opt_b\fi \XINT_gcfrac_noopt #1%
}%
-\def\XINT_gcfrac_noopt #1\xint_relax
+\def\XINT_gcfrac_noopt #1\xint:%
{%
- \XINT_gcfrac #1+\xint_relax/\relax\relax
+ \XINT_gcfrac #1+!/\relax\relax
}%
-\def\XINT_gcfrac_opt_b\fi\XINT_gcfrac_noopt [\xint_relax #1]%
+\def\XINT_gcfrac_opt_b\fi\XINT_gcfrac_noopt [\xint:#1]%
{%
\fi\csname XINT_gcfrac_opt#1\endcsname
}%
\def\XINT_gcfrac_optl #1%
{%
- \XINT_gcfrac #1+\xint_relax/\relax\hfill
+ \XINT_gcfrac #1+!/\relax\hfill
}%
\def\XINT_gcfrac_optc #1%
{%
- \XINT_gcfrac #1+\xint_relax/\relax\relax
+ \XINT_gcfrac #1+!/\relax\relax
}%
\def\XINT_gcfrac_optr #1%
{%
- \XINT_gcfrac #1+\xint_relax/\hfill\relax
+ \XINT_gcfrac #1+!/\hfill\relax
}%
\def\XINT_gcfrac
{%
@@ -178,52 +178,52 @@
\def\XINT_gcfrac_enter {\XINT_gcfrac_loop {}}%
\def\XINT_gcfrac_loop #1#2+#3/%
{%
- \xint_gob_til_xint_relax #3\XINT_gcfrac_endloop\xint_relax
+ \xint_gob_til_exclam #3\XINT_gcfrac_endloop!%
\XINT_gcfrac_loop {{#3}{#2}#1}%
}%
-\def\XINT_gcfrac_endloop\xint_relax\XINT_gcfrac_loop #1#2#3%
+\def\XINT_gcfrac_endloop!\XINT_gcfrac_loop #1#2#3%
{%
- \XINT_gcfrac_T #2#3#1\xint_relax\xint_relax
+ \XINT_gcfrac_T #2#3#1!!%
}%
\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_gob_til_xint_relax #5\XINT_gcfrac_end\xint_relax\XINT_gcfrac_U
+ \xint_gob_til_exclam #5\XINT_gcfrac_end!\XINT_gcfrac_U
#1#2{\xintFrac{#5}%
\ifcase\xintSgn{#4}
+\or+\else-\fi
\cfrac{#1\xintFrac{\xintAbs{#4}}#2}{#3}}%
}%
-\def\XINT_gcfrac_end\xint_relax\XINT_gcfrac_U #1#2#3%
+\def\XINT_gcfrac_end!\XINT_gcfrac_U #1#2#3%
{%
\XINT_gcfrac_end_b #3%
}%
\def\XINT_gcfrac_end_b #1\cfrac#2#3{ #3}%
\def\xintGGCFrac {\romannumeral0\xintggcfrac }%
-\def\xintggcfrac #1{\XINT_ggcfrac_opt_a #1\xint_relax }%
+\def\xintggcfrac #1{\XINT_ggcfrac_opt_a #1\xint:}%
\def\XINT_ggcfrac_opt_a #1%
{%
\ifx[#1\XINT_ggcfrac_opt_b\fi \XINT_ggcfrac_noopt #1%
}%
-\def\XINT_ggcfrac_noopt #1\xint_relax
+\def\XINT_ggcfrac_noopt #1\xint:
{%
- \XINT_ggcfrac #1+\xint_relax/\relax\relax
+ \XINT_ggcfrac #1+!/\relax\relax
}%
-\def\XINT_ggcfrac_opt_b\fi\XINT_ggcfrac_noopt [\xint_relax #1]%
+\def\XINT_ggcfrac_opt_b\fi\XINT_ggcfrac_noopt [\xint:#1]%
{%
\fi\csname XINT_ggcfrac_opt#1\endcsname
}%
\def\XINT_ggcfrac_optl #1%
{%
- \XINT_ggcfrac #1+\xint_relax/\relax\hfill
+ \XINT_ggcfrac #1+!/\relax\hfill
}%
\def\XINT_ggcfrac_optc #1%
{%
- \XINT_ggcfrac #1+\xint_relax/\relax\relax
+ \XINT_ggcfrac #1+!/\relax\relax
}%
\def\XINT_ggcfrac_optr #1%
{%
- \XINT_ggcfrac #1+\xint_relax/\hfill\relax
+ \XINT_ggcfrac #1+!/\hfill\relax
}%
\def\XINT_ggcfrac
{%
@@ -232,20 +232,20 @@
\def\XINT_ggcfrac_enter {\XINT_ggcfrac_loop {}}%
\def\XINT_ggcfrac_loop #1#2+#3/%
{%
- \xint_gob_til_xint_relax #3\XINT_ggcfrac_endloop\xint_relax
+ \xint_gob_til_exclam #3\XINT_ggcfrac_endloop!%
\XINT_ggcfrac_loop {{#3}{#2}#1}%
}%
-\def\XINT_ggcfrac_endloop\xint_relax\XINT_ggcfrac_loop #1#2#3%
+\def\XINT_ggcfrac_endloop!\XINT_ggcfrac_loop #1#2#3%
{%
- \XINT_ggcfrac_T #2#3#1\xint_relax\xint_relax
+ \XINT_ggcfrac_T #2#3#1!!%
}%
\def\XINT_ggcfrac_T #1#2#3#4{\XINT_ggcfrac_U #1#2{#4}}%
\def\XINT_ggcfrac_U #1#2#3#4#5%
{%
- \xint_gob_til_xint_relax #5\XINT_ggcfrac_end\xint_relax\XINT_ggcfrac_U
+ \xint_gob_til_exclam #5\XINT_ggcfrac_end!\XINT_ggcfrac_U
#1#2{#5+\cfrac{#1#4#2}{#3}}%
}%
-\def\XINT_ggcfrac_end\xint_relax\XINT_ggcfrac_U #1#2#3%
+\def\XINT_ggcfrac_end!\XINT_ggcfrac_U #1#2#3%
{%
\XINT_ggcfrac_end_b #3%
}%
@@ -255,17 +255,17 @@
{%
\expandafter\XINT_gctgcx_start\expandafter {\romannumeral`&&@#3}{#1}{#2}%
}%
-\def\XINT_gctgcx_start #1#2#3{\XINT_gctgcx_loop_a {}{#2}{#3}#1+\xint_relax/}%
+\def\XINT_gctgcx_start #1#2#3{\XINT_gctgcx_loop_a {}{#2}{#3}#1+!/}%
\def\XINT_gctgcx_loop_a #1#2#3#4+#5/%
{%
- \xint_gob_til_xint_relax #5\XINT_gctgcx_end\xint_relax
+ \xint_gob_til_exclam #5\XINT_gctgcx_end!%
\XINT_gctgcx_loop_b {#1{#4}}{#2{#5}#3}{#2}{#3}%
}%
\def\XINT_gctgcx_loop_b #1#2%
{%
\XINT_gctgcx_loop_a {#1#2}%
}%
-\def\XINT_gctgcx_end\xint_relax\XINT_gctgcx_loop_b #1#2#3#4{ #1}%
+\def\XINT_gctgcx_end!\XINT_gctgcx_loop_b #1#2#3#4{ #1}%
\def\xintFtoCs {\romannumeral0\xintftocs }%
\def\xintftocs #1%
{%
@@ -461,12 +461,12 @@
\def\xintCstoF {\romannumeral0\xintcstof }%
\def\xintcstof #1%
{%
- \expandafter\XINT_ctf_prep \romannumeral0\xintcsvtolist{#1}\xint_relax
+ \expandafter\XINT_ctf_prep \romannumeral0\xintcsvtolist{#1}!%
}%
\def\xintCtoF {\romannumeral0\xintctof }%
\def\xintctof #1%
{%
- \expandafter\XINT_ctf_prep \romannumeral`&&@#1\xint_relax
+ \expandafter\XINT_ctf_prep \romannumeral`&&@#1!%
}%
\def\XINT_ctf_prep
{%
@@ -474,17 +474,19 @@
}%
\def\XINT_ctf_loop_a #1#2#3#4#5%
{%
- \xint_gob_til_xint_relax #5\XINT_ctf_end\xint_relax
+ \xint_gob_til_exclam #5\XINT_ctf_end!%
\expandafter\XINT_ctf_loop_b
\romannumeral0\xintrawwithzeros {#5}.{#1}{#2}{#3}{#4}%
}%
\def\XINT_ctf_loop_b #1/#2.#3#4#5#6%
{%
\expandafter\XINT_ctf_loop_c\expandafter
- {\romannumeral0\XINT_mul_fork #2\Z #4\Z }%
- {\romannumeral0\XINT_mul_fork #2\Z #3\Z }%
- {\romannumeral0\xintiiadd {\XINT_mul_fork #2\Z #6\Z}{\XINT_mul_fork #1\Z #4\Z}}%
- {\romannumeral0\xintiiadd {\XINT_mul_fork #2\Z #5\Z}{\XINT_mul_fork #1\Z #3\Z}}%
+ {\romannumeral0\XINT_mul_fork #2\xint:#4\xint:}%
+ {\romannumeral0\XINT_mul_fork #2\xint:#3\xint:}%
+ {\romannumeral0\xintiiadd {\XINT_mul_fork #2\xint:#6\xint:}%
+ {\XINT_mul_fork #1\xint:#4\xint:}}%
+ {\romannumeral0\xintiiadd {\XINT_mul_fork #2\xint:#5\xint:}%
+ {\XINT_mul_fork #1\xint:#3\xint:}}%
}%
\def\XINT_ctf_loop_c #1#2%
{%
@@ -502,7 +504,7 @@
\def\xintiCstoF {\romannumeral0\xinticstof }%
\def\xinticstof #1%
{%
- \expandafter\XINT_icstf_prep \romannumeral`&&@#1,\xint_relax,%
+ \expandafter\XINT_icstf_prep \romannumeral`&&@#1,!,%
}%
\def\XINT_icstf_prep
{%
@@ -510,15 +512,15 @@
}%
\def\XINT_icstf_loop_a #1#2#3#4#5,%
{%
- \xint_gob_til_xint_relax #5\XINT_icstf_end\xint_relax
+ \xint_gob_til_exclam #5\XINT_icstf_end!%
\expandafter
\XINT_icstf_loop_b \romannumeral`&&@#5.{#1}{#2}{#3}{#4}%
}%
\def\XINT_icstf_loop_b #1.#2#3#4#5%
{%
\expandafter\XINT_icstf_loop_c\expandafter
- {\romannumeral0\xintiiadd {#5}{\XINT_mul_fork #1\Z #3\Z}}%
- {\romannumeral0\xintiiadd {#4}{\XINT_mul_fork #1\Z #2\Z}}%
+ {\romannumeral0\xintiiadd {#5}{\XINT_mul_fork #1\xint:#3\xint:}}%
+ {\romannumeral0\xintiiadd {#4}{\XINT_mul_fork #1\xint:#2\xint:}}%
{#2}{#3}%
}%
\def\XINT_icstf_loop_c #1#2%
@@ -529,7 +531,7 @@
\def\xintGCtoF {\romannumeral0\xintgctof }%
\def\xintgctof #1%
{%
- \expandafter\XINT_gctf_prep \romannumeral`&&@#1+\xint_relax/%
+ \expandafter\XINT_gctf_prep \romannumeral`&&@#1+!/%
}%
\def\XINT_gctf_prep
{%
@@ -543,10 +545,12 @@
\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\xintiiadd {\XINT_mul_fork #2\Z #6\Z}{\XINT_mul_fork #1\Z #4\Z}}%
- {\romannumeral0\xintiiadd {\XINT_mul_fork #2\Z #5\Z}{\XINT_mul_fork #1\Z #3\Z}}%
+ {\romannumeral0\XINT_mul_fork #2\xint:#4\xint:}%
+ {\romannumeral0\XINT_mul_fork #2\xint:#3\xint:}%
+ {\romannumeral0\xintiiadd {\XINT_mul_fork #2\xint:#6\xint:}%
+ {\XINT_mul_fork #1\xint:#4\xint:}}%
+ {\romannumeral0\xintiiadd {\XINT_mul_fork #2\xint:#5\xint:}%
+ {\XINT_mul_fork #1\xint:#3\xint:}}%
}%
\def\XINT_gctf_loop_c #1#2%
{%
@@ -562,17 +566,17 @@
}%
\def\XINT_gctf_loop_f #1#2/%
{%
- \xint_gob_til_xint_relax #2\XINT_gctf_end\xint_relax
+ \xint_gob_til_exclam #2\XINT_gctf_end!%
\expandafter\XINT_gctf_loop_g
\romannumeral0\xintrawwithzeros {#2}.#1%
}%
\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 }%
+ {\romannumeral0\XINT_mul_fork #1\xint:#6\xint:}%
+ {\romannumeral0\XINT_mul_fork #1\xint:#5\xint:}%
+ {\romannumeral0\XINT_mul_fork #2\xint:#4\xint:}%
+ {\romannumeral0\XINT_mul_fork #2\xint:#3\xint:}%
}%
\def\XINT_gctf_loop_h #1#2%
{%
@@ -590,7 +594,7 @@
\def\xintiGCtoF {\romannumeral0\xintigctof }%
\def\xintigctof #1%
{%
- \expandafter\XINT_igctf_prep \romannumeral`&&@#1+\xint_relax/%
+ \expandafter\XINT_igctf_prep \romannumeral`&&@#1+!/%
}%
\def\XINT_igctf_prep
{%
@@ -604,8 +608,8 @@
\def\XINT_igctf_loop_b #1.#2#3#4#5%
{%
\expandafter\XINT_igctf_loop_c\expandafter
- {\romannumeral0\xintiiadd {#5}{\XINT_mul_fork #1\Z #3\Z}}%
- {\romannumeral0\xintiiadd {#4}{\XINT_mul_fork #1\Z #2\Z}}%
+ {\romannumeral0\xintiiadd {#5}{\XINT_mul_fork #1\xint:#3\xint:}}%
+ {\romannumeral0\xintiiadd {#4}{\XINT_mul_fork #1\xint:#2\xint:}}%
{#2}{#3}%
}%
\def\XINT_igctf_loop_c #1#2%
@@ -614,15 +618,15 @@
}%
\def\XINT_igctf_loop_f #1#2#3#4/%
{%
- \xint_gob_til_xint_relax #4\XINT_igctf_end\xint_relax
+ \xint_gob_til_exclam #4\XINT_igctf_end!%
\expandafter\XINT_igctf_loop_g
\romannumeral`&&@#4.{#2}{#3}#1%
}%
\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 }%
+ {\romannumeral0\XINT_mul_fork #1\xint:#3\xint:}%
+ {\romannumeral0\XINT_mul_fork #1\xint:#2\xint:}%
}%
\def\XINT_igctf_loop_h #1#2%
{%
@@ -636,12 +640,12 @@
\def\xintCstoCv {\romannumeral0\xintcstocv }%
\def\xintcstocv #1%
{%
- \expandafter\XINT_ctcv_prep\romannumeral0\xintcsvtolist{#1}\xint_relax
+ \expandafter\XINT_ctcv_prep\romannumeral0\xintcsvtolist{#1}!%
}%
\def\xintCtoCv {\romannumeral0\xintctocv }%
\def\xintctocv #1%
{%
- \expandafter\XINT_ctcv_prep\romannumeral`&&@#1\xint_relax
+ \expandafter\XINT_ctcv_prep\romannumeral`&&@#1!%
}%
\def\XINT_ctcv_prep
{%
@@ -649,17 +653,19 @@
}%
\def\XINT_ctcv_loop_a #1#2#3#4#5#6%
{%
- \xint_gob_til_xint_relax #6\XINT_ctcv_end\xint_relax
+ \xint_gob_til_exclam #6\XINT_ctcv_end!%
\expandafter\XINT_ctcv_loop_b
\romannumeral0\xintrawwithzeros {#6}.{#2}{#3}{#4}{#5}{#1}%
}%
\def\XINT_ctcv_loop_b #1/#2.#3#4#5#6%
{%
\expandafter\XINT_ctcv_loop_c\expandafter
- {\romannumeral0\XINT_mul_fork #2\Z #4\Z }%
- {\romannumeral0\XINT_mul_fork #2\Z #3\Z }%
- {\romannumeral0\xintiiadd {\XINT_mul_fork #2\Z #6\Z}{\XINT_mul_fork #1\Z #4\Z}}%
- {\romannumeral0\xintiiadd {\XINT_mul_fork #2\Z #5\Z}{\XINT_mul_fork #1\Z #3\Z}}%
+ {\romannumeral0\XINT_mul_fork #2\xint:#4\xint:}%
+ {\romannumeral0\XINT_mul_fork #2\xint:#3\xint:}%
+ {\romannumeral0\xintiiadd {\XINT_mul_fork #2\xint:#6\xint:}%
+ {\XINT_mul_fork #1\xint:#4\xint:}}%
+ {\romannumeral0\xintiiadd {\XINT_mul_fork #2\xint:#5\xint:}%
+ {\XINT_mul_fork #1\xint:#3\xint:}}%
}%
\def\XINT_ctcv_loop_c #1#2%
{%
@@ -683,7 +689,7 @@
\def\xintiCstoCv {\romannumeral0\xinticstocv }%
\def\xinticstocv #1%
{%
- \expandafter\XINT_icstcv_prep \romannumeral`&&@#1,\xint_relax,%
+ \expandafter\XINT_icstcv_prep \romannumeral`&&@#1,!,%
}%
\def\XINT_icstcv_prep
{%
@@ -691,15 +697,15 @@
}%
\def\XINT_icstcv_loop_a #1#2#3#4#5#6,%
{%
- \xint_gob_til_xint_relax #6\XINT_icstcv_end\xint_relax
+ \xint_gob_til_exclam #6\XINT_icstcv_end!%
\expandafter
\XINT_icstcv_loop_b \romannumeral`&&@#6.{#2}{#3}{#4}{#5}{#1}%
}%
\def\XINT_icstcv_loop_b #1.#2#3#4#5%
{%
\expandafter\XINT_icstcv_loop_c\expandafter
- {\romannumeral0\xintiiadd {#5}{\XINT_mul_fork #1\Z #3\Z}}%
- {\romannumeral0\xintiiadd {#4}{\XINT_mul_fork #1\Z #2\Z}}%
+ {\romannumeral0\xintiiadd {#5}{\XINT_mul_fork #1\xint:#3\xint:}}%
+ {\romannumeral0\xintiiadd {#4}{\XINT_mul_fork #1\xint:#2\xint:}}%
{{#2}{#3}}%
}%
\def\XINT_icstcv_loop_c #1#2%
@@ -716,7 +722,7 @@
\def\xintGCtoCv {\romannumeral0\xintgctocv }%
\def\xintgctocv #1%
{%
- \expandafter\XINT_gctcv_prep \romannumeral`&&@#1+\xint_relax/%
+ \expandafter\XINT_gctcv_prep \romannumeral`&&@#1+!/%
}%
\def\XINT_gctcv_prep
{%
@@ -730,10 +736,12 @@
\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\xintiiadd {\XINT_mul_fork #2\Z #6\Z}{\XINT_mul_fork #1\Z #4\Z}}%
- {\romannumeral0\xintiiadd {\XINT_mul_fork #2\Z #5\Z}{\XINT_mul_fork #1\Z #3\Z}}%
+ {\romannumeral0\XINT_mul_fork #2\xint:#4\xint:}%
+ {\romannumeral0\XINT_mul_fork #2\xint:#3\xint:}%
+ {\romannumeral0\xintiiadd {\XINT_mul_fork #2\xint:#6\xint:}%
+ {\XINT_mul_fork #1\xint:#4\xint:}}%
+ {\romannumeral0\xintiiadd {\XINT_mul_fork #2\xint:#5\xint:}%
+ {\XINT_mul_fork #1\xint:#3\xint:}}%
}%
\def\XINT_gctcv_loop_c #1#2%
{%
@@ -758,17 +766,17 @@
}%
\def\XINT_gctcv_loop_h #1#2#3/%
{%
- \xint_gob_til_xint_relax #3\XINT_gctcv_end\xint_relax
+ \xint_gob_til_exclam #3\XINT_gctcv_end!%
\expandafter\XINT_gctcv_loop_i
\romannumeral0\xintrawwithzeros {#3}.#2{#1}%
}%
\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 }%
+ {\romannumeral0\XINT_mul_fork #1\xint:#6\xint:}%
+ {\romannumeral0\XINT_mul_fork #1\xint:#5\xint:}%
+ {\romannumeral0\XINT_mul_fork #2\xint:#4\xint:}%
+ {\romannumeral0\XINT_mul_fork #2\xint:#3\xint:}%
}%
\def\XINT_gctcv_loop_j #1#2%
{%
@@ -787,7 +795,7 @@
\def\xintiGCtoCv {\romannumeral0\xintigctocv }%
\def\xintigctocv #1%
{%
- \expandafter\XINT_igctcv_prep \romannumeral`&&@#1+\xint_relax/%
+ \expandafter\XINT_igctcv_prep \romannumeral`&&@#1+!/%
}%
\def\XINT_igctcv_prep
{%
@@ -801,8 +809,8 @@
\def\XINT_igctcv_loop_b #1.#2#3#4#5%
{%
\expandafter\XINT_igctcv_loop_c\expandafter
- {\romannumeral0\xintiiadd {#5}{\XINT_mul_fork #1\Z #3\Z}}%
- {\romannumeral0\xintiiadd {#4}{\XINT_mul_fork #1\Z #2\Z}}%
+ {\romannumeral0\xintiiadd {#5}{\XINT_mul_fork #1\xint:#3\xint:}}%
+ {\romannumeral0\xintiiadd {#4}{\XINT_mul_fork #1\xint:#2\xint:}}%
{{#2}{#3}}%
}%
\def\XINT_igctcv_loop_c #1#2%
@@ -811,15 +819,15 @@
}%
\def\XINT_igctcv_loop_f #1#2#3#4/%
{%
- \xint_gob_til_xint_relax #4\XINT_igctcv_end_a\xint_relax
+ \xint_gob_til_exclam #4\XINT_igctcv_end_a!%
\expandafter\XINT_igctcv_loop_g
\romannumeral`&&@#4.#1#2{#3}%
}%
\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 }%
+ {\romannumeral0\XINT_mul_fork #1\xint:#5\xint:}%
+ {\romannumeral0\XINT_mul_fork #1\xint:#4\xint:}%
{{#2}{#3}}%
}%
\def\XINT_igctcv_loop_h #1#2%
@@ -1009,25 +1017,25 @@
\def\xintCstoGC {\romannumeral0\xintcstogc }%
\def\xintcstogc #1%
{%
- \expandafter\XINT_cstc_prep \romannumeral`&&@#1,\xint_relax,%
+ \expandafter\XINT_cstc_prep \romannumeral`&&@#1,!,%
}%
\def\XINT_cstc_prep #1,{\XINT_cstc_loop_a {{#1}}}%
\def\XINT_cstc_loop_a #1#2,%
{%
- \xint_gob_til_xint_relax #2\XINT_cstc_end\xint_relax
+ \xint_gob_til_exclam #2\XINT_cstc_end!%
\XINT_cstc_loop_b {#1}{#2}%
}%
\def\XINT_cstc_loop_b #1#2{\XINT_cstc_loop_a {#1+1/{#2}}}%
-\def\XINT_cstc_end\xint_relax\XINT_cstc_loop_b #1#2{ #1}%
+\def\XINT_cstc_end!\XINT_cstc_loop_b #1#2{ #1}%
\def\xintGCtoGC {\romannumeral0\xintgctogc }%
\def\xintgctogc #1%
{%
- \expandafter\XINT_gctgc_start \romannumeral`&&@#1+\xint_relax/%
+ \expandafter\XINT_gctgc_start \romannumeral`&&@#1+!/%
}%
\def\XINT_gctgc_start {\XINT_gctgc_loop_a {}}%
\def\XINT_gctgc_loop_a #1#2+#3/%
{%
- \xint_gob_til_xint_relax #3\XINT_gctgc_end\xint_relax
+ \xint_gob_til_exclam #3\XINT_gctgc_end!%
\expandafter\XINT_gctgc_loop_b\expandafter
{\romannumeral`&&@#2}{#3}{#1}%
}%
@@ -1040,7 +1048,7 @@
{%
\XINT_gctgc_loop_a {#3{#2}+{#1}/}%
}%
-\def\XINT_gctgc_end\xint_relax\expandafter\XINT_gctgc_loop_b
+\def\XINT_gctgc_end!\expandafter\XINT_gctgc_loop_b
{%
\expandafter\XINT_gctgc_end_b
}%