diff options
Diffstat (limited to 'Master/texmf-dist/source/plain/pdcmac/pdccode2.tex')
-rw-r--r-- | Master/texmf-dist/source/plain/pdcmac/pdccode2.tex | 292 |
1 files changed, 0 insertions, 292 deletions
diff --git a/Master/texmf-dist/source/plain/pdcmac/pdccode2.tex b/Master/texmf-dist/source/plain/pdcmac/pdccode2.tex deleted file mode 100644 index 62bb283ff3f..00000000000 --- a/Master/texmf-dist/source/plain/pdcmac/pdccode2.tex +++ /dev/null @@ -1,292 +0,0 @@ -%{{{ pdccode.tex -- used to make self-documenting TeX code -%{{{ rcs - -%%% version: $Revision: 1.2 $ - -% A simpler and less featureful system than the LaTeX "doc" package is used. -% Lines between \code and \endcode are printed to a file -% set with the \codefile{xx} command. They are also listed -% "verbatim" - -\def\rcs#1: #2,v #3 #4 #5 #6 #7\endrcs{ - \def\filename{#2} - \def\fileversion{#3} - \def\filedate{#4} - \def\fileauthor{#6} -} - -\rcs$Id: pdccode.tex,v 1.2 1994/12/03 16:26:00 pdc Exp pdc $\endrcs -\message{\fileversion\space<\fileauthor\space\filedate>} -%}}} rcs -%{{{ misc macros - -\errorcontextlines10000 -\def\expcs#1#2{\expandafter#1\csname#2\endcsname} -\def\noexpcs{\expcs\noexpand} - -%}}} misc macros -%{{{ verbatim text - -%% Define verbatim text using |...| -% This is used in the commentary - -% Tell the verbatim macros that #1 is an active char; this -% makes sure that the character will be catcoded appropriately -% when in verbatim mode. #1 should be a somethign that will -% wortk after "`". -\def\declareactivechar#1{% - \toks0=\expandafter{\verbatimplains\do#1}% - \edef\verbatimplains{\the\toks0 }% - \catcode`#1=13 -} - -\def\verbatimplains{\do\\\do\{\do\}\do\_\do\$\do\#\do\&\do\%} % \{}_$#&% -\def\verbatimactives{\do\`\do\'\do\~\do\^\do\ } % `'~^<space> - -% \setupverbatim -- makes almost all special characters catcode 12 -% except for ` ' ~ ^, which produce slightly lowered glyphs -\bgroup \catcode`\^=13 \catcode`\'=13 \catcode`\`=13 \toks0={\egroup - \def\setupverbatim{% - \frenchspacing - \spaceskip0pt \xspaceskip0pt % use spacing of font - \def\do##1{\catcode\lq##1=12 }\verbatimplains - \def\do##1{\catcode\lq##1=13 }\verbatimactives - \let`=\ttlq \let'=\ttrq - \let~=\tttilde \let^=\ttcircum - \the\everyverbatim - \hyphenchar\font=-1 - } -}\the\toks0 - -\def\ttlq{\lower0.125ex \hbox{\char18 }} -\def\ttrq{\lower0.125ex \hbox{\char19 }} -\def\tttilde{\lower0.5ex \hbox{\char`\~ }} -\def\ttcircum{\lower0.5ex \hbox{\char`\^ }} - -\newtoks\everyverbatim % expanded at start of every verbatim text - - -% Define #1 as a self-matching verbatim character. -% #1 must be a one-char control-sequence -\def\defverbatim#1{% - \declareactivechar#1 - \begingroup \uccode`\~=`#1 \uppercase{\toks0={\endgroup - \def~{% - \leavevmode - \begingroup % matched by closing char - \tt - \setupverbatim - \catcode`#1=13 \let~=\endgroup - }% - }}\the\toks0 -} - -\declareactivechar\| \defverbatim\| -%}}} verbatim text -%{{{ writing code sections - -% \docodefiles is \do{xx}\do{yy} for a set of file identifiers -% Each file identifier xx has \ifxx, \xxfalse, \xxtrue, \xxwrite -% I am greatly hampered by the fact that \newwrite and \newif are \outer! -\def\docodefiles{} - -\def\codefile#1#2{ - \toks0=\expandafter{\docodefiles\do{#1}} - \edef\docodefiles{\the\toks0 } - \expcs\CODEnewwrite{#1write} - \CODEnewif{#1} \csname#1true\endcsname - \expcs\openout{#1write}=#2 - \expcs\def{filename#1}{#2} -} -\catcode`@=11 -\def\CODEnewwrite#1{\alloc@7\write\chardef\sixt@@n #1} -\catcode`@=12 -\def\CODEnewif#1{% - \expcs\edef{#1true}{\let\noexpcs{if#1}\noexpand\iftrue} - \expcs\edef{#1false}{\let\noexpcs{if#1}\noexpand\iffalse} - \csname#1false\endcsname -} - -\def\allfilesfalse{\begingroup - \def\do##1{\global\csname##1false\endcsname}\docodefiles - \endgroup -} -\def\allfilestrue{\begingroup - \def\do##1{\global\csname##1true\endcsname}\docodefiles - \endgroup -} - - -\def\endcodefile#1{ - \expcs\closeout{#1write} - \csname #1false\endcsname - \message{Code written to \csname filename#1\endcsname.} -} - -\def\code{ - \smallskip - \begingroup - \let|\CODEline % code line without expansion - \let\|\CODElinex % code line with expansion - \let\{=\CODElb \let\}=\CODErb \let\\=\CODEbslash \def~{ } - \the\everycode - \obeylines -} -\def\endcode{ - \smallbreak - \endgroup -} -\def\CODEline{% - \begingroup - \setupverbatim - \catcode`\|=12 - \CODElinei -} - - -% In \CODFElinei, We must redefine the characters that are active -% within verbatim text to expand to their catcode-12 equivalents when -% they are written to the code file. Since one of these is ^, we -% temporarily give @ the meaning of ^ so that we may safely munge the -% catcode of ^. - -\begingroup \catcode`\'=13 \catcode`\`=13 - \catcode\lq\@=\catcode\lq\^ \catcode\lq\^=13 - \catcode\lq\@@M=13 \toks0={\endgroup% - \def\CODElinei#1@@M{% - \begingroup\let`\lq \let'\rq \let^\CODEcircum \let~\CODEtilde % - \edef\tmp{{#1}}% - \def\do##1{\csname if##1\endcsname % - \expcs\write{##1write}\tmp \fi % - }\docodefiles % - \endgroup - \indent\the\everycodeline #1\par % - \endgroup % - }% - \def\CODElinex#1@@M{% - \def\do##1{\csname if##1\endcsname % - \edef\filename{\csname filename##1\endcsname} % - \edef\tmp{{#1}} % - \expcs\write{##1write}\tmp \fi % - }\docodefiles % - \def\filename{\<filename>}% - {\indent\the\everycodeline #1\par}% - }% -}\the\toks0 - -% Make macros which expand to various special characters, with catcode 12: -\begingroup\catcode`\/=0 \catcode`\\=12 /toks0={/endgroup - /def/CODEbslash{\} -}/the/toks0 -\begingroup\catcode`\^=12 \toks0={\endgroup - \def\CODEcircum{^} -}\the\toks0 -\begingroup\catcode`\~=12 \toks0={\endgroup - \def\CODEtilde{~} -}\the\toks0 -\begingroup\catcode`\%=12 \toks0={\endgroup - \def\%{%} -}\the\toks0 -\begingroup\catcode`\[=1 \catcode`\]=2 \catcode`\{=12 \catcode`\}=12 \toks0=[\endgroup - \def\CODElb[{] \def\CODErb[}] -]\the\toks0 -\newtoks\everycode -\newtoks\everycodeline - -\def\filenamesanssuffix{\expandafter\CODEsanssuffix\filename.\CODEsanssuffix} -\def\CODEsanssuffix#1.#2\CODEsanssuffix{#1} -%}}} writing code sections -%{{{ layout - - -\newcount\seccount -\newcount\subseccount -\font\secfont=cmssdc10 at 12pt -\font\subsecfont=cmssi10 - -\def\section#1{% - \advance\seccount1 \subseccount=0 - \bigbreak - \begingroup - \secfont \hyphenpenalty=10000 \tolerance=1000 - \parskip=0pt \parindent=0pt \rightskip=0pt plus 2em - \number\seccount. #1 - \medskip - \endgroup -} - -\def\subsec#1{% - \advance\subseccount1 - \medbreak - \begingroup - \subsecfont \hyphenpenalty=10000 \tolerance=1000 - \parskip=0pt \parindent=0pt \rightskip=0pt plus 2em - \number\seccount.\number\subseccount. #1 - \nobreak\smallskip - \endgroup -} - -\def\notepar{ - \smallskip - \begingroup - \narrower\noindent\hang - {\bf Note}\quad\it - \ignorespaces -} -\def\endnotepar{ - \smallbreak - \endgroup -} - -% Leave a largish right margin; eventually marginalia will go -% there. Allow enough line length for 80-character code lines. This -% makes the text lines a bit longer than I'd like but I don't want to -% have to resort to having code lines in a smaller font. -\hsize=40em \advance\hsize\parindent - -% (297mm-11in) is the strip of paper lost if printed on USA -% letter paper; allow another bit for some laserprinters that -% can't print to the edge of the paper. -\voffset=297mm \advance\voffset by -11in \advance\voffset by 0.25in -\vsize=297mm \advance\vsize-2\voffset \advance\vsize-2\baselineskip -\advance\voffset-1in - -\def\do#1{\fontdimen3#1=0pt \fontdimen4#1=0pt } -\do\tenrm \do\tenit \do\tenbf - -\rightskip=0pt plus 2em minus 2pt -\tolerance=500 -\lefthyphenmin=3 \righthyphenmin=2 - -%}}} layout -%{{{ abbrevs - -\def\<#1>{\leavevmode\hbox{$\langle$\it#1\/$\rangle$}} -\def\cs#1{\leavevmode\hbox{\tt\char`\\#1}} -\def\arg#1{\leavevmode\hbox{{\tt\char`\{}#1{\tt\char`\}}}} -\def\pt{\,{\rm pt}} -\def\flushtop#1{% - \leavevmode - {% - \setbox0=\hbox{#1}\setbox2=\hbox{X}% - \dimen0=\ht2 \advance\dimen0-\ht0 - \raise\dimen0 \box0 - }% -} -\def\TeX{T\kern-0.1em\lower0.5ex\hbox{E}X} -\def\LaTeX{L\kern-0.167em\flushtop{a}\TeX} - -%}}} abbrev -\newskip\footnoterightskip \footnoterightskip=\rightskip -\catcode`@=11 -\def\vfootnote#1{\insert\footins\bgroup - \interlinepenalty\interfootnotelinepenalty - \splittopskip\ht\strutbox % top baseline for broken footnotes - \splitmaxdepth\dp\strutbox \floatingpenalty\@MM - \leftskip\z@skip \rightskip\footnoterightskip - \spaceskip\z@skip \xspaceskip\z@skip \rm - \textindent{#1}\footstrut\futurelet\next\fo@t} -\catcode`@=11 - - -%}}} pdccode.tex |