newpackage forloop (18sep06)

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

1 files changed, 66 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/forloop/forloop.sty b/Master/texmf-dist/tex/latex/forloop/forloop.sty
new file mode 100644
index 00000000000..724aa3cffe7
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/forloop/forloop.sty
@@ -0,0 +1,66 @@
+%%
+%% This is file `forloop.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% forloop.dtx  (with options: `package')
+%% 
+%% This is a generated file
+%% 
+%% This file may be distributed and/or modified under the
+%% conditions of the Limited General Product License
+%% 
+\NeedsTeXFormat{LaTeX2e}[1999/12/01]
+\ProvidesPackage{forloop}
+ [2006/09/17 v1.0 For Loops for LaTeX]
+\RequirePackage{ifthen}
+%% \CharacterTable
+%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%%   Digits        \0\1\2\3\4\5\6\7\8\9
+%%   Exclamation   \!     Double quote  \"     Hash (number) \#
+%%   Dollar        \$     Percent       \%     Ampersand     \&
+%%   Acute accent  \'     Left paren    \(     Right paren   \)
+%%   Asterisk      \*     Plus          \+     Comma         \,
+%%   Minus         \-     Point         \.     Solidus       \/
+%%   Colon         \:     Semicolon     \;     Less than     \<
+%%   Equals        \=     Greater than  \>     Question mark \?
+%%   Commercial at \@     Left bracket  \[     Backslash     \\
+%%   Right bracket \]     Circumflex    \^     Underscore    \_
+%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
+%%   Right brace   \}     Tilde         \~}
+\newcommand{\forloop}[4][1]%
+{%
+\forloop@split#2\%%
+\setcounter{\forloop@ct@name}{\forloop@ct@initialvalue}%
+\whiledo{ #3 }%
+{%
+#4%
+\addtocounter{\forloop@ct@name}{#1}%
+}%
+}%
+\def\forloop@split#1=#2\%{%
+\gdef\forloop@ct@name{#1}%
+\gdef\forloop@ct@initialvalue{#2}%
+}%
+\newcommand{\forLoop}[5][1]
+{%
+\setcounter{#4}{#2}%
+\ifthenelse{ \value{#4}<#3 }%
+{%
+#5%
+\addtocounter{#4}{#1}%
+\forLoop[#1]{\value{#4}}{#3}{#4}{#5}%
+}%
+{%
+\ifthenelse{\value{#4}=#3}%
+{%
+#5%
+}%
+{}%
+}%
+}
+\endinput
+%%
+%% End of file `forloop.sty'.