From fb6defa37f565d81c1cb5b0b2a280570de813030 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 12 Jan 2006 23:51:16 +0000 Subject: algorithmicx git-svn-id: svn://tug.org/texlive/trunk@656 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/algorithmicx/algc.sty | 58 +++ .../tex/latex/algorithmicx/algmatlab.sty | 75 +++ .../tex/latex/algorithmicx/algorithmicx.sty | 534 +++++++++++++++++++++ .../tex/latex/algorithmicx/algpascal.sty | 55 +++ .../tex/latex/algorithmicx/algpseudocode.sty | 110 +++++ 5 files changed, 832 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/algorithmicx/algc.sty create mode 100644 Master/texmf-dist/tex/latex/algorithmicx/algmatlab.sty create mode 100644 Master/texmf-dist/tex/latex/algorithmicx/algorithmicx.sty create mode 100644 Master/texmf-dist/tex/latex/algorithmicx/algpascal.sty create mode 100644 Master/texmf-dist/tex/latex/algorithmicx/algpseudocode.sty (limited to 'Master/texmf-dist/tex/latex/algorithmicx') diff --git a/Master/texmf-dist/tex/latex/algorithmicx/algc.sty b/Master/texmf-dist/tex/latex/algorithmicx/algc.sty new file mode 100644 index 00000000000..60c39b7835c --- /dev/null +++ b/Master/texmf-dist/tex/latex/algorithmicx/algc.sty @@ -0,0 +1,58 @@ +% C ALGORITHMIC STYLE -- Released 18 MAR 2004 +% for LaTeX version 2e +% +% Copyright Szasz Janos +% E-mail szaszjanos@users.sourceforge.net +% +\NeedsTeXFormat{LaTeX2e}% +\ProvidesPackage{algc}% +\RequirePackage{ifthen}% +\RequirePackage{algorithmicx}% +\typeout{Document Style - c/c++ environments for use with the `algorithmicx' style}% +% +\def\ALG@setc{t}% +\DeclareOption{noset}{\def\ALG@setc{}}% +\DeclareOption{set}{\def\ALG@setc{t}}% +\ProcessOptions% +% +% +% *** DECLARATIONS *** +% +% +\ALG@deflanguage{c}{\ALG@setc}% +{% +% +% *** KEYWORDS *** +% +\let\algorithmicbegin\{% +\let\algorithmicend\}% +\newcommand\textkeyword{\textbf}% +% +% *** DECLARED BLOCKS AND LOOPS *** +% +\algdef{SEi}{Begin}{End}{0cm}{\algorithmicbegin}{\algorithmicend}% +% +\algdef{lS}{For}[3]{\textkeyword{for}\ (\(##1\); \(##2\); \(##3\))}% +\algdef{lS}{While}[1]{\textkeyword{while}\ (\(##1\))}% +\algdef{lS}{Do}{\textkeyword{do}}% +\algdef{Lc}{Do}{While}{0}% +\algdef{lS}{If}[1]{\textkeyword{if}\ (\(##1\))}% +\algdef{lC}{If}{Else}{\textkeyword{else}}% +% +% *** OTHER DECLARATIONS *** +% +\def\ALG@beginalgorithmic{\let\{\Begin\let\}\End}% +% +\newcommand\Function[3]{\State##1 ##32(##3)}%\textit{##2}(##3)} +\newcommand\Return{\State\textkeyword{return}\space}% +% +\renewcommand\algorithmiccomment[1]{\hfill// ##1}% +% +% +% +}% +% +% +% +\let\ALG@setc\relax% +% diff --git a/Master/texmf-dist/tex/latex/algorithmicx/algmatlab.sty b/Master/texmf-dist/tex/latex/algorithmicx/algmatlab.sty new file mode 100644 index 00000000000..be33bf10b17 --- /dev/null +++ b/Master/texmf-dist/tex/latex/algorithmicx/algmatlab.sty @@ -0,0 +1,75 @@ +% Matlab ALGORITHMIC STYLE -- Released 18 MAR 2004 +% for LaTeX version 2e +% +% Copyright Szasz Janos +% E-mail szaszjanos@users.sourceforge.net +% +\NeedsTeXFormat{LaTeX2e}% +\ProvidesPackage{algmatlab}% +\RequirePackage{ifthen}% +\RequirePackage{algorithmicx}% +\typeout{Document Style - matlab environments for use with the `algorithmicx' style}% +% +\def\ALG@setmatlab{t}% +\DeclareOption{noset}{\def\ALG@setmatlab{}}% +\DeclareOption{set}{\def\ALG@setmatlab{t}}% +\ProcessOptions% +% +% *** DECLARATIONS *** +% +\algnewlanguage{matlab}% +% +% *** KEYWORDS *** +% +\newcommand\textkeyword{\textbf} +\newcommand\textfunc{\texttt} +% +% *** DECLARED LOOPS *** +% +\algdef{SE}[WHILE]{While}{End}[1]{\textkeyword{while}\ #1}{\textkeyword{end}}% +\algdef{Se}[FOR]{For}{End}[1]{\textkeyword{for}\ #1}% +\algdef{Se}[IF]{If}{End}[1]{\textkeyword{if}\ #1}% +\algdef{C}[IF]{IF}{ElseIf}[1]{\textkeyword{else}\textkeyword{if}\ #1}% +\algdef{Ce}[ELSE]{IF}{Else}{End}{\textkeyword{else}}% +\algdef{LSxN}[FUNCTION]{Function}{End}{65535}% + [2]{\textkeyword{function}\ \textfunc{#1}\ifthenelse{\equal{#2}{}}{}{(#2)}}% +% +\algdef{SxE}[SWITCH]{Switch}{End}[1]{\let\Case\ALG@thecase\textkeyword{switch}\ #1}% + {\textkeyword{end}}% +\algdef{LS}[CASE]{Case}{65535}[1]{\let\Case\Case@continue\textkeyword{case}\ #1:}% +\let\ALG@thecase\Case% +\algdef{LxC}[CASE]{CASE}{Case@continue}{65535}[1]{\let\Case\Case@continue\textkeyword{case}\ #1:}% +\algdef{LC}[OTHERWISE]{CASE}{Otherwise}{65535}{\textkeyword{otherwise}:}% +% +\renewcommand\algorithmiccomment[1]{\hskip 1.5em\textit{\% #1}}% +% +\newcommand\algnewfunction[2]% + {% + \expandafter\newcommand\csname #1\endcsname[1]{\textfunc{#2}\((\)##1\()\)}% + }% +% +\algnewfunction{Line}{line}% +\algnewfunction{Scatter}{scatter}% +\algnewfunction{Plot}{plot}% +\algnewfunction{Zeros}{zeros}% +\algnewfunction{Ones}{ones}% +\algnewfunction{Load}{load}% +\algnewfunction{Size}{size}% +\algnewfunction{Disp}{disp}% +\algnewfunction{Min}{min}% +\algnewfunction{Max}{max}% +% +\def\Break{\textkeyword{break}}% +\def\Return{\textkeyword{return}}% +\def\Global{\textkeyword{global}}% +\def\Hold#1{\textkeyword{hold} #1}% +% +% *** OTHER DECLARATIONS *** +% +\def\ALG@beginalgorithmic{\let\leftbr[\let\rightbr]\def\[{\textbf{\leftbr}}\def\]{\textbf{\rightbr}}}% +% +% +% +\ifthenelse{\equal{\ALG@setmatlab}{t}}{\alglanguage{matlab}}{}% +\let\ALG@setmatlab\relax% +% diff --git a/Master/texmf-dist/tex/latex/algorithmicx/algorithmicx.sty b/Master/texmf-dist/tex/latex/algorithmicx/algorithmicx.sty new file mode 100644 index 00000000000..0b681debab7 --- /dev/null +++ b/Master/texmf-dist/tex/latex/algorithmicx/algorithmicx.sty @@ -0,0 +1,534 @@ +% ALGORITHMIC STYLE -- Released 18 MAR 2004 +% for LaTeX version 2e +% +% Copyright Szasz Janos +% E-mail szaszjanos@users.sourceforge.net +% Based on Peter Williams's algorithmic.sty +% +% +% *** INITIALISING *** +% +% +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{algorithmicx}[2004/03/18 v1.1 Algorithmicx] +\RequirePackage{ifthen} +\typeout{Document Style algorithmicx 1.1 - a greatly improved `algorithmic' style} +% +\newcounter{ALG@line} +\newcounter{ALG@rem} +\newlength{\ALG@tlm} +\newlength{\ALG@ctlm} +\newlength{\algorithmicindent} +\setlength{\algorithmicindent}{1.5em} +\newcounter{ALG@blocknr}% the number of defined blocks +\setcounter{ALG@blocknr}{0} +\newcounter{ALG@tmpcounter}% only to decrement things +\def\algorithmicnoindent{-\ALG@tlm} +\def\algbackskipbegin{\hskip\ALG@ctlm} +\def\algbackskip{\hskip\ALG@ctlm\hskip-\ALG@tlm} +\def\algbackskipend{\hskip-\ALG@tlm} +\def\ALG@defaultindent{\algorithmicindent} +% +% +% *** ALGORITHMIC *** +% +% +\newenvironment{ALG@g}[1]% a list for the iner loops + {% + \begin{list}% + {\ALG@step}% + {% + \itemsep\z@% + \itemindent\z@% + \listparindent2em% the indent given to multiline lines... + \rightmargin\z@% + \topsep\z@% + \partopsep\z@% + \parskip\z@% + \parsep\z@% + \leftmargin#1% + \ALG@ctlm#1% + \addtolength{\ALG@tlm}{\leftmargin}% + \labelsep\ALG@tlm% + \addtolength{\labelsep}{0.5em}% + }% + \global\@newlistfalse% give no error, if the list is empty + }% + {\end{list}}% +% +% algorithmic environment +% +\let\ALG@beginalgorithmic\relax% for user overrides +\let\ALG@endalgorithmic\relax% for user overrides +\newenvironment{algorithmic}[1][0]% + {% + \def\@currentlabel{\theALG@line}% + \newcommand{\ALG@step}% + {% + \addtocounter{ALG@line}{1}% + \addtocounter{ALG@rem}{1}% + \ifthenelse{\equal{\arabic{ALG@rem}}{#1}}% + {\setcounter{ALG@rem}{0}{\footnotesize \arabic{ALG@line}:}}% + {}% + }% + % + \setcounter{ALG@line}{0}% + \setcounter{ALG@rem}{0}% + % + \let\@listii\@listi% + \let\@listiii\@listi% + \let\@listiv\@listi% + \let\@listv\@listi% + \let\@listvi\@listi% + \let\@listvii\@listi% + \renewcommand{\@toodeep}{}% + % + \renewcommand{\\}% for multiline parameters !!! needs fix + {% + \item% + \hskip\ALG@parindent%!!! not yet implemented +% \hskip-\algorithmicindent% + }% + % + \edef\ALG@currentitem{0}% + \let\ALG@currentvalue\relax% + % + \begin{list}% + {\ALG@step}% + {% + \rightmargin\z@% + \itemsep\z@ \itemindent\z@ \listparindent2em% + \partopsep\z@ \parskip\z@ \parsep\z@% + \labelsep 0.5em \topsep 0.0em%\skip 1.2em + \ifthenelse{\equal{#1}{0}}% + {\labelwidth 0.5em}% + {\labelwidth 1.2em}% + \leftmargin\labelwidth \addtolength{\leftmargin}{\labelsep}% Ok. the perfect leftmargin :-)) + \ALG@tlm 0em% + \ALG@ctlm\ALG@tlm% + }% + \ALG@beginalgorithmic% + }% + {% end{algorithmic} +% \global\@newlistfalse% protects against empty algorithms, not needed + % check if all blocks are closed + \ALG@closeloops% + \ifnum0=\ALG@currentitem\relax% + \else% + \PackageError{algorithmicx}{Some blocks are not closed!!!}{Yes, you have some open blocks.}% + \fi% + \ALG@endalgorithmic% + \end{list}% + }% +% +% +% *** Functional core *** +% +% +\def\ALG@makeentitie#1% execute the entitie (#1) + {% + \expandafter\ifx\csname ALG@b@#1@0\endcsname\relax% + \ALG@makenobegin{#1}% this entitie ends or continues blocks + \else% + \ALG@makebegin{#1}% this entitie can open blocks + \fi% + \ALG@entitiecommand% + }% +% +\def\ALG@makebegin#1% executes an entitie (#1) that can open blocks + {% + \ifx\ALG@currentvalue\relax% + \ALG@openblock{0}{#1}% in infinite block I can open my block + \else% + \ifnum0<\ALG@currentvalue\relax% + \ifnum\ALG@currentvalue>65534\else% + \setcounter{ALG@tmpcounter}{\ALG@currentvalue}% the block has 'space' for another included block + \addtocounter{ALG@tmpcounter}{-1}% + \edef\ALG@currentvalue{\arabic{ALG@tmpcounter}}% + \fi% + \ALG@openblock{0}{#1}% + \else% the block needs to be closed + \expandafter\ifx\csname ALG@b@#1@\ALG@currentitem\endcsname\relax% + \end{ALG@g}% I can not close this block, continue after it is closed by force + \ALG@makebegin{#1}% + \else% + \ALG@changeblock{#1}% close this block + \fi% + \fi% + \fi% + }% +% +\def\ALG@makenobegin#1% executes an entitie (#1) that can not open blocks + {% + \ifx\ALG@currentvalue\relax% + \ALG@changeblock{#1}% an infinite block must be broken + \else% + \expandafter\ifx\csname ALG@b@#1@\ALG@currentitem\endcsname\relax% + \end{ALG@g}% the block must be ended by force, + \ALG@makenobegin{#1}% the command still runs + \else% + \ALG@changeblock{#1}% i can continue / end this block, let's do it + \fi% + \fi% + }% +% +\def\ALG@ifnotrelax#1#2#3% #1 - the number of the closed block, #2 - the entitie, #3 - things to be done + {% + \edef\ALG@tmpcmd{\expandafter\noexpand\csname algorithmic#2\endcsname}% + \expandafter\ifx\csname ALG@t@#1@#2\endcsname\relax\else% + \expandafter\ifx\csname ALG@t@#1@#2\endcsname\ALG@tmpcmd% + \expandafter\ifx\csname algorithmic#2\endcsname\relax\else% + #3% + \fi% + \else% + #3% + \fi% + \fi% + }% +% +\def\ALG@closeblock#1#2% #1 - the number of the closed block, #2 - the entitie + {% + \ALG@ifnotrelax{#1}{#2}{\item}% + \expandafter\let\expandafter\ALG@entitiecommand\csname ALG@t@#1@#2\endcsname% + }% +% +\def\ALG@openblock#1#2% #1 - the number of the closed block, #2 - the entitie + {% + \item[]% + \begin{ALG@g}{\csname ALG@i@#2@#1\endcsname}% + \edef\ALG@currentitem{\csname ALG@b@#2@#1\endcsname}% + \expandafter\ifx\csname ALG@c@#2@#1\endcsname\relax% + \let\ALG@currentvalue\relax% + \else% + \edef\ALG@currentvalue{\csname ALG@c@#2@#1\endcsname}% + \fi% + \ALG@ifnotrelax{#1}{#2}% + {% + \item\hskip-\ALG@ctlm% default spacing + }% + \expandafter\let\expandafter\ALG@entitiecommand\csname ALG@t@#1@#2\endcsname% + }% +% +\def\ALG@changeblock#1% #1 - the entitie + {% + \setcounter{ALG@tmpcounter}{\ALG@currentitem}% + \expandafter\ifnum0=\csname ALG@b@#1@\ALG@currentitem\endcsname\relax% + \end{ALG@g}% + \ALG@closeblock{\arabic{ALG@tmpcounter}}{#1}% + \else% + \end{ALG@g}% + \ALG@openblock{\arabic{ALG@tmpcounter}}{#1}% + \fi% + }% +% +\def\ALG@closeloops% closes all finite blocks + {% + \ifx\ALG@currentvalue\relax% + \else% only if it is finite + \end{ALG@g}% the block must be ended by force, + \ALG@closeloops% the command still runs + \fi% + }% +% +% +% *** Low level block/entitie defining commands *** +% +% +\def\ALG@bl@{0}% the BIG block +\let\ALG@bl@@\ALG@bl@% the BIG block +% +% Create a block +% +\def\ALG@createblock#1% create the block #1, if it does not exists + {% + \@ifundefined{ALG@bl@#1}% needs to be created? + {% + \addtocounter{ALG@blocknr}{1}% increment the block counter + \expandafter\edef\csname ALG@bl@#1\endcsname{\arabic{ALG@blocknr}}% set the block number + }% + {}% + }% +% +% Get the block number +% +\def\ALG@getblocknumber#1{\csname ALG@bl@#1\endcsname}% +% +% Create an entitie +% +\def\ALG@createentitie#1% create the entitie #1, if it does not exists + {% + \@ifundefined{#1}% needs to be created? + {% + \expandafter\edef\csname #1\endcsname{\noexpand\ALG@makeentitie{#1}}% + \@ifundefined{algorithmic#1}% \algorithmic#1 exists? + {% + \expandafter\edef\csname algorithmic#1\endcsname{\noexpand\textbf{#1}}% + }% + {}% + }% + {}% + }% +% +\def\ALG@createtext#1#2% #1 = closed block; #2 = entitie; creates \ALG@t@#1@#2 + {% + \expandafter\edef\csname ALG@t@#1@#2\endcsname% + {% + \expandafter\noexpand\csname algorithmic#2\endcsname% + }% + }% +% +% End and Continue block +% +\def\ALG@endandcontinueblock#1#2#3#4#5% #1 = new block; #2 = old block; #3 = entitie; #4 = credits; #5 = indent + {% + \ifthenelse{\equal{#3}{}}{}% execute only if the entity is not empty + {% + \ALG@createentitie{#3}% create the entitie + \ALG@createblock{#2}% create the old block, if needed + \ifthenelse{\equal{#1}{}}% whe need to open a new block? + {\expandafter\edef\csname ALG@b@#3@\ALG@getblocknumber{#2}\endcsname{0}}% no, just close the old one + {% yes, + \ALG@createblock{#1}% create the block + \expandafter\edef\csname ALG@b@#3@\ALG@getblocknumber{#2}\endcsname{\ALG@getblocknumber{#1}}% ending the old block opens a new one + \ifthenelse{\equal{#4}{}}% infinite or finite credits? + {\expandafter\let\csname ALG@c@#3@\ALG@getblocknumber{#2}\endcsname\relax}% infinite credits + {\expandafter\edef\csname ALG@c@#3@\ALG@getblocknumber{#2}\endcsname{#4}}% finite credits + \ifthenelse{\equal{#5}{}}% default or specified indentation + {\expandafter\let\csname ALG@i@#3@\ALG@getblocknumber{#2}\endcsname\ALG@defaultindent}% default indentation + {\expandafter\edef\csname ALG@i@#3@\ALG@getblocknumber{#2}\endcsname{#5}}% indentation is specified + }% + \ALG@createtext{\ALG@getblocknumber{#2}}{#3}% + }% + }% +% +% +% *** NEW VERSION *** +% +% +% used macros +% +\def\ALG@p@endtext@E{\algrenewtext{\ALG@v@end}}% +\def\ALG@p@endtext@xE{\algrenewtext[\ALG@v@newblock]{\ALG@v@end}}% +\def\ALG@p@endtext@N{\algnotext{\ALG@v@end}}% +\def\ALG@p@endtext@xN{\algnotext[\ALG@v@newblock]{\ALG@v@end}}% +\def\ALG@p@endtext@{}% +% starttext defines are more compex -- care must be taken for the optional parameters +\def\ALG@p@starttext@S{\ALG@p@s@process{\algrenewtext}}% +\def\ALG@p@starttext@C{\ALG@p@s@process{\algrenewtext}}% +\def\ALG@p@starttext@xC{\ALG@p@s@process{\algrenewtext[\ALG@v@oldblock]}}% +\def\ALG@p@s@process#1% + {% + \ifthenelse{\equal{\ALG@v@start}{}}% + {\ALG@p@endtext}% + {\@ifnextchar{[}{\ALG@p@s@getparamcount{#1}}{\ALG@p@s@simple{#1}}}% + }% +\def\ALG@p@s@getparamcount#1[#2]% + {% + \@ifnextchar{[}{\ALG@p@s@getdefparam{#1}{#2}}{\ALG@p@s@param{#1}{#2}}% + }% +\def\ALG@p@s@getdefparam#1#2[#3]% + {% + \ALG@p@s@defparam{#1}{#2}{#3}% + }% +\def\ALG@p@s@simple#1#2{#1{\ALG@v@start}{#2}\ALG@p@endtext}% +\def\ALG@p@s@param#1#2#3{#1{\ALG@v@start}[#2]{#3}\ALG@p@endtext}% +\def\ALG@p@s@defparam#1#2#3#4{#1{\ALG@v@start}[#2][#3]{#4}\ALG@p@endtext}% +% the rest of the crew +\def\ALG@p@starttext@{\ALG@p@endtext}% +\def\ALG@p@indent@def#1{\def\ALG@v@indent{#1}\ALG@p@setup}% +\def\ALG@p@indent@{\def\ALG@v@indent{}\ALG@p@setup}% +\def\ALG@p@credits@def#1{\def\ALG@v@credits{#1}\ALG@p@indent}% +\def\ALG@p@credits@{\ALG@p@indent}% +\def\ALG@p@end@def#1{\def\ALG@v@end{#1}\ALG@p@credits}% +\def\ALG@p@end@{\def\ALG@v@end{}\ALG@p@credits}% +\def\ALG@p@start@def#1{\def\ALG@v@start{#1}\ALG@p@end}% +\def\ALG@p@start@{\def\ALG@v@start{}\ALG@p@end}% +\def\ALG@p@oldblock@def#1{\def\ALG@v@oldblock{#1}\ALG@p@start}% +\def\ALG@p@oldblock@{\def\ALG@v@oldblock{}\ALG@p@start}% +\newcommand\ALG@p@newblock[1][]{\def\ALG@v@newblock{#1}\ALG@p@oldblock}% +\def\ALG@p@setup% + {% + \ifthenelse{\equal{\ALG@v@newblock}{}}% + {% + \ifthenelse{\equal{\ALG@v@start}{}}% + {% + \PackageError{algorithmicx}{Block or starting entitie must be specified!!!}{}% + }% + {% + \let\ALG@v@newblock\ALG@v@start% + }% + }% + {% + }% + \ALG@endandcontinueblock% + {\ALG@v@newblock}{\ALG@v@oldblock}{\ALG@v@start}% + {\ALG@v@credits}{\ALG@v@indent}% + \ALG@endandcontinueblock% + {}{\ALG@v@newblock}{\ALG@v@end}% + {}{}% + \ALG@p@starttext% + }% +% +% param handling +% +\newcommand\ALG@p@def[2][def]% + {% + \expandafter\let\csname ALG@p@#2\expandafter\endcsname\csname ALG@p@#2@#1\endcsname% + }% +\def\ALG@p@undef{\ALG@p@def[]}% +% +\def\ALG@p@ons{\ALG@p@def{start}}% +\def\ALG@p@onS{\ALG@p@def{start}\ALG@p@def[S]{starttext}}% +\def\ALG@p@onc{\ALG@p@def{oldblock}\ALG@p@def{start}}% +\def\ALG@p@onC{\ALG@p@def{oldblock}\ALG@p@def{start}\ALG@p@def[C]{starttext}}% +\def\ALG@p@onxC{\ALG@p@def{oldblock}\ALG@p@def{start}\ALG@p@def[xC]{starttext}}% +\def\ALG@p@one{\ALG@p@def{end}}% +\def\ALG@p@onE{\ALG@p@def{end}\ALG@p@def[E]{endtext}}% +\def\ALG@p@onxE{\ALG@p@def{end}\ALG@p@def[xE]{endtext}}% +\def\ALG@p@onN{\ALG@p@def{end}\ALG@p@def[N]{endtext}}% +\def\ALG@p@onxN{\ALG@p@def{end}\ALG@p@def[xN]{endtext}}% +\def\ALG@p@onb{\def\ALG@v@credits{}}% +\def\ALG@p@onl{\def\ALG@v@credits{1}}% +\def\ALG@p@onL{\ALG@p@def{credits}}% +\def\ALG@p@oni{\ALG@p@def{indent}}% +\expandafter\def\csname ALG@p@on]\endcsname{\let\ALG@p@rec\relax}% +% +% param processing +% +\def\ALG@p@process#1% + {% + \@ifundefined{ALG@p@on#1}% + {\typeout{algdef: Ignoring unknown token #1}}% + {\csname ALG@p@on#1\endcsname}% + \ALG@p@rec% + }% +% +\def\ALG@p@onx{\let\ALG@p@rec\ALG@p@processx}% +% +\def\ALG@p@processx#1% + {% + \@ifundefined{ALG@p@onx#1}% + {% + \typeout{algdef: Ignoring sole x}% + \def\ALG@p@rec{\let\ALG@p@rec\ALG@p@process\ALG@p@process#1}% + }% + {\csname ALG@p@onx#1\endcsname\let\ALG@p@rec\ALG@p@process}% + \ALG@p@rec% + }% +% +% +% *** User level block/entitie commands *** +% +% +% +% algdef{switches}... -- the king of all definitions in the algorithmicx package +% +\newcommand\algdef[1]% + {% + \ALG@p@undef{oldblock}% + \ALG@p@undef{start}% + \ALG@p@undef{end}% + \def\ALG@v@credits{}% + \ALG@p@undef{credits}% + \ALG@p@undef{indent}% + \ALG@p@undef{starttext}% + \ALG@p@undef{endtext}% + \let\ALG@p@rec\ALG@p@process% + \ALG@p@rec#1]% + \ALG@p@newblock% + }% +% +% a lot of other macros are provided for convenience +% +\def\algblock{\algdef{se}}% +\def\algcblock{\algdef{ce}}% +\def\algloop{\algdef{sl}}% +\def\algcloop{\algdef{cl}}% +\def\algsetblock{\algdef{seLi}}% +\def\algsetcblock{\algdef{ceLi}}% +\def\algblockx{\algdef{SxE}}% +\def\algblockdefx{\algdef{SE}}% +\def\algcblockx{\algdef{CxE}}% +\def\algcblockdefx{\algdef{CE}}% +\def\algsetblockx{\algdef{SxELi}}% +\def\algsetblockdefx{\algdef{SELi}}% +\def\algsetcblockx{\algdef{CxELi}}% +\def\algsetcblockdefx{\algdef{CELi}}% +\def\algloopdefx{\algdef{Sl}}% +\def\algcloopx{\algdef{xCl}}% +\def\algcloopdefx{\algdef{Cl}}% +% algloopx is not correct, use algloopdefx +% +% Text output commands +% +\newcommand\algrenewtext[2][]% [block]{entity} + {% + \ifthenelse{\equal{#2}{}}{}% + {% + \algnotext[#1]{#2}% + \ifthenelse{\equal{#1}{}}% + {% + \expandafter\newcommand\csname algorithmic#2\endcsname% + }% + {% + \expandafter\newcommand\csname ALG@t@\ALG@getblocknumber{#1}@#2\endcsname% + }% + }% + }% +% +\newcommand\algnotext[2][]% [block]{entity} + {% + \ifthenelse{\equal{#2}{}}{}% + {% + \ifthenelse{\equal{#1}{}}% + {% + \expandafter\let\csname algorithmic#2\endcsname\relax% + }% + {% + \expandafter\let\csname ALG@t@\ALG@getblocknumber{#1}@#2\endcsname\relax% + }% + }% + }% +% +\newcommand\algdefaulttext[2][]% [block]{entity} + {% + \ifthenelse{\equal{#1}{}}% + {% + \expandafter\def\csname algorithmic#2\endcsname{\textbf{#2}}% + }% + {% + \ALG@createtext{\ALG@getblocknumber{#1}}{#2}% + }% + }% +% +\def\ALG@notext*{\algnotext}% +\def\algtext{\@ifnextchar{*}{\ALG@notext}{\algrenewtext}}% +% +% +% *** OTHERS *** +% +% +\algdef{SL}[STATE]{State}{0}{}% +\def\BState{\State \algbackskip}% +\def\Statex{\item[]}% an empty line +\newcommand\algorithmiccomment[1]{\hfill\(\triangleright\) #1}% +\def\Comment{\algorithmiccomment}% +\def\algref#1#2{\ref{#1}.\ref{#2}}% +% +% +% *** LANGUAGE SWITCHING *** +% +% +\newcommand\ALG@deflanguage[3]%#1#2#3% + {% + \ifthenelse{\equal{#2}{}}% + {\expandafter\def\csname ALG@setlanguage@#1\endcsname{#3}}% + {\def\ALG@tmp{\let\ALG@tmp\relax#3}\ALG@tmp}% + }% +% +\def\algsetlanguage#1% + {% + \csname ALG@setlanguage@#1\endcsname% + }% +% +% diff --git a/Master/texmf-dist/tex/latex/algorithmicx/algpascal.sty b/Master/texmf-dist/tex/latex/algorithmicx/algpascal.sty new file mode 100644 index 00000000000..df4c81e37e6 --- /dev/null +++ b/Master/texmf-dist/tex/latex/algorithmicx/algpascal.sty @@ -0,0 +1,55 @@ +% A PASCAL LIKE ALGORITHMIC STYLE -- Released 18 MAR 2004 +% for LaTeX version 2e +% +% Copyright Szasz Janos +% E-mail szaszjanos@users.sourceforge.net +% +\NeedsTeXFormat{LaTeX2e}% +\ProvidesPackage{algpascal}% +\RequirePackage{ifthen}% +\RequirePackage{algorithmicx}% +\typeout{Document Style - pascal environments for the `algorithmicx' style}% +% +\def\ALG@setpascal{t}% +\DeclareOption{noset}{\def\ALG@setpascal{}}% +\DeclareOption{set}{\def\ALG@setpascal{t}}% +\ProcessOptions% +% +% +% *** DECLARATIONS *** +% +% +\ALG@deflanguage{pascal}{\ALG@setpascal}% +{% +% +% *** KEYWORDS *** +% +\newcommand\textkeyword{\textbf}% +% +% *** DECLARED BLOCKS AND LOOPS *** +% +\algdef{SEi}{Begin}{End}{0cm}{\textkeyword{begin}}{\textkeyword{end}}% +\algdef{Sei}{Asm}{End}{0cm}{\textkeyword{asm}}% +% +\algdef{lS}{For}[2]{\textkeyword{for} \(##1\) \textkeyword{to} \(##2\) \textkeyword{do}}% +\algdef{lS}{While}[1]{\textkeyword{while} \(##1\) \textkeyword{do}}% +\algdef{lS}{With}[1]{\textkeyword{with}\ \(##1\) \textkeyword{do}}% +\algdef{SE}{Repeat}{Until}{\textkeyword{repeat}}[1]{\textkeyword{until}\ \(##1\)}% +\algdef{lS}{If}[1]{\textkeyword{if}\ \(##1\) \textkeyword{then}}% +\algdef{lC}{If}{Else}{\textkeyword{else}}% +% +% *** OTHER DECLARATIONS *** +% +\def\Procedure{\State\textkeyword{procedure}\space}% +\def\Function{\State\textkeyword{function}\space}% +% +\renewcommand\algorithmiccomment[1]{\hfill\{##1\}}% +% +% +% +}% +% +% +% +\let\ALG@setpascal\relax% +% diff --git a/Master/texmf-dist/tex/latex/algorithmicx/algpseudocode.sty b/Master/texmf-dist/tex/latex/algorithmicx/algpseudocode.sty new file mode 100644 index 00000000000..ba7a5d57329 --- /dev/null +++ b/Master/texmf-dist/tex/latex/algorithmicx/algpseudocode.sty @@ -0,0 +1,110 @@ +% PSEUDOCODE ALGORITHMIC STYLE -- Released 18 MAR 2004 +% for LaTeX version 2e +% +% Copyright Szasz Janos +% E-mail szaszjanos@users.sourceforge.net +% Based on Peter Williams's algorithmic.sty +% +\NeedsTeXFormat{LaTeX2e}% +\ProvidesPackage{algpseudocode}% +\RequirePackage{ifthen}% +\RequirePackage{algorithmicx}% +\typeout{Document Style - pseudocode environments for use with the `algorithmicx' style}% +% +\def\ALG@setpseudocode{t}% +\newboolean{ALG@noend}% +\setboolean{ALG@noend}{false}% +\newboolean{ALG@compatible}% +\setboolean{ALG@compatible}{false}% +% +\DeclareOption{noset}{\def\ALG@setpseudocode{}}% +\DeclareOption{set}{\def\ALG@setpseudocode{t}}% +\DeclareOption{noend}{\setboolean{ALG@noend}{true}}% +\DeclareOption{end}{\setboolean{ALG@noend}{false}}% +\DeclareOption{compatible}{\setboolean{ALG@compatible}{true}}% +\DeclareOption{noncompatible}{\setboolean{ALG@noncompatible}{false}}% +\ProcessOptions% +% +% *** DECLARATIONS *** +% +\ALG@deflanguage{pseudocode}{\ALG@setpseudocode}% +{% +% +% *** KEYWORDS *** +% +\newcommand\algorithmicend{\textbf{end}} +\newcommand\algorithmicdo{\textbf{do}} +\newcommand\algorithmicwhile{\textbf{while}} +\newcommand\algorithmicfor{\textbf{for}} +\newcommand\algorithmicforall{\textbf{for all}} +\newcommand\algorithmicloop{\textbf{loop}} +\newcommand\algorithmicrepeat{\textbf{repeat}} +\newcommand\algorithmicuntil{\textbf{until}} +\newcommand\algorithmicprocedure{\textbf{procedure}} +\newcommand\algorithmicfunction{\textbf{function}} +\newcommand\algorithmicif{\textbf{if}} +\newcommand\algorithmicthen{\textbf{then}} +\newcommand\algorithmicelse{\textbf{else}} +\newcommand\algorithmicrequire{\textbf{Require:}} +\newcommand\algorithmicensure{\textbf{Ensure:}} +\newcommand{\algorithmicreturn}{\textbf{return}} +\newcommand\textproc{\textsc} +% +% *** DECLARED LOOPS *** +% +\algdef{SE}[WHILE]{While}{EndWhile}[1]{\algorithmicwhile\ ##1\ \algorithmicdo}{\algorithmicend\ \algorithmicwhile}% +\algdef{SE}[FOR]{For}{EndFor}[1]{\algorithmicfor\ ##1\ \algorithmicdo}{\algorithmicend\ \algorithmicfor}% +\algdef{S}[FOR]{ForAll}[1]{\algorithmicforall\ ##1\ \algorithmicdo}% +\algdef{SE}[LOOP]{Loop}{EndLoop}{\algorithmicloop}{\algorithmicend\ \algorithmicloop}% +\algdef{SE}[REPEAT]{Repeat}{Until}{\algorithmicrepeat}[1]{\algorithmicuntil\ ##1}% +\algdef{SE}[IF]{If}{EndIf}[1]{\algorithmicif\ ##1\ \algorithmicthen}{\algorithmicend\ \algorithmicif}% +\algdef{C}[IF]{IF}{ElsIf}[1]{\algorithmicelse\ \algorithmicif\ ##1\ \algorithmicthen}% +\algdef{Ce}[ELSE]{IF}{Else}{EndIf}{\algorithmicelse}% +\algdef{SE}[PROCEDURE]{Procedure}{EndProcedure}% + [2]{\algorithmicprocedure\ \textproc{##1}\ifthenelse{\equal{##2}{}}{}{(##2)}}% + {\algorithmicend\ \algorithmicprocedure}% +\algdef{SE}[FUNCTION]{Function}{EndFunction}% + [2]{\algorithmicfunction\ \textproc{##1}\ifthenelse{\equal{##2}{}}{}{(##2)}}% + {\algorithmicend\ \algorithmicfunction}% +% +\ifthenelse{\boolean{ALG@noend}}% + {% + \algtext*{EndWhile}% + \algtext*{EndFor}% + \algtext*{EndLoop}% + \algtext*{EndIf}% + \algtext*{EndProcedure}% + \algtext*{EndFunction}% + }{}% +% +% *** OTHER DECLARATIONS *** +% +\def\Require{\item[\algorithmicrequire]} +\def\Ensure{\item[\algorithmicensure]} +\def\Return{\algorithmicreturn{} }% +% +% +% +\ifthenelse{\boolean{ALG@compatible}}% + {% + \let\WHILE\While\let\ENDWHILE\EndWhile% + \let\FOR\For\let\FORALL\ForAll\let\ENDFOR\EndFor% + \let\LOOP\Loop\let\ENDLOOP\EndLoop% + \let\REPEAT\Repeat\let\UNTIL\Until% + \let\PROCEDURE\Procedure\let\ENDPROCEDURE\EndProcedure% + \let\FUNCTION\Function\let\ENDFUNCTION\EndFunction% + \let\IF\If\let\ELSIF\ElsIf\let\ELSE\Else\let\ENDIF\EndIf% + \let\REQUIRE\Require\let\ENSURE\Ensure% + \let\STATE\State\let\STATEx\Statex% + \let\COMMENT\Comment% + }% + {}% +% +% +% +}% +% +% +% +\let\ALG@setpseudocode\relax% +% -- cgit v1.2.3