diff options
author | Karl Berry <karl@freefriends.org> | 2013-05-10 21:48:46 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2013-05-10 21:48:46 +0000 |
commit | e18a84aa7d12601df09474a38c880ee8c0f29b46 (patch) | |
tree | ab39a4ffaafca8620bbd47fafd0f95f8e7855692 /Master/texmf-dist/tex/generic/xint/xint.sty | |
parent | 449befd2d195f758c9b374d4d7917c393fa2cbc0 (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.sty | 30 |
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 |