From e3f27b1e5a8a5e0c4a23ca96c61cb98fc3f589dd Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 1 Jul 2006 21:32:47 +0000 Subject: perltex update git-svn-id: svn://tug.org/texlive/trunk@1736 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/perltex/perltex.sty | 39 ++++++++++++++++++++----- 1 file changed, 31 insertions(+), 8 deletions(-) (limited to 'Master/texmf-dist/tex/latex/perltex') 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 +%% Copyright (C) 2006, Scott Pakin %% %% 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 -- cgit v1.2.3