Subversion Repositories openrisc

% texinfo.tex -- TeX macros to handle Texinfo files.

% texinfo.tex -- TeX macros to handle Texinfo files.

%

%

% Load plain if necessary, i.e., if running under initex.

% Load plain if necessary, i.e., if running under initex.

\expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi

\expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi

%

%

%

%

% 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,

% 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,

%

%

% This texinfo.tex file is free software: you can redistribute it and/or

% This texinfo.tex file is free software: you can redistribute it and/or

% modify it under the terms of the GNU General Public License as

% modify it under the terms of the GNU General Public License as

% published by the Free Software Foundation, either version 3 of the

% published by the Free Software Foundation, either version 3 of the

% License, or (at your option) any later version.

% License, or (at your option) any later version.

%

%

% This texinfo.tex file is distributed in the hope that it will be

% This texinfo.tex file is distributed in the hope that it will be

% useful, but WITHOUT ANY WARRANTY; without even the implied warranty

% useful, but WITHOUT ANY WARRANTY; without even the implied warranty

% of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

% of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

% General Public License for more details.

% General Public License for more details.

%

%

% You should have received a copy of the GNU General Public License

% You should have received a copy of the GNU General Public License

% along with this program.  If not, see <http://www.gnu.org/licenses/>.

% along with this program.  If not, see <http://www.gnu.org/licenses/>.

%

%

% As a special exception, when this file is read by TeX when processing

% As a special exception, when this file is read by TeX when processing

% a Texinfo source document, you may use the result without

% a Texinfo source document, you may use the result without

% restriction.  (This has been our intent since Texinfo was invented.)

% restriction.  (This has been our intent since Texinfo was invented.)

%

%

% Please try the latest version of texinfo.tex before submitting bug

% Please try the latest version of texinfo.tex before submitting bug

% reports; you can get the latest version from:

% reports; you can get the latest version from:

%   http://www.gnu.org/software/texinfo/ (the Texinfo home page), or

%   http://www.gnu.org/software/texinfo/ (the Texinfo home page), or

%   ftp://tug.org/tex/texinfo.tex

%   ftp://tug.org/tex/texinfo.tex

%     (and all CTAN mirrors, see http://www.ctan.org).

%     (and all CTAN mirrors, see http://www.ctan.org).

% The texinfo.tex in any given distribution could well be out

% The texinfo.tex in any given distribution could well be out

% of date, so if that's what you're using, please check.

% of date, so if that's what you're using, please check.

%

%

% Send bug reports to bug-texinfo@gnu.org.  Please include including a

% Send bug reports to bug-texinfo@gnu.org.  Please include including a

% complete document in each bug report with which we can reproduce the

% complete document in each bug report with which we can reproduce the

% problem.  Patches are, of course, greatly appreciated.

% problem.  Patches are, of course, greatly appreciated.

%

%

% To process a Texinfo manual with TeX, it's most reliable to use the

% To process a Texinfo manual with TeX, it's most reliable to use the

% texi2dvi shell script that comes with the distribution.  For a simple

% texi2dvi shell script that comes with the distribution.  For a simple

% manual foo.texi, however, you can get away with this:

% manual foo.texi, however, you can get away with this:

%   tex foo.texi

%   tex foo.texi

%   texindex foo.??

%   texindex foo.??

%   tex foo.texi

%   tex foo.texi

%   tex foo.texi

%   tex foo.texi

%   dvips foo.dvi -o  # or whatever; this makes foo.ps.

%   dvips foo.dvi -o  # or whatever; this makes foo.ps.

% The extra TeX runs get the cross-reference information correct.

% The extra TeX runs get the cross-reference information correct.

% Sometimes one run after texindex suffices, and sometimes you need more

% Sometimes one run after texindex suffices, and sometimes you need more

% than two; texi2dvi does it as many times as necessary.

% than two; texi2dvi does it as many times as necessary.

%

%

% It is possible to adapt texinfo.tex for other languages, to some

% It is possible to adapt texinfo.tex for other languages, to some

% extent.  You can get the existing language-specific files from the

% extent.  You can get the existing language-specific files from the

% full Texinfo distribution.

% full Texinfo distribution.

%

%

% The GNU Texinfo home page is http://www.gnu.org/software/texinfo.

% The GNU Texinfo home page is http://www.gnu.org/software/texinfo.

\message{Loading texinfo [version \texinfoversion]:}

\message{Loading texinfo [version \texinfoversion]:}

% If in a .fmt file, print the version number

% If in a .fmt file, print the version number

% and turn on active characters that we couldn't do earlier because

% and turn on active characters that we couldn't do earlier because

% they might have appeared in the input file name.

% they might have appeared in the input file name.

\everyjob{\message{[Texinfo version \texinfoversion]}%

\everyjob{\message{[Texinfo version \texinfoversion]}%

  \catcode`+=\active \catcode`\_=\active}

  \catcode`+=\active \catcode`\_=\active}

\chardef\other=12

\chardef\other=12

% We never want plain's \outer definition of \+ in Texinfo.

% We never want plain's \outer definition of \+ in Texinfo.

% For @tex, we can use \tabalign.

% For @tex, we can use \tabalign.

\let\+ = \relax

\let\+ = \relax

% Save some plain tex macros whose names we will redefine.

% Save some plain tex macros whose names we will redefine.

\let\ptexb=\b

\let\ptexb=\b

\let\ptexbullet=\bullet

\let\ptexbullet=\bullet

\let\ptexc=\c

\let\ptexc=\c

\let\ptexcomma=\,

\let\ptexcomma=\,

\let\ptexdot=\.

\let\ptexdot=\.

\let\ptexdots=\dots

\let\ptexdots=\dots

\let\ptexend=\end

\let\ptexend=\end

\let\ptexequiv=\equiv

\let\ptexequiv=\equiv

\let\ptexexclam=\!

\let\ptexexclam=\!

\let\ptexfootnote=\footnote

\let\ptexfootnote=\footnote

\let\ptexgtr=>

\let\ptexgtr=>

\let\ptexhat=^

\let\ptexhat=^

\let\ptexi=\i

\let\ptexi=\i

\let\ptexindent=\indent

\let\ptexindent=\indent

\let\ptexinsert=\insert

\let\ptexinsert=\insert

\let\ptexlbrace=\{

\let\ptexlbrace=\{

\let\ptexless=<

\let\ptexless=<

\let\ptexnewwrite\newwrite

\let\ptexnewwrite\newwrite

\let\ptexnoindent=\noindent

\let\ptexnoindent=\noindent

\let\ptexplus=+

\let\ptexplus=+

\let\ptexrbrace=\}

\let\ptexrbrace=\}

\let\ptexslash=\/

\let\ptexslash=\/

\let\ptexstar=\*

\let\ptexstar=\*

\let\ptext=\t

\let\ptext=\t

% If this character appears in an error message or help string, it

% If this character appears in an error message or help string, it

% starts a new line in the output.

% starts a new line in the output.

\newlinechar = `^^J

\newlinechar = `^^J

% Use TeX 3.0's \inputlineno to get the line number, for better error

% Use TeX 3.0's \inputlineno to get the line number, for better error

% messages, but if we're using an old version of TeX, don't do anything.

% messages, but if we're using an old version of TeX, don't do anything.

%

%

\ifx\inputlineno\thisisundefined

\ifx\inputlineno\thisisundefined

  \let\linenumber = \empty % Pre-3.0.

  \let\linenumber = \empty % Pre-3.0.

\else

\else

  \def\linenumber{l.\the\inputlineno:\space}

  \def\linenumber{l.\the\inputlineno:\space}

\fi

\fi

% Set up fixed words for English if not already set.

% Set up fixed words for English if not already set.

\ifx\putwordAppendix\undefined  \gdef\putwordAppendix{Appendix}\fi

\ifx\putwordAppendix\undefined  \gdef\putwordAppendix{Appendix}\fi

\ifx\putwordChapter\undefined   \gdef\putwordChapter{Chapter}\fi

\ifx\putwordChapter\undefined   \gdef\putwordChapter{Chapter}\fi

\ifx\putwordfile\undefined      \gdef\putwordfile{file}\fi

\ifx\putwordfile\undefined      \gdef\putwordfile{file}\fi

\ifx\putwordin\undefined        \gdef\putwordin{in}\fi

\ifx\putwordin\undefined        \gdef\putwordin{in}\fi

\ifx\putwordIndexIsEmpty\undefined     \gdef\putwordIndexIsEmpty{(Index is empty)}\fi

\ifx\putwordIndexIsEmpty\undefined     \gdef\putwordIndexIsEmpty{(Index is empty)}\fi

\ifx\putwordIndexNonexistent\undefined \gdef\putwordIndexNonexistent{(Index is nonexistent)}\fi

\ifx\putwordIndexNonexistent\undefined \gdef\putwordIndexNonexistent{(Index is nonexistent)}\fi

\ifx\putwordInfo\undefined      \gdef\putwordInfo{Info}\fi

\ifx\putwordInfo\undefined      \gdef\putwordInfo{Info}\fi

\ifx\putwordInstanceVariableof\undefined \gdef\putwordInstanceVariableof{Instance Variable of}\fi

\ifx\putwordInstanceVariableof\undefined \gdef\putwordInstanceVariableof{Instance Variable of}\fi

\ifx\putwordMethodon\undefined  \gdef\putwordMethodon{Method on}\fi

\ifx\putwordMethodon\undefined  \gdef\putwordMethodon{Method on}\fi

\ifx\putwordNoTitle\undefined   \gdef\putwordNoTitle{No Title}\fi

\ifx\putwordNoTitle\undefined   \gdef\putwordNoTitle{No Title}\fi

\ifx\putwordof\undefined        \gdef\putwordof{of}\fi

\ifx\putwordof\undefined        \gdef\putwordof{of}\fi

\ifx\putwordon\undefined        \gdef\putwordon{on}\fi

\ifx\putwordon\undefined        \gdef\putwordon{on}\fi

\ifx\putwordpage\undefined      \gdef\putwordpage{page}\fi

\ifx\putwordpage\undefined      \gdef\putwordpage{page}\fi

\ifx\putwordsection\undefined   \gdef\putwordsection{section}\fi

\ifx\putwordsection\undefined   \gdef\putwordsection{section}\fi

\ifx\putwordSection\undefined   \gdef\putwordSection{Section}\fi

\ifx\putwordSection\undefined   \gdef\putwordSection{Section}\fi

\ifx\putwordsee\undefined       \gdef\putwordsee{see}\fi

\ifx\putwordsee\undefined       \gdef\putwordsee{see}\fi

\ifx\putwordSee\undefined       \gdef\putwordSee{See}\fi

\ifx\putwordSee\undefined       \gdef\putwordSee{See}\fi

\ifx\putwordShortTOC\undefined  \gdef\putwordShortTOC{Short Contents}\fi

\ifx\putwordShortTOC\undefined  \gdef\putwordShortTOC{Short Contents}\fi

\ifx\putwordTOC\undefined       \gdef\putwordTOC{Table of Contents}\fi

\ifx\putwordTOC\undefined       \gdef\putwordTOC{Table of Contents}\fi

%

%

\ifx\putwordMJan\undefined \gdef\putwordMJan{January}\fi

\ifx\putwordMJan\undefined \gdef\putwordMJan{January}\fi

\ifx\putwordMFeb\undefined \gdef\putwordMFeb{February}\fi

\ifx\putwordMFeb\undefined \gdef\putwordMFeb{February}\fi

\ifx\putwordMMar\undefined \gdef\putwordMMar{March}\fi

\ifx\putwordMMar\undefined \gdef\putwordMMar{March}\fi

\ifx\putwordMApr\undefined \gdef\putwordMApr{April}\fi

\ifx\putwordMApr\undefined \gdef\putwordMApr{April}\fi

\ifx\putwordMMay\undefined \gdef\putwordMMay{May}\fi

\ifx\putwordMMay\undefined \gdef\putwordMMay{May}\fi

\ifx\putwordMJun\undefined \gdef\putwordMJun{June}\fi

\ifx\putwordMJun\undefined \gdef\putwordMJun{June}\fi

\ifx\putwordMJul\undefined \gdef\putwordMJul{July}\fi

\ifx\putwordMJul\undefined \gdef\putwordMJul{July}\fi

\ifx\putwordMAug\undefined \gdef\putwordMAug{August}\fi

\ifx\putwordMAug\undefined \gdef\putwordMAug{August}\fi

\ifx\putwordMSep\undefined \gdef\putwordMSep{September}\fi

\ifx\putwordMSep\undefined \gdef\putwordMSep{September}\fi

\ifx\putwordMOct\undefined \gdef\putwordMOct{October}\fi

\ifx\putwordMOct\undefined \gdef\putwordMOct{October}\fi

\ifx\putwordMNov\undefined \gdef\putwordMNov{November}\fi

\ifx\putwordMNov\undefined \gdef\putwordMNov{November}\fi

\ifx\putwordMDec\undefined \gdef\putwordMDec{December}\fi

\ifx\putwordMDec\undefined \gdef\putwordMDec{December}\fi

%

%

\ifx\putwordDefmac\undefined    \gdef\putwordDefmac{Macro}\fi

\ifx\putwordDefmac\undefined    \gdef\putwordDefmac{Macro}\fi

\ifx\putwordDefspec\undefined   \gdef\putwordDefspec{Special Form}\fi

\ifx\putwordDefspec\undefined   \gdef\putwordDefspec{Special Form}\fi

\ifx\putwordDefvar\undefined    \gdef\putwordDefvar{Variable}\fi

\ifx\putwordDefvar\undefined    \gdef\putwordDefvar{Variable}\fi

\ifx\putwordDefopt\undefined    \gdef\putwordDefopt{User Option}\fi

\ifx\putwordDefopt\undefined    \gdef\putwordDefopt{User Option}\fi

\ifx\putwordDeffunc\undefined   \gdef\putwordDeffunc{Function}\fi

\ifx\putwordDeffunc\undefined   \gdef\putwordDeffunc{Function}\fi

% Since the category of space is not known, we have to be careful.

% Since the category of space is not known, we have to be careful.

\chardef\spacecat = 10

\chardef\spacecat = 10

\def\spaceisspace{\catcode`\ =\spacecat}

\def\spaceisspace{\catcode`\ =\spacecat}

% sometimes characters are active, so we need control sequences.

% sometimes characters are active, so we need control sequences.

\chardef\colonChar = `\:

\chardef\colonChar = `\:

\chardef\commaChar = `\,

\chardef\commaChar = `\,

\chardef\dashChar  = `\-

\chardef\dashChar  = `\-

\chardef\dotChar   = `\.

\chardef\dotChar   = `\.

\chardef\exclamChar= `\!

\chardef\exclamChar= `\!

\chardef\lquoteChar= `\`

\chardef\lquoteChar= `\`

\chardef\questChar = `\?

\chardef\questChar = `\?

\chardef\rquoteChar= `\'

\chardef\rquoteChar= `\'

\chardef\semiChar  = `\;

\chardef\semiChar  = `\;

\chardef\underChar = `\_

\chardef\underChar = `\_

% Ignore a token.

% Ignore a token.

%

%

\def\gobble#1{}

\def\gobble#1{}

% The following is used inside several \edef's.

% The following is used inside several \edef's.

\def\makecsname#1{\expandafter\noexpand\csname#1\endcsname}

\def\makecsname#1{\expandafter\noexpand\csname#1\endcsname}

% Hyphenation fixes.

% Hyphenation fixes.

\hyphenation{

\hyphenation{

  Flor-i-da Ghost-script Ghost-view Mac-OS Post-Script

  Flor-i-da Ghost-script Ghost-view Mac-OS Post-Script

  ap-pen-dix bit-map bit-maps

  ap-pen-dix bit-map bit-maps

  data-base data-bases eshell fall-ing half-way long-est man-u-script

  data-base data-bases eshell fall-ing half-way long-est man-u-script

  man-u-scripts mini-buf-fer mini-buf-fers over-view par-a-digm

  man-u-scripts mini-buf-fer mini-buf-fers over-view par-a-digm

  par-a-digms rath-er rec-tan-gu-lar ro-bot-ics se-vere-ly set-up spa-ces

  par-a-digms rath-er rec-tan-gu-lar ro-bot-ics se-vere-ly set-up spa-ces

  spell-ing spell-ings

  spell-ing spell-ings

  stand-alone strong-est time-stamp time-stamps which-ever white-space

  stand-alone strong-est time-stamp time-stamps which-ever white-space

  wide-spread wrap-around

  wide-spread wrap-around

}

}

% Margin to add to right of even pages, to left of odd pages.

% Margin to add to right of even pages, to left of odd pages.

\newdimen\bindingoffset

\newdimen\bindingoffset

\newdimen\normaloffset

\newdimen\normaloffset

\newdimen\pagewidth \newdimen\pageheight

\newdimen\pagewidth \newdimen\pageheight

% For a final copy, take out the rectangles

% For a final copy, take out the rectangles

% that mark overfull boxes (in case you have decided

% that mark overfull boxes (in case you have decided

% that the text looks ok even though it passes the margin).

% that the text looks ok even though it passes the margin).

%

%

\def\finalout{\overfullrule=0pt}

\def\finalout{\overfullrule=0pt}

% @| inserts a changebar to the left of the current line.  It should

% @| inserts a changebar to the left of the current line.  It should

% surround any changed text.  This approach does *not* work if the

% surround any changed text.  This approach does *not* work if the

% change spans more than two lines of output.  To handle that, we would

% change spans more than two lines of output.  To handle that, we would

% have adopt a much more difficult approach (putting marks into the main

% have adopt a much more difficult approach (putting marks into the main

% vertical list for the beginning and end of each change).

% vertical list for the beginning and end of each change).

%

%

\def\|{%

\def\|{%

  % \vadjust can only be used in horizontal mode.

  % \vadjust can only be used in horizontal mode.

  \leavevmode

  \leavevmode

  %

  %

  % Append this vertical mode material after the current line in the output.

  % Append this vertical mode material after the current line in the output.

  \vadjust{%

  \vadjust{%

    % We want to insert a rule with the height and depth of the current

    % We want to insert a rule with the height and depth of the current

    % leading; that is exactly what \strutbox is supposed to record.

    % leading; that is exactly what \strutbox is supposed to record.

    \vskip-\baselineskip

    \vskip-\baselineskip

    %

    %

    % \vadjust-items are inserted at the left edge of the type.  So

    % \vadjust-items are inserted at the left edge of the type.  So

    % the \llap here moves out into the left-hand margin.

    % the \llap here moves out into the left-hand margin.

    \llap{%

    \llap{%

      %

      %

      % For a thicker or thinner bar, change the `1pt'.

      % For a thicker or thinner bar, change the `1pt'.

      \vrule height\baselineskip width1pt

      \vrule height\baselineskip width1pt

      %

      %

      % This is the space between the bar and the text.

      % This is the space between the bar and the text.

      \hskip 12pt

      \hskip 12pt

    }%

    }%

  }%

  }%

}

}

% Sometimes it is convenient to have everything in the transcript file

% Sometimes it is convenient to have everything in the transcript file

% and nothing on the terminal.  We don't just call \tracingall here,

% and nothing on the terminal.  We don't just call \tracingall here,

% since that produces some useless output on the terminal.  We also make

% since that produces some useless output on the terminal.  We also make

% some effort to order the tracing commands to reduce output in the log

% some effort to order the tracing commands to reduce output in the log

% file; cf. trace.sty in LaTeX.

% file; cf. trace.sty in LaTeX.

%

%

\def\gloggingall{\begingroup \globaldefs = 1 \loggingall \endgroup}%

\def\gloggingall{\begingroup \globaldefs = 1 \loggingall \endgroup}%

\def\loggingall{%

\def\loggingall{%

  \tracingstats2

  \tracingstats2

  \tracingpages1

  \tracingpages1

  \tracinglostchars2  % 2 gives us more in etex

  \tracinglostchars2  % 2 gives us more in etex

  \tracingparagraphs1

  \tracingparagraphs1

  \tracingoutput1

  \tracingoutput1

  \tracingmacros2

  \tracingmacros2

  \tracingrestores1

  \tracingrestores1

  \showboxbreadth\maxdimen \showboxdepth\maxdimen

  \showboxbreadth\maxdimen \showboxdepth\maxdimen

  \ifx\eTeXversion\undefined\else % etex gives us more logging

  \ifx\eTeXversion\undefined\else % etex gives us more logging

    \tracingscantokens1

    \tracingscantokens1

    \tracingifs1

    \tracingifs1

    \tracinggroups1

    \tracinggroups1

    \tracingnesting2

    \tracingnesting2

    \tracingassigns1

    \tracingassigns1

  \fi

  \fi

  \tracingcommands3  % 3 gives us more in etex

  \tracingcommands3  % 3 gives us more in etex

  \errorcontextlines16

  \errorcontextlines16

}%

}%

% add check for \lastpenalty to plain's definitions.  If the last thing

% add check for \lastpenalty to plain's definitions.  If the last thing

% we did was a \nobreak, we don't want to insert more space.

% we did was a \nobreak, we don't want to insert more space.

%

%

\def\smallbreak{\ifnum\lastpenalty<10000\par\ifdim\lastskip<\smallskipamount

\def\smallbreak{\ifnum\lastpenalty<10000\par\ifdim\lastskip<\smallskipamount

  \removelastskip\penalty-50\smallskip\fi\fi}

  \removelastskip\penalty-50\smallskip\fi\fi}

\def\medbreak{\ifnum\lastpenalty<10000\par\ifdim\lastskip<\medskipamount

\def\medbreak{\ifnum\lastpenalty<10000\par\ifdim\lastskip<\medskipamount

  \removelastskip\penalty-100\medskip\fi\fi}

  \removelastskip\penalty-100\medskip\fi\fi}

\def\bigbreak{\ifnum\lastpenalty<10000\par\ifdim\lastskip<\bigskipamount

\def\bigbreak{\ifnum\lastpenalty<10000\par\ifdim\lastskip<\bigskipamount

  \removelastskip\penalty-200\bigskip\fi\fi}

  \removelastskip\penalty-200\bigskip\fi\fi}

% For @cropmarks command.

% For @cropmarks command.

% Do @cropmarks to get crop marks.

% Do @cropmarks to get crop marks.

%

%

\newif\ifcropmarks

\newif\ifcropmarks

\let\cropmarks = \cropmarkstrue

\let\cropmarks = \cropmarkstrue

%

%

% Dimensions to add cropmarks at corners.

% Dimensions to add cropmarks at corners.

% Added by P. A. MacKay, 12 Nov. 1986

% Added by P. A. MacKay, 12 Nov. 1986

%

%

\newdimen\outerhsize \newdimen\outervsize % set by the paper size routines

\newdimen\outerhsize \newdimen\outervsize % set by the paper size routines

\newdimen\cornerlong  \cornerlong=1pc

\newdimen\cornerlong  \cornerlong=1pc

\newdimen\cornerthick \cornerthick=.3pt

\newdimen\cornerthick \cornerthick=.3pt

\newdimen\topandbottommargin \topandbottommargin=.75in

\newdimen\topandbottommargin \topandbottommargin=.75in

% Output a mark which sets \thischapter, \thissection and \thiscolor.

% Output a mark which sets \thischapter, \thissection and \thiscolor.

% We dump everything together because we only have one kind of mark.

% We dump everything together because we only have one kind of mark.

% This works because we only use \botmark / \topmark, not \firstmark.

% This works because we only use \botmark / \topmark, not \firstmark.

%

%

% A mark contains a subexpression of the \ifcase ... \fi construct.

% A mark contains a subexpression of the \ifcase ... \fi construct.

% \get*marks macros below extract the needed part using \ifcase.

% \get*marks macros below extract the needed part using \ifcase.

%

%

% Another complication is to let the user choose whether \thischapter

% Another complication is to let the user choose whether \thischapter

% (\thissection) refers to the chapter (section) in effect at the top

% (\thissection) refers to the chapter (section) in effect at the top

% of a page, or that at the bottom of a page.  The solution is

% of a page, or that at the bottom of a page.  The solution is

% described on page 260 of The TeXbook.  It involves outputting two

% described on page 260 of The TeXbook.  It involves outputting two

% marks for the sectioning macros, one before the section break, and

% marks for the sectioning macros, one before the section break, and

% one after.  I won't pretend I can describe this better than DEK...

% one after.  I won't pretend I can describe this better than DEK...

\def\domark{%

\def\domark{%

  \toks0=\expandafter{\lastchapterdefs}%

  \toks0=\expandafter{\lastchapterdefs}%

  \toks2=\expandafter{\lastsectiondefs}%

  \toks2=\expandafter{\lastsectiondefs}%

  \toks4=\expandafter{\prevchapterdefs}%

  \toks4=\expandafter{\prevchapterdefs}%

  \toks6=\expandafter{\prevsectiondefs}%

  \toks6=\expandafter{\prevsectiondefs}%

  \toks8=\expandafter{\lastcolordefs}%

  \toks8=\expandafter{\lastcolordefs}%

  \mark{%

  \mark{%

                   \the\toks0 \the\toks2

                   \the\toks0 \the\toks2

      \noexpand\or \the\toks4 \the\toks6

      \noexpand\or \the\toks4 \the\toks6

    \noexpand\else \the\toks8

    \noexpand\else \the\toks8

  }%

  }%

}

}

% \topmark doesn't work for the very first chapter (after the title

% \topmark doesn't work for the very first chapter (after the title

% page or the contents), so we use \firstmark there -- this gets us

% page or the contents), so we use \firstmark there -- this gets us

% the mark with the chapter defs, unless the user sneaks in, e.g.,

% the mark with the chapter defs, unless the user sneaks in, e.g.,

% @setcolor (or @url, or @link, etc.) between @contents and the very

% @setcolor (or @url, or @link, etc.) between @contents and the very

% first @chapter.

% first @chapter.

\def\gettopheadingmarks{%

\def\gettopheadingmarks{%

  \ifcase0\topmark\fi

  \ifcase0\topmark\fi

  \ifx\thischapter\empty \ifcase0\firstmark\fi \fi

  \ifx\thischapter\empty \ifcase0\firstmark\fi \fi

}

}

\def\getbottomheadingmarks{\ifcase1\botmark\fi}

\def\getbottomheadingmarks{\ifcase1\botmark\fi}

\def\getcolormarks{\ifcase2\topmark\fi}

\def\getcolormarks{\ifcase2\topmark\fi}

% Avoid "undefined control sequence" errors.

% Avoid "undefined control sequence" errors.

\def\lastchapterdefs{}

\def\lastchapterdefs{}

\def\lastsectiondefs{}

\def\lastsectiondefs{}

\def\prevchapterdefs{}

\def\prevchapterdefs{}

\def\prevsectiondefs{}

\def\prevsectiondefs{}

\def\lastcolordefs{}

\def\lastcolordefs{}

% Main output routine.

% Main output routine.

\chardef\PAGE = 255

\chardef\PAGE = 255

\output = {\onepageout{\pagecontents\PAGE}}

\output = {\onepageout{\pagecontents\PAGE}}

\newbox\headlinebox

\newbox\headlinebox

\newbox\footlinebox

\newbox\footlinebox

% \onepageout takes a vbox as an argument.  Note that \pagecontents

% \onepageout takes a vbox as an argument.  Note that \pagecontents

% does insertions, but you have to call it yourself.

% does insertions, but you have to call it yourself.

\def\onepageout#1{%

\def\onepageout#1{%

  \ifcropmarks \hoffset=0pt \else \hoffset=\normaloffset \fi

  \ifcropmarks \hoffset=0pt \else \hoffset=\normaloffset \fi

  %

  %

  \ifodd\pageno  \advance\hoffset by \bindingoffset

  \ifodd\pageno  \advance\hoffset by \bindingoffset

  \else \advance\hoffset by -\bindingoffset\fi

  \else \advance\hoffset by -\bindingoffset\fi

  %

  %

  % Do this outside of the \shipout so @code etc. will be expanded in

  % Do this outside of the \shipout so @code etc. will be expanded in

  % the headline as they should be, not taken literally (outputting ''code).

  % the headline as they should be, not taken literally (outputting ''code).

  \ifodd\pageno \getoddheadingmarks \else \getevenheadingmarks \fi

  \ifodd\pageno \getoddheadingmarks \else \getevenheadingmarks \fi

  \setbox\headlinebox = \vbox{\let\hsize=\pagewidth \makeheadline}%

  \setbox\headlinebox = \vbox{\let\hsize=\pagewidth \makeheadline}%

  \ifodd\pageno \getoddfootingmarks \else \getevenfootingmarks \fi

  \ifodd\pageno \getoddfootingmarks \else \getevenfootingmarks \fi

  \setbox\footlinebox = \vbox{\let\hsize=\pagewidth \makefootline}%

  \setbox\footlinebox = \vbox{\let\hsize=\pagewidth \makefootline}%

  %

  %

  {%

  {%

    % Have to do this stuff outside the \shipout because we want it to

    % Have to do this stuff outside the \shipout because we want it to

    % take effect in \write's, yet the group defined by the \vbox ends

    % take effect in \write's, yet the group defined by the \vbox ends

    % before the \shipout runs.

    % before the \shipout runs.

    %

    %

    \indexdummies         % don't expand commands in the output.

    \indexdummies         % don't expand commands in the output.

    \normalturnoffactive  % \ in index entries must not stay \, e.g., if

    \normalturnoffactive  % \ in index entries must not stay \, e.g., if

               % the page break happens to be in the middle of an example.

               % the page break happens to be in the middle of an example.

               % We don't want .vr (or whatever) entries like this:

               % We don't want .vr (or whatever) entries like this:

               % \entry{{\tt \indexbackslash }acronym}{32}{\code {\acronym}}

               % \entry{{\tt \indexbackslash }acronym}{32}{\code {\acronym}}

               % "\acronym" won't work when it's read back in;

               % "\acronym" won't work when it's read back in;

               % it needs to be

               % it needs to be

               % {\code {{\tt \backslashcurfont }acronym}

               % {\code {{\tt \backslashcurfont }acronym}

    \shipout\vbox{%

    \shipout\vbox{%

      % Do this early so pdf references go to the beginning of the page.

      % Do this early so pdf references go to the beginning of the page.

      \ifpdfmakepagedest \pdfdest name{\the\pageno} xyz\fi

      \ifpdfmakepagedest \pdfdest name{\the\pageno} xyz\fi

      %

      %

      \ifcropmarks \vbox to \outervsize\bgroup

      \ifcropmarks \vbox to \outervsize\bgroup

        \hsize = \outerhsize

        \hsize = \outerhsize

        \vskip-\topandbottommargin

        \vskip-\topandbottommargin

        \vtop to0pt{%

        \vtop to0pt{%

          \line{\ewtop\hfil\ewtop}%

          \line{\ewtop\hfil\ewtop}%

          \nointerlineskip

          \nointerlineskip

          \line{%

          \line{%

            \vbox{\moveleft\cornerthick\nstop}%

            \vbox{\moveleft\cornerthick\nstop}%

            \hfill

            \hfill

            \vbox{\moveright\cornerthick\nstop}%

            \vbox{\moveright\cornerthick\nstop}%

          }%

          }%

          \vss}%

          \vss}%

        \vskip\topandbottommargin

        \vskip\topandbottommargin

        \line\bgroup

        \line\bgroup

          \hfil % center the page within the outer (page) hsize.

          \hfil % center the page within the outer (page) hsize.

          \ifodd\pageno\hskip\bindingoffset\fi

          \ifodd\pageno\hskip\bindingoffset\fi

          \vbox\bgroup

          \vbox\bgroup

      \fi

      \fi

      %

      %

      \unvbox\headlinebox

      \unvbox\headlinebox

      \pagebody{#1}%

      \pagebody{#1}%

      \ifdim\ht\footlinebox > 0pt

      \ifdim\ht\footlinebox > 0pt

        % Only leave this space if the footline is nonempty.

        % Only leave this space if the footline is nonempty.

        % (We lessened \vsize for it in \oddfootingyyy.)

        % (We lessened \vsize for it in \oddfootingyyy.)

        % The \baselineskip=24pt in plain's \makefootline has no effect.

        % The \baselineskip=24pt in plain's \makefootline has no effect.

        \vskip 24pt

        \vskip 24pt

        \unvbox\footlinebox

        \unvbox\footlinebox

      \fi

      \fi

      %

      %

      \ifcropmarks

      \ifcropmarks

          \egroup % end of \vbox\bgroup

          \egroup % end of \vbox\bgroup

        \hfil\egroup % end of (centering) \line\bgroup

        \hfil\egroup % end of (centering) \line\bgroup

        \vskip\topandbottommargin plus1fill minus1fill

        \vskip\topandbottommargin plus1fill minus1fill

        \boxmaxdepth = \cornerthick

        \boxmaxdepth = \cornerthick

        \vbox to0pt{\vss

        \vbox to0pt{\vss

          \line{%

          \line{%

            \vbox{\moveleft\cornerthick\nsbot}%

            \vbox{\moveleft\cornerthick\nsbot}%

            \hfill

            \hfill

            \vbox{\moveright\cornerthick\nsbot}%

            \vbox{\moveright\cornerthick\nsbot}%

          }%

          }%

          \nointerlineskip

          \nointerlineskip

          \line{\ewbot\hfil\ewbot}%

          \line{\ewbot\hfil\ewbot}%

        }%

        }%

      \egroup % \vbox from first cropmarks clause

      \egroup % \vbox from first cropmarks clause

      \fi

      \fi

    }% end of \shipout\vbox

    }% end of \shipout\vbox

  }% end of group with \indexdummies

  }% end of group with \indexdummies

  \advancepageno

  \advancepageno

  \ifnum\outputpenalty>-20000 \else\dosupereject\fi

  \ifnum\outputpenalty>-20000 \else\dosupereject\fi

}

}

\newinsert\margin \dimen\margin=\maxdimen

\newinsert\margin \dimen\margin=\maxdimen

\def\pagebody#1{\vbox to\pageheight{\boxmaxdepth=\maxdepth #1}}

\def\pagebody#1{\vbox to\pageheight{\boxmaxdepth=\maxdepth #1}}

{\catcode`\@ =11

{\catcode`\@ =11

\gdef\pagecontents#1{\ifvoid\topins\else\unvbox\topins\fi

\gdef\pagecontents#1{\ifvoid\topins\else\unvbox\topins\fi

% marginal hacks, juha@viisa.uucp (Juha Takala)

% marginal hacks, juha@viisa.uucp (Juha Takala)

\ifvoid\margin\else % marginal info is present

\ifvoid\margin\else % marginal info is present

  \rlap{\kern\hsize\vbox to\z@{\kern1pt\box\margin \vss}}\fi

  \rlap{\kern\hsize\vbox to\z@{\kern1pt\box\margin \vss}}\fi

\dimen@=\dp#1\relax \unvbox#1\relax

\dimen@=\dp#1\relax \unvbox#1\relax

\ifvoid\footins\else\vskip\skip\footins\footnoterule \unvbox\footins\fi

\ifvoid\footins\else\vskip\skip\footins\footnoterule \unvbox\footins\fi

\ifr@ggedbottom \kern-\dimen@ \vfil \fi}

\ifr@ggedbottom \kern-\dimen@ \vfil \fi}

}

}

% Here are the rules for the cropmarks.  Note that they are

% Here are the rules for the cropmarks.  Note that they are

% offset so that the space between them is truly \outerhsize or \outervsize

% offset so that the space between them is truly \outerhsize or \outervsize

% (P. A. MacKay, 12 November, 1986)

% (P. A. MacKay, 12 November, 1986)

%

%

\def\ewtop{\vrule height\cornerthick depth0pt width\cornerlong}

\def\ewtop{\vrule height\cornerthick depth0pt width\cornerlong}

\def\nstop{\vbox

\def\nstop{\vbox

  {\hrule height\cornerthick depth\cornerlong width\cornerthick}}

  {\hrule height\cornerthick depth\cornerlong width\cornerthick}}

\def\ewbot{\vrule height0pt depth\cornerthick width\cornerlong}

\def\ewbot{\vrule height0pt depth\cornerthick width\cornerlong}

\def\nsbot{\vbox

\def\nsbot{\vbox

  {\hrule height\cornerlong depth\cornerthick width\cornerthick}}

  {\hrule height\cornerlong depth\cornerthick width\cornerthick}}

% Parse an argument, then pass it to #1.  The argument is the rest of

% Parse an argument, then pass it to #1.  The argument is the rest of

% the input line (except we remove a trailing comment).  #1 should be a

% the input line (except we remove a trailing comment).  #1 should be a

% macro which expects an ordinary undelimited TeX argument.

% macro which expects an ordinary undelimited TeX argument.

%

%

\def\parsearg{\parseargusing{}}

\def\parsearg{\parseargusing{}}

\def\parseargusing#1#2{%

\def\parseargusing#1#2{%

  \def\argtorun{#2}%

  \def\argtorun{#2}%

  \begingroup

  \begingroup

    \obeylines

    \obeylines

    \spaceisspace

    \spaceisspace

    #1%

    #1%

    \parseargline\empty% Insert the \empty token, see \finishparsearg below.

    \parseargline\empty% Insert the \empty token, see \finishparsearg below.

}

}

{\obeylines %

{\obeylines %

  \gdef\parseargline#1^^M{%

  \gdef\parseargline#1^^M{%

    \endgroup % End of the group started in \parsearg.

    \endgroup % End of the group started in \parsearg.

    \argremovecomment #1\comment\ArgTerm%

    \argremovecomment #1\comment\ArgTerm%

  }%

  }%

}

}

% First remove any @comment, then any @c comment.

% First remove any @comment, then any @c comment.

\def\argremovecomment#1\comment#2\ArgTerm{\argremovec #1\c\ArgTerm}

\def\argremovecomment#1\comment#2\ArgTerm{\argremovec #1\c\ArgTerm}

\def\argremovec#1\c#2\ArgTerm{\argcheckspaces#1\^^M\ArgTerm}

\def\argremovec#1\c#2\ArgTerm{\argcheckspaces#1\^^M\ArgTerm}

%

%

% \argremovec might leave us with trailing space, e.g.,

% \argremovec might leave us with trailing space, e.g.,

%    @end itemize  @c foo

%    @end itemize  @c foo

% This space token undergoes the same procedure and is eventually removed

% This space token undergoes the same procedure and is eventually removed

% by \finishparsearg.

% by \finishparsearg.

%

%

\def\argcheckspaces#1\^^M{\argcheckspacesX#1\^^M \^^M}

\def\argcheckspaces#1\^^M{\argcheckspacesX#1\^^M \^^M}

\def\argcheckspacesX#1 \^^M{\argcheckspacesY#1\^^M}

\def\argcheckspacesX#1 \^^M{\argcheckspacesY#1\^^M}

\def\argcheckspacesY#1\^^M#2\^^M#3\ArgTerm{%

\def\argcheckspacesY#1\^^M#2\^^M#3\ArgTerm{%

  \def\temp{#3}%

  \def\temp{#3}%

  \ifx\temp\empty

  \ifx\temp\empty

    % Do not use \next, perhaps the caller of \parsearg uses it; reuse \temp:

    % Do not use \next, perhaps the caller of \parsearg uses it; reuse \temp:

    \let\temp\finishparsearg

    \let\temp\finishparsearg

  \else

  \else

    \let\temp\argcheckspaces

    \let\temp\argcheckspaces

  \fi

  \fi

  % Put the space token in:

  % Put the space token in:

  \temp#1 #3\ArgTerm

  \temp#1 #3\ArgTerm

}

}

% If a _delimited_ argument is enclosed in braces, they get stripped; so

% If a _delimited_ argument is enclosed in braces, they get stripped; so

% to get _exactly_ the rest of the line, we had to prevent such situation.

% to get _exactly_ the rest of the line, we had to prevent such situation.

% We prepended an \empty token at the very beginning and we expand it now,

% We prepended an \empty token at the very beginning and we expand it now,

% just before passing the control to \argtorun.

% just before passing the control to \argtorun.

% either the null string, or it ends with \^^M---thus there is no danger

% either the null string, or it ends with \^^M---thus there is no danger

% that a pair of braces would be stripped.

% that a pair of braces would be stripped.

%

%

% But first, we have to remove the trailing space token.

% But first, we have to remove the trailing space token.

%

%

\def\finishparsearg#1 \ArgTerm{\expandafter\argtorun\expandafter{#1}}

\def\finishparsearg#1 \ArgTerm{\expandafter\argtorun\expandafter{#1}}

% \parseargdef\foo{...}

% \parseargdef\foo{...}

%       is roughly equivalent to

%       is roughly equivalent to

% \def\foo{\parsearg\Xfoo}

% \def\foo{\parsearg\Xfoo}

% \def\Xfoo#1{...}

% \def\Xfoo#1{...}

%

%

% Actually, I use \csname\string\foo\endcsname, ie. \\foo, as it is my

% Actually, I use \csname\string\foo\endcsname, ie. \\foo, as it is my

% favourite TeX trick.  --kasal, 16nov03

% favourite TeX trick.  --kasal, 16nov03

\def\parseargdef#1{%

\def\parseargdef#1{%

  \expandafter \doparseargdef \csname\string#1\endcsname #1%

  \expandafter \doparseargdef \csname\string#1\endcsname #1%

}

}

\def\doparseargdef#1#2{%

\def\doparseargdef#1#2{%

  \def#2{\parsearg#1}%

  \def#2{\parsearg#1}%

  \def#1##1%

  \def#1##1%

}

}

% Several utility definitions with active space:

% Several utility definitions with active space:

{

{

  \obeyspaces

  \obeyspaces

  \gdef\obeyedspace{ }

  \gdef\obeyedspace{ }

  % Make each space character in the input produce a normal interword

  % Make each space character in the input produce a normal interword

  % space in the output.  Don't allow a line break at this space, as this

  % space in the output.  Don't allow a line break at this space, as this

  % is used only in environments like @example, where each line of input

  % is used only in environments like @example, where each line of input

  % should produce a line of output anyway.

  % should produce a line of output anyway.

  %

  %

  \gdef\sepspaces{\obeyspaces\let =\tie}

  \gdef\sepspaces{\obeyspaces\let =\tie}

  % If an index command is used in an @example environment, any spaces

  % If an index command is used in an @example environment, any spaces

  % therein should become regular spaces in the raw index file, not the

  % therein should become regular spaces in the raw index file, not the

  % expansion of \tie (\leavevmode \penalty \@M \ ).

  % expansion of \tie (\leavevmode \penalty \@M \ ).

  \gdef\unsepspaces{\let =\space}

  \gdef\unsepspaces{\let =\space}

}

}

\def\flushcr{\ifx\par\lisppar \def\next##1{}\else \let\next=\relax \fi \next}

\def\flushcr{\ifx\par\lisppar \def\next##1{}\else \let\next=\relax \fi \next}

% Define the framework for environments in texinfo.tex.  It's used like this:

% Define the framework for environments in texinfo.tex.  It's used like this:

%

%

%   \envdef\foo{...}

%   \envdef\foo{...}

%   \def\Efoo{...}

%   \def\Efoo{...}

%

%

% It's the responsibility of \envdef to insert \begingroup before the

% It's the responsibility of \envdef to insert \begingroup before the

% actual body; @end closes the group after calling \Efoo.  \envdef also

% actual body; @end closes the group after calling \Efoo.  \envdef also

% defines \thisenv, so the current environment is known; @end checks

% defines \thisenv, so the current environment is known; @end checks

% whether the environment name matches.  The \checkenv macro can also be

% whether the environment name matches.  The \checkenv macro can also be

% used to check whether the current environment is the one expected.

% used to check whether the current environment is the one expected.

%

%

% Non-false conditionals (@iftex, @ifset) don't fit into this, so they

% Non-false conditionals (@iftex, @ifset) don't fit into this, so they

% implementation of @end takes care not to call \endgroup in this

% implementation of @end takes care not to call \endgroup in this

% special case.)

% special case.)

\def\startenvironment#1{\begingroup\def\thisenv{#1}}

\def\startenvironment#1{\begingroup\def\thisenv{#1}}

% initialize

% initialize

\let\thisenv\empty

\let\thisenv\empty

% ... but they get defined via ``\envdef\foo{...}'':

% ... but they get defined via ``\envdef\foo{...}'':

\long\def\envdef#1#2{\def#1{\startenvironment#1#2}}

\long\def\envdef#1#2{\def#1{\startenvironment#1#2}}

\def\envparseargdef#1#2{\parseargdef#1{\startenvironment#1#2}}

\def\envparseargdef#1#2{\parseargdef#1{\startenvironment#1#2}}

% Check whether we're in the right environment:

% Check whether we're in the right environment:

\def\checkenv#1{%

\def\checkenv#1{%

  \def\temp{#1}%

  \def\temp{#1}%

  \ifx\thisenv\temp

  \ifx\thisenv\temp

  \else

  \else

    \badenverr

    \badenverr

  \fi

  \fi

}

}

\def\badenverr{%

\def\badenverr{%

  \errhelp = \EMsimple

  \errhelp = \EMsimple

  \errmessage{This command can appear only \inenvironment\temp,

  \errmessage{This command can appear only \inenvironment\temp,

    not \inenvironment\thisenv}%

    not \inenvironment\thisenv}%

}

}

\def\inenvironment#1{%

\def\inenvironment#1{%

  \ifx#1\empty

  \ifx#1\empty

    out of any environment%

    out of any environment%

  \else

  \else

    in environment \expandafter\string#1%

    in environment \expandafter\string#1%

  \fi

  \fi

}

}

% @end foo executes the definition of \Efoo.

% @end foo executes the definition of \Efoo.

% But first, it executes a specialized version of \checkenv

% But first, it executes a specialized version of \checkenv

%

%

\parseargdef\end{%

\parseargdef\end{%

  \if 1\csname iscond.#1\endcsname

  \if 1\csname iscond.#1\endcsname

  \else

  \else

    % The general wording of \badenverr may not be ideal, but... --kasal, 06nov03

    % The general wording of \badenverr may not be ideal, but... --kasal, 06nov03

    \expandafter\checkenv\csname#1\endcsname

    \expandafter\checkenv\csname#1\endcsname

    \csname E#1\endcsname

    \csname E#1\endcsname

    \endgroup

    \endgroup

  \fi

  \fi

}

}

\newhelp\EMsimple{Press RETURN to continue.}

\newhelp\EMsimple{Press RETURN to continue.}

%% Simple single-character @ commands

%% Simple single-character @ commands

% @@ prints an @

% @@ prints an @

% Kludge this until the fonts are right (grr).

% Kludge this until the fonts are right (grr).

\def\@{{\tt\char64}}

\def\@{{\tt\char64}}

% This is turned off because it was never documented

% This is turned off because it was never documented

% and you can use @w{...} around a quote to suppress ligatures.

% and you can use @w{...} around a quote to suppress ligatures.

%% Define @` and @' to be the same as ` and '

%% Define @` and @' to be the same as ` and '

%% but suppressing ligatures.

%% but suppressing ligatures.

%\def\`{{`}}

%\def\`{{`}}

%\def\'{{'}}

%\def\'{{'}}

% Used to generate quoted braces.

% Used to generate quoted braces.

\def\mylbrace {{\tt\char123}}

\def\mylbrace {{\tt\char123}}

\def\myrbrace {{\tt\char125}}

\def\myrbrace {{\tt\char125}}

\let\{=\mylbrace

\let\{=\mylbrace

\let\}=\myrbrace

\let\}=\myrbrace

\begingroup

\begingroup

  % Definitions to produce \{ and \} commands for indices,

  % Definitions to produce \{ and \} commands for indices,

  % and @{ and @} for the aux/toc files.

  % and @{ and @} for the aux/toc files.

  \catcode`\{ = \other \catcode`\} = \other

  \catcode`\{ = \other \catcode`\} = \other

  \catcode`\[ = 1 \catcode`\] = 2

  \catcode`\[ = 1 \catcode`\] = 2

  \catcode`\! = 0 \catcode`\\ = \other

  \catcode`\! = 0 \catcode`\\ = \other

  !gdef!lbracecmd[\{]%

  !gdef!lbracecmd[\{]%

  !gdef!rbracecmd[\}]%

  !gdef!rbracecmd[\}]%

  !gdef!lbraceatcmd[@{]%

  !gdef!lbraceatcmd[@{]%

  !gdef!rbraceatcmd[@}]%

  !gdef!rbraceatcmd[@}]%

!endgroup

!endgroup

% @comma{} to avoid , parsing problems.

% @comma{} to avoid , parsing problems.

\let\comma = ,

\let\comma = ,

% Accents: @, @dotaccent @ringaccent @ubaraccent @udotaccent

% Accents: @, @dotaccent @ringaccent @ubaraccent @udotaccent

% Others are defined by plain TeX: @` @' @" @^ @~ @= @u @v @H.

% Others are defined by plain TeX: @` @' @" @^ @~ @= @u @v @H.

\let\, = \c

\let\, = \c

\let\dotaccent = \.

\let\dotaccent = \.

\def\ringaccent#1{{\accent23 #1}}

\def\ringaccent#1{{\accent23 #1}}

\let\tieaccent = \t

\let\tieaccent = \t

\let\ubaraccent = \b

\let\ubaraccent = \b

\let\udotaccent = \d

\let\udotaccent = \d

% Other special characters: @questiondown @exclamdown @ordf @ordm

% Other special characters: @questiondown @exclamdown @ordf @ordm

% Plain TeX defines: @AA @AE @O @OE @L (plus lowercase versions) @ss.

% Plain TeX defines: @AA @AE @O @OE @L (plus lowercase versions) @ss.

\def\questiondown{?`}

\def\questiondown{?`}

\def\exclamdown{!`}

\def\exclamdown{!`}

\def\ordf{\leavevmode\raise1ex\hbox{\selectfonts\lllsize \underbar{a}}}

\def\ordf{\leavevmode\raise1ex\hbox{\selectfonts\lllsize \underbar{a}}}

\def\ordm{\leavevmode\raise1ex\hbox{\selectfonts\lllsize \underbar{o}}}

\def\ordm{\leavevmode\raise1ex\hbox{\selectfonts\lllsize \underbar{o}}}

% Dotless i and dotless j, used for accents.

% Dotless i and dotless j, used for accents.

\def\imacro{i}

\def\imacro{i}

\def\jmacro{j}

\def\jmacro{j}

\def\dotless#1{%

\def\dotless#1{%

  \def\temp{#1}%

  \def\temp{#1}%

  \else \errmessage{@dotless can be used only with i or j}%

  \else \errmessage{@dotless can be used only with i or j}%

  \fi\fi

  \fi\fi

}

}

% The \TeX{} logo, as in plain, but resetting the spacing so that a

% The \TeX{} logo, as in plain, but resetting the spacing so that a

% period following counts as ending a sentence.  (Idea found in latex.)

% period following counts as ending a sentence.  (Idea found in latex.)

%

%

\edef\TeX{\TeX \spacefactor=1000 }

\edef\TeX{\TeX \spacefactor=1000 }

% @LaTeX{} logo.  Not quite the same results as the definition in

% @LaTeX{} logo.  Not quite the same results as the definition in

% latex.ltx, since we use a different font for the raised A; it's most

% latex.ltx, since we use a different font for the raised A; it's most

% convenient for us to use an explicitly smaller font, rather than using

% convenient for us to use an explicitly smaller font, rather than using

% the \scriptstyle font (since we don't reset \scriptstyle and

% the \scriptstyle font (since we don't reset \scriptstyle and

% \scriptscriptstyle).

% \scriptscriptstyle).

%

%

\def\LaTeX{%

\def\LaTeX{%

  L\kern-.36em

  L\kern-.36em

  {\setbox0=\hbox{T}%

  {\setbox0=\hbox{T}%

   \vbox to \ht0{\hbox{\selectfonts\lllsize A}\vss}}%

   \vbox to \ht0{\hbox{\selectfonts\lllsize A}\vss}}%

  \kern-.15em

  \kern-.15em

  \TeX

  \TeX

}

}

% Be sure we're in horizontal mode when doing a tie, since we make space

% Be sure we're in horizontal mode when doing a tie, since we make space

% equivalent to this in @example-like environments. Otherwise, a space

% equivalent to this in @example-like environments. Otherwise, a space

% at the beginning of a line will start with \penalty -- and

% at the beginning of a line will start with \penalty -- and

% since \penalty is valid in vertical mode, we'd end up putting the

% since \penalty is valid in vertical mode, we'd end up putting the

% penalty on the vertical list instead of in the new paragraph.

% penalty on the vertical list instead of in the new paragraph.

{\catcode`@ = 11

{\catcode`@ = 11

 % Avoid using \@M directly, because that causes trouble

 % Avoid using \@M directly, because that causes trouble

 % if the definition is written into an index file.

 % if the definition is written into an index file.

 \global\let\tiepenalty = \@M

 \global\let\tiepenalty = \@M

 \gdef\tie{\leavevmode\penalty\tiepenalty\ }

 \gdef\tie{\leavevmode\penalty\tiepenalty\ }

}

}

% @: forces normal size whitespace following.

% @: forces normal size whitespace following.

\def\:{\spacefactor=1000 }

\def\:{\spacefactor=1000 }

% @* forces a line break.

% @* forces a line break.

\def\*{\hfil\break\hbox{}\ignorespaces}

\def\*{\hfil\break\hbox{}\ignorespaces}

% @/ allows a line break.

% @/ allows a line break.

\let\/=\allowbreak

\let\/=\allowbreak

% @. is an end-of-sentence period.

% @. is an end-of-sentence period.

\def\.{.\spacefactor=\endofsentencespacefactor\space}

\def\.{.\spacefactor=\endofsentencespacefactor\space}

% @! is an end-of-sentence bang.

% @! is an end-of-sentence bang.

\def\!{!\spacefactor=\endofsentencespacefactor\space}

\def\!{!\spacefactor=\endofsentencespacefactor\space}

% @? is an end-of-sentence query.

% @? is an end-of-sentence query.

\def\?{?\spacefactor=\endofsentencespacefactor\space}

\def\?{?\spacefactor=\endofsentencespacefactor\space}

% @frenchspacing on|off  says whether to put extra space after punctuation.

% @frenchspacing on|off  says whether to put extra space after punctuation.

%

%

\def\onword{on}

\def\onword{on}

\def\offword{off}

\def\offword{off}

%

%

\parseargdef\frenchspacing{%

\parseargdef\frenchspacing{%

  \def\temp{#1}%

  \def\temp{#1}%

  \ifx\temp\onword \plainfrenchspacing

  \ifx\temp\onword \plainfrenchspacing

  \else\ifx\temp\offword \plainnonfrenchspacing

  \else\ifx\temp\offword \plainnonfrenchspacing

  \else

  \else

    \errhelp = \EMsimple

    \errhelp = \EMsimple

    \errmessage{Unknown @frenchspacing option `\temp', must be on/off}%

    \errmessage{Unknown @frenchspacing option `\temp', must be on/off}%

  \fi\fi

  \fi\fi

}

}

% @w prevents a word break.  Without the \leavevmode, @w at the

% @w prevents a word break.  Without the \leavevmode, @w at the

% beginning of a paragraph, when TeX is still in vertical mode, would

% beginning of a paragraph, when TeX is still in vertical mode, would

% produce a whole line of output instead of starting the paragraph.

% produce a whole line of output instead of starting the paragraph.

\def\w#1{\leavevmode\hbox{#1}}

\def\w#1{\leavevmode\hbox{#1}}

% @group ... @end group forces ... to be all on one page, by enclosing

% @group ... @end group forces ... to be all on one page, by enclosing

% it in a TeX vbox.  We use \vtop instead of \vbox to construct the box

% it in a TeX vbox.  We use \vtop instead of \vbox to construct the box

% to keep its height that of a normal line.  According to the rules for

% to keep its height that of a normal line.  According to the rules for

% \topskip (p.114 of the TeXbook), the glue inserted is

% \topskip (p.114 of the TeXbook), the glue inserted is

% max (\topskip - \ht (first item), 0).  If that height is large,

% max (\topskip - \ht (first item), 0).  If that height is large,

% therefore, no glue is inserted, and the space between the headline and

% therefore, no glue is inserted, and the space between the headline and

% the text is small, which looks bad.

% the text is small, which looks bad.

%

%

% Another complication is that the group might be very large.  This can

% Another complication is that the group might be very large.  This can

% cause the glue on the previous page to be unduly stretched, because it

% cause the glue on the previous page to be unduly stretched, because it

% does not have much material.  In this case, it's better to add an

% does not have much material.  In this case, it's better to add an

% explicit \vfill so that the extra space is at the bottom.  The

% explicit \vfill so that the extra space is at the bottom.  The

% threshold for doing this is if the group is more than \vfilllimit

% threshold for doing this is if the group is more than \vfilllimit

% percent of a page (\vfilllimit can be changed inside of @tex).

% percent of a page (\vfilllimit can be changed inside of @tex).

%

%

\newbox\groupbox

\newbox\groupbox

\def\vfilllimit{0.7}

\def\vfilllimit{0.7}

%

%

\envdef\group{%

\envdef\group{%

  \ifnum\catcode`\^^M=\active \else

  \ifnum\catcode`\^^M=\active \else

    \errhelp = \groupinvalidhelp

    \errhelp = \groupinvalidhelp

    \errmessage{@group invalid in context where filling is enabled}%

    \errmessage{@group invalid in context where filling is enabled}%

  \fi

  \fi

  \startsavinginserts

  \startsavinginserts

  %

  %

  \setbox\groupbox = \vtop\bgroup

  \setbox\groupbox = \vtop\bgroup

    % Do @comment since we are called inside an environment such as

    % Do @comment since we are called inside an environment such as

    % @example, where each end-of-line in the input causes an

    % @example, where each end-of-line in the input causes an

    % end-of-line in the output.  We don't want the end-of-line after

    % end-of-line in the output.  We don't want the end-of-line after

    % the `@group' to put extra space in the output.  Since @group

    % the `@group' to put extra space in the output.  Since @group

    % should appear on a line by itself (according to the Texinfo

    % should appear on a line by itself (according to the Texinfo

    % manual), we don't worry about eating any user text.

    % manual), we don't worry about eating any user text.

    \comment

    \comment

}

}

%

%

% The \vtop produces a box with normal height and large depth; thus, TeX puts

% The \vtop produces a box with normal height and large depth; thus, TeX puts

% \baselineskip glue before it, and (when the next line of text is done)

% \baselineskip glue before it, and (when the next line of text is done)

% \lineskip glue after it.  Thus, space below is not quite equal to space

% \lineskip glue after it.  Thus, space below is not quite equal to space

% above.  But it's pretty close.

% above.  But it's pretty close.

\def\Egroup{%

\def\Egroup{%

    % To get correct interline space between the last line of the group

    % To get correct interline space between the last line of the group

    % and the first line afterwards, we have to propagate \prevdepth.

    % and the first line afterwards, we have to propagate \prevdepth.

    \endgraf % Not \par, as it may have been set to \lisppar.

    \endgraf % Not \par, as it may have been set to \lisppar.

    \global\dimen1 = \prevdepth

    \global\dimen1 = \prevdepth

  \egroup           % End the \vtop.

  \egroup           % End the \vtop.

  % \dimen0 is the vertical size of the group's box.

  % \dimen0 is the vertical size of the group's box.

  \dimen0 = \ht\groupbox  \advance\dimen0 by \dp\groupbox

  \dimen0 = \ht\groupbox  \advance\dimen0 by \dp\groupbox

  % \dimen2 is how much space is left on the page (more or less).

  % \dimen2 is how much space is left on the page (more or less).

  \dimen2 = \pageheight   \advance\dimen2 by -\pagetotal

  \dimen2 = \pageheight   \advance\dimen2 by -\pagetotal

  % if the group doesn't fit on the current page, and it's a big big

  % if the group doesn't fit on the current page, and it's a big big

  % group, force a page break.

  % group, force a page break.

  \ifdim \dimen0 > \dimen2

  \ifdim \dimen0 > \dimen2

    \ifdim \pagetotal < \vfilllimit\pageheight

    \ifdim \pagetotal < \vfilllimit\pageheight

      \page

      \page

    \fi

    \fi

  \fi

  \fi

  \box\groupbox

  \box\groupbox

  \prevdepth = \dimen1

  \prevdepth = \dimen1

  \checkinserts

  \checkinserts

}

}

%

%

% TeX puts in an \escapechar (i.e., `@') at the beginning of the help

% TeX puts in an \escapechar (i.e., `@') at the beginning of the help

% message, so this ends up printing `@group can only ...'.

% message, so this ends up printing `@group can only ...'.

%

%

\newhelp\groupinvalidhelp{%

\newhelp\groupinvalidhelp{%

group can only be used in environments such as @example,^^J%

group can only be used in environments such as @example,^^J%

where each line of input produces a line of output.}

where each line of input produces a line of output.}

% @need space-in-mils

% @need space-in-mils

% forces a page break if there is not space-in-mils remaining.

% forces a page break if there is not space-in-mils remaining.

\newdimen\mil  \mil=0.001in

\newdimen\mil  \mil=0.001in

% Old definition--didn't work.

% Old definition--didn't work.

%\parseargdef\need{\par %

%\parseargdef\need{\par %

%% This method tries to make TeX break the page naturally

%% This method tries to make TeX break the page naturally

%% if the depth of the box does not fit.

%% if the depth of the box does not fit.

%{\baselineskip=0pt%

%{\baselineskip=0pt%

%\vtop to #1\mil{\vfil}\kern -#1\mil\nobreak

%\vtop to #1\mil{\vfil}\kern -#1\mil\nobreak

%\prevdepth=-1000pt

%\prevdepth=-1000pt

%}}

%}}

\parseargdef\need{%

\parseargdef\need{%

  % Ensure vertical mode, so we don't make a big box in the middle of a

  % Ensure vertical mode, so we don't make a big box in the middle of a

  % paragraph.

  % paragraph.

  \par

  \par

  %

  %

  % If the @need value is less than one line space, it's useless.

  % If the @need value is less than one line space, it's useless.

  \dimen0 = #1\mil

  \dimen0 = #1\mil

  \dimen2 = \ht\strutbox

  \dimen2 = \ht\strutbox

  \advance\dimen2 by \dp\strutbox

  \advance\dimen2 by \dp\strutbox

  \ifdim\dimen0 > \dimen2

  \ifdim\dimen0 > \dimen2

    %

    %

    % Do a \strut just to make the height of this box be normal, so the

    % Do a \strut just to make the height of this box be normal, so the

    % normal leading is inserted relative to the preceding line.

    % normal leading is inserted relative to the preceding line.

    % And a page break here is fine.

    % And a page break here is fine.

    \vtop to #1\mil{\strut\vfil}%

    \vtop to #1\mil{\strut\vfil}%

    %

    %

    % TeX does not even consider page breaks if a penalty added to the

    % TeX does not even consider page breaks if a penalty added to the

    % main vertical list is 10000 or more.  But in order to see if the

    % main vertical list is 10000 or more.  But in order to see if the

    % empty box we just added fits on the page, we must make it consider

    % empty box we just added fits on the page, we must make it consider

    % page breaks.  On the other hand, we don't want to actually break the

    % page breaks.  On the other hand, we don't want to actually break the

    % page after the empty box.  So we use a penalty of 9999.

    % page after the empty box.  So we use a penalty of 9999.

    %

    %

    % There is an extremely small chance that TeX will actually break the

    % There is an extremely small chance that TeX will actually break the

    % page at this \penalty, if there are no other feasible breakpoints in

    % page at this \penalty, if there are no other feasible breakpoints in

    % sight.  (If the user is using lots of big @group commands, which

    % sight.  (If the user is using lots of big @group commands, which

    % almost-but-not-quite fill up a page, TeX will have a hard time doing

    % almost-but-not-quite fill up a page, TeX will have a hard time doing

    % good page breaking, for example.)  However, I could not construct an

    % good page breaking, for example.)  However, I could not construct an

    % example where a page broke at this \penalty; if it happens in a real

    % example where a page broke at this \penalty; if it happens in a real

    % document, then we can reconsider our strategy.

    % document, then we can reconsider our strategy.

    \penalty9999

    \penalty9999

    %

    %

    % Back up by the size of the box, whether we did a page break or not.

    % Back up by the size of the box, whether we did a page break or not.

    \kern -#1\mil

    \kern -#1\mil

    %

    %

    % Do not allow a page break right after this kern.

    % Do not allow a page break right after this kern.

    \nobreak

    \nobreak

  \fi

  \fi

}

}

% @br   forces paragraph break (and is undocumented).

% @br   forces paragraph break (and is undocumented).

\let\br = \par

\let\br = \par

% @page forces the start of a new page.

% @page forces the start of a new page.

%

%

\def\page{\par\vfill\supereject}

\def\page{\par\vfill\supereject}

% @exdent text....

% @exdent text....

% outputs text on separate line in roman font, starting at standard page margin

% outputs text on separate line in roman font, starting at standard page margin

% This records the amount of indent in the innermost environment.

% This records the amount of indent in the innermost environment.

% That's how much \exdent should take out.

% That's how much \exdent should take out.

\newskip\exdentamount

\newskip\exdentamount

% This defn is used inside fill environments such as @defun.

% This defn is used inside fill environments such as @defun.

\parseargdef\exdent{\hfil\break\hbox{\kern -\exdentamount{\rm#1}}\hfil\break}

\parseargdef\exdent{\hfil\break\hbox{\kern -\exdentamount{\rm#1}}\hfil\break}

% This defn is used inside nofill environments such as @example.

% This defn is used inside nofill environments such as @example.

\parseargdef\nofillexdent{{\advance \leftskip by -\exdentamount

\parseargdef\nofillexdent{{\advance \leftskip by -\exdentamount

  \leftline{\hskip\leftskip{\rm#1}}}}

  \leftline{\hskip\leftskip{\rm#1}}}}

% @inmargin{WHICH}{TEXT} puts TEXT in the WHICH margin next to the current

% @inmargin{WHICH}{TEXT} puts TEXT in the WHICH margin next to the current

% paragraph.  For more general purposes, use the \margin insertion

% paragraph.  For more general purposes, use the \margin insertion

% class.  WHICH is `l' or `r'.

% class.  WHICH is `l' or `r'.

%

%

\newskip\inmarginspacing \inmarginspacing=1cm

\newskip\inmarginspacing \inmarginspacing=1cm

\def\strutdepth{\dp\strutbox}

\def\strutdepth{\dp\strutbox}

%

%

\def\doinmargin#1#2{\strut\vadjust{%

\def\doinmargin#1#2{\strut\vadjust{%

  \nobreak

  \nobreak

  \kern-\strutdepth

  \kern-\strutdepth

  \vtop to \strutdepth{%

  \vtop to \strutdepth{%

    \baselineskip=\strutdepth

    \baselineskip=\strutdepth

    \vss

    \vss

    % if you have multiple lines of stuff to put here, you'll need to

    % if you have multiple lines of stuff to put here, you'll need to

    % make the vbox yourself of the appropriate size.

    % make the vbox yourself of the appropriate size.

    \ifx#1l%

    \ifx#1l%

      \llap{\ignorespaces #2\hskip\inmarginspacing}%

      \llap{\ignorespaces #2\hskip\inmarginspacing}%

    \else

    \else

      \rlap{\hskip\hsize \hskip\inmarginspacing \ignorespaces #2}%

      \rlap{\hskip\hsize \hskip\inmarginspacing \ignorespaces #2}%

    \fi

    \fi

    \null

    \null

  }%

  }%

}}

}}

\def\inleftmargin{\doinmargin l}

\def\inleftmargin{\doinmargin l}

\def\inrightmargin{\doinmargin r}

\def\inrightmargin{\doinmargin r}

%

%

% @inmargin{TEXT [, RIGHT-TEXT]}

% @inmargin{TEXT [, RIGHT-TEXT]}

% (if RIGHT-TEXT is given, use TEXT for left page, RIGHT-TEXT for right;

% (if RIGHT-TEXT is given, use TEXT for left page, RIGHT-TEXT for right;

% else use TEXT for both).

% else use TEXT for both).

%

%

\def\inmargin#1{\parseinmargin #1,,\finish}

\def\inmargin#1{\parseinmargin #1,,\finish}

\def\parseinmargin#1,#2,#3\finish{% not perfect, but better than nothing.

\def\parseinmargin#1,#2,#3\finish{% not perfect, but better than nothing.

  \setbox0 = \hbox{\ignorespaces #2}%

  \setbox0 = \hbox{\ignorespaces #2}%

  \ifdim\wd0 > 0pt

  \ifdim\wd0 > 0pt

    \def\lefttext{#1}%  have both texts

    \def\lefttext{#1}%  have both texts

    \def\righttext{#2}%

    \def\righttext{#2}%

  \else

  \else

    \def\lefttext{#1}%  have only one text

    \def\lefttext{#1}%  have only one text

    \def\righttext{#1}%

    \def\righttext{#1}%

  \fi

  \fi

  %

  %

  \ifodd\pageno

  \ifodd\pageno

    \def\temp{\inrightmargin\righttext}% odd page -> outside is right margin

    \def\temp{\inrightmargin\righttext}% odd page -> outside is right margin

  \else

  \else

    \def\temp{\inleftmargin\lefttext}%

    \def\temp{\inleftmargin\lefttext}%

  \fi

  \fi

  \temp

  \temp

}

}

%

%

\def\include{\parseargusing\filenamecatcodes\includezzz}

\def\include{\parseargusing\filenamecatcodes\includezzz}

\def\includezzz#1{%

\def\includezzz#1{%

  \pushthisfilestack

  \pushthisfilestack

  \def\thisfile{#1}%

  \def\thisfile{#1}%

  {%

  {%

    \expandafter

    \expandafter

  }\temp

  }\temp

  \popthisfilestack

  \popthisfilestack

}

}

\def\filenamecatcodes{%