mkpattern v1.2 2008/06/22

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

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}