diff options
Diffstat (limited to 'Master/texmf-dist/tex/plain/mkpattern/mkpatter.tex')
-rw-r--r-- | Master/texmf-dist/tex/plain/mkpattern/mkpatter.tex | 60 |
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} |