summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-11-30 23:09:19 +0000
committerKarl Berry <karl@freefriends.org>2009-11-30 23:09:19 +0000
commitd5ca4092c16996cd2ba4edef1923aa97fa573193 (patch)
tree221d4974248f07cf458c9764819f40777a83ce38 /Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex
parent9f5467bda844e5ea99047c80e8fcc16b5141f2d2 (diff)
pstricks-add update (30nov09)
git-svn-id: svn://tug.org/texlive/trunk@16250 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex')
-rw-r--r--Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex16
1 files changed, 10 insertions, 6 deletions
diff --git a/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex b/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex
index 9f85653803b..e4618d5fbde 100644
--- a/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex
+++ b/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex
@@ -1,4 +1,4 @@
-%% $Id: pstricks-add.tex 150 2009-11-14 09:25:53Z herbert $
+%% $Id: pstricks-add.tex 154 2009-11-30 07:51:26Z herbert $
%%
%%
%% This is file `pstricks-add.tex',
@@ -31,7 +31,7 @@
\ifx\PSTFPloaded\endinput\else \input pst-fp \fi
\ifx\PSTmathLoaded\endinput\else \input pst-math \fi
%
-\def\fileversion{3.36}%%% CTAN 3.36
+\def\fileversion{3.36}
\def\filedate{2009/11/14}
\message{`pstricks-add' v\fileversion, \filedate\space (dr,hv)}
%
@@ -102,16 +102,20 @@
%
% stolen from latex.ltx to make it TeX compatible
%
+\newcount\psLoopIndex
\def\@fornoop#1\@@#2#3{}
\long\def\@for#1:=#2\do#3{%
+ \pst@cntm=0%
\expandafter\def\expandafter\@fortmp\expandafter{#2}%
\ifx\@fortmp\@empty \else
\expandafter\@forloop#2,\@nil,\@nil\@@#1{#3}\fi}
\long\def\@forloop#1,#2,#3\@@#4#5{\def#4{#1}\ifx #4\@nnil \else
- #5\def#4{#2}\ifx #4\@nnil \else#5\@iforloop #3\@@#4{#5}\fi\fi}
-\long\def\@iforloop#1,#2\@@#3#4{\def#3{#1}\ifx #3\@nnil
- \expandafter\@fornoop \else
- #4\relax\expandafter\@iforloop\fi#2\@@#3{#4}}
+ #5\def#4{#2}\ifx #4\@nnil \else\global\advance\psLoopIndex by \@ne\relax%
+ #5\@iforloop #3\@@#4{#5}\fi\fi}
+\long\def\@iforloop#1,#2\@@#3#4{\global\advance\psLoopIndex by \@ne\relax%
+ \def#3{#1}\ifx #3\@nnil
+ \expandafter\@fornoop \else
+ #4\relax\expandafter\@iforloop\fi#2\@@#3{#4}}
\def\psforeach#1#2#3{%
\begingroup%
\edef\reserved@a{#2}%