diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/xint/xintcfrac.sty')
-rw-r--r-- | Master/texmf-dist/tex/generic/xint/xintcfrac.sty | 192 |
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 }% |