summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/xint/xint.sty
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-05-10 21:48:46 +0000
committerKarl Berry <karl@freefriends.org>2013-05-10 21:48:46 +0000
commite18a84aa7d12601df09474a38c880ee8c0f29b46 (patch)
treeab39a4ffaafca8620bbd47fafd0f95f8e7855692 /Master/texmf-dist/tex/generic/xint/xint.sty
parent449befd2d195f758c9b374d4d7917c393fa2cbc0 (diff)
xint (10may13)
git-svn-id: svn://tug.org/texlive/trunk@30381 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/xint/xint.sty')
-rw-r--r--Master/texmf-dist/tex/generic/xint/xint.sty30
1 files changed, 15 insertions, 15 deletions
diff --git a/Master/texmf-dist/tex/generic/xint/xint.sty b/Master/texmf-dist/tex/generic/xint/xint.sty
index ffc14c9d4e0..ef1d86a9614 100644
--- a/Master/texmf-dist/tex/generic/xint/xint.sty
+++ b/Master/texmf-dist/tex/generic/xint/xint.sty
@@ -22,7 +22,7 @@
%% in the same archive or directory.)
%%
%%----------------------------------------------------------------
-%% The xint bundle (version 1.06 of May 7th, 2013)
+%% The xint bundle (version 1.06a of May 9, 2013)
%% xint: Expandable operations on long numbers
%% Copyright (C) 2013 by Jean-Francois Burnol
%%----------------------------------------------------------------
@@ -136,7 +136,7 @@
\fi
\expandafter\x\csname ver@xint.sty\endcsname
\ProvidesPackage{xint}%
- [2013/05/07 v1.06 Expandable operations on long numbers (jfB)]%
+ [2013/05/09 v1.06a Expandable operations on long numbers (jfB)]%
\def\xint@gobble #1{}%
\def\xint@gobble@ {}%
\def\xint@gobble@i #1{}%
@@ -383,14 +383,13 @@
\def\XINT@NthElt #1#2{\romannumeral0\XINT@nthelt {#2}{\numexpr #1\relax}}%
\def\XINT@nthelt #1#2%
{%
- \ifnum #2<1
- \expandafter\XINT@nthelt@silentend
+ \ifnum #2>0
+ \xint@afterfi {\XINT@nthelt@loop@a {#2}}%
\else
- \expandafter\XINT@nthelt@loop@a
- \fi {#2}#1\xint@undef\xint@undef\xint@undef\xint@undef
- \xint@undef\xint@undef\xint@undef\xint@undef\Z
+ \xint@afterfi {\XINT@length@loop {0}}%
+ \fi #1\xint@undef\xint@undef\xint@undef\xint@undef
+ \xint@undef\xint@undef\xint@undef\xint@undef\Z
}%
-\def\XINT@nthelt@silentend #1\Z { }%
\def\XINT@nthelt@loop@a #1%
{%
\ifnum #1>8
@@ -405,6 +404,7 @@
\XINT@strip@undef #9\XINT@nthelt@silentend\xint@undef
\expandafter\XINT@nthelt@loop@a\expandafter{\the\numexpr #1-8\relax}%
}%
+\def\XINT@nthelt@silentend #1\Z { }%
\def\XINT@nthelt@getit #1%
{%
\expandafter\expandafter\expandafter\XINT@nthelt@finish
@@ -484,7 +484,7 @@
{%
\edef\XINT@restoreescapechar {\escapechar\the\escapechar\relax}%
\escapechar -1
- \edef\xint@arrayname {\string #1}%
+ \edef\xint@arrayname {\string #2}% NOT #1! (amazing typo undetected during ages)
\XINT@restoreescapechar
\count 255 0
\expandafter
@@ -2038,14 +2038,14 @@
\W\X\Y\Z #1\W\X\Y\Z
}%
\def\xintiPrd {\romannumeral0\xintiprd }%
-\def\xintiprd #1{\xintiproductexpr #1\relax }%
+\def\xintiprd #1{\xintiprdexpr #1\relax }%
\let\xintPrd\xintiPrd
\let\xintprd\xintiprd
-\def\xintiProductExpr {\romannumeral0\xintiproductexpr }%
-\def\xintiproductexpr {\expandafter\XINT@productexpr\romannumeral-`0}%
-\let\xintProductExpr\xintiProductExpr
-\let\xintproductexpr\xintiproductexpr
-\def\XINT@productexpr {\XINT@prod@loop@a 1\Z }%
+\def\xintiPrdExpr {\romannumeral0\xintiprdexpr }%
+\def\xintiprdexpr {\expandafter\XINT@prdexpr\romannumeral-`0}%
+\let\xintPrdExpr\xintiPrdExpr
+\let\xintprdexpr\xintiprdexpr
+\def\XINT@prdexpr {\XINT@prod@loop@a 1\Z }%
\def\XINT@prod@loop@a #1\Z #2%
{%
\expandafter\XINT@prod@loop@b \romannumeral-`0#2\Z #1\Z \Z