summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/algorithmicx/algpascal.sty
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-12 23:51:16 +0000
committerKarl Berry <karl@freefriends.org>2006-01-12 23:51:16 +0000
commitfb6defa37f565d81c1cb5b0b2a280570de813030 (patch)
tree76ee1dec844e0a50a31f114b0996d4943d74ecf0 /Master/texmf-dist/tex/latex/algorithmicx/algpascal.sty
parentabd9973c08f18f7b9fbcf556444fc1f555292690 (diff)
algorithmicx
git-svn-id: svn://tug.org/texlive/trunk@656 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/algorithmicx/algpascal.sty')
-rw-r--r--Master/texmf-dist/tex/latex/algorithmicx/algpascal.sty55
1 files changed, 55 insertions, 0 deletions
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%
+%