summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/plain/mkpattern
diff options
context:
space:
mode:
authorManuel Pégourié-Gonnard <mpg@elzevir.fr>2008-06-25 11:13:36 +0000
committerManuel Pégourié-Gonnard <mpg@elzevir.fr>2008-06-25 11:13:36 +0000
commit4530a2c792171b2f0db4d844f06a3a52d3d41b94 (patch)
tree1fa09d1a2f98500a4041705c1db0bb6e72387372 /Master/texmf-dist/tex/plain/mkpattern
parente65a48b471957ddb65bddba0a6c6d4906c68c215 (diff)
mkpattern v1.2 2008/06/22
git-svn-id: svn://tug.org/texlive/trunk@9035 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/plain/mkpattern')
-rw-r--r--Master/texmf-dist/tex/plain/mkpattern/mkpatter.tex60
1 files changed, 44 insertions, 16 deletions
diff --git a/Master/texmf-dist/tex/plain/mkpattern/mkpatter.tex b/Master/texmf-dist/tex/plain/mkpattern/mkpatter.tex
index 80be6ffb837..33d706f8c41 100644
--- a/Master/texmf-dist/tex/plain/mkpattern/mkpatter.tex
+++ b/Master/texmf-dist/tex/plain/mkpattern/mkpatter.tex
@@ -1,24 +1,24 @@
-% mkpatter.tex Version 1.1
+% mkpatter.tex Version 1.2
%
% This file is part of the program mkpattern, and all files
% that belong to that program must be distributed together.
%
-% For this version 1.1, this file mkpatter.tex is the only file
+% For this version 1.2, this file mkpatter.tex is the only file
% belonging to the program mkpattern.
%
% The file mkpatter.dvi (or mkpatter.pdf) is a manual for this program.
% It is very likely that you may obtain it at the same place
% where you got this file from.
%
-% (c) Javier A. M\'ugica, 2006, 2007
+% (c) Javier A. M'ugica, 2006, 2007, 2008
% License: LPPL version 1.3
%
% LPPL maintenance status: maintained
-% Current Maintainer: Javier A. M\'ugica
+% Current Maintainer: Javier A. M'ugica
%
% For bug reports and comments:
%
-% Javier Múgica, javier at digi21.net
+% Javier M'ugica, javier at digi21.eu
%
%
\ifnum\catcode`\{=1
@@ -49,7 +49,7 @@
\catcode`\:=12\relax
\newlinechar=`\^^J
-\message{This is Mkpattern, Version 1.1 APR 2007^^J}
+\message{This is Mkpattern, Version 1.2 JUN 2008^^J}
\let\bgroup={
\let\egroup=}
@@ -105,7 +105,7 @@
\let\iffound\iffalse
\let\~~end\end
-\def\~end{\let\end\~~end\ifnum\tracingexceptions>0\expandafter\reportmissingexceptios\fi\~~end}
+\def\~end{\ifnum\tracingexceptions>0\expandafter\reportmissingexceptios\fi\~~end}
\def\begin#1{\csname#1\endcsname}
\def\end#1{\def\tempa{#1}\ifx\tempa\empty\expandafter\~end\fi\csname end#1\endcsname}
@@ -119,6 +119,13 @@
\def\conditwrite{\edef\tempa{\the\linesofar}\ifx\tempa\empty\else\writeline\fi}
\def\newline{\writeline\lee}
+%Change of july 2008
+\def\newwriteline{\edef\tempa{\the\linesofar}\ifx\tempa\empty\global\linesofar=\expandafter{\percent}\fi\~writeline}
+\let\ifoldnewlines\iffalse
+\def\newnewlines{\let\ifoldnewlines\iffalse\let\fi\fi}
+\def\oldnewlines{\let\ifoldnewlines\iftrue\let\fi\fi}
+%
+
\def\busca#1#2{% It will usually also work with #1 being lenghtier than one character,
\def\encuentra##1#1##2\quend{%but if the ending can be overlaped with the beginning it may not.
\def\tempa{##2}
@@ -271,14 +278,33 @@
\newtoks\posttemplate
\newtoks\toksexceptions
\newtoks\substitutions
+
+%Change of july 2008
+\def\oldnewstuff{
+ \let\ifopened\ifoldnewlines
+ \edef\tempa{\the\toksencoding}
+ \ifx\tempa\empty\else
+ \let\ifopened\iftrue\let\fi\fi
+ \fi
+ \ifopened
+ \iwrite{\string{\iffalse}\fi}
+ \fi
+ \ifx\tempa\empty\else\writeencodingreplacements \iwrite{}\fi
+ \conditwrite
+ \ifoldnewlines
+ \iwrite{\string\catcode13=10 }
+ \else
+ \let\~writeline\writeline
+ \let\writeline\newwriteline
+ \fi
+ \def\oldnewlines{\relax\lee}
+ \let\newnewlines\oldnewlines
+}
+%
\def\pseudopatterns{
\makelists\wlog{}
\writeletters \iwrite{} %We cannot use newline
- \iwrite{\string{\iffalse}\fi}
- \edef\tempa{\the\toksencoding}
- \ifx\tempa\empty\else\writeencodingreplacements \iwrite{}\fi
- \conditwrite
- \iwrite{\string\catcode13=10 }
+ \oldnewstuff
\iwrite{\string\patterns\string{\iffalse}\fi}
\bgroup
\catcode`\#=12
@@ -293,15 +319,17 @@
\halfcomments %this itself includes lee
}
\def\endpseudopatterns{\conditwrite\iwrite{\iffalse{\fi\string}}\egroup
- \iwrite{\string\catcode13=5}\iwrite{\iffalse{\fi\string}}}
+ \ifoldnewlines\iwrite{\string\catcode13=5}\fi
+ \ifopened\iwrite{\iffalse{\fi\string}}\fi
+ \lee
+}
-{
-\catcode`\^^7f=13 \gdef^^7f#1{\expandafter\global\expandafter\linesofar\expandafter{\the\linesofar #1}\egroup\lee}
+\def\~put#1{\expandafter\global\expandafter\linesofar\expandafter{\the\linesofar #1}\egroup\lee}
\gdef\put{\bgroup
\catcode`\|=12
\count255='176 \@@count=256 \makeothers
\count255=0 \@@count='173 \makeothers
- \catcode`\^^7f=13 ^^7f}
+ \~put
}
\def\nocomments{\catcode`\%=14 \lee}