xint (10may13)

git-svn-id: svn://tug.org/texlive/trunk@30381 c570f23f-e606-0410-a88d-b1316a301751

5 files changed, 40 insertions, 40 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
diff --git a/Master/texmf-dist/tex/generic/xint/xintcfrac.sty b/Master/texmf-dist/tex/generic/xint/xintcfrac.sty
index 04ca2542311..47af0cfe0de 100644
--- a/Master/texmf-dist/tex/generic/xint/xintcfrac.sty
+++ b/Master/texmf-dist/tex/generic/xint/xintcfrac.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)
 %% xintcfrac: Expandable continued fractions with xint package
 %% Copyright (C) 2013 by Jean-Francois Burnol
 %%----------------------------------------------------------------
@@ -163,7 +163,7 @@
   \fi
 \expandafter\x\csname ver@xintcfrac.sty\endcsname
 \ProvidesPackage{xintcfrac}%
-  [2013/05/07 v1.06 Expandable continued fractions with xint package (jfB)]%
+  [2013/05/09 v1.06a Expandable continued fractions with xint package (jfB)]%
 \def\xintCFrac {\romannumeral0\xintcfrac }%
 \def\xintcfrac #1%
 {%
@@ -848,7 +848,7 @@
       \xint@afterfi
          {\ifnum #1=0
               \xint@afterfi {\expandafter\space \romannumeral-`0#2{0}}%
-          \else \xint@afterfi { 0[0]}%
+          \else \xint@afterfi { 0/1[0]}%
           \fi}%
    \fi
 }%
@@ -881,7 +881,7 @@
       \xint@afterfi
          {\ifnum #1=0
               \xint@afterfi {\expandafter\space\romannumeral-`0#2{0}}%
-          \else \xint@afterfi { 0[0]}%
+          \else \xint@afterfi { 0/1[0]}%
           \fi}%
    \fi
 }%
@@ -907,7 +907,7 @@
 \def\XINT@cntcs #1#2%
 {%
    \ifnum #1<0
-      \xint@afterfi { 0[0]}%
+      \xint@afterfi { 0/1[0]}%
    \else
       \xint@afterfi {\expandafter\XINT@cntcs@loop\expandafter
                      {\the\numexpr #1-1\expandafter}\expandafter
@@ -936,7 +936,7 @@
 \def\XINT@cntgc #1#2%
 {%
    \ifnum #1<0
-      \xint@afterfi { 0[0]}%
+      \xint@afterfi { 0/1[0]}%
    \else
       \xint@afterfi {\expandafter\XINT@cntgc@loop\expandafter
                      {\the\numexpr #1-1\expandafter}\expandafter
@@ -965,7 +965,7 @@
 \def\XINT@gcntgc #1#2#3%
 {%
    \ifnum #1<0
-      \xint@afterfi { {0[0]}}%
+      \xint@afterfi { {0/1[0]}}%
    \else
       \xint@afterfi {\expandafter\XINT@gcntgc@loop\expandafter
                      {\the\numexpr #1-1\expandafter}\expandafter
diff --git a/Master/texmf-dist/tex/generic/xint/xintfrac.sty b/Master/texmf-dist/tex/generic/xint/xintfrac.sty
index 73ea010430a..b74569d3c1b 100644
--- a/Master/texmf-dist/tex/generic/xint/xintfrac.sty
+++ b/Master/texmf-dist/tex/generic/xint/xintfrac.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)
 %% xintfrac: Expandable operations on fractions
 %% Copyright (C) 2013 by Jean-Francois Burnol
 %%----------------------------------------------------------------
@@ -165,7 +165,7 @@
   \fi
 \expandafter\x\csname ver@xintfrac.sty\endcsname
 \ProvidesPackage{xintfrac}%
-  [2013/05/07 v1.06 Expandable operations on fractions (jfB)]%
+  [2013/05/09 v1.06a Expandable operations on fractions (jfB)]%
 \def\xintLen {\romannumeral0\xintlen }%
 \def\xintlen #1%
 {%
@@ -195,7 +195,7 @@
     \fi
     \space #1/#2%
 }%
-\def\XINT@outfrac@Zero #1[#2]{ 0[0]}%
+\def\XINT@outfrac@Zero #1[#2]{ 0/1[0]}%
 \def\XINT@outfrac@N #1#2%
 {%
     \expandafter\XINT@outfrac@N@a\expandafter
@@ -951,7 +951,7 @@
 \def\xintsum #1{\xintsumexpr #1\relax }%
 \def\xintSumExpr {\romannumeral0\xintsumexpr }%
 \def\xintsumexpr {\expandafter\XINT@fsumexpr\romannumeral-`0}%
-\def\XINT@fsumexpr {\XINT@fsum@loop@a {0[0]}}%
+\def\XINT@fsumexpr {\XINT@fsum@loop@a {0/1[0]}}%
 \def\XINT@fsum@loop@a #1#2%
 {%
     \expandafter\XINT@fsum@loop@b \romannumeral-`0#2\Z {#1}%
@@ -1011,7 +1011,7 @@
 }%
 \def\XINT@fpow@zero #1#2#3#4%
 {%
-    \space 1[0]%
+    \space 1/1[0]%
 }%
 \def\XINT@fpow@pos #1#2#3#4#5%
 {%
@@ -1033,10 +1033,10 @@
 }%
 \def\XINT@fpow@pos@B #1#2{\XINT@outfrac {#2}{#1}}%
 \def\xintPrd {\romannumeral0\xintprd }%
-\def\xintprd #1{\xintproductexpr #1\relax }%
-\def\xintProductExpr {\romannumeral0\xintproductexpr }%
-\def\xintproductexpr {\expandafter\XINT@fproductexpr \romannumeral-`0}%
-\def\XINT@fproductexpr {\XINT@fprod@loop@a {1[0]}}%
+\def\xintprd #1{\xintprdexpr #1\relax }%
+\def\xintPrdExpr {\romannumeral0\xintprdexpr }%
+\def\xintprdexpr {\expandafter\XINT@fprdexpr \romannumeral-`0}%
+\def\XINT@fprdexpr {\XINT@fprod@loop@a {1/1[0]}}%
 \def\XINT@fprod@loop@a #1#2%
 {%
     \expandafter\XINT@fprod@loop@b \romannumeral-`0#2\Z {#1}%
diff --git a/Master/texmf-dist/tex/generic/xint/xintgcd.sty b/Master/texmf-dist/tex/generic/xint/xintgcd.sty
index 85ffc253738..6339b64cbe1 100644
--- a/Master/texmf-dist/tex/generic/xint/xintgcd.sty
+++ b/Master/texmf-dist/tex/generic/xint/xintgcd.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)
 %% xintgcd: Euclidean algorithm with xint package
 %% Copyright (C) 2013 by Jean-Francois Burnol
 %%----------------------------------------------------------------
@@ -163,7 +163,7 @@
   \fi
 \expandafter\x\csname ver@xintgcd.sty\endcsname
 \ProvidesPackage{xintgcd}%
-  [2013/05/07 v1.06 Euclide algorithm with xint package (jfB)]%
+  [2013/05/09 v1.06a Euclide algorithm with xint package (jfB)]%
 \def\xintGCD {\romannumeral0\xintgcd }%
 \def\xintgcd #1%
 {%
diff --git a/Master/texmf-dist/tex/generic/xint/xintseries.sty b/Master/texmf-dist/tex/generic/xint/xintseries.sty
index 48145867882..4dd1c96c299 100644
--- a/Master/texmf-dist/tex/generic/xint/xintseries.sty
+++ b/Master/texmf-dist/tex/generic/xint/xintseries.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)
 %% xintseries: Expandable partial sums with xint package
 %% Copyright (C) 2013 by Jean-Francois Burnol
 %%----------------------------------------------------------------
@@ -163,7 +163,7 @@
   \fi
 \expandafter\x\csname ver@xintseries.sty\endcsname
 \ProvidesPackage{xintseries}%
-  [2013/05/07 v1.06 Expandable partial sums with xint package (jfB)]%
+  [2013/05/09 v1.06a Expandable partial sums with xint package (jfB)]%
 \def\xintSeries {\romannumeral0\xintseries }%
 \def\xintseries #1#2%
 {%
@@ -176,7 +176,7 @@
 \def\XINT@series@ii #1#2#3%
 {%
    \ifnum #2<#1
-      \xint@afterfi { 0[0]}%
+      \xint@afterfi { 0/1[0]}%
    \else
       \xint@afterfi {\XINT@series@loop {#1}{0}{#2}{#3}}%
    \fi
@@ -234,7 +234,7 @@
 \def\XINT@powseries@ii #1#2#3#4%
 {%
    \ifnum #2<#1
-      \xint@afterfi { 0[0]}%
+      \xint@afterfi { 0/1[0]}%
    \else
       \xint@afterfi
       {\XINT@powseries@loop@i {#3{#2}}{#1}{#2}{#3}{#4}}%
@@ -272,7 +272,7 @@
 \def\XINT@powseriesx@ii #1#2#3#4%
 {%
    \ifnum #2<#1
-      \xint@afterfi { 0[0]}%
+      \xint@afterfi { 0/1[0]}%
    \else
       \xint@afterfi
       {\expandafter\XINT@powseriesx@pre\expandafter
@@ -296,7 +296,7 @@
 \def\XINT@ratseries@ii #1#2#3#4%
 {%
    \ifnum #2<#1
-      \xint@afterfi { 0[0]}%
+      \xint@afterfi { 0/1[0]}%
    \else
       \xint@afterfi
       {\XINT@ratseries@loop {#2}{1}{#1}{#4}{#3}}%
@@ -333,7 +333,7 @@
 \def\XINT@ratseriesx@ii #1#2#3#4#5%
 {%
    \ifnum #2<#1
-      \xint@afterfi { 0[0]}%
+      \xint@afterfi { 0/1[0]}%
    \else
       \xint@afterfi
       {\expandafter\XINT@ratseriesx@pre\expandafter