% 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 11.2.1, p. II-67. % Original source in file "par2.TEX", starting line 956. \wlog{L: "parv-1.tip" ["par2.TEX," l. 956, p. II-67]}% % This file DOES belong to format "texip." \catcode`\@ = 11 \newdimen \Delta@XY \newskip\@ParListBeforeAfter \newskip\@ParListBetweenLabels \newskip\@ParListAfterLabel \newcount\@LabeledParNesting \@LabeledParNesting = 0 \newcount\@LabelCounter \def\BeginAList #1#2#3#4#5#6#7{% \par \bgroup \advance\leftskip by #1 \advance\rightskip by #2 \advance \@LabeledParNesting by 1 \@LabelCounter = 0 \Delta@XY = #3 \ifdim\Delta@XY < 0pt \errmessage{\string\BeginAList: negative Delta{xy}, made positive.}% \fi \@ParListBeforeAfter = #4 \@ParListBetweenLabels = #5 \@ParListAfterLabel = #6 \SetParIndent{#7} } \def\EndAList{% \par \vskip\@ParListBeforeAfter \egroup } \def\@GenLabel #1{% \par \advance\@LabelCounter by 1 \ifnum\@LabelCounter = 1 \parskip = \@ParListBeforeAfter \else \parskip = \@ParListBetweenLabels \fi \noindent \hbox to 0pt{#1}% \parskip = \@ParListAfterLabel \ignorespaces } \def\ItemLL #1{% \@GenLabel{% \hskip -\Delta@XY #1% \hfil }% } \def\ItemLR #1{% \@GenLabel{% \hss #1% \hskip\Delta@XY }% } \def\ItemRL #1{% \@GenLabel{% \hskip\Delta@XY #1% \hss }% } \def\ItemRR #1{% \@GenLabel{% \hfil #1% \hskip -\Delta@XY }% } \catcode`\@ = 12