summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/plain/pdcmac/pdcfmt2.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/plain/pdcmac/pdcfmt2.tex')
-rw-r--r--Master/texmf-dist/tex/plain/pdcmac/pdcfmt2.tex398
1 files changed, 0 insertions, 398 deletions
diff --git a/Master/texmf-dist/tex/plain/pdcmac/pdcfmt2.tex b/Master/texmf-dist/tex/plain/pdcmac/pdcfmt2.tex
deleted file mode 100644
index a7d81d4b601..00000000000
--- a/Master/texmf-dist/tex/plain/pdcmac/pdcfmt2.tex
+++ /dev/null
@@ -1,398 +0,0 @@
-% pdcfmt2.tex 2.4 1995/04/06 -- macros for formatting
-
-%%%@TeX-definition-file {
-%%% filename = "$texmf/tex/plain/pdcmac/pdcfmt2.tex",
-%%% version = "2.4",
-%%% date = "1995/04/06",
-%%% package = "pdcmac 1.0",
-%%% author = "P. Damian Cugley",
-%%% email = "damian.cugley@comlab.ox.ac.uk",
-%%% address = "Oxford University Computing Laboratory,
-%%% Parks Road, Oxford OX1 3QD, UK",
-%%% codetable = "USASCII",
-%%% keywords = "TeX, plain TeX, macros",
-%%% supported = "Maybe",
-%%% abstract = "Formatting macros for plain TeX documents.
-%%% This file was generated by running
-%%% plain TeX on pdcfmt2.dtx",
-%%% copyright = "Copyright (c) 1991-1995 P. Damian Cugley",
-%%% copying = "DO NOT DISTRIBUTE THIS FILE.
-%%% Distribute pdcfmt2.dtx only as part of the
-%%% package it came in.",
-%%% dependencies = "",
-%%% }
-
-\message{2.4 <pdc 1995/04/06>}
-
-\toksdef\toksa=0
-\chardef\other=12
-\def\declareactivechar#1{%
- \toksa\expandafter{\verbatimplains\do#1}%
- \edef\verbatimplains{\the\toksa }%
- \catcode`#1\active
-}
-\def\verbatimplains{\do\\\do\{\do\}\do\_\do\$\do\#\do\&\do\%}
-\def\verbatimactives{\do\-\do\`\do\'\do\~\do\^\do\ }
-\chardef\other=12
-\newtoks\everyverbatim
-\bgroup \catcode`\-=13\catcode`\^=13 \catcode`\'=13 \catcode`\`=13 \toksa={\egroup
- \def\setupverbatim{%
- \frenchspacing
- \spaceskip0pt \xspaceskip0pt % use spacing of font
- \def\do##1{\catcode\lq##112 }\verbatimplains
- \def\do##1{\catcode\lq##1\active }\verbatimactives
- \let`\ttlq \let'\ttrq
- \let~\tttilde \let^\ttcircum \let-\ttminus
- \the\everyverbatim
- }
-}\the\toksa
-\def\ttlq{\lower0.125ex \hbox{\char18 }}
-\def\ttrq{\lower0.125ex \hbox{\char19 }}
-\def\tttilde{\lower0.5ex \hbox{\char`\~ }}
-\def\ttcircum{\lower0.5ex \hbox{\char`\^ }}
-\def\ttminus{-}
-\def\defverbatim#1{%
- \ifcat\noexpand#1\noexpand~\else \declareactivechar#1 \fi
- \begingroup \uccode`\~=`#1 \uppercase{\toksa={\endgroup
- \def~{%
- \leavevmode
- \begingroup \tt \setupverbatim
- \catcode`#1\active \let~\endgroup
- }%
- }}\the\toksa
-}
-\defverbatim\|
-\newtoks\everylisting
-\def\listfile#1{
- \medskip
- \begingroup
- \parindent=0pt \parskip=0pt
- \def\par{\null\endgraf}\obeylines
- \setupverbatim \maketabstab
- \tt \the\everylisting
- \input#1
- \endgroup
- \medskip\noindent\ignorespaces
-}
-{\catcode`\^^I=\active
- \gdef\maketabstab{\catcode`\^^I\active \def^^I{\hskip 4em}}
-}
-\newif\ifnoindent
-\newbox\parbox
-\newdimen\parboxsep \parboxsep=1pc
-\everypar={%
- \ifvoid\parbox
- \ifnoindent {\setbox0=\lastbox}\global\noindentfalse \fi
- \else
- {\setbox0=\lastbox}\global\noindentfalse
- \dp\parbox=0pt
- \hbox to 0pt{\hss \box\parbox \hskip\parboxsep}%
- \fi
-}
-\def\beginthe#1{%
- \begingroup\def\PDCFMTblockname{#1}%
-}
-\def\endthe#1{%
- \def\tmp{#1}%
- \ifx\tmp\PDCFMTblockname
- \endgroup
- \else
- \errmessage{You should have said \string\endthe{\blockname}}%
- \fi
-}
-\def\PDCFMTendenv#1{
- \smallskip
- \endthe{#1}
- \global\noindenttrue
-}
-\newdimen\envindent \envindent=1pc
-\def\PDCFMTindent{%
- \ifdim\parindent>0pt
- \parindent
- \else
- \envindent
- \fi
-}
-\newtoks\everyquotation
-\def\quotation{
- \smallskip
- \beginthe{quotation}
- \advance\leftskip\PDCFMTindent
- \noindenttrue
- \the\everyquotation
-}
-\def\endquotation{\PDCFMTendenv{quotation}}
-\newtoks\everytextlist
-\newif\ifnumbered
-\newcount\textlistdepth \textlistdepth=-1
-\newcount\textlistcount
-\def\textlist{%
- \par
- \beginthe{textlist}
- \advance\textlistdepth 1
- \textlistcount0
- \def\\{
- \smallskip\noindent
- \advance\textlistcount1
- \llap{%
- \ifnumbered
- \numberfordepth\textlistdepth\textlistcount
- \else
- \bulletfordepth\textlistdepth
- \fi\enspace}%
- \ignorespaces
- }
- \advance\leftskip\PDCFMTindent
- \the\everytextlist
-}
-\def\endtextlist{\PDCFMTendenv{textlist}}
-\newtoks\everybullets
-\def\bullets{\textlist \numberedfalse \the\everybullets}
-\let\endbullets=\endtextlist
-\def\bulletfordepth#1{%
- \ifcase#1 $\bullet$\or --\or $\circ$\else $\cdot$\fi
-}
-\newtoks\everynumbered
-\def\numbered{\textlist \numberedtrue \the\everynumbered}
-\let\endnumbered=\endtextlist
-\def\numberfordepth#1#2{%
- \ifcase#1 \n{\number#2}.\or (\n{\number#2})\or
- ({\it\alphabetletter#2\/})\else (\romannumeral#2)\fi
-}
-\let\n\relax
-\def\alphabetletter#1{%
- \ifcase#1 ??? \or a\or b\or c\or d\or e\else
- \xxxalphabetletter#1\fi
-}
-\def\xxxalphabetletter#1{%
- \ifcase#1 \or\or\or\or\or\or f\or g\or h\or i\or j\or
- k\or l\or m\or n\or o\or p\or q\or r\or s\or t\or u\or
- v\or w\or x\or y\or z\else !!!\fi
-}
-\newdimen\tagmaxwidth
-\newtoks\everytagged
-\def\tagged{%
- \par
- \beginthe{tagged}
- \let\\\TAG
- \ifdim\leftmargin=0pt
- \tagmaxwidth\PDCFMTindent
- \else
- \tagmaxwidth\leftmargin
- \fi
- \the\everytagged
- \ifdim\tagmaxwidth>\leftmargin
- \leftskip\tagmaxwidth \advance\leftskip-\leftmargin
- \fi
-}
-\def\endtagged{\PDCFMTendenv{tagged}}
-\newtoks\everytag
-\def\TAG{%
- \smallskip\noindent
- \setbox0=\hbox\bgroup % matched by \TAGfinish
- \the\everytag\ignorespaces
- \futurelet\next\TAGtest
-}
-\def\TAGtest{%
- \ifcat\bgroup\noexpand\next
- \let\next\TAGgotbrace
- \else
- \let\next\TAGnobrace
- \fi \next
-}
-\def\TAGgotbrace{%
- \bgroup\aftergroup\TAGfinish
- \let\next
-}
-\def\TAGnobrace#1{%
- #1\TAGfinish
-}
-\def\TAGfinish{%
- \unskip\hskip0.5em\egroup % matches \TAG
- \ifdim \wd0 < \tagmaxwidth
- \wd0=\tagmaxwidth
- \llap{\box0}%
- \else
- \hskip-\tagmaxwidth
- \unhbox0 \unskip\quad
- \fi
- \ignorespaces
-}
-\newtoks\everylines
-\def\lines{
- \par
- \beginthe{lines}
- \nobreak\smallskip\hrule\nobreak\smallskip
- \obeylines
- \parindent=0pt \parskip=0pt
- \parfillskip=0pt plus 1fil
- \the\everylines
- \nobreak
-}
-\def\endlines{
- \nobreak\smallskip
- \endthe{lines}
- \hrule\smallskip
- \global\noindenttrue
-}
-\newcount\linenumber
-\newcount\PDCFMTcount
-\def\startlinenumbering{%
- \global\linenumber=0 \global\PDCFMTcount=5
- \everypar{\numberthisline}%
-}
-\def\continuelinenumbering{%
- \everypar{\numberthisline}%
-}
-\newtoks\everylinenum \everylinenum{\the\scriptfont0 }
-\def\numberthisline{%
- \strut
- \global\advance\linenumber1 \global\advance\PDCFMTcount-1
- \ifnum\PDCFMTcount>0 \else
- \global\advance\PDCFMTcount 5
- \rlap{\the\everylinenum \kern\hsize\kern1em \the\linenumber}%
- \fi
-}%
-\def\linesskipped#1{%
- \strut \hskip20pt $\vdots$ \hskip20pt
- {\rm(\it #1 lines omitted\rm)}\par
- \advance\linenumber#1\relax
-}
-\outer\def\display{\obeylines\startdisplay}
-\bgroup\obeylines \toksa={\egroup %
- \def\startdisplay#1^^M{%
- \catcode`\^^M=5 $$ #1 % matched by \enddisplay
- \displayindent\PDCFMTindent %
- \halign\bgroup##\hfil&&\quad##\hfil\cr %
- } %
-}\the\toksa %
-\def\enddisplay{\crcr\egroup$$}
-\def\table{%
- $$ % matching $$ is in \endtable
- \displayindent\PDCFMTindent
- \halign \bgroup
-}
-\let\endtable=\enddisplay
-\newtoks\everybnf
-\def\bnf{
- \nobreak\smallskip
- \beginthe{bnf}
- \advance\leftskip2\parindent \parindent=-\parindent
- \parskip0pt plus 1pt
- \rightskip=1\rightskip plus 3em
- \def\\{$\mid$}
- \def\>{\unskip\enspace$::=$\enspace\ignorespaces}
- \def|{`\begingroup\tt\setupverbatim\catcode`\|=13
- \def|{\endgroup'}}
- \def\{{$\lbrace$} \def\}{$\rbrace$}
- \the\everybnf
-}
-\def\endbnf{
- \smallskip
- \endthe{bnf}
- \global\noindenttrue
-}
-\def\<#1>{\leavevmode\hbox{$\langle${\it#1\/}$\rangle$}}
-\newdimen\leftmargin
-\newskip\headingtemp
-\def\doheading#1#2#3#4{
- \ifdim\lastskip<#1\relax \removelastskip \vskip#1\relax \fi
- \ifdim \leftmargin>0pt
- \global\setbox\parbox=\vtop{%
- \hsize=\leftmargin \advance\hsize-\parboxsep
- \parindent=0pt
- \leftskip=0pt \rightskip=0pt plus 3em
- \hyphenpenalty=10000 \exhyphenpenalty=5000
- \strut#2#4#3
- }
- \else
- \begingroup
- \parindent=0pt \parfillskip=0pt plus 1fil
- \leftskip=0pt \rightskip=0pt plus0.25\hsize
- \hyphenpenalty=10000 \exhyphenpenalty=5000
- \strut#2#4#3
- \global\headingtemp=\baselineskip
- \par
- \endgroup
- \advance\headingtemp-\baselineskip
- \ifdim\headingtemp>0pt \nobreak \vskip 1.0\headingtemp \fi
- \smallskip
- \noindenttrue
- \fi
-}
-\def\newpageheading#1#2#3#4{
- \vfill\supereject % ensure no insertions still floating
- \null\vskip#1\relax
- \moveleft\leftmargin\vbox{
- \advance\hsize\leftmargin
- \parindent=0pt \parfillskip=0pt plus 1fil
- \leftskip=0pt \rightskip=0pt plus0.25\hsize
- \hyphenpenalty=10000 \exhyphenpenalty=5000
- #2\strut#4#3
- \global\headingtemp=\baselineskip
- \par
- }
- \advance\headingtemp-\baselineskip
- \advance\headingtemp\smallskipamount
- \vskip \headingtemp
- \noindenttrue
- \def\tmp{#4}
- \message{*\expandafter\TOCtrim\meaning\tmp. }
-}
-\newcount\notecount
-\def\note{%
- \global\advance\notecount+1
- \footnote{\number\notecount}%
-}
-\newdimen\footnoteparindent
-\footnoteparindent=\parindent
-\newtoks\everyfootnote
-\catcode`\@=11
-\def\footnote#1{\let\@sf\empty
- \ifhmode\edef\@sf{\spacefactor\the\spacefactor}\/\fi
- \footnotetextmark{#1}\@sf\vfootnote{#1}}
-\def\vfootnote#1{\insert\footins\bgroup % matched by \@foot
- \interlinepenalty=\interfootnotelinepenalty
- \parindent=\footnoteparindent
- \leftskip=0pt
- \the\everyfootnote
- \splittopskip=\ht\strutbox \splitmaxdepth=\dp\strutbox
- \floatingpenalty=20000
- \indent\footstrut
- \ifdim\parindent>1em
- \llap{\footnotenotemark{#1}\enspace}%
- \else
- \footnotenotemark{#1}\enspace
- \fi
- \futurelet\next\fo@t
-}
-\def\@foot{\smallskip\egroup}
-\catcode`\@=12
-\def\footnotetextmark#1{$^{#1}$}
-\def\footnotenotemark#1{$^{#1}$}
-\def\today{\n{\number\day} \monthname\month\ \n{\number\year}}
-\def\monthname#1{%
- \ifcase#1\or
- January\or February\or March\or April\or
- May\or June\or July\or August\or
- September\or October\or November\or December%
- \fi
-}
-\def\isodate{\n{\number\year}--\twodigits\month--\twodigits\day}
-\def\twodigits#1{%
- \ifnum#1<10 0\fi \number#1%
-}
-\def\flushtop#1{%
- \leavevmode
- \begingroup
- \setbox0\hbox{#1}\setbox2\hbox{X}%
- \dimen0\ht2 \advance\dimen0-\ht0
- \raise\dimen0\box0
- \endgroup
-}
-\def\La{L\negthinspace\flushtop{a}}
-\def\LaTeX{\La\TeX}
-\def\superiorletter#1{%
- \flushtop{\the\scriptfont\fam \vphantom{x}\smash{#1}}%
-}
-\def\Mc{M\flushtop{\the\scriptfont\fam \b{c}}}