Initial commit

1 files changed, 83 insertions, 0 deletions

diff --git a/info/examples/tip/ts-shead.tip b/info/examples/tip/ts-shead.tip
new file mode 100644
index 0000000000..97904c01bb
--- /dev/null
+++ b/info/examples/tip/ts-shead.tip
@@ -0,0 +1,83 @@
+% 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.9, p. III-604.
+% Original source in file "pp2.TEX", starting line 940.
+\wlog{L: "ts-shead.tip" ["pp2.TEX," l. 940, p. III-604]}%
+% This file DOES belong to format "texip."
+\InputD{genhead.tip}
+\InputD{compst.tip}
+\InputD{dblarg.tip}
+\catcode`\@ = 11
+\NewCounter{SectionNo}{\arabic}% 
+    {\PrintCounter{ChapterNo}.\TheCounter{SectionNo}}%
+    {\PrintCounter{ChapterNo}.\TheCounter{SectionNo}}%
+\NewCounter{SubSectionNo}{\arabic}%
+    {\PrintCounter{SectionNo}.\TheCounter{SubSectionNo}}%
+    {\PrintCounter{SectionNo}.\TheCounter{SubSectionNo}}%
+\NewCounter{SubSubSectionNo}{\arabic}%
+    {\PrintCounter{SubSectionNo}.\TheCounter{SubSubSectionNo}}%
+    {\PrintCounter{SubSectionNo}.\TheCounter{SubSubSectionNo}}%
+\NewCounter{CloseByReferenceCount}{\arabic}%
+    {\PrintCounter{CloseByReferenceCount}}%
+    {\PrintCounter{CloseByReferenceCount}}%
+\AddCounterToResetList{SectionNo}{ChapterNo}%
+\AddCounterToResetList{SubSectionNo}{SectionNo}%
+\AddCounterToResetList{SubSubSectionNo}{SubSectionNo}%
+\def\Section{\DblArg{\@Section}}%
+\def\@Section [#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
+            \def\LineBreakToc{ }%
+            \def\LineBreakHeading{ }%
+            \def\IgnoreInRunningHead ####1{%
+                \relax$\ldots$%
+            }%
+            \mark{#2}%
+        }%
+    }%
+}
+\def\SubSection{\DblArg{\@SubSection}}%
+\def\@SubSection [#1]#2{% 
+    \StepCounter{SubSectionNo}%
+    \def\Label ##1{\@Label{##1}{\RefCounter{SubSectionNo}}{1}}%
+    \GenericHeading{3}{30pt plus 8pt minus 2pt}% 
+        {1}{1}{1}{18pt}{0}% 
+        {\large\baselineskip = 14pt}{-12pt}% 
+        {\PrintCounter{SubSectionNo}}{#2}{#1}% 
+}
+\def\SubSubSection{\DblArg{\@SubSubSection}}%
+\def\@SubSubSection [#1]#2{% 
+    \ifnum\TheCounter{SubSectionNo} = 0
+        \errhelp = {The reason is probably that \string\Section
+            occurred directly followed by \string\SubSubSection
+            (that is you forgot a \string\SubSection in between).}%
+        \errmessage{\string\@SubSubSection: Counter "SubSectionNo"
+            is zero.}%
+    \fi
+    \StepCounter{SubSubSectionNo}%
+    \def\Label ##1{\@Label{##1}{\RefCounter{SubSubSectionNo}}{1}}%
+    \GenericHeading{4}{24pt plus 6pt minus 1pt}% 
+        {1}{1}{1}{18pt}{0}% 
+        {\normalsize}{-10pt}% 
+        {\PrintCounter{SubSubSectionNo}}{#2}{#1}%
+}
+\catcode`\@ = 12