diff options
Diffstat (limited to 'info/examples/tex-in-practice/ts-chap.tip')
-rw-r--r-- | info/examples/tex-in-practice/ts-chap.tip | 63 |
1 files changed, 63 insertions, 0 deletions
diff --git a/info/examples/tex-in-practice/ts-chap.tip b/info/examples/tex-in-practice/ts-chap.tip new file mode 100644 index 0000000000..c59a4a08fb --- /dev/null +++ b/info/examples/tex-in-practice/ts-chap.tip @@ -0,0 +1,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 |