diff options
Diffstat (limited to 'macros/lamstex/inputs/lamstex.stf')
-rw-r--r-- | macros/lamstex/inputs/lamstex.stf | 115 |
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 |