diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/lamstex/inputs/book.stb |
Initial commit
Diffstat (limited to 'macros/lamstex/inputs/book.stb')
-rw-r--r-- | macros/lamstex/inputs/book.stb | 560 |
1 files changed, 560 insertions, 0 deletions
diff --git a/macros/lamstex/inputs/book.stb b/macros/lamstex/inputs/book.stb new file mode 100644 index 0000000000..ccce9b3c3b --- /dev/null +++ b/macros/lamstex/inputs/book.stb @@ -0,0 +1,560 @@ +% BOOK.STB VERSION 2.0 +% COPYRIGHT (C) 1989, 1990, 1991 BY THE TEXPLORATORS CORPORATION +% ALL RIGHTS RESERVED + +% IF THIS FILE IS MODIFIED IN ANY WAY, IT SHOULD BE GIVEN A DIFFERENT NAME ! + +\catcode`\@=11 +\let\alloc@\alloc@@ + +\hsize=29pc +\advance\hoffset 42pt +\vsize=40pc +\advance\voffset 90pt +\normallineskiplimit=1pt +\parindent=10pt + +\font@\ninerm=cmr9 +\font@\eightrm=cmr8 +\font@\sixrm=cmr6 +\font@\eighti=cmmi8 \skewchar\eighti='177 +\font@\sixi=cmmi6 \skewchar\sixi='177 +\font@\ninesy=cmsy9 \skewchar\ninesy='60 +\font@\eightsy=cmsy8 \skewchar\eightsy='60 +\font@\sixsy=cmsy6 \skewchar\sixsy='60 +\font@\eightbf=cmbx8 +\font@\sixbf=cmbx6 +\font@\eightit=cmti8 +\font@\eightsl=cmsl8 +\font@\eighttt=cmtt8 + +\ifmsamloaded@ + \font@\eightmsa=msam8 + \font@\sixmsa=msam6 +\fi + +\ifmsbmloaded@ + \font@\eightmsb=msbm8 + \font@\sixmsb=msbm6 +\fi + +\ifeufmloaded@ + \font@\eighteufm=eufm8 + \font@\sixeufm=eufm6 +\fi + +\ifcmmibloaded@ + \font@\eightcmmib=cmmib8 \skewchar\eightcmmib='177 + \font@\sixcmmib=cmmib6 \skewchar\sixcmmib='177 +\fi + +\ifcmbsyloaded@ + \font@\eightcmbsy=cmbsy8 \skewchar\eightcmbsy='60 + \font@\sixcmbsy=cmbsy6 \skewchar\sixcmbsy='60 +\fi + +\newskip\ttglue@ + +\def\tenpoint{\def\pointsize@{10}% + \normalbaselineskip12\p@ + \abovedisplayskip12\p@ plus3\p@ minus9\p@ + \belowdisplayskip12\p@ plus3\p@ minus9\p@ + \abovedisplayshortskip\z@ plus3\p@ + \belowdisplayshortskip7\p@ plus3\p@ minus4\p@ + \textonlyfont@\rm\tenrm + \textonlyfont@\it\tenit + \textonlyfont@\sl\tensl + \textonlyfont@\bf\tenbf + \ifsyntax@\def\big##1{{\hbox{$\left##1\right.$}}}\else + \let\big\tenbig@ + \textfont\z@\tenrm \scriptfont\z@\sevenrm \scriptscriptfont\z@\fiverm + \textfont\@ne\teni \scriptfont\@ne\seveni \scriptscriptfont\@ne\fivei + \textfont\tw@\tensy \scriptfont\tw@\sevensy \scriptscriptfont\tw@\fivesy + \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex + \textfont\itfam\tenit + \textfont\slfam\tensl + \textfont\bffam\tenbf \scriptfont\bffam\sevenbf + \scriptscriptfont\bffam\fivebf + \ifmsamloaded@ + \textfont\msafam=\tenmsa \scriptfont\msafam=\sevenmsa + \scriptscriptfont\msafam=\fivemsa + \fi + \ifmsbmloaded@ + \textfont\msbfam=\tenmsb \scriptfont\msbfam=\sevenmsb + \scriptscriptfont\msbfam=\fivemsb + \fi + \ifeufmloaded@ + \textfont\eufmfam=\teneufm \scriptfont\eufmfam=\seveneufm + \scriptscriptfont\eufmfam=\fiveeufm + \fi + \ifcmmibloaded@ + \textfont\cmmibfam=\tencmmib \scriptfont\cmmibfam=\sevencmmib + \scriptscriptfont\cmmibfam=\fivecmmib + \fi + \ifcmbsyloaded@ + \textfont\cmbsyfam=\tencmbsy \scriptfont\cmbsyfam=\sevencmbsy + \scriptscriptfont\cmbsyfam=\fivecmbsy + \fi + \fi + \let\tt\tentt + \tt\ttglue@=.5em minus .15em\relax + \setbox\strutbox\hbox{\vrule\height8.5\p@\depth3.5\p@\width\z@}% + \setbox\strutbox@\hbox{\vrule\height8\p@\depth3\p@\width\z@}% + \ex@=.2326ex\normalbaselines\ifmmode\else\rm\fi} + +\def\tenbig@#1{{\hbox{$\left#1\vbox to8.5\p@{}\right.\n@space$}}} + +\tenpoint + +\def\eightpoint{\def\pointsize@{8}% + \normalbaselineskip10\p@ + \abovedisplayskip10\p@ plus2.4\p@ minus7.2\p@ + \belowdisplayskip10\p@ plus2.4\p@ minus7.2\p@ + \abovedisplayshortskip\z@ plus2.4\p@ + \belowdisplayshortskip5.6\p@ plus2.4\p@ minus3.2\p@ + \textonlyfont@\rm\eightrm + \textonlyfont@\it\eightit + \textonlyfont@\sl\eightsl + \textonlyfont@\bf\eightbf + \ifsyntax@\def\big##1{{\hbox{$\left##1\right.$}}}\else + \let\big\eightbig@ + \textfont\z@\eightrm \scriptfont\z@\sixrm \scriptscriptfont\z@\fiverm + \textfont\@ne\eighti \scriptfont\@ne\sixi \scriptscriptfont\@ne\fivei + \textfont\tw@\eightsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\fivesy + \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex + \textfont\itfam\eightit + \textfont\slfam\eightsl + \textfont\bffam\eightbf \scriptfont\bffam\sixbf + \scriptscriptfont\bffam\fivebf + \ifmsamloaded@ + \textfont\msafam=\eightmsa \scriptfont\msafam=\sixmsa + \scriptscriptfont\msafam=\fivemsa + \fi + \ifmsbmloaded@ + \textfont\msbfam=\eightmsb \scriptfont\msbfam=\sixmsb + \scriptscriptfont\msbfam=\fivemsb + \fi + \ifeufmloaded@ + \textfont\eufmfam=\eighteufm \scriptfont\eufmfam=\sixeufm + \scriptscriptfont\eufmfam=\fiveeufm + \fi + \ifcmmibloaded@ + \textfont\cmmibfam=\eightcmmib \scriptfont\cmmibfam=\sixcmmib + \scriptscriptfont\cmmibfam=\fivecmmib + \fi + \ifcmbsyloaded@ + \textfont\cmbsyfam=\eightcmbsy \scriptfont\cmbsyfam=\sixcmbsy + \scriptscriptfont\cmbsyfam=\fivecmbsy + \fi + \fi + \let\tt\eighttt + \tt\ttglue@=.4em minus .12em + \setbox\strutbox\hbox{\vrule\height7\p@\depth3\p@\width\z@}% + \setbox\strutbox@\hbox{\vrule\height6.5\p@\depth2.5\p@\width\z@}% + \ex@=.2326ex\normalbaselines\ifmmode\else\rm\fi} + +\def\eightbig@#1{{\hbox{$\textfont\z@\ninerm\textfont\tw@\ninesy + \left#1\vbox to6.5\p@{}\right.\n@space$}}} + +{\catcode` =\active +\gdef\litcodes@@{\def {\penalty\z@\hskip\ttglue@}}} + +\def\LamSTeX{L\kern-.4em\raise.3ex\hbox{$\ssize\Cal A$}% + \DN@{10}\ifx\next@\pointsize@\kern-.25em\else\kern-.3em\fi + \lower.4ex\hbox{\if\pointsize@ t\eightsy\else\sixsy\fi M}% + \kern-.1em{$\Cal S$}-\TeX} + +\def\adjustpunct@#1{\count@\lastkern + \ifnum\count@=\z@#1\else + \ifnum\count@>\tw@#1\else + \ifnum\count@<-\tw@#1\else + \unkern\unkern\setboxzl@ + \skip@\lastskip\unskip + \count@@\lastpenalty\unpenalty + \ifnum\count@=\tw@\unskip\setboxzl@\fi + \ifdim\skip@=\z@\else\hskip\skip@\fi + #1% + \ifnum\count@=\tw@\null\hfill\fi + \penalty\count@@ + \fi\fi\fi} +\def\ignorepars@{\FNSS@\ignorepars@@} +\def\ignorepars@@{\ifx\next\par\DN@\par{\FN@\ignorepars@@}\else + \let\next@\relax\fi\next@} +\newcount\ctype@ +\newcount\Ctype@ +\newif\ifleftcolbreak@ +\def\cbreak@#1#2{\ifcase\ctype@#1\or\nobreak#2\else + \global\leftcolbreak@true + \ifdim\pagetotal>\pageheight@\global\leftcolbreak@false\fi + \global\Ctype@\ctype@\break\fi\ctype@\z@} +\newif\ifletter@ +\newtoks\marktoks@i +\newtoks\marktoks@ii +\newtoks\marktoks@iii +\newtoks\marktoks@iv +\newtoks\marktoks@v +\newif\ifentry@ +\newcount\dii@ +\def\Topage@#1#2{\DN@{#2}\ifx\next@\frompage@{\pagecs@{\frompage@}}% + \else{\pagecs@{{\frompage@}\hbox{--}#2}}\fi\egroup\ignorepars@} +\newdimen\pageheight@ +\pageheight@\vsize +\newdimen\doublepageheight@ +\doublepageheight@2\pageheight@ +\advance\doublepageheight@1pc +\newdimen\pagewidth@ +\pagewidth@\hsize +\def\makeheadline{% + \hbox{\botsmash{\hbox to\pagewidth@{\vbox to8.5pt{}\the\headline}}}% + \nointerlineskip\vskip26pt} +\def\makefootline{\baselineskip=2.5pc\relax + \hbox to \pagewidth@{\the\footline}} +\newif\iffirstindexpage@ +\def\makeindex@W{Index} +\font\Bf=cmbx10 scaled \magstep1 +\def\combinecolumns@{% + \setbox\outbox@\vbox{\makeheadline + \vbox to\pageheight@{\boxmaxdepth\maxdepth + \iffirstindexpage@ + \vbox to30\p@{% + \hbox to\pagewidth@{\hfil\Bf\uppercase\expandafter{\makeindex@W}\hfil}% + \vfil}% + \nointerlineskip + \fi + \wd\z@\hsize\wd\tw@\hsize + \setboxz@h to\pagewidth@{\box\z@\kern1pc\box\tw@}% + \dimen@\dp\z@\box\z@\kern-\dimen@\vfill}% + \makefootline}% + {\noexpands@\let\style=\relax + \shipout@\box\outbox@ + }% + \global\vsize\doublepageheight@ + \global\firstindexpage@false + \advancepageno} +\newdimen\prevcoldepth@ +\def\doublecolumns@{% + \dimen@\pageheight@\iffirstindexpage@\advance\dimen@-30\p@\fi + \ifleftcolbreak@ + \global\leftcolbreak@false + \vbox to\dimen@{\dimen@\dp\@cclv\unvbox\@cclv + \ifnum\Ctype@=\thr@@\kern-\dimen@\vfill\fi}% + \allowbreak + \else + \splittopskip\topskip\splitmaxdepth\maxdepth + \setbox\z@\vsplit\@cclv to\dimen@ + \ifnum\Ctype@=\z@\global\Ctype@\@ne\fi + \ifcase\Ctype@\or + \setbox\tw@\vsplit\@cclv to\dimen@\global\prevcoldepth@\dp\tw@ + \else + \global\prevcoldepth@\dp\@cclv + \setbox\tw@\vbox to\dimen@{\unvbox\@cclv + \ifnum\Ctype@=\thr@@\kern-\prevcoldepth@\vfill\fi}% + \fi + \combinecolumns@ + \ifcase\Ctype@\or + \expandafter\continue@\splitbotmark{}\relax\relax\relax\relax + \relax\relax\continue@ + \else\expandafter\continue@\botmark{}\relax\relax\relax\relax + \relax\relax\continue@ + \fi + \ifvoid\@cclv\else\unvbox\@cclv\penalty\outputpenalty\fi + \fi + \global\Ctype@\z@} +\def\continue@#1#2#3#4#5#6#7#8\continue@{\def\next@{#1}\ifx\next@\empty + \else + \noindent@#3 ({\it continued\/})\par + \ifnum#1>\@ne\noindent@\enspace(#4 {\it continued\/})\par\fi + \ifnum#1>\tw@\noindent@\enspace(#5 {\it continued\/})\par\fi + \ifnum#1>\thr@@\noindent@\enspace(#6 {\it continued\/})\par\fi + \ifnum#1>4 \noindent@\enspace(#7 {\it continued\/})\par\fi + \ifvoid\@cclv + \global\advance\prevcoldepth@-\prevdepth\kern\prevcoldepth@ + \else + \skip@\baselineskip\advance\skip@\parskip + \advance\skip@-\topskip\advance\skip@-\prevdepth + \vskip\skip@ + \fi + \fi} +\newif\ifshortlastcolumn@ +\def\balancecolumns@{\setbox\z@\vbox{\unvbox\@cclv\unskip}% + \dimen@\ht\z@\advance\dimen@\topskip\advance\dimen@-\baselineskip + \divide\dimen@\tw@ + \splittopskip\topskip + \global\dimen@i\dimen@ + {\vbadness\@M + \loop + \global\setbox\thr@@\copy\z@ + \global\setbox\@ne\vsplit\thr@@ to\dimen@i + \ifdim\ht\thr@@>\dimen@i\global\advance\dimen@i\p@ + \repeat}% + \setbox\z@\vbox to\dimen@i{\unvbox\@ne}% + \setbox\tw@\vbox to\dimen@i{\dimen@\dp\thr@@\unvbox\thr@@ + \ifshortlastcolumn@\kern-\dimen@\vfill\fi}% + \combinecolumns@} + +\newif\ifspecialpage@ + +\let\heading + +\def\makebib{\par\vfill\break + \global\specialpage@true + \gdef\headline@{\makebib@W}% + \begingroup + \eightpoint\sfcode`\.=\@m\everypar{}\parindent\z@ + \def\nopunct{\nopunct@true}\def\nospace{\nospace@true}% + \nopunct@false\nospace@false + \def\lkerns@{\null\kern\m@ne sp\kern\@ne sp}% + \def\nkerns@{\null\kern-\tw@ sp\kern\tw@ sp}% + \hbox to\pagewidth@{\hfil\Bf\uppercase\expandafter{\makebib@W}\hfil}% + \iftoc@ + \expandafter\unmacro@\meaning\makebib@W\unmacro@ + {\noexpands@ + \edef\next@{\write\toc@{\noexpand\noexpand\noexpand\makebib + {\macdef@}}}\next@}% + \write\toc@{\noexpand\Page{\number\pageno}{\page@N}{\page@P}{\page@Q}^^J}% + \fi + \nobreak\bigskip} + +\def\bibliography@W{Bibliography} + +\def\bibliography{\checkmainfile@ + \immediate\openin\bbl@=\mainfile@.bbl + \ifeof\bbl@ + \W@{No .bbl file}% + \else + \immediate\closein\bbl@ + \begingroup\input bibtex \input\mainfile@.bbl \endgroup + \fi}% + +\def\beginthebibliography@#1{\par\vfill\break + \global\specialpage@true\gdef\headline@{\makebib@W}% + \eightpoint\setboxz@h{#1\ }\bibindent@\wdz@ + \sfcode`\.=\@m\everypar{}\parindent\z@ + \hbox to\pagewidth@{\hfil\Bf\uppercase\expandafter{\bibliography@W}\hfil}% + \iftoc@ + \expandafter\unmacro@\meaning\makebib@W\unmacro@ + {\noexpands@ + \edef\next@{\write\toc@{\noexpand\noexpand\noexpand\bibliography + {\macdef@}}}\next@}% + \write\toc@{\noexpand\Page{\number\pageno}{\page@N}{\page@P}{\page@Q}^^J}% + \fi + \nobreak\bigskip} + +\def\makeindex{\checkmainfile@\par\vfill\break + \iftoc@ + \expandafter\unmacro@\meaning\makeindex@W\unmacro@ + {\noexpands@ + \edef\next@{\write\toc@{\noexpand\noexpand\noexpand\makeindex + {\macdef@}}}\next@}% + \write\toc@{\noexpand\Page{\number\pageno}{\page@N}{\page@P}{\page@Q}^^J}% + \fi + \global\specialpage@true + \global\firstindexpage@true + \gdef\headline@{\makeindex@W}% + \begingroup + \let\asterisk*% + \def\lkerns@{\null\kern\m@ne sp\kern\@ne sp} + \def\nkerns@{\null\kern-\tw@ sp\kern\tw@ sp} + \def\nocolumnbreak{\ctype@\@ne} + \def\columnbreak{\ctype@\tw@} + \def\newcolumn{\ctype@\thr@@} + \def\LETTER##1{\par + \mark{}% + \cbreak@{\penalty-200 \bigskip}\bigskip + \letter@true\centerline{\bf##1}\nobreak\medskip}% + \def\Entry##1##2##3##4##5##6##7{\par\entry@true + \marktoks@i{##3}\marktoks@ii{##4}\marktoks@iii{##5}% + \marktoks@iv{##6}\marktoks@v{##7}% + \ifcase##1% + \or + \ifletter@\else\mark{}\fi + \cbreak@\relax\relax + \noindent@ + \mark{10{\the\marktoks@i}}% + \hangafter\@ne\hangindent.5em{##3}% + \or + \ifcase##2% + \ifletter@\else\mark{}\fi + \cbreak@\relax\relax + \noindent@ + \mark{20{\the\marktoks@i}{\the\marktoks@ii}}% + \hangafter\@ne\hangindent.5em{##3}\par\nobreak + \noindent@\hangafter\@ne\hangindent1.5em\quad{##4}% + \or + \mark{10{\the\marktoks@i}}% + \cbreak@\relax\relax + \noindent@ + \mark{21{\the\marktoks@i}{\the\marktoks@ii}}% + \hangafter\@ne\hangindent1.5em\quad{##4}% + \fi + \or + \ifcase##2% + \ifletter@\else\mark{}\fi + \cbreak@\relax\relax + \noindent@ + \mark{30{\the\marktoks@i}{\the\marktoks@ii}{\the\marktoks@iii}}% + \hangafter\@ne\hangindent.5em{##3}\par\nobreak + \noindent@\hangafter\@ne\hangindent1.5em\quad{##4}\par\nobreak + \noindent@\hangafter\@ne\hangindent2.5em\qquad{##5}% + \or + \mark{10{\the\marktoks@i}}% + \cbreak@\relax\relax + \noindent@ + \mark{31{\the\marktoks@i}{\the\marktoks@ii}{\the\marktoks@iii}}% + \hangafter\@ne\hangindent1.5em\quad{##4}\par\nobreak + \noindent@\hangafter\@ne\hangindent2.5em\qquad{##5}% + \or + \mark{2\number\dii@{\the\marktoks@i}{\the\marktoks@ii}}% + \cbreak@\relax\relax + \noindent@ + \mark{32{\the\marktoks@i}{\the\marktoks@ii}{\the\marktoks@iii}}% + \hangafter\@ne\hangindent2.5em\qquad{##5}% + \fi + \or + \ifcase##2% + \ifletter@\else\mark{}\fi + \cbreak@\relax\relax + \noindent@ + \mark{40{\the\marktoks@i}{\the\marktoks@ii}{\the\marktoks@iii}% + {\the\marktoks@iv}}% + \hangafter\@ne\hangindent.5em{##3}\par\nobreak + \noindent@\hangafter\@ne\hangindent1.5em\quad{##4}\par\nobreak + \noindent@\hangafter\@ne\hangindent2.5em\qquad{##5}\par\nobreak + \noindent@\hangafter\@ne\hangindent3.5em\qquad\quad{##6}% + \or + \mark{10{\the\marktoks@i}}% + \cbreak@\relax\relax + \noindent@ + \mark{41{\the\marktoks@i}{\the\marktoks@ii}{\the\marktoks@iii}% + {\the\marktoks@iv}}% + \noindent@\hangafter\@ne\hangindent1.5em\quad{##4}\par\nobreak + \noindent@\hangafter\@ne\hangindent2.5em\qquad{##5}\par\nobreak + \noindent@\hangafter\@ne\hangindent3.5em\qquad\quad{##6}% + \or + \mark{2\number\dii@{\the\marktoks@i}{\the\marktoks@ii}}% + \cbreak@\relax\relax + \noindent@ + \mark{42{\the\marktoks@i}{\the\marktoks@ii}{\the\marktoks@iii}% + {\the\marktoks@iv}}% + \noindent@\hangafter\@ne\hangindent2.5em\qquad{##5}\par\nobreak + \noindent@\hangafter\@ne\hangindent3.5em\qquad\quad{##6}% + \or + \mark{3\number\dii@{\the\marktoks@i}{\the\marktoks@ii}% + {\the\marktoks@iii}}% + \cbreak@\relax\relax + \noindent@ + \mark{43{\the\marktoks@i}{\the\marktoks@ii}{\the\marktoks@iii}% + {\the\marktoks@iv}}% + \hangafter\@ne\hangindent3.5em\qquad\quad{##6}% + \fi + \or + \ifcase##2% + \ifletter@\else\mark{}\fi + \cbreak@\relax\relax + \noindent@ + \mark{50{\the\marktoks@i}{\the\marktoks@ii}{\the\marktoks@iii}% + {\the\marktoks@iv}{\the\marktoks@v}}% + \hangafter\@ne\hangindent.5em{##3}\par\nobreak + \noindent@\hangafter\@ne\hangindent1.5em\quad{##4}\par\nobreak + \noindent@\hangafter\@ne\hangindent2.5em\qquad{##5}\par\nobreak + \noindent@\hangafter\@ne\hangindent3.5em\qquad\quad{##6}\par\nobreak + \noindent@\hangafter\@ne\hangindent4.5em\qquad\qquad{##7}% + \or + \mark{10{\the\marktoks@i}}% + \cbreak@\relax\relax + \noindent@ + \mark{51{\the\marktoks@i}{\the\marktoks@ii}{\the\marktoks@iii}% + {\the\marktoks@iv}{\the\marktoks@v}}% + \hangafter\@ne\hangindent1.5em\quad{##4}\par\nobreak + \noindent@\hangafter\@ne\hangindent2.5em\qquad{##5}\par\nobreak + \noindent@\hangafter\@ne\hangindent3.5em\qquad\quad{##6}\par\nobreak + \noindent@\hangafter\@ne\hangindent4.5em\qquad\qquad{##7}% + \or + \mark{2\number\dii@{\the\marktoks@i}{\the\marktoks@ii}}% + \cbreak@\relax\relax + \noindent@ + \mark{52{\the\marktoks@i}{\the\marktoks@ii}{\the\marktoks@iii}% + {\the\marktoks@iv}{\the\marktoks@v}}% + \hangafter\@ne\hangindent2.5em\qquad{##5}\par\nobreak + \noindent@\hangafter\@ne\hangindent3.5em\qquad\quad{##6}\par\nobreak + \noindent@\hangafter\@ne\hangindent4.5em\qquad\qquad{##7}% + \or + \mark{3\number\dii@{\the\marktoks@i}{\the\marktoks@ii}% + {\the\marktoks@iii}}% + \cbreak@\relax\relax + \noindent@ + \mark{53{\the\marktoks@i}{\the\marktoks@ii}{\the\marktoks@iii}% + {\the\marktoks@iv}{\the\marktoks@v}}% + \hangafter\@ne\hangindent3.5em\qquad\quad{##6}\par\nobreak + \noindent@\hangafter\@ne\hangindent4.5em\qquad\qquad{##7}% + \or + \mark{4\number\dii@{\the\marktoks@i}{\the\marktoks@ii}% + {\the\marktoks@iii}{\the\marktoks@iv}}% + \cbreak@\relax\relax + \noindent@ + \mark{54{\the\marktoks@i}{\the\marktoks@ii}{\the\marktoks@iii}% + {\the\marktoks@iv}{\the\marktoks@v}}% + \hangafter\@ne\hangindent4.5em\qquad\qquad{##7}% + \fi + \fi + \dii@##2\relax + \letter@false + \ignorepars@}% + \def\Page##1{\ifentry@\adjustpunct@,\enspace\else\adjustpunct@, \fi + \entry@false{##1}\ignorepars@}% + \def\Pagespan##1{\ifentry@\adjustpunct@,\enspace\else\adjustpunct@, \fi + \entry@false\def\frompage@{##1}{##1}\ignorepars@}% + \def\Topage##1{\DN@{##1}\ifx\next@\frompage@ + \else\hbox{--}{##1}\fi\ignorepars@}% + \def\PageSpan##1##2{\ifentry@\adjustpunct@,\enspace\else\adjustpunct@, \fi + \entry@false\def\pagecs@{##1}\def\frompage@{##2}% + \bgroup\let\Topage\Topage@\ignorepars@}% + \def\Xref##1{\ifentry@\else + \def\See####1{\adjustpunct@\semicolon@\space + {\it see~also\/}~####1}{##1}\fi\ignorepars@}% + \def\Morexref##1{\ifentry@\else + \def\See####1{\adjustpunct@, ####1}{##1}\fi\ignorepars@}% + \def\Entryxref##1##2##3##4##5##6##7##8{% + \Entry{##1}{##2}{##3}{##4}{##5}{##6}{##7}% + \def\See####1{\adjustpunct@, {\it see\/}~####1}{##8}\ignorepars@}% + \def\shortlastcolumn{\shortlastcolumn@true} + \hsize14pc + \global\vsize\doublepageheight@ + \maxdepth\maxdimen + \global\firstindexpage@true + \global\advance\vsize-60\p@ + \everypar{}\parindent\z@ + \eightpoint + \rightskip\z@ plus3em \spaceskip.3333em \xspaceskip.5em + \output{\doublecolumns@}% + \input\mainfile@.xdx + \mark{}% + \output{\balancecolumns@}\vfil\break\endgroup + \global\vsize\pageheight@} + +\footline={\ifspecialpage@\hfil\ninerm\page@S{\page@P\page@N{\number\page@C}% + \page@Q}\hfil\fi + \global\specialpage@false} + +\headline={\unlabel@\noset@\def\\{\unskip\space\ignorespaces}% + \ifspecialpage@\hfil + \else + \ifodd\pageno + \hfil + \smc\headline@ + \hfil + \llap{\tenpoint\folio}% + \else + \rlap{\tenpoint\folio}% + \hfil + \smc\headline@ + \hfil + \fi + \fi} + +\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 |