perltex update

git-svn-id: svn://tug.org/texlive/trunk@1736 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 31 insertions, 8 deletions

diff --git a/Master/texmf-dist/tex/latex/perltex/perltex.sty b/Master/texmf-dist/tex/latex/perltex/perltex.sty
index ab61d0c9f94..d3f185b88a5 100644
--- a/Master/texmf-dist/tex/latex/perltex/perltex.sty
+++ b/Master/texmf-dist/tex/latex/perltex/perltex.sty
@@ -8,21 +8,21 @@
 %% 
 %% This is a generated file.
 %% 
-%% Copyright (C) 2004 by Scott Pakin <scott+pt@pakin.org>
+%% Copyright (C) 2006, Scott Pakin <scott+pt@pakin.org>
 %% 
 %% This file may be distributed and/or modified under the conditions of
-%% the LaTeX Project Public License, either version 1.2 of this license
+%% the LaTeX Project Public License, either version 1.3c of this license
 %% or (at your option) any later version.  The latest version of this
 %% license is in:
 %% 
 %%    http://www.latex-project.org/lppl.txt
 %% 
-%% and version 1.2 or later is part of all distributions of LaTeX version
-%% 1999/12/01 or later.
+%% and version 1.3c or later is part of all distributions of LaTeX version
+%% 2006/05/20 or later.
 %% 
 \NeedsTeXFormat{LaTeX2e}[1999/12/01]
 \ProvidesPackage{perltex}
-    [2004/10/07 v1.2 LaTeX macros for use with PerlTeX]
+    [2006/06/24 v1.3 LaTeX macros for use with PerlTeX]
 \newif\ifplmac@have@perltex
 \plmac@have@perltextrue
 \@ifundefined{plmac@tag}{\plmac@have@perltexfalse}{}
@@ -106,16 +106,16 @@
     \plmac@cleaned@macname
   }%
   \let\plmac@hash=\relax
-  \plmac@argnum=1%
+  \plmac@argnum=\@ne
   \loop
     \ifnum\plmac@numargs<\plmac@argnum
     \else
       \edef\plmac@body{%
         \plmac@body\plmac@sep\plmac@tag\plmac@sep
         \plmac@hash\plmac@hash\number\plmac@argnum}%
-      \advance\plmac@argnum by 1%
+      \advance\plmac@argnum by \@ne
   \repeat
-  \let\plmac@hash=##\relax
+  \let\plmac@hash=##%
   \expandafter\let\plmac@macname=\relax
   \ifx\plmac@defarg\relax
     \edef\plmac@define@command{%
@@ -170,6 +170,29 @@
     \expandafter\string\plmac@macname}%
   \@ifnextchar[{\plmac@newcommand@ii}{\plmac@newcommand@ii[0]}%]
 }
+\def\perldo{%
+  \begingroup
+    \let\do\@makeother\dospecials
+    \catcode`\^^M=\active
+    \newlinechar`\^^M
+    \endlinechar=`\^^M
+    \catcode`\{=1
+    \catcode`\}=2
+    \afterassignment\plmac@have@run@code
+    \global\plmac@perlcode
+}
+\def\plmac@have@run@code{%
+  \endgroup
+  \edef\plmac@run@code{%
+    \noexpand\plmac@write@perl{RUN\plmac@sep
+      \plmac@tag\plmac@sep
+      N/A\plmac@sep
+      \plmac@tag\plmac@sep
+      \the\plmac@perlcode
+    }%
+  }%
+  \plmac@run@code
+}
 \newif\ifplmac@file@exists
 \newcommand{\plmac@await@existence}[1]{%
   \loop