diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /info/examples/tip/part-lab.tip |
Initial commit
Diffstat (limited to 'info/examples/tip/part-lab.tip')
-rw-r--r-- | info/examples/tip/part-lab.tip | 88 |
1 files changed, 88 insertions, 0 deletions
diff --git a/info/examples/tip/part-lab.tip b/info/examples/tip/part-lab.tip new file mode 100644 index 0000000000..1d8981dcd9 --- /dev/null +++ b/info/examples/tip/part-lab.tip @@ -0,0 +1,88 @@ +% 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 30.8.7, p. III-575. +% Original source in file "pp1.TEX", starting line 2185. +\wlog{L: "part-lab.tip" ["pp1.TEX," l. 2185, p. III-575]}% +% This file DOES NOT belong to format "texip." +\catcode`\@ = 11 +\newif\if@LabelNow +\def\@Label #1#2#3{% + \ifnum #3 = 0 + \@LabelNowtrue + \else + \ifvmode + \ifinner + \@LabelNowtrue + \else + \@LabelNowfalse + \fi + \else + \@LabelNowtrue + \fi + \fi + \bgroup + \let\RefCounterTwo = \relax + \xdef\@LabelTempA{% + \write\@PartAuxStream{% + \string\@NewLabel{#1}{#2}{\RefCounterTwo{PageNo}}}% + }% + \egroup + \if@LabelNow + \@LabelTempA + \else + \bgroup + \let\RefCounterTwo = \relax + \xdef\EveryParC{% + \EveryParC + \@LabelTempA + }% + \egroup + \fi + \ignorespaces +} +\def\CheckLabels{% + \wlog{\string\CheckLabels: checking labels started.}% + \global\@LabelsOktrue + \@IgnoreAuxStuff + \let\@NewLabel = \@NewLabelCompare + \@ReadInAuxFiles + \if@LabelsOk + \wlog{** All labels are ok **}% + \else + \wlog{** LABELS CHANGED, reprocess document **}% + \fi + \wlog{\string\CheckLabels: done.}% +} +\def\@NewLabelCompare #1#2#3{% + \if\@LabelIsDefined{##1}% + \def\@CheckLabelTemp{{##2}{##3}}% + \edef\@@CheckLabelTemp{% + \NameUse{\@LabelRefPrefix ##1}% + }% + \ifx\@CheckLabelTemp\@@CheckLabelTemp + \let\@CheckLabelsNext = \relax + \else + \let\@CheckLabelsNext = \@StopCheckingLabels + \fi + \else + \let\@CheckLabelsNext = \@StopCheckingLabels + \fi + \@CheckLabelsNext +} +\def\@StopCheckingLabels{% + \global\@LabelsOkfalse + \let\@NewLabel = \GobbleThree +} +\catcode`\@ = 12 |