You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
38 lines
1.2 KiB
38 lines
1.2 KiB
2 years ago
|
\newcount\secno\newcount\subsecno
|
||
|
|
\newread\tocf\newwrite\indx
|
||
|
|
\def\section#1{\global\advance\secno by1\global\subsecno=0
|
||
|
|
\message{*\the\secno*}
|
||
|
|
\write\indx{\noexpand\t #1\noexpand\\\the\pageno\noexpand\\}
|
||
|
|
\goodbreak
|
||
|
|
\noindent{\bf\number\secno.\ #1}\nobreak}
|
||
|
|
\def\paragraph#1{\global\advance\subsecno by1
|
||
|
|
\write\indx{\noexpand\u #1\noexpand\\\the\pageno\noexpand\\}
|
||
|
|
\goodbreak
|
||
|
|
\noindent{\bf\number\secno.\number\subsecno\ #1}\nobreak}
|
||
|
|
\def\toc{\secno=0
|
||
|
|
\def\leaderfill{\leaders\hbox to 1em{\hss.\hss}\hfill}
|
||
|
|
\def\t##1\\##2\\{\global\advance\secno by1\global\subsecno=0
|
||
|
|
\vb\line{{\bf\number\secno.\ ##1}\leaderfill ##2}}
|
||
|
|
\def\u##1\\##2\\{\global\advance\subsecno by1
|
||
|
|
\vb\line{\hskip\parindent{\bf\number\secno.\number\subsecno\ ##1}\leaderfill
|
||
|
|
##2}}
|
||
|
|
\ct{Table of Contents}
|
||
|
|
\vb
|
||
|
|
\openin\tocf=\jobname.toc
|
||
|
|
\ifeof\tocf\message{Table of contents file nonexistent}
|
||
|
|
(none yet)\closein\tocf\else
|
||
|
|
\closein\tocf\input\jobname.toc\fi
|
||
|
|
\openout\indx\jobname.toc
|
||
|
|
\global\secno=0
|
||
|
|
\vfill\eject}
|
||
|
|
|
||
|
|
\def\vb{\vskip\baselineskip}
|
||
|
|
\def\ct#1{\centerline{\bf #1}}
|
||
|
|
\def\ti#1{\leftline{\bf #1}}
|
||
|
|
|
||
|
|
\def\today{\ifcase\month\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
|
||
|
|
\space\number\day, \number\year}
|
||
|
|
%
|