summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/xint/xintkernel.sty
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-12-23 23:05:36 +0000
committerKarl Berry <karl@freefriends.org>2016-12-23 23:05:36 +0000
commit356fa8c73e53d0d1f2b0e438ed71be0c92c4aaaf (patch)
tree8216d7ba46ae1725d1ca3202b53d27f31d48a8c9 /Master/texmf-dist/tex/generic/xint/xintkernel.sty
parent53a12757d6cc681bfd39c6bb93db49b2c21ee97b (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.sty57
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