diff options
author | Karl Berry <karl@freefriends.org> | 2016-12-23 23:05:36 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2016-12-23 23:05:36 +0000 |
commit | 356fa8c73e53d0d1f2b0e438ed71be0c92c4aaaf (patch) | |
tree | 8216d7ba46ae1725d1ca3202b53d27f31d48a8c9 /Master/texmf-dist/tex/generic/xint/xintkernel.sty | |
parent | 53a12757d6cc681bfd39c6bb93db49b2c21ee97b (diff) |
xint (23dec16)
git-svn-id: svn://tug.org/texlive/trunk@42782 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/xint/xintkernel.sty')
-rw-r--r-- | Master/texmf-dist/tex/generic/xint/xintkernel.sty | 57 |
1 files changed, 27 insertions, 30 deletions
diff --git a/Master/texmf-dist/tex/generic/xint/xintkernel.sty b/Master/texmf-dist/tex/generic/xint/xintkernel.sty index b887988dcb5..5e430f90f7d 100644 --- a/Master/texmf-dist/tex/generic/xint/xintkernel.sty +++ b/Master/texmf-dist/tex/generic/xint/xintkernel.sty @@ -21,7 +21,7 @@ %% same distribution. (The sources need not necessarily be %% in the same archive or directory.) %% --------------------------------------------------------------- -%% The xint bundle 1.2i 2016/12/13 +%% The xint bundle 1.2j 2016/12/22 %% Copyright (C) 2013-2016 by Jean-Francois Burnol %% xintkernel: Paraphernalia for the xint packages %% --------------------------------------------------------------- @@ -156,7 +156,7 @@ \fi \XINT_providespackage \ProvidesPackage {xintkernel}% - [2016/12/13 1.2i Paraphernalia for the xint packages (JFB)]% + [2016/12/22 1.2j Paraphernalia for the xint packages (JFB)]% \chardef\xint_c_ 0 \chardef\xint_c_i 1 \chardef\xint_c_ii 2 @@ -279,22 +279,22 @@ \long\edef\xintlength #1% {% \noexpand\expandafter\space - \noexpand\the\numexpr\xint_c_ix\noexpand\XINT_length_loop + \noexpand\the\numexpr\noexpand\XINT_length_loop #1\xint_relax\xint_relax\xint_relax\xint_relax \xint_relax\xint_relax\xint_relax\xint_relax\xint_relax - \xint_c_i\xint_c_ii\xint_c_iii\xint_c_iv - \xint_c_v\xint_c_vi\xint_c_vii\xint_c_viii\xint_c_ix\noexpand\xint_bye + \xint_c_viii\xint_c_vii\xint_c_vi\xint_c_v + \xint_c_iv\xint_c_iii\xint_c_ii\xint_c_i\xint_c_\noexpand\xint_bye \relax }% \long\def\XINT_length_loop #1#2#3#4#5#6#7#8#9% {% \xint_gob_til_xint_relax #9\XINT_length_finish_a\xint_relax - +\xint_c_ix\XINT_length_loop + \xint_c_ix+\XINT_length_loop }% -\def\XINT_length_finish_a\xint_relax+\xint_c_ix\XINT_length_loop +\def\XINT_length_finish_a\xint_relax\xint_c_ix+\XINT_length_loop #1#2#3#4#5#6#7#8#9% {% - -#9\xint_bye + #9\xint_bye }% \def\xintLastItem {\romannumeral0\xintlastitem }% \long\def\xintlastitem #1% @@ -324,38 +324,35 @@ {% \expandafter\XINT_lengthupto_loop \the\numexpr#1.#2\xint_relax\xint_relax\xint_relax\xint_relax - \xint_relax\xint_relax\xint_relax\xint_relax\xint_bye + \xint_relax\xint_relax\xint_relax\xint_relax + \xint_c_vii\xint_c_vi\xint_c_v\xint_c_iv + \xint_c_iii\xint_c_ii\xint_c_i\xint_c_\xint_bye.% }% -\def\XINT_lengthupto_loop #1% +\def\XINT_lengthupto_loop_a #1% {% - \xint_UDsignfork #1\XINT_lengthupto_gt-{\XINT_lengthupto_loop_a#1}\krof + \xint_UDsignfork + #1\XINT_lengthupto_gt + -\XINT_lengthupto_loop + \krof #1% }% -\long\def\XINT_lengthupto_gt #1\xint_bye{-0}% -\long\def\XINT_lengthupto_loop_a #1.#2#3#4#5#6#7#8#9% +\long\def\XINT_lengthupto_gt #1\xint_bye.{-0}% +\long\def\XINT_lengthupto_loop #1.#2#3#4#5#6#7#8#9% {% \xint_gob_til_xint_relax #9\XINT_lengthupto_finish_a\xint_relax - \expandafter\XINT_lengthupto_loop\the\numexpr #1-\xint_c_viii.% + \expandafter\XINT_lengthupto_loop_a\the\numexpr #1-\xint_c_viii.% }% -\def\XINT_lengthupto_finish_a\xint_relax\expandafter\XINT_lengthupto_loop - \the\numexpr #1-\xint_c_viii.#2\xint_bye +\def\XINT_lengthupto_finish_a\xint_relax\expandafter\XINT_lengthupto_loop_a + \the\numexpr #1-\xint_c_viii.#2#3#4#5#6#7#8#9% {% - \XINT_lengthupto_finish_b #2\W\W\W\W\W\W\W\Z {#1}% + \expandafter\XINT_lengthupto_finish_b\the\numexpr #1-#9\xint_bye }% -\def\XINT_lengthupto_finish_b #1#2#3#4#5#6#7#8\Z +\def\XINT_lengthupto_finish_b #1#2.% {% - \xint_gob_til_W - #1\XINT_lengthupto_finish_c \xint_c_ - #2\XINT_lengthupto_finish_c \xint_c_i - #3\XINT_lengthupto_finish_c \xint_c_ii - #4\XINT_lengthupto_finish_c \xint_c_iii - #5\XINT_lengthupto_finish_c \xint_c_iv - #6\XINT_lengthupto_finish_c \xint_c_v - #7\XINT_lengthupto_finish_c \xint_c_vi - \W\XINT_lengthupto_finish_c \xint_c_vii\Z + \xint_UDsignfork + #1{-0}% + -{ #1#2}% + \krof }% -\def\XINT_lengthupto_finish_c #1#2\Z #3% - {\ifnum #1>#3 \xint_dothis{-0}\fi - \xint_orthat{\expandafter\space\the\numexpr#3-#1\relax}}% \def\xintreplicate#1% {\expandafter\XINT_replicate\the\numexpr#1\endcsname}% \def\XINT_replicate #1{\xint_UDsignfork |