summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/algorithmicx/algpascal.sty
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/latex/contrib/algorithmicx/algpascal.sty
Initial commit
Diffstat (limited to 'macros/latex/contrib/algorithmicx/algpascal.sty')
-rw-r--r--macros/latex/contrib/algorithmicx/algpascal.sty44
1 files changed, 44 insertions, 0 deletions
diff --git a/macros/latex/contrib/algorithmicx/algpascal.sty b/macros/latex/contrib/algorithmicx/algpascal.sty
new file mode 100644
index 0000000000..0c9a57779f
--- /dev/null
+++ b/macros/latex/contrib/algorithmicx/algpascal.sty
@@ -0,0 +1,44 @@
+% A PASCAL LIKE ALGORITHMIC STYLE -- Released 27 APR 2005
+% for LaTeX version 2e
+%
+% Copyright Szasz Janos
+% E-mail szaszjanos@sourceforge.net
+%
+\NeedsTeXFormat{LaTeX2e}%
+\ProvidesPackage{algpascal}%
+\RequirePackage{ifthen}%
+\RequirePackage{algorithmicx}%
+\typeout{Document Style - pascal environments for the `algorithmicx' style}%
+%
+\ProcessOptions%
+%
+%
+% *** DECLARATIONS ***
+%
+%
+\algnewlanguage{pascal}%
+\alglanguage{pascal}%
+%
+% *** KEYWORDS ***
+%
+\algnewcommand\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 ***
+%
+\algnewcommand\Procedure{\State\textkeyword{procedure}\space}%
+\algnewcommand\Function{\State\textkeyword{function}\space}%
+%
+\algrenewcomment[1]{\hfill\{#1\}}%
+%