summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-03-26 21:30:29 +0000
committerKarl Berry <karl@freefriends.org>2013-03-26 21:30:29 +0000
commitb6aea40f0cbaf1008c78115ead2666210aebb165 (patch)
tree27e53f4301f795feaea1c0f4a95cf1a19df41f1e /Master/texmf-dist/tex
parenta12226d2a6881a86193661d8be01fa985a6b8d1d (diff)
readarray (26mar13)
git-svn-id: svn://tug.org/texlive/trunk@29518 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex')
-rw-r--r--Master/texmf-dist/tex/latex/readarray/readarray.sty198
1 files changed, 198 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/readarray/readarray.sty b/Master/texmf-dist/tex/latex/readarray/readarray.sty
new file mode 100644
index 00000000000..8978292ad13
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/readarray/readarray.sty
@@ -0,0 +1,198 @@
+\ProvidesPackage{readarray}
+[2013/03/25 v1.0
+Routines for inputting array data and recalling it on an
+element-by-element basis. Currently supports 2-D and 3-D array]
+% The latest version of this license is in
+% http://www.latex-project.org/lppl.txt
+% and version 1.3c or later is part of all distributions of LaTeX
+% version 2005/12/01 or later.
+%
+% This work has the LPPL maintenance status `maintained'.
+%
+% The Current Maintainer of this work is Steven B. Segletes.
+%
+\usepackage{ifthen}
+\usepackage{ifnextok}
+%
+\newcounter{@index}
+\newcounter{@plane}
+\newcounter{@row}
+\newcounter{@col}
+\newcounter{use@args}
+\def\the@rule{\rule{.8ex}{1.6ex}}%
+%
+\newcommand\readArrayijk[4]{%
+ \getargsC{#1}%
+ \setcounter{@plane}{\numexpr(\narg/#4/#3)}%
+ \setcounter{use@args}{\numexpr\arabic{@plane}*#3*#4}%
+ \ifthenelse{\arabic{use@args} > \narg}{%
+ \addtocounter{@plane}{-1}%
+ \setcounter{use@args}{\numexpr\arabic{@plane}*#3*#4}%
+ }{}%
+ \expandafter\edef\csname#2PLANES\endcsname{\arabic{@plane}}%
+ \expandafter\edef\csname#2ROWS\endcsname{#3}%
+ \expandafter\edef\csname#2COLS\endcsname{#4}%
+ \expandafter\edef\csname#2CELLS\endcsname{\arabic{use@args}}%
+ \setcounter{@index}{0}%
+ \setcounter{@plane}{1}%
+ \setcounter{@row}{1}%
+ \setcounter{@col}{0}%
+ \whiledo{\value{@index} < \value{use@args}}{%
+ \addtocounter{@index}{1}%
+ \addtocounter{@col}{1}%
+ \ifthenelse{\value{@col} > #4}%
+ {\addtocounter{@row}{1}%
+ \addtocounter{@col}{-#4}}%
+ {}%
+ \ifthenelse{\value{@row} > #3}%
+ {\addtocounter{@plane}{1}%
+ \addtocounter{@row}{-#3}}%
+ {}%
+ \expandafter\protected@edef%
+ \csname#2X\roman{@plane}X\roman{@row}X\roman{@col}\endcsname%
+ {\expandafter\csname arg\roman{@index}\endcsname}%
+ }%
+}
+%
+\newcommand\readArrayij[3]{%
+ \getargsC{#1}%
+ \setcounter{@row}{\numexpr(\narg/#3)}%
+ \setcounter{use@args}{\numexpr\arabic{@row}*#3}%
+ \ifthenelse{\arabic{use@args} > \narg}{%
+ \addtocounter{@row}{-1}%
+ \setcounter{use@args}{\numexpr\arabic{@row}*#3}%
+ }{}%
+ \expandafter\edef\csname#2ROWS\endcsname{\arabic{@row}}%
+ \expandafter\edef\csname#2COLS\endcsname{#3}%
+ \expandafter\edef\csname#2CELLS\endcsname{\arabic{use@args}}%
+ \setcounter{@index}{0}%
+ \setcounter{@row}{1}%
+ \setcounter{@col}{0}%
+ \whiledo{\value{@index} < \value{use@args}}{%
+ \addtocounter{@index}{1}%
+ \addtocounter{@col}{1}%
+ \ifthenelse{\value{@col} > #3}%
+ {\addtocounter{@row}{1}%
+ \addtocounter{@col}{-#3}}%
+ {}%
+ \expandafter\protected@edef%
+ \csname#2X\roman{@row}X\roman{@col}\endcsname%
+ {\expandafter\csname arg\roman{@index}\endcsname}%
+ }%
+}
+%
+\def\nonposmessage{{\tiny Only positive array indices permitted}}
+\def\planemessage#1#2{{\tiny PLANE=#2 exceeds limit for #1}}
+\def\rowmessage#1#2{{\tiny ROW=#2 exceeds limit for #1}}
+\def\colmessage#1#2{{\tiny COL=#2 exceeds limit for #1}}
+%
+\newcommand\Arrayijk[5][$]{%
+ \setcounter{@plane}{#3}%
+ \setcounter{@row}{#4}%
+ \setcounter{@col}{#5}%
+ \ifthenelse{\value{@plane}<1 \OR \value{@row}<1 \OR \value{@col}<1}{%
+ \if$#1\nonposmessage\else#1\fi}{%
+ \ifthenelse{#3 > \csname#2PLANES\endcsname}{%
+ \if$#1\planemessage{#2}{#3}\else#1\fi}{%
+ \ifthenelse{#4 > \csname#2ROWS\endcsname}{%
+ \if$#1\rowmessage{#2}{#4}\else#1\fi}{%
+ \ifthenelse{#5 > \csname#2COLS\endcsname}{%
+ \if$#1\colmessage{#2}{#5}\else#1\fi}{%
+ \csname#2X\roman{@plane}X\roman{@row}X\roman{@col}\endcsname}%
+ }%
+ }%
+ }%
+}
+%
+\newcommand\Arrayij[4][$]{%
+ \setcounter{@row}{#3}%
+ \setcounter{@col}{#4}%
+ \ifthenelse{\value{@row}<1 \OR \value{@col}<1}{%
+ \if$#1\nonposmessage\else#1\fi}{%
+ \ifthenelse{#3 > \csname#2ROWS\endcsname}{%
+ \if$#1\rowmessage{#2}{#3}\else#1\fi}{%
+ \ifthenelse{#4 > \csname#2COLS\endcsname}{%
+ \if$#1\colmessage{#2}{#4}\else#1\fi}{%
+ \csname#2X\roman{@row}X\roman{@col}\endcsname}%
+ }%
+ }%
+}
+%
+\newcommand\readdef[2]{%
+\def\first@row{T}%
+\def\first@plane{T}%
+\catcode\endlinechar=10\relax%
+\def#2{}%
+\newread\file%
+\openin\file=#1%
+\loop\unless\ifeof\file%
+ \read\file to\fileline % Reads a line of the file into \fileline%
+ \protected@edef#2{#2\fileline}%
+ \if T\first@row\getargsC{#2}\setcounter{@col}{\numexpr(\narg-1)}%
+ \edef\ncols{\arabic{@col}}\def\first@row{F}\setcounter{@row}{1}%
+ \else%
+ \if T\first@plane\getargsC{\fileline}\ifthenelse{\equal{\narg}{1}}{%
+ \edef\nrows{\arabic{@row}}\def\first@plane{F}}{%
+ \addtocounter{@row}{1}}%
+ \fi
+ \fi%
+\repeat%
+\closein\file%
+\catcode\endlinechar=5\relax%
+}
+%
+\newcommand\showargs[1][0]{%
+ narg=\narg:~%
+ \the@rule%
+ \setcounter{arg@index}{0}%
+ \setcounter{break@count}{0}%
+ \whiledo{\value{arg@index} < \narg}{%
+ \addtocounter{arg@index}{1}%
+ \addtocounter{break@count}{1}%
+ \csname arg\roman{arg@index}\endcsname%
+ \the@rule%
+ \ifthenelse{\equal{#1}{\value{break@count}}}{%
+ \ifthenelse{\equal{\value{arg@index}}{\narg}}{}{%
+ \newline\the@rule\addtocounter{break@count}{-#1}}%
+ }%
+ {}%
+ }%
+ \setcounter{arg@index}{0}%
+}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% The \getargsC macro mimics the behavior of the \getargs macro
+% of the stringstrings package, but runs faster, and can handle
+% arbitrary tokens. For the development of \getargsC, significant
+% assistance was provided by David Carlisle, for which the author is
+% most appreciative.
+% http://tex.stackexchange.com/questions/101604/
+% parsing-strings-containing-diacritical-marks-macros
+%
+\def\string@end{$\SaveHardspace}
+\def\converttilde{F}
+\newcounter{arg@index}
+\newcounter{break@count}
+\let\SaveHardspace~%%%
+%
+\def\getargsC#1{%
+ \if T\converttilde\def~{ }\else\catcode`~=12\fi
+ \protected@edef\the@string{#1}%
+ \setcounter{arg@index}{0}%
+ \lowercase{\expandafter\parse@Block\the@string} \string@end
+ \let~\SaveHardspace%
+ \catcode`~=13
+}
+%
+\def\parse@Block#1 {%
+ \stepcounter{arg@index}%
+ \@namedef{arg\roman{arg@index}}{#1}%
+ \futurelet\tmp\parse@Block@}
+%
+\def\parse@Block@{%
+\ifx\tmp\string@end\edef\narg{\thearg@index}\expandafter\@gobble
+\else\expandafter\parse@Block\fi}
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\endinput
+
+