summaryrefslogtreecommitdiff
path: root/info/examples/tip/ts-chap.tip
blob: c59a4a08fbf37781071c8868b43546a93ccaf278 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
% 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 31.2.7, p. III-600.
% Original source in file "pp2.TEX", starting line 717.
\wlog{L: "ts-chap.tip" ["pp2.TEX," l. 717, p. III-600]}%
% This file DOES belong to format "texip."
\InputD{counters.tip}
\InputD{dblarg.tip}
\InputD{ts-chhe.tip}
\InputD{npright.tip}
\catcode`\@ = 11
\NewCounter{ChapterNo}{\arabic}% 
    {\TheCounter{ChapterNo}}{\TheCounter{ChapterNo}}
\def\Chapter{\DblArg{\@Chapter}}%
\def\@Chapter [#1]#2{% 
    \ShouldBeRightHandPage
    \StepCounter{ChapterNo}%
    \gdef\@LeftRunningHead{#2}%
    \SetPageLayout{4}
    \ChapterHeadingTeXIP{\PrintCounter{ChapterNo}}{#2}
    \WriteToAuxSpecial{toc}{1}% 
        {\PrintCounter{ChapterNo}}{#1}{\PrintCounter{PageNo}}%
    \WriteToAuxSpecial{lof}{0}{}{}{}%
    \WriteToAuxSpecial{lot}{0}{}{}{}%
    \def\Label ##1{\@Label{##1}{\RefCounter{ChapterNo}}{1}}%
}
\NewCounter{AppendixNo}{\Alph}% 
    {\TheCounter{AppendixNo}}{\TheCounter{AppendixNo}}
\AddCounterToResetList{SectionNo}{AppendixNo}
\AddCounterToResetList{AppendixNo}{VolumeNo}
\def\Appendix{\DblArg{\@Appendix}}%
\def\@Appendix [#1]#2{% 
    \NewPageRightHand
    \StepCounter{AppendixNo}%
    \ReassignCounter{SectionNo}{\arabic}% 
        {\PrintCounter{AppendixNo}.\TheCounter{SectionNo}}% 
        {\PrintCounter{AppendixNo}.\TheCounter{SectionNo}}%
    \SetPageLayout{4}
    \ChapterHeadingTeXIP{Appendix \PrintCounter{AppendixNo}}{#2}
    \WriteToAuxSpecial{toc}{1}% 
        {\PrintCounter{AppendixNo}}{#1}{\PrintCounter{PageNo}}%
    \def\Label ##1{\@Label{##1}{\RefCounter{AppendixNo}}{1}}%
    \ignorespaces
}
\def\DoneWithAppendices{%
    \ReassignCounter{SectionNo}{\alph}%
        {\TheCounter{ChapterNo}.\TheCounter{SectionNo}}% 
        {\TheCounter{ChapterNo}.\TheCounter{SectionNo}}
    \def\Label ##1{\@Label{##1}{\RefCounter{ChapterNo}}{1}}%
}
\catcode`\@ = 12