% This macro source file is from the four volume series % "TeX in Practice" by Stephan von Bechtolsheim, published % 1993 by Springer-Verlag, New York. % Copyright 1993 Stephan von Bechtolsheim. % No warranty or liability is assumed. % This macro may be copied freely if no fees other than % media cost or shipping charges are charged and as long % as this copyright and the following source code itself % is not changed. Please see the series for further information. % % Version: 1.0 % Date: May 1, 1993 % % % This source code is documented in 12.4.1, p. II-122. % Original source in file "par3.TEX", starting line 797. \wlog{L: "toc-mac.tip" ["par3.TEX," l. 797, p. II-122]}% % This file DOES belong to format "texip." \catcode`\@ = 11 \newcount\@GenTocEntryLevel \def\GenTocEntry #1#2#3#4{% \par \bgroup \global\@GenTocEntryLevel = #1 \leftskip = #4 \parindent = #2 \advance\parindent by -#4 \dimen0 = #3 \advance\dimen0 by -#2 \@GenTocEntry } \def\@GenTocEntry #1#2#3#4#5#6#7#8{% \rightskip = #1 plus 1in \parfillskip = #2 \advance\parfillskip by -#1 #7 \ifdim #3 > 0pt \setbox0 = \hbox to #3{\hfil.\hfil} \else \setbox0 = \box\voidb@x \fi \leavevmode \hbox to \dimen0 {#5\hfil}% {% #6% \unskip }% \ifvoid 0 \hfill \else \nobreak\leaders\copy0\hskip #4plus 1fil \fi #8% \par \egroup } \catcode`\@ = 12