summaryrefslogtreecommitdiff
path: root/info/examples/tex-in-practice/ts-gnot.tip
diff options
context:
space:
mode:
Diffstat (limited to 'info/examples/tex-in-practice/ts-gnot.tip')
-rw-r--r--info/examples/tex-in-practice/ts-gnot.tip68
1 files changed, 68 insertions, 0 deletions
diff --git a/info/examples/tex-in-practice/ts-gnot.tip b/info/examples/tex-in-practice/ts-gnot.tip
new file mode 100644
index 0000000000..811c82287b
--- /dev/null
+++ b/info/examples/tex-in-practice/ts-gnot.tip
@@ -0,0 +1,68 @@
+% 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.8, p. III-602.
+% Original source in file "pp2.TEX", starting line 846.
+\wlog{L: "ts-gnot.tip" ["pp2.TEX," l. 846, p. III-602]}%
+% This file DOES NOT belong to format "texip."
+\catcode`\@ = 11
+\def\GeneralNotes #1#2{%
+ \NewPageRightHand
+ \SetPageLayout{4}
+ \ReassignCounter{PageNo}{\roman}%
+ {\TheCounter{PageNo}}{\TheCounter{PageNo}}
+ \ReassignCounter{SectionNo}{\arabic}%
+ {\TheCounter{SectionNo}}%
+ {\TheCounter{SectionNo}}%
+ \SetCounter{SectionNo}{0}%
+ \def\@LeftRunningHead{#1}
+ \def\@RightRunningHead{\@LeftRunningHead}
+ \WriteToAuxSpecial{toc}{0}%
+ {}{#1 #2}%
+ {\PrintCounter{PageNo}}%
+ \ChapterHeadingTeXIP{#1}%
+ {#2}
+}
+\def\GSection{\DblArg{\@GSection}}%
+\def\@GSection [#1]#2{%
+ \StepCounter{SectionNo}%
+ \def\Label ##1{\@Label{##1}{\RefCounter{SectionNo}}{1}}%
+ \GenericHeading{2}{36pt plus 10pt minus 2pt}
+ {1}{1}{1}{24pt}{0}%
+ {\Large\baselineskip = 15pt}{-13pt}%
+ {\PrintCounter{SectionNo}}{#2}{#1}%
+ \gdef\EveryParB{%
+ {%
+ \@MakeRobustMacros
+ \wlog{MARK: "#2"}%
+ \mark{#2}%
+ }%
+ }%
+}
+\def\EndGeneralNotes{%
+ \wlog{\string\EndGeneralNotes: called}%
+ \NewPageRightHandSpecial
+ \SetCounter{PageNo}{1}
+ \@PageNumbersToCounterRegs
+ \ReassignCounter{PageNo}{\arabic}%
+ {\TheCounter{PageNo}}%
+ {\TheCounter{VolumeNo}-\TheCounter{PageNo}}
+ \wlog{\string\EndGeneralNotes: \noexpand\count0
+ has value \the\count0}%
+ \count1 = 0
+ \ReassignCounter{SectionNo}{\arabic}%
+ {\TheCounter{ChapterNo}.\TheCounter{SectionNo}}%
+ {\TheCounter{ChapterNo}.\TheCounter{SectionNo}}
+}
+\catcode`\@ = 12