|
|
1.1 ! root 1: \magnification=\magstephalf ! 2: \advance\hoffset 0.5 true in ! 3: \advance\hsize -1 true in ! 4: \newdimen\textsize ! 5: \textsize=\hsize ! 6: \def\today{\ifcase\month\or ! 7: January\or February\or March\or April\or May\or June\or ! 8: July\or August\or September\or October\or November\or December\fi ! 9: \space\number\day, \number\year} ! 10: \headline={\hbox to \textsize{\tentt\firstmark\hfil\tenrm\today\hbox ! 11: to 4em{\hss\folio}}\hss} ! 12: \footline={\hfil} ! 13: \def\semifilbreak{\vskip0pt plus1.5in\penalty-200\vskip0pt plus -1.5in} ! 14: \raggedbottom ! 15: ! 16: % ! 17: % \chapcenter macro to produce nice centered chapter titles ! 18: % ! 19: \def\chapcenter{\leftskip=0.5 true in plus 4em minus 0.5 true in ! 20: \rightskip=\leftskip ! 21: \parfillskip=0pt \spaceskip=.3333em \xspaceskip=.5em ! 22: \pretolerance=9999 \tolerance=9999 ! 23: \hyphenpenalty=9999 \exhyphenpenalty=9999} ! 24: % \startsection{LEVEL}{INDENT}{BEFORESKIP}{AFTERSKIP}{STYLE}{HEADING} ! 25: % #1 #2 #3 #4 #5 #6 ! 26: % ! 27: % LEVEL: depth; e.g. part=0 chapter=1 sectino=2... ! 28: % INDENT: indentation of heading from left margin ! 29: % BEFORESKIP: skip before header ! 30: % AFTERSKIP: skip after header ! 31: % STYLE: style of heading; e.g.\bf ! 32: % HEADING: heading of the sectino ! 33: % ! 34: \def\startsection#1#2#3#4#5#6{\par\vskip#3 ! 35: \noindent{\leftskip=#2 \rightskip=0.5true in plus 4em minus 0.5 true in ! 36: \hyphenpenalty=9999 \exhyphenpenalty=9999 ! 37: #5#6\par}\vskip#4% ! 38: {\def\code##1{[[}\def\edoc##1{]]}\message{[#6]}} ! 39: \settocparms{#1} ! 40: \def\themodtitle{#6} ! 41: {\def\code{\string\code}\def\edoc{\string\edoc}% ! 42: \edef\next{\write\cont{\tocskip ! 43: \tocline{\hskip\tocindent\tocstyle\relax\themodtitle} ! 44: {\the\pageno}}}\next % write to toc ! 45: }% ! 46: } ! 47: % ! 48: \def\settocparms#1{ ! 49: \count255=#1 ! 50: \ifnum\count255<1 ! 51: \def\tocskip{\vskip3ptplus1in\penalty-100 ! 52: \vskip0ptplus-1in}% ! 53: \def\tocstyle{\bf} ! 54: \def\tocindent{0pt} ! 55: \else ! 56: \def\tocskip{} ! 57: \def\tocstyle{\rm} ! 58: \dimen0=2em \advance\count255 by -1 \dimen0=\count255\dimen0 ! 59: \edef\tocindent{\the\dimen0} ! 60: \fi ! 61: } ! 62: % ! 63: \def\tocline#1#2{\line{{\ignorespaces#1}\leaders\hbox to .5em{.\hfil}\hfil ! 64: \hbox to1.5em{\hss#2}}} ! 65: ! 66: ! 67: \def\section#1{\par \vskip3ex\noindent {\bf #1}\par\nobreak\vskip1ex\nobreak} ! 68: \def\chapter#1{\startsection{0}{0pt}{6ex}{3ex}{\bf\chapcenter}{#1}} ! 69: \def\section#1{\startsection{1}{0pt}{4ex}{2ex}{\bf}{#1}} ! 70: \def\subsection#1{\startsection{2}{0pt}{3ex}{2ex}{\bf}{#1}} ! 71: \def\paragraph#1{\startsection{3}{0pt}{2ex}{0ex}{\bf}{#1}} ! 72: ! 73: \input nwkernel ! 74: ! 75: ! 76: \edef\contentsfile{\jobname.toc } % file that gets table of contents info ! 77: \def\readcontents{\expandafter\input \contentsfile} ! 78: ! 79: \newwrite\cont ! 80: \openout\cont=\contentsfile ! 81: \write\cont{\string\catcode`\string\@=11}% a hack to make contents ! 82: % take stuff in plain.tex ! 83: ! 84: \def\bye{% ! 85: \write\cont{}% ensure that the contents file isn't empty ! 86: \closeout\cont ! 87: \vfil\eject\pageno=-1 % new page causes contents to be really closed ! 88: \topofcontents\readcontents\botofcontents ! 89: \vfil\eject\end} ! 90: \def\topofcontents{\vfil\mark{{\bf Table of Contents}}} ! 91: \def\botofcontents{} ! 92: ! 93: ! 94: \let\em=\it
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.