From a3e5f4189a145472017be9745847e9d05ebbc0a0 Mon Sep 17 00:00:00 2001
From: Norbert Preining <preining@logic.at>
Date: Thu, 12 Oct 2006 01:40:37 +0000
Subject: add algorithmicx to ctan2tl (MAKEnosymlink), add algorithmicx to
 tpm-ctan-check, update algorithmicx

git-svn-id: svn://tug.org/texlive/trunk@2311 c570f23f-e606-0410-a88d-b1316a301751
---
 .../tex/latex/algorithmicx/algpascal.sty           | 37 ++++++++--------------
 1 file changed, 13 insertions(+), 24 deletions(-)

(limited to 'Master/texmf-dist/tex/latex/algorithmicx/algpascal.sty')

diff --git a/Master/texmf-dist/tex/latex/algorithmicx/algpascal.sty b/Master/texmf-dist/tex/latex/algorithmicx/algpascal.sty
index df4c81e37e6..0c9a57779f4 100644
--- a/Master/texmf-dist/tex/latex/algorithmicx/algpascal.sty
+++ b/Master/texmf-dist/tex/latex/algorithmicx/algpascal.sty
@@ -1,8 +1,8 @@
-% A PASCAL LIKE ALGORITHMIC STYLE -- Released 18 MAR 2004
+% A PASCAL LIKE ALGORITHMIC STYLE -- Released 27 APR 2005
 %    for LaTeX version 2e
 %
 % Copyright Szasz Janos
-% E-mail szaszjanos@users.sourceforge.net
+% E-mail szaszjanos@sourceforge.net
 %
 \NeedsTeXFormat{LaTeX2e}%
 \ProvidesPackage{algpascal}%
@@ -10,46 +10,35 @@
 \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}%
-{%
+\algnewlanguage{pascal}%
+\alglanguage{pascal}%
 %
 %      ***      KEYWORDS      ***
 %
-\newcommand\textkeyword{\textbf}%
+\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{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}%
+\algnewcommand\Procedure{\State\textkeyword{procedure}\space}%
+\algnewcommand\Function{\State\textkeyword{function}\space}%
 %
-\renewcommand\algorithmiccomment[1]{\hfill\{##1\}}%
-%
-%
-%
-}%
-%
-%
-%
-\let\ALG@setpascal\relax%
+\algrenewcomment[1]{\hfill\{#1\}}%
 %
-- 
cgit v1.2.3

