summaryrefslogtreecommitdiff
path: root/macros/lamstex/inputs/lamstex.stf
diff options
context:
space:
mode:
Diffstat (limited to 'macros/lamstex/inputs/lamstex.stf')
-rw-r--r--macros/lamstex/inputs/lamstex.stf115
1 files changed, 115 insertions, 0 deletions
diff --git a/macros/lamstex/inputs/lamstex.stf b/macros/lamstex/inputs/lamstex.stf
new file mode 100644
index 0000000000..9514ec0524
--- /dev/null
+++ b/macros/lamstex/inputs/lamstex.stf
@@ -0,0 +1,115 @@
+% LAMSTEX.STF VERSION 2.0
+% COPYRIGHT (C) 1989, 1990, 1991 BY THE TEXPLORATORS CORPORATION
+% ALL RIGHTS RESERVED
+
+% THIS FILE SHOULD NOT BE CHANGED IN ANY WAY.
+
+\catcode`\@=11
+\let\alloc@\alloc@@
+\def\dotleaders{\leaders\hbox to10pt{\rm\hfil.\hfil}\hfil}
+\def\Page@#1#2#3#4{\kern10pt\hbox{\rm#3#2{#1}#4}}
+\long\def\widerthanhsize@#1#2#3#4{\test@true
+ \setbox\z@\vbox{\hsize\maxdimen
+ \rm\noindent@#1#2#3#4\par\setboxzl@}%
+ \ifdim\wdz@=\z@\setboxz@h{\rm#1#2#3#4}\ifdim\wdz@>\hsize\else
+ \test@false\fi\fi}
+\long\def\setentry@#1#2#3#4{%
+ \widerthanhsize@{#1}{#2}{#3}{#4}%
+ \iftest@
+ \longentry@{#1}{#2}{#3}{#4}%
+ \else
+ \hbox to\hsize{\rm\strut#1#2#3#4\strut}%
+ \fi}
+\def\endstrut@{\lower\dp\strutbox\vbox to\dp\strutbox{}}
+\newdimen\thehang@
+\long\def\longentry@#1#2#3#4{\setboxz@h{#1}%
+ \thehang@\wdz@\advance\thehang@10\p@
+ \setboxz@h{#4}%
+ \setbox\z@\vbox{\advance\hsize-\wdz@\advance\hsize-20\p@
+ \normalbaselines
+ \hangafter\@ne\hangindent\thehang@
+ \vskip-\parskip
+ \rm\noindent@\vbox to\ht\strutbox{}\hbox{#1}#2\vphantom{#3#4}\endstrut@}%
+ \setbox\z@\vbox{\unvbox\z@
+ \setboxzl@
+ \hbox to\hsize{\kern\thehang@\unhbox\z@\unskip\unskip#3#4\endstrut@}%
+ }%
+ \unvbox\z@}
+\newif\ifemptynumber@
+\def\Style@{\emptynumber@false\FN@\Style@@}
+\def\Style@@{\ifx\next"\expandafter\Style@@@\else\expandafter\Style@@@@\fi}
+\def\Style@@@@#1\Style@{\style{#1}}
+\def\Style@@@"#1"\Style@{\DN@{#1}\ifx\next@\empty\emptynumber@true
+ \else#1\fi}
+\newdimen\digits
+\setbox0\hbox{0.00}
+\digits=\wd0
+\def\maketoc@W{CONTENTS}
+\def\maketoc{\checkmainfile@\par\vfill\break
+ \begingroup
+ \noset@\unlabel@\let\nopunct\relax\let\nospace\relax\let\overlong\relax
+ \everypar{}\parindent\z@\lineskiplimit\z@
+ \def\HL##1##2##3##4\Page##5##6##7##8{\def\HLlevel@{##1}%
+ \ifnum\HLlevel@=\@ne
+ \bigbreak
+ \begingroup
+ \def\\{\unskip\space\ignorespaces}%
+ \setentry@{\bf\def\next@{##2}\ifx\next@\empty\else##2\space\fi
+ \let\style\HL@@S\Style@##3\Style@\ifemptynumber@\else\space\fi}%
+ {\bf\ignorespaces##4\unskip}\dotleaders{\Page@{##5}{##6}{##7}{##8}}%
+ \endgroup
+ \nobreak\smallskip
+ \else
+ \Err@{\string\HL##1 not defined in this style}%
+ \fi}%
+ \def\hl##1##2##3##4\Page##5##6##7##8{\def\hllevel@{##1}%
+ \ifnum\hllevel@=\@ne
+ \setentry@{\rm\quad\let\style\hl@@S
+ \hbox to\digits{\Style@##3\Style@\hfil}\enspace}%
+ {\rm\ignorespaces##4\unskip}\dotleaders{\Page@{##5}{##6}{##7}{##8}}%
+ \else
+ \Err@{\string\hl##1 not defined in this style}%
+ \fi}%
+ \def\NameHL##1##2{\def##2####1####2####3\Page
+ {\HL{##1}{####1}{####2}####3\Page}}%
+ \def\Namehl##1##2{\def##2####1####2####3\Page
+ {\hl{##1}{####1}{####2}####3\Page}}%
+ \centerline{\bf\maketoc@W}%
+ \vskip30\p@ plus10\p@ minus10\p@
+ \input\mainfile@.toc
+ \endgroup}
+\def\makelistFigures{\makelist\c{F}List of Figures\endmakelist}
+\def\makelistTables{\makelist\c{T}List of Tables\endmakelist}
+\def\makelist\c#1#2\endmakelist{\checkmainfile@
+ \par\vfill\break
+ \begingroup
+ \noset@\unlabel@\let\nopunct\relax\let\nospace\relax\let\overlong\relax
+ \everypar{}\parindent\z@\lineskiplimit\z@
+ \def\listclass@{#1}%
+ \def\island{\FN@\island@}%
+ \def\island@{\ifx\next\at@\expandafter\island@@\else
+ \expandafter\island@@@\fi}%
+ \def\island@@\at@##1\c##2##3##4##5\Page##6##7##8##9{%
+ \def\islandtype@{##1}%
+ \def\next@{##2}%
+ \ifx\next@\listclass@
+ \setentry@{\rm##3 \let\style\island@@@S\Style@##4\Style@
+ \ifemptynumber@\else\space\fi}%
+ {\rm\ignorespaces##5\unskip}\dotleaders{\Page@{##6}{##7}{##8}{##9}}%
+ \fi}%
+ \def\island@@@\c##1##2##3##4\Page##5##6##7##8{%
+ \island@@\at@\island\c{##1}{##2}{##3}##4\Page{##5}{##6}{##7}{##8}}%
+ \def\newisland##1\c##2##3{\def##1####1####2\Page####3####4####5####6{%
+ \island\at@##1\c{##2}{##3}{####1}####2\Page{####3}{####4}{####5}{####6}}}%
+ \newisland\Figure\c{F}{Figure}%
+ \newisland\Table\c{T}{Table}%
+ \vbox{\Let@\tabskip\centering@\halign to\hsize
+ {\bf\hfil\ignorespaces##\unskip\hfil\cr#2\crcr}}%
+ \vskip30\p@ plus10\p@ minus10\p@
+ \input\mainfile@.tic
+ \endgroup}
+\def\alloc@#1#2#3#4#5{\global\advance\count1#1by\@ne
+ \ch@ck#1#4#2\allocationnumber=\count1#1
+ \global#3#5=\allocationnumber
+ \wlog{\string#5=\string#2\the\allocationnumber}}
+\catcode`\@=\active