summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/plain/pdcmac/pdccode2.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source/plain/pdcmac/pdccode2.tex')
-rw-r--r--Master/texmf-dist/source/plain/pdcmac/pdccode2.tex292
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