summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/perltex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/perltex')
-rw-r--r--Master/texmf-dist/tex/latex/perltex/perltex.sty39
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