From 29d245b97ca87b4fcf27973f3236c33ae2b54359 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 6 May 2010 15:29:11 +0000 Subject: arrayjobx == arrayjob git-svn-id: svn://tug.org/texlive/trunk@18125 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/doc/generic/arrayjobx/arrayjob.sty | 188 --------------------- 1 file changed, 188 deletions(-) delete mode 100644 Master/texmf-dist/doc/generic/arrayjobx/arrayjob.sty (limited to 'Master/texmf-dist/doc') diff --git a/Master/texmf-dist/doc/generic/arrayjobx/arrayjob.sty b/Master/texmf-dist/doc/generic/arrayjobx/arrayjob.sty deleted file mode 100644 index 0712a49d114..00000000000 --- a/Master/texmf-dist/doc/generic/arrayjobx/arrayjob.sty +++ /dev/null @@ -1,188 +0,0 @@ -% ARRAY STRUCTURE - arrayjob.sty - Version 1.03 - 05/03/00 -% -% By Zhuhan Jiang (01/05/95), extracted from formlett.sty -% (see CTAN/macros/generic/formlett.sty from line 344 to line 483) -% -% This program can be redistributed and/or modified under the terms -% of the LaTeX Project Public License distributed from CTAN archives -% in directory macros/latex/base/lppl.txt -% -% * 01/05/95 - Version 1.00 -% + Original version -% * 12/21/99 - Version 1.01 -% + Spurious blanks removed in \read@array and \get@max@count -% (reported by Antonio Leitao -% and Denis Girou ) -% * 04/05/00 - Version 1.02 -% + Add the \ifexpandarrayelement macro to allow to evaluate -% or not the content to put as an element of the array -% (from Denis Girou ) -% + Put this package under the terms of the LaTeX Project -% Public License -% * 05/03/00 - Version 1.03 -% + Add a \ProvidesPackage macro when LaTeX is used -% (according to the example given by Bernd Raichle -% ) -% -% -% \newarray\ARRAYNAME -% \delarray\ARRAYNAME -% -% \ARRAYNAME(A1,..,An)={T} -% \readarray{ARRAYNAME}{ B1 & B2 & ... & Bm } -% \dataheight -% -% \data(A1,...,An)=\data( A1 + (A2-1)*\dataheight + -% ... + (An-1)*\dataheight^{n-1} ) -% if \normalindextrue -% =\data( An + (An-1 -1)*\dataheight + -% ... + (A1-1)*\dataheight^{n-1} ) -% if \normalindexfalse -% -% \checkARRAYNAME(A1,..,An) -% \ifemptydata valid when \checkARRAYNAME is just executed -% \cachedata: keeps the data of \ARRAYNAME(m) -% when \checkARRAYNAME(m) is executed -% -% OTHERS: -% save to array: \array{n}(m)={T} -% get from array: \array{n}(m) -% clear element: \clrarray{n}(m) -% test element: \testarray{n}(m) -% macro save to \temp@macro -% -% -% e.g. -% -% \newarray\Table -% \readarray{Table}{one&two& \unknownmacro && &six} -% \Table(7)={seven} -% \dataheight=0 % or 1 or < 0 -% \Table(7) = \Table(2,6,1) % 7=1+(2-1)+(6-1)+(1-1) -% \normalindexfalse -% \dataheight=3 -% \Table(7) = \Table(1,7) = \Table(3,1) -% \normalindextrue -% \Table(7) = \Table(7,1) = \Table(1,3) -% -% \checkTable(4) \ifemptydata (4)=empty \fi -% \checkTable(5) \ifemptydata\else (5)=nonempty \fi -% \ifx\cachedata\space ={\tt }\fi -% \checkTable(1000) \ifemptydata (1000)=empty \fi -% -% \delarray\Table -% -% -\begingroup\expandafter\expandafter\expandafter\endgroup -\expandafter\ifx\csname ProvidesPackage\endcsname\relax% -\else - \ProvidesPackage{arrayjob}[2000/05/03 v1.03 Array management] -\fi -% -\xdef\EntryArrayJob{\the\catcode`\@}\catcode`\@=11\relax -\newif\ifemptydata \newcount\dataheight -\newif\ifnormalindex \normalindexfalse -% -\newcount\array@width \newcount\index@count \newcount\index@total -\newif\ifone@VEC \newif\if@rev@index -\newtoks\temp@toks \newcount\temp@count -\newcount\temp@@count \newcount\temp@@@count -% -\newif\ifexpandarrayelement -% -\long\def\assign@VEC#1(#2)=#3{\temp@count=#2 \relax -\get@max@count{total@#1}\temp@count -\ifexpandarrayelement - \expandafter\xdef\csname#1#2\string~\endcsname{#3}% -\else - \expandafter\gdef\csname#1#2\string~\endcsname{#3}% -\fi} -\def\get@VEC#1(#2){\csname#1#2\string~\endcsname} -\def\clrarray#1(#2){% - \global\expandafter\let\csname#1#2\string~\endcsname=\undefined@} -% -\def\testarray#1(#2){% - \expandafter\let\expandafter\temp@macro\csname#1#2\string~\endcsname - \ifx\temp@macro\relax \def\temp@macro{}\fi}% -% -\def\array#1(#2){\def\check@VEC{% - \ifx=\next@VEC \def\full@VEC####1{\assign@VEC#1(#2)####1}% - \else \def\full@VEC{\get@VEC#1(#2)}\fi \full@VEC}%check@VEC -\futurelet\next@VEC\check@VEC} -% -\def\get@index(#1)#2\safty@mark{\one@VEC#2,\safty@mark - \def\next@@VEC{#1}\ifx\next@@VEC\empty\def\next@@VEC{\array@width}\fi - \if@rev@index - {\temp@count=1 \advance\index@count1 \relax - \ifnum\index@count<\index@total - \loop \multiply\temp@count \next@@VEC - \advance\index@count-1 \relax - \ifnum\index@count>0 \repeat - \fi \global\temp@@count\temp@count }% - \else \multiply\temp@@count \next@@VEC \fi - \ifnum\temp@@count=0 \temp@@count=1 \relax \fi - \advance\temp@count-1 \ifnum\temp@count<0 \temp@count=0 \fi - \multiply\temp@count \temp@@count - \advance\temp@@@count by \temp@count \advance\index@count1 - \ifone@VEC - \def\next@@VEC{\index@total=\index@count \advance\temp@@@count1 }% - \else \one@VEC#2\safty@mark \edef\next@@VEC{\noexpand\get@index(#1)% - \the\temp@toks\noexpand\safty@mark}% - \fi \next@@VEC}% -% -\def\one@VEC#1,#2\safty@mark{\def\temp@macro{#2}\temp@toks={#2}% - \ifx\temp@macro\empty \one@VECtrue \else \one@VECfalse \fi - \temp@count=#1 \relax }% -% -\def\get@all@index(#1)#2\safty@mark{% - \temp@@@count=0 \temp@@count=0 \index@count=0 \@rev@indexfalse - \get@index(#1)#2\safty@mark - \ifnormalindex\else - \temp@@@count=0 \temp@@count=0 \index@count=0 \@rev@indextrue - \get@index(#1)#2\safty@mark \fi }% -% -\def\read@array[#1]#2#3{\temp@count=1 - \def\one@item##1#1##2\safty@mark{\def\temp@macro{##2}\temp@toks={##2}% - \ifx\temp@macro\empty\else - \def\temp@macro{\one@item##2\safty@mark}\fi - {\temp@toks={##1}\def\temp@@macro{\array{#2}(\the\temp@count)=}% - \expandafter\temp@@macro\expandafter{\the\temp@toks}}% - \expandafter\edef\csname total@#2\endcsname{\the\temp@count}% - \advance\temp@count1\temp@macro}% - \one@item#3#1\safty@mark}% -% -\def\strip@esc#1{\temp@count=\escapechar \escapechar=-1 % - \temp@toks=\expandafter{\string#1}\escapechar\temp@count} -\def\get@max@count#1#2{\edef\temp@macro{\csname #1\endcsname}% - \ifnum\temp@macro<#2\expandafter\xdef\csname #1\endcsname{\the#2}\fi}% -% -\def\newarray#1{\strip@esc{#1}% - \expandafter\gdef\csname total@\the\temp@toks\endcsname{0}% - \expandafter\edef\csname\the\temp@toks\endcsname(##1)% - {\noexpand\get@all@index(\noexpand\dataheight)##1\noexpand\safty@mark -% \noexpand\get@max@count{total@\the\temp@toks}\noexpand\temp@@@count - \noexpand\array{\the\temp@toks}(\noexpand\the\noexpand\temp@@@count)}% - \expandafter\edef\csname check\the\temp@toks\endcsname(##1)% - {\noexpand\get@all@index(\noexpand\dataheight)##1\noexpand\safty@mark - \noexpand\testarray{\the\temp@toks}(\noexpand\the - \noexpand\temp@@@count)\noexpand\let\noexpand\cachedata - \noexpand\temp@macro\noexpand\ifx\noexpand\temp@macro\noexpand\empty - \noexpand\emptydatatrue\noexpand\else\noexpand\emptydatafalse - \noexpand\fi}}% -% -\def\delarray#1{\strip@esc{#1}% delete array globally - \temp@count=0 \temp@@count=\csname total@\the\temp@toks\endcsname - \loop \expandafter\global\expandafter\let - \csname\the\temp@toks\string~\endcsname\undefined@ - \advance\temp@count1 % - \ifnum\temp@count<\temp@@count \repeat % global loop for less memory - \global\expandafter\let\csname total@\the\temp@toks\endcsname\undefined@ - \global\expandafter\let\csname \the\temp@toks\endcsname\undefined@ - \global\expandafter\let\csname check\the\temp@toks\endcsname\undefined@ }% -% -\def\readarray#1#2{\read@array[&]{#1}{#2}}% -% -\catcode`\@=\EntryArrayJob\relax -\endinput -% -% END OF MACROS -- cgit v1.2.3