OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [branches/] [newlib/] [newlib/] [texinfo/] [texinfo.tex] - Diff between revs 39 and 56

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 39 Rev 56
Line 1... Line 1...
% texinfo.tex -- TeX macros to handle Texinfo files.
% texinfo.tex -- TeX macros to handle Texinfo files.
% $Id: texinfo.tex,v 1.1.1.1 2000-06-10 01:32:28 lampret Exp $
% $Id: texinfo.tex,v 1.1.1.2 2000-08-30 19:17:43 joel Exp $
%
%
% Copyright (C) 1985, 86, 88, 90, 91, 92, 93, 94, 95, 96, 97, 98
% Copyright (C) 1985, 86, 88, 90, 91, 92, 93, 94, 95, 96, 97, 98
% Free Software Foundation, Inc.
% Free Software Foundation, Inc.
%
%
% 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
Line 23... Line 23...
% You are forbidden to forbid anyone else to use, share and improve
% You are forbidden to forbid anyone else to use, share and improve
% what you give them.   Help stamp out software-hoarding!
% what you give them.   Help stamp out software-hoarding!
%
%
% 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:
% ftp://ftp.cs.umb.edu/pub/tex/texinfo.tex
%   ftp://ftp.gnu.org/pub/gnu/texinfo.tex
% /home/gd/gnu/doc/texinfo.tex on the GNU machines.
% /home/gd/gnu/doc/texinfo.tex on the GNU machines.
 
%   (and all GNU mirrors, see http://www.gnu.org/order/ftp.html)
 
%   ftp://tug.org/tex/texinfo.tex
 
%   ftp://ctan.org/macros/texinfo/texinfo.tex
 
%   (and all CTAN mirrors, finger ctan@ctan.org for a list).
 
% The texinfo.tex in the texinfo distribution itself could well be out
 
% of date, so if that's what you're using, please check.
%
%
% Send bug reports to bug-texinfo@gnu.org.
% Send bug reports to bug-texinfo@gnu.org.
% Please include a precise test case in each bug report,
% Please include a precise test case in each bug report,
% including a complete document with which we can reproduce the problem.
% including a complete document with which we can reproduce the problem.
%
%
% Texinfo macros (with @macro) are *not* supported by texinfo.tex.  You
% To process a Texinfo manual with TeX, it's most reliable to use the
% have to run makeinfo -E to expand macros first; the texi2dvi script
% texi2dvi shell script that comes with the distribution.  For simple
% does this.
% manuals, however, you can get away with:
 
%   tex foo.texi
 
%   texindex foo.??
 
%   tex foo.texi
 
%   tex foo.texi
 
%   dvips foo.dvi -o # or whatever, to process the dvi file.
 
% The extra runs of TeX get the cross-reference information correct.
 
% Sometimes one run after texindex suffices, and sometimes you need more
 
% than two; texi2dvi does it as many times as necessary.
 
 
 
 
% Make it possible to create a .fmt file just by loading this file:
% Make it possible to create a .fmt file just by loading this file:
% if the underlying format is not loaded, start by loading it now.
% if the underlying format is not loaded, start by loading it now.
% Added by gildea November 1993.
% Added by gildea November 1993.
\expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi
\expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi
 
 
% This automatically updates the version number based on RCS.
% This automatically updates the version number based on RCS.
\def\deftexinfoversion$#1: #2 ${\def\texinfoversion{#2}}
\def\deftexinfoversion$#1: #2 ${\def\texinfoversion{#2}}
\deftexinfoversion$Revision: 1.1.1.1 $
\deftexinfoversion$Revision: 1.1.1.2 $
\message{Loading texinfo package [Version \texinfoversion]:}
\message{Loading texinfo package [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.
Line 68... Line 82...
\let\ptexlbrace=\{
\let\ptexlbrace=\{
\let\ptexrbrace=\}
\let\ptexrbrace=\}
\let\ptexstar=\*
\let\ptexstar=\*
\let\ptext=\t
\let\ptext=\t
 
 
% Be sure we're in horizontal mode when doing a tie, since we make space
% We never want plain's outer \+ definition in Texinfo.
% equivalent to this in @example-like environments. Otherwise, a space
% For @tex, we can use \tabalign.
% at the beginning of a line will start with \penalty -- and
\let\+ = \relax
% since \penalty is valid in vertical mode, we'd end up putting the
 
% penalty on the vertical list instead of in the new paragraph.
 
{\catcode`@ = 11
 
 % Avoid using \@M directly, because that causes trouble
 
 % if the definition is written into an index file.
 
 \global\let\tiepenalty = \@M
 
 \gdef\tie{\leavevmode\penalty\tiepenalty\ }
 
}
 
 
 
 
 
\message{Basics,}
\message{Basics,}
\chardef\other=12
\chardef\other=12
 
 
% 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
 
 
% Set up fixed words for English.
% Set up fixed words for English if not already set.
\ifx\putwordChapter\undefined{\gdef\putwordChapter{Chapter}}\fi%
\ifx\putwordAppendix\undefined \gdef\putwordAppendix{Appendix}\fi
\def\putwordInfo{Info}%
\ifx\putwordChapter\undefined  \gdef\putwordChapter{Chapter}\fi
\ifx\putwordSee\undefined{\gdef\putwordSee{See}}\fi%
\ifx\putwordfile\undefined     \gdef\putwordfile{file}\fi
\ifx\putwordsee\undefined{\gdef\putwordsee{see}}\fi%
\ifx\putwordInfo\undefined     \gdef\putwordInfo{Info}\fi
\ifx\putwordfile\undefined{\gdef\putwordfile{file}}\fi%
\ifx\putwordMethodon\undefined \gdef\putwordMethodon{Method on}\fi
\ifx\putwordpage\undefined{\gdef\putwordpage{page}}\fi%
\ifx\putwordon\undefined       \gdef\putwordon{on}\fi
\ifx\putwordsection\undefined{\gdef\putwordsection{section}}\fi%
\ifx\putwordpage\undefined     \gdef\putwordpage{page}\fi
\ifx\putwordSection\undefined{\gdef\putwordSection{Section}}\fi%
\ifx\putwordsection\undefined  \gdef\putwordsection{section}\fi
\ifx\putwordTableofContents\undefined{\gdef\putwordTableofContents{Table of Contents}}\fi%
\ifx\putwordSection\undefined  \gdef\putwordSection{Section}\fi
\ifx\putwordShortContents\undefined{\gdef\putwordShortContents{Short Contents}}\fi%
\ifx\putwordsee\undefined      \gdef\putwordsee{see}\fi
\ifx\putwordAppendix\undefined{\gdef\putwordAppendix{Appendix}}\fi%
\ifx\putwordSee\undefined      \gdef\putwordSee{See}\fi
 
\ifx\putwordShortContents\undefined  \gdef\putwordShortContents{Short Contents}\fi
 
\ifx\putwordTableofContents\undefined\gdef\putwordTableofContents{Table of Contents}\fi
 
 
% Ignore a token.
% Ignore a token.
%
%
\def\gobble#1{}
\def\gobble#1{}
 
 
Line 120... Line 128...
% 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.
% since that produces some useless output on the terminal.
%
%
\def\gloggingall{\begingroup \globaldefs = 1 \loggingall \endgroup}%
\def\gloggingall{\begingroup \globaldefs = 1 \loggingall \endgroup}%
 
\ifx\eTeXversion\undefined
\def\loggingall{\tracingcommands2 \tracingstats2
\def\loggingall{\tracingcommands2 \tracingstats2
   \tracingpages1 \tracingoutput1 \tracinglostchars1
   \tracingpages1 \tracingoutput1 \tracinglostchars1
   \tracingmacros2 \tracingparagraphs1 \tracingrestores1
   \tracingmacros2 \tracingparagraphs1 \tracingrestores1
   \showboxbreadth\maxdimen\showboxdepth\maxdimen
   \showboxbreadth\maxdimen\showboxdepth\maxdimen
}%
}%
 
\else
 
\def\loggingall{\tracingcommands3 \tracingstats2
 
   \tracingpages1 \tracingoutput1 \tracinglostchars1
 
   \tracingmacros2 \tracingparagraphs1 \tracingrestores1
 
   \tracingscantokens1 \tracingassigns1 \tracingifs1
 
   \tracinggroups1 \tracingnesting2
 
   \showboxbreadth\maxdimen\showboxdepth\maxdimen
 
}%
 
\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\cornerlong \newdimen\cornerthick
\newdimen\outerhsize \newdimen\outervsize % set by the paper size routines
\newdimen\topandbottommargin
\newdimen\cornerlong  \cornerlong=1pc
\newdimen\outerhsize \newdimen\outervsize
\newdimen\cornerthick \cornerthick=.3pt
\cornerlong=1pc\cornerthick=.3pt        % These set size of cropmarks
\newdimen\topandbottommargin \topandbottommargin=.75in
\outerhsize=7in
 
%\outervsize=9.5in
 
% Alternative @smallbook page size is 9.25in
 
\outervsize=9.25in
 
\topandbottommargin=.75in
 
 
 
% Main output routine.
% Main output routine.
\chardef\PAGE = 255
\chardef\PAGE = 255
\output = {\onepageout{\pagecontents\PAGE}}
\output = {\onepageout{\pagecontents\PAGE}}
 
 
Line 328... Line 341...
 
 
%% These are used to keep @begin/@end levels from running away
%% These are used to keep @begin/@end levels from running away
%% Call \inENV within environments (after a \begingroup)
%% Call \inENV within environments (after a \begingroup)
\newif\ifENV \ENVfalse \def\inENV{\ifENV\relax\else\ENVtrue\fi}
\newif\ifENV \ENVfalse \def\inENV{\ifENV\relax\else\ENVtrue\fi}
\def\ENVcheck{%
\def\ENVcheck{%
\ifENV\errmessage{Still within an environment.  Type Return to continue.}
\ifENV\errmessage{Still within an environment; press RETURN to continue}
\endgroup\fi} % This is not perfect, but it should reduce lossage
\endgroup\fi} % This is not perfect, but it should reduce lossage
 
 
% @begin foo  is the same as @foo, for now.
% @begin foo  is the same as @foo, for now.
\newhelp\EMsimple{Type <Return> to continue.}
\newhelp\EMsimple{Press RETURN to continue.}
 
 
\outer\def\begin{\parsearg\beginxxx}
\outer\def\begin{\parsearg\beginxxx}
 
 
\def\beginxxx #1{%
\def\beginxxx #1{%
\expandafter\ifx\csname #1\endcsname\relax
\expandafter\ifx\csname #1\endcsname\relax
Line 391... Line 404...
 
 
%% 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 \char '100}}
\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 \char '173}}
\def\mylbrace {{\tt\char123}}
\def\myrbrace {{\tt \char '175}}
\def\myrbrace {{\tt\char125}}
\let\{=\mylbrace
\let\{=\mylbrace
\let\}=\myrbrace
\let\}=\myrbrace
\begingroup
\begingroup
  % Definitions to produce actual \{ & \} command in an index.
  % Definitions to produce actual \{ & \} command in an index.
  \catcode`\{ = 12 \catcode`\} = 12
  \catcode`\{ = 12 \catcode`\} = 12
Line 439... Line 452...
  \else\ifx\temp\jmacro \j
  \else\ifx\temp\jmacro \j
  \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
}
}
 
 
 
% 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
 
% at the beginning of a line will start with \penalty -- and
 
% since \penalty is valid in vertical mode, we'd end up putting the
 
% penalty on the vertical list instead of in the new paragraph.
 
{\catcode`@ = 11
 
 % Avoid using \@M directly, because that causes trouble
 
 % if the definition is written into an index file.
 
 \global\let\tiepenalty = \@M
 
 \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}
Line 536... Line 561...
% Old definition--didn't work.
% Old definition--didn't work.
%\def\needx #1{\par %
%\def\needx #1{\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\penalty 10000
%\vtop to #1\mil{\vfil}\kern -#1\mil\nobreak
%\prevdepth=-1000pt
%\prevdepth=-1000pt
%}}
%}}
 
 
\def\needx#1{%
\def\needx#1{%
  % Go into vertical mode, so we don't make a big box in the middle of a
  % Go into vertical mode, so we don't make a big box in the middle of a
Line 581... Line 606...
 
 
% @dots{} output an ellipsis using the current font.
% @dots{} output an ellipsis using the current font.
% We do .5em per period so that it has the same spacing in a typewriter
% We do .5em per period so that it has the same spacing in a typewriter
% font as three actual period characters.
% font as three actual period characters.
%
%
\def\dots{\hbox to 1.5em{%
\def\dots{%
 
  \leavevmode
 
  \hbox to 1.5em{%
  \hskip 0pt plus 0.25fil minus 0.25fil
  \hskip 0pt plus 0.25fil minus 0.25fil
  .\hss.\hss.%
  .\hss.\hss.%
  \hskip 0pt plus 0.5fil minus 0.5fil
  \hskip 0pt plus 0.5fil minus 0.5fil
}}
  }%
 
}
 
 
% @enddots{} is an end-of-sentence ellipsis.
% @enddots{} is an end-of-sentence ellipsis.
%
%
\def\enddots{%
\def\enddots{%
 
  \leavevmode
  \hbox to 2em{%
  \hbox to 2em{%
    \hskip 0pt plus 0.25fil minus 0.25fil
    \hskip 0pt plus 0.25fil minus 0.25fil
    .\hss.\hss.\hss.%
    .\hss.\hss.\hss.%
    \hskip 0pt plus 0.5fil minus 0.5fil
    \hskip 0pt plus 0.5fil minus 0.5fil
  }%
  }%
  \spacefactor=3000
  \spacefactor=3000
}
}
 
 
 
 
% @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
 
 
Line 667... Line 696...
 
 
% @comment ...line which is ignored...
% @comment ...line which is ignored...
% @c is the same as @comment
% @c is the same as @comment
% @ignore ... @end ignore  is another way to write a comment
% @ignore ... @end ignore  is another way to write a comment
 
 
\def\comment{\catcode 64=\other \catcode 123=\other \catcode 125=\other%
\def\comment{\begingroup \catcode`\^^M=\other%
\parsearg \commentxxx}
\catcode`\@=\other \catcode`\{=\other \catcode`\}=\other%
 
\commentxxx}
\def\commentxxx #1{\catcode 64=0 \catcode 123=1 \catcode 125=2 }
{\catcode`\^^M=\other \gdef\commentxxx#1^^M{\endgroup}}
 
 
\let\c=\comment
\let\c=\comment
 
 
% @paragraphindent  is defined for the Info formatting commands only.
% @paragraphindent  is defined for the Info formatting commands only.
\let\paragraphindent=\comment
\let\paragraphindent=\comment
Line 767... Line 796...
\def\ifnottex{\doignore{ifnottex}}
\def\ifnottex{\doignore{ifnottex}}
\def\html{\doignore{html}}
\def\html{\doignore{html}}
\def\menu{\doignore{menu}}
\def\menu{\doignore{menu}}
\def\direntry{\doignore{direntry}}
\def\direntry{\doignore{direntry}}
 
 
% Also ignore @macro ... @end macro.  The user must run texi2dvi,
 
% which runs makeinfo to do macro expansion.  Ignore @unmacro, too.
 
\def\macro{\doignore{macro}}
 
\let\unmacro = \comment
 
 
 
 
 
% @dircategory CATEGORY  -- specify a category of the dir file
% @dircategory CATEGORY  -- specify a category of the dir file
% which this file should belong to.  Ignore this in TeX.
% which this file should belong to.  Ignore this in TeX.
\let\dircategory = \comment
\let\dircategory = \comment
 
 
% Ignore text until a line `@end #1'.
% Ignore text until a line `@end #1'.
Line 784... Line 807...
\def\doignore#1{\begingroup
\def\doignore#1{\begingroup
  % Don't complain about control sequences we have declared \outer.
  % Don't complain about control sequences we have declared \outer.
  \ignoresections
  \ignoresections
  %
  %
  % Define a command to swallow text until we reach `@end #1'.
  % Define a command to swallow text until we reach `@end #1'.
  \long\def\doignoretext##1\end #1{\enddoignore}%
  % This @ is a catcode 12 token (that is the normal catcode of @ in
 
  % this texinfo.tex file).  We change the catcode of @ below to match.
 
  \long\def\doignoretext##1@end #1{\enddoignore}%
  %
  %
  % Make sure that spaces turn into tokens that match what \doignoretext wants.
  % Make sure that spaces turn into tokens that match what \doignoretext wants.
  \catcode32 = 10
  \catcode32 = 10
  %
  %
  % Ignore braces, too, so mismatched braces don't cause trouble.
  % Ignore braces, too, so mismatched braces don't cause trouble.
  \catcode`\{ = 9
  \catcode`\{ = 9
  \catcode`\} = 9
  \catcode`\} = 9
  %
  %
 
  % We must not have @c interpreted as a control sequence.
 
  \catcode`\@ = 12
 
  %
 
  % Make the letter c a comment character so that the rest of the line
 
  % will be ignored. This way, the document can have (for example)
 
  %   @c @end ifinfo
 
  % and the @end ifinfo will be properly ignored.
 
  % (We've just changed @ to catcode 12.)
 
  \catcode`\c = 14
 
  %
  % And now expand that command.
  % And now expand that command.
  \doignoretext
  \doignoretext
}
}
 
 
% What we do to finish off ignored text.
% What we do to finish off ignored text.
Line 885... Line 920...
    % Do minimal line-breaking.
    % Do minimal line-breaking.
    \pretolerance = 10000
    \pretolerance = 10000
    %
    %
    % Do not execute instructions in @tex
    % Do not execute instructions in @tex
    \def\tex{\doignore{tex}}%
    \def\tex{\doignore{tex}}%
 
    % Do not execute macro definitions.
 
    % `c' is a comment character, so the word `macro' will get cut off.
 
    \def\macro{\doignore{ma}}%
}
}
 
 
% @set VAR sets the variable VAR to an empty value.
% @set VAR sets the variable VAR to an empty value.
% @set VAR REST-OF-LINE sets VAR to the value REST-OF-LINE.
% @set VAR REST-OF-LINE sets VAR to the value REST-OF-LINE.
%
%
Line 919... Line 957...
\def\clear{\parsearg\clearxxx}
\def\clear{\parsearg\clearxxx}
\def\clearxxx#1{\global\expandafter\let\csname SET#1\endcsname=\relax}
\def\clearxxx#1{\global\expandafter\let\csname SET#1\endcsname=\relax}
 
 
% @value{foo} gets the text saved in variable foo.
% @value{foo} gets the text saved in variable foo.
%
%
\def\value{\begingroup
{
  \catcode`\-=12 \catcode`\_=12 % Allow - and _ in VAR.
  \catcode`\_ = \active
 
  %
 
  % We might end up with active _ or - characters in the argument if
 
  % we're called from @code, as @code{@value{foo-bar_}}.  So \let any
 
  % such active characters to their normal equivalents.
 
  \gdef\value{\begingroup
 
    \catcode`\-=12 \catcode`\_=12
 
    \indexbreaks \let_\normalunderscore
  \valuexxx}
  \valuexxx}
\def\valuexxx#1{%
}
 
\def\valuexxx#1{\expandablevalue{#1}\endgroup}
 
 
 
% We have this subroutine so that we can handle at least some @value's
 
% properly in indexes (we \let\value to this in \indexdummies).  Ones
 
% whose names contain - or _ still won't work, but we can't do anything
 
% about that.  The command has to be fully expandable, since the result
 
% winds up in the index file.  This means that if the variable's value
 
% contains other Texinfo commands, it's almost certain it will fail
 
% (although perhaps we could fix that with sufficient work to do a
 
% one-level expansion on the result, instead of complete).
 
%
 
\def\expandablevalue#1{%
  \expandafter\ifx\csname SET#1\endcsname\relax
  \expandafter\ifx\csname SET#1\endcsname\relax
    {\{No value for ``#1''\}}%
    {[No value for ``#1'']v}%
  \else
  \else
    \csname SET#1\endcsname
    \csname SET#1\endcsname
  \fi
  \fi
\endgroup}
}
 
 
% @ifset VAR ... @end ifset reads the `...' iff VAR has been defined
% @ifset VAR ... @end ifset reads the `...' iff VAR has been defined
% with @set.
% with @set.
%
%
\def\ifset{\parsearg\ifsetxxx}
\def\ifset{\parsearg\ifsetxxx}
Line 1015... Line 1072...
 
 
% @bullet and @minus need the same treatment as @math, just above.
% @bullet and @minus need the same treatment as @math, just above.
\def\bullet{\implicitmath\ptexbullet\implicitmath}
\def\bullet{\implicitmath\ptexbullet\implicitmath}
\def\minus{\implicitmath-\implicitmath}
\def\minus{\implicitmath-\implicitmath}
 
 
\def\node{\ENVcheck\parsearg\nodezzz}
 
\def\nodezzz#1{\nodexxx [#1,]}
 
\def\nodexxx[#1,#2]{\gdef\lastnode{#1}}
 
\let\nwnode=\node
 
\let\lastnode=\relax
 
 
 
\def\donoderef{\ifx\lastnode\relax\else
 
\expandafter\expandafter\expandafter\setref{\lastnode}\fi
 
\global\let\lastnode=\relax}
 
 
 
\def\unnumbnoderef{\ifx\lastnode\relax\else
 
\expandafter\expandafter\expandafter\unnumbsetref{\lastnode}\fi
 
\global\let\lastnode=\relax}
 
 
 
\def\appendixnoderef{\ifx\lastnode\relax\else
 
\expandafter\expandafter\expandafter\appendixsetref{\lastnode}\fi
 
\global\let\lastnode=\relax}
 
 
 
% @refill is a no-op.
% @refill is a no-op.
\let\refill=\relax
\let\refill=\relax
 
 
 
% If working on a large document in chapters, it is convenient to
 
% be able to disable indexing, cross-referencing, and contents, for test runs.
 
% This is done with @novalidate (before @setfilename).
 
%
 
\newif\iflinks \linkstrue % by default we want the aux files.
 
\let\novalidate = \linksfalse
 
 
% @setfilename is done at the beginning of every texinfo file.
% @setfilename is done at the beginning of every texinfo file.
% So open here the files we need to have open while reading the input.
% So open here the files we need to have open while reading the input.
% This makes it possible to make a .fmt file for texinfo.
% This makes it possible to make a .fmt file for texinfo.
\def\setfilename{%
\def\setfilename{%
 
   \iflinks
   \readauxfile
   \readauxfile
   \opencontents
   \fi % \openindices needs to do some work in any case.
   \openindices
   \openindices
   \fixbackslash  % Turn off hack to swallow `\input texinfo'.
   \fixbackslash  % Turn off hack to swallow `\input texinfo'.
   \global\let\setfilename=\comment % Ignore extra @setfilename cmds.
   \global\let\setfilename=\comment % Ignore extra @setfilename cmds.
   %
   %
   % If texinfo.cnf is present on the system, read it.
   % If texinfo.cnf is present on the system, read it.
Line 1057... Line 1104...
   \temp
   \temp
   %
   %
   \comment % Ignore the actual filename.
   \comment % Ignore the actual filename.
}
}
 
 
 
% Called from \setfilename.
 
%
 
\def\openindices{%
 
  \newindex{cp}%
 
  \newcodeindex{fn}%
 
  \newcodeindex{vr}%
 
  \newcodeindex{tp}%
 
  \newcodeindex{ky}%
 
  \newcodeindex{pg}%
 
}
 
 
% @bye.
% @bye.
\outer\def\bye{\pagealignmacro\tracingstats=1\ptexend}
\outer\def\bye{\pagealignmacro\tracingstats=1\ptexend}
 
 
% \def\macro#1{\begingroup\ignoresections\catcode`\#=6\def\macrotemp{#1}\parsearg\macroxxx}
 
% \def\macroxxx#1#2 \end macro{%
 
% \expandafter\gdef\macrotemp#1{#2}%
 
% \endgroup}
 
 
 
%\def\linemacro#1{\begingroup\ignoresections\catcode`\#=6\def\macrotemp{#1}\parsearg\linemacroxxx}
 
%\def\linemacroxxx#1#2 \end linemacro{%
 
%\let\parsearg=\relax
 
%\edef\macrotempx{\csname M\butfirst\expandafter\string\macrotemp\endcsname}%
 
%\expandafter\xdef\macrotemp{\parsearg\macrotempx}%
 
%\expandafter\gdef\macrotempx#1{#2}%
 
%\endgroup}
 
 
 
%\def\butfirst#1{}
 
 
 
 
 
\message{fonts,}
\message{fonts,}
 
 
% Font-change commands.
% Font-change commands.
 
 
% Texinfo supports the sans serif font style, which plain TeX does not.
% Texinfo sort of supports the sans serif font style, which plain TeX does not.
% So we set up a \sf analogous to plain's \rm, etc.
% So we set up a \sf analogous to plain's \rm, etc.
\newfam\sffam
\newfam\sffam
\def\sf{\fam=\sffam \tensf}
\def\sf{\fam=\sffam \tensf}
\let\li = \sf % Sometimes we call it \li, not \sf.
\let\li = \sf % Sometimes we call it \li, not \sf.
 
 
Line 1152... Line 1194...
% We actually use the slanted font rather than the italic,
% We actually use the slanted font rather than the italic,
% because texinfo normally uses the slanted fonts for that.
% because texinfo normally uses the slanted fonts for that.
% Do not make many font distinctions in general in the index, since they
% Do not make many font distinctions in general in the index, since they
% aren't very useful.
% aren't very useful.
\setfont\ninett\ttshape{9}{1000}
\setfont\ninett\ttshape{9}{1000}
 
\setfont\ninettsl\ttslshape{10}{900}
\setfont\indrm\rmshape{9}{1000}
\setfont\indrm\rmshape{9}{1000}
\setfont\indit\slshape{9}{1000}
\setfont\indit\itshape{9}{1000}
\let\indsl=\indit
\setfont\indsl\slshape{9}{1000}
\let\indtt=\ninett
\let\indtt=\ninett
\let\indttsl=\ninett
\let\indttsl=\ninettsl
\let\indsf=\indrm
\let\indsf=\indrm
\let\indbf=\indrm
\let\indbf=\indrm
\setfont\indsc\scshape{10}{900}
\setfont\indsc\scshape{10}{900}
\font\indi=cmmi9
\font\indi=cmmi9
\font\indsy=cmsy9
\font\indsy=cmsy9
Line 1303... Line 1346...
%% serif) and @ii for TeX italic
%% serif) and @ii for TeX italic
 
 
% \smartitalic{ARG} outputs arg in italics, followed by an italic correction
% \smartitalic{ARG} outputs arg in italics, followed by an italic correction
% unless the following character is such as not to need one.
% unless the following character is such as not to need one.
\def\smartitalicx{\ifx\next,\else\ifx\next-\else\ifx\next.\else\/\fi\fi\fi}
\def\smartitalicx{\ifx\next,\else\ifx\next-\else\ifx\next.\else\/\fi\fi\fi}
\def\smartitalic#1{{\sl #1}\futurelet\next\smartitalicx}
\def\smartslanted#1{{\sl #1}\futurelet\next\smartitalicx}
 
\def\smartitalic#1{{\it #1}\futurelet\next\smartitalicx}
 
 
\let\i=\smartitalic
\let\i=\smartitalic
\let\var=\smartitalic
\let\var=\smartslanted
\let\dfn=\smartitalic
\let\dfn=\smartslanted
\let\emph=\smartitalic
\let\emph=\smartitalic
\let\cite=\smartitalic
\let\cite=\smartslanted
 
 
\def\b#1{{\bf #1}}
\def\b#1{{\bf #1}}
\let\strong=\b
\let\strong=\b
 
 
% We can't just use \exhyphenpenalty, because that only has effect at
% We can't just use \exhyphenpenalty, because that only has effect at
Line 1339... Line 1383...
  \kern-.06em\raise0.4pt\hbox{\angleright}}}}
  \kern-.06em\raise0.4pt\hbox{\angleright}}}}
% The old definition, with no lozenge:
% The old definition, with no lozenge:
%\def\key #1{{\ttsl \nohyphenation \uppercase{#1}}\null}
%\def\key #1{{\ttsl \nohyphenation \uppercase{#1}}\null}
\def\ctrl #1{{\tt \rawbackslash \hat}#1}
\def\ctrl #1{{\tt \rawbackslash \hat}#1}
 
 
 
% @file, @option are the same as @samp.
\let\file=\samp
\let\file=\samp
 
\let\option=\samp
 
 
% @code is a modification of @t,
% @code is a modification of @t,
% which makes spaces the same size as normal in the surrounding text.
% which makes spaces the same size as normal in the surrounding text.
\def\tclose#1{%
\def\tclose#1{%
  {%
  {%
Line 1376... Line 1422...
% and arrange explicitly to hyphenate at a dash.
% and arrange explicitly to hyphenate at a dash.
%  -- rms.
%  -- rms.
{
{
\catcode`\-=\active
\catcode`\-=\active
\catcode`\_=\active
\catcode`\_=\active
\catcode`\|=\active
  %
\global\def\code{\begingroup \catcode`\-=\active \let-\codedash \catcode`\_=\active \let_\codeunder \codex}
  \global\def\code{\begingroup
% The following is used by \doprintindex to insure that long function names
    \catcode`\-=\active \let-\codedash
% wrap around.  It is necessary for - and _ to be active before the index is
    \catcode`\_=\active \let_\codeunder
% read from the file, as \entry parses the arguments long before \code is
    \codex
% ever called.  -- mycroft
 
% _ is always active; and it shouldn't be \let = to an _ that is a
 
% subscript character anyway. Then, @cindex @samp{_} (for example)
 
% fails.  --karl
 
\global\def\indexbreaks{%
 
  \catcode`\-=\active \let-\realdash
 
}
}
 
  %
 
  % If we end up with any active - characters when handling the index,
 
  % just treat them as a normal -.
 
  \global\def\indexbreaks{\catcode`\-=\active \let-\realdash}
}
}
 
 
\def\realdash{-}
\def\realdash{-}
\def\codedash{-\discretionary{}{}{}}
\def\codedash{-\discretionary{}{}{}}
\def\codeunder{\ifusingtt{\normalunderscore\discretionary{}{}{}}{\_}}
\def\codeunder{\ifusingtt{\normalunderscore\discretionary{}{}{}}{\_}}
Line 1428... Line 1472...
\def\kbdfoo#1#2#3\par{\def\one{#1}\def\three{#3}\def\threex{??}%
\def\kbdfoo#1#2#3\par{\def\one{#1}\def\three{#3}\def\threex{??}%
\ifx\one\xkey\ifx\threex\three \key{#2}%
\ifx\one\xkey\ifx\threex\three \key{#2}%
\else{\tclose{\kbdfont\look}}\fi
\else{\tclose{\kbdfont\look}}\fi
\else{\tclose{\kbdfont\look}}\fi}
\else{\tclose{\kbdfont\look}}\fi}
 
 
% @url.  Quotes do not seem necessary, so use \code.
% For @url, @env, @command quotes seem unnecessary, so use \code.
\let\url=\code
\let\url=\code
 
\let\env=\code
 
\let\command=\code
 
 
% @uref (abbreviation for `urlref') takes an optional second argument
% @uref (abbreviation for `urlref') takes an optional second argument
% specifying the text to display.  First (mandatory) arg is the url.
% specifying the text to display.  First (mandatory) arg is the url.
% Perhaps eventually put in a hypertex \special here.
% Perhaps eventually put in a hypertex \special here.
%
%
Line 1458... Line 1504...
% this property, we can check that font parameter.
% this property, we can check that font parameter.
%
%
\def\ifmonospace{\ifdim\fontdimen3\font=0pt }
\def\ifmonospace{\ifdim\fontdimen3\font=0pt }
 
 
% Typeset a dimension, e.g., `in' or `pt'.  The only reason for the
% Typeset a dimension, e.g., `in' or `pt'.  The only reason for the
% argument is to make the input look right: @dmn{pt} instead of
% argument is to make the input look right: @dmn{pt} instead of @dmn{}pt.
% @dmn{}pt.
 
%
%
\def\dmn#1{\thinspace #1}
\def\dmn#1{\thinspace #1}
 
 
\def\kbd#1{\def\look{#1}\expandafter\kbdfoo\look??\par}
\def\kbd#1{\def\look{#1}\expandafter\kbdfoo\look??\par}
 
 
% @l was never documented to mean ``switch to the Lisp font'',
% @l was never documented to mean ``switch to the Lisp font'',
% and it is not used as such in any manual I can find.  We need it for
% and it is not used as such in any manual I can find.  We need it for
% Polish suppressed-l.  --karl, 22sep96.
% Polish suppressed-l.  --karl, 22sep96.
%\def\l#1{{\li #1}\null}
%\def\l#1{{\li #1}\null}
 
 
 
% Explicit font changes: @r, @sc, undocumented @ii.
\def\r#1{{\rm #1}}              % roman font
\def\r#1{{\rm #1}}              % roman font
% Use of \lowercase was suggested.
 
\def\sc#1{{\smallcaps#1}}       % smallcaps font
\def\sc#1{{\smallcaps#1}}       % smallcaps font
\def\ii#1{{\it #1}}             % italic font
\def\ii#1{{\it #1}}             % italic font
 
 
 
% @acronym downcases the argument and prints in smallcaps.
 
\def\acronym#1{{\smallcaps \lowercase{#1}}}
 
 
% @pounds{} is a sterling sign.
% @pounds{} is a sterling sign.
\def\pounds{{\it\$}}
\def\pounds{{\it\$}}
 
 
 
 
\message{page headings,}
\message{page headings,}
Line 1488... Line 1536...
 
 
% First the title page.  Must do @settitle before @titlepage.
% First the title page.  Must do @settitle before @titlepage.
\newif\ifseenauthor
\newif\ifseenauthor
\newif\iffinishedtitlepage
\newif\iffinishedtitlepage
 
 
 
% Do an implicit @contents or @shortcontents after @end titlepage if the
 
% user says @contentsaftertitlepage or @shortcontentsaftertitlepage.
 
%
 
\newif\ifsetcontentsaftertitlepage
 
 \let\setcontentsaftertitlepage = \setcontentsaftertitlepagetrue
 
\newif\ifsetshortcontentsaftertitlepage
 
 \let\setshortcontentsaftertitlepage = \setshortcontentsaftertitlepagetrue
 
 
\def\shorttitlepage{\parsearg\shorttitlepagezzz}
\def\shorttitlepage{\parsearg\shorttitlepagezzz}
\def\shorttitlepagezzz #1{\begingroup\hbox{}\vskip 1.5in \chaprm \centerline{#1}%
\def\shorttitlepagezzz #1{\begingroup\hbox{}\vskip 1.5in \chaprm \centerline{#1}%
        \endgroup\page\hbox{}\page}
        \endgroup\page\hbox{}\page}
 
 
\def\titlepage{\begingroup \parindent=0pt \textfonts
\def\titlepage{\begingroup \parindent=0pt \textfonts
   \let\subtitlerm=\tenrm
   \let\subtitlerm=\tenrm
% I deinstalled the following change because \cmr12 is undefined.
 
% This change was not in the ChangeLog anyway.  --rms.
 
%   \let\subtitlerm=\cmr12
 
   \def\subtitlefont{\subtitlerm \normalbaselineskip = 13pt \normalbaselines}%
   \def\subtitlefont{\subtitlerm \normalbaselineskip = 13pt \normalbaselines}%
   %
   %
   \def\authorfont{\authorrm \normalbaselineskip = 16pt \normalbaselines}%
   \def\authorfont{\authorrm \normalbaselineskip = 16pt \normalbaselines}%
   %
   %
   % Leave some space at the very top of the page.
   % Leave some space at the very top of the page.
Line 1545... Line 1598...
   % because the headline and footline are only empty inside the group.
   % because the headline and footline are only empty inside the group.
   % If we use the new definition of \page, we always get a blank page
   % If we use the new definition of \page, we always get a blank page
   % after the title page, which we certainly don't want.
   % after the title page, which we certainly don't want.
   \oldpage
   \oldpage
   \endgroup
   \endgroup
 
   %
 
   % If they want short, they certainly want long too.
 
   \ifsetshortcontentsaftertitlepage
 
     \shortcontents
 
     \contents
 
     \global\let\shortcontents = \relax
 
     \global\let\contents = \relax
 
   \fi
 
   %
 
   \ifsetcontentsaftertitlepage
 
     \contents
 
     \global\let\contents = \relax
 
     \global\let\shortcontents = \relax
 
   \fi
 
   %
   \HEADINGSon
   \HEADINGSon
}
}
 
 
\def\finishtitlepage{%
\def\finishtitlepage{%
   \vskip4pt \hrule height 2pt width \hsize
   \vskip4pt \hrule height 2pt width \hsize
Line 1558... Line 1626...
 
 
%%% Set up page headings and footings.
%%% Set up page headings and footings.
 
 
\let\thispage=\folio
\let\thispage=\folio
 
 
\newtoks \evenheadline    % Token sequence for heading line of even pages
\newtoks\evenheadline    % headline on even pages
\newtoks \oddheadline     % Token sequence for heading line of odd pages
\newtoks\oddheadline     % headline on odd pages
\newtoks \evenfootline    % Token sequence for footing line of even pages
\newtoks\evenfootline    % footline on even pages
\newtoks \oddfootline     % Token sequence for footing line of odd pages
\newtoks\oddfootline     % footline on odd pages
 
 
% Now make Tex use those variables
% Now make Tex use those variables
\headline={{\textfonts\rm \ifodd\pageno \the\oddheadline
\headline={{\textfonts\rm \ifodd\pageno \the\oddheadline
                            \else \the\evenheadline \fi}}
                            \else \the\evenheadline \fi}}
\footline={{\textfonts\rm \ifodd\pageno \the\oddfootline
\footline={{\textfonts\rm \ifodd\pageno \the\oddfootline
Line 1700... Line 1768...
\def\settitle{\parsearg\settitlezzz}
\def\settitle{\parsearg\settitlezzz}
\def\settitlezzz #1{\gdef\thistitle{#1}}
\def\settitlezzz #1{\gdef\thistitle{#1}}
 
 
 
 
\message{tables,}
\message{tables,}
 
 
% @tabs -- simple alignment
 
 
 
% These don't work.  For one thing, \+ is defined as outer.
 
% So these macros cannot even be defined.
 
 
 
%\def\tabs{\parsearg\tabszzz}
 
%\def\tabszzz #1{\settabs\+#1\cr}
 
%\def\tabline{\parsearg\tablinezzz}
 
%\def\tablinezzz #1{\+#1\cr}
 
%\def\&{&}
 
 
 
% Tables -- @table, @ftable, @vtable, @item(x), @kitem(x), @xitem(x).
% Tables -- @table, @ftable, @vtable, @item(x), @kitem(x), @xitem(x).
 
 
% default indentation of table text
% default indentation of table text
\newdimen\tableindent \tableindent=.8in
\newdimen\tableindent \tableindent=.8in
% default indentation of @itemize and @enumerate text
% default indentation of @itemize and @enumerate text
Line 1755... Line 1811...
  \advance\hsize by -\tableindent
  \advance\hsize by -\tableindent
  \setbox0=\hbox{\itemfont{#1}}%
  \setbox0=\hbox{\itemfont{#1}}%
  \itemindex{#1}%
  \itemindex{#1}%
  \nobreak % This prevents a break before @itemx.
  \nobreak % This prevents a break before @itemx.
  %
  %
  % Be sure we are not still in the middle of a paragraph.
 
  %{\parskip = 0in
 
  %\par
 
  %}%
 
  %
 
  % If the item text does not fit in the space we have, put it on a line
  % If the item text does not fit in the space we have, put it on a line
  % by itself, and do not allow a page break either before or after that
  % by itself, and do not allow a page break either before or after that
  % line.  We do not start a paragraph here because then if the next
  % line.  We do not start a paragraph here because then if the next
  % command is, e.g., @kindex, the whatsit would get put into the
  % command is, e.g., @kindex, the whatsit would get put into the
  % horizontal list on a line by itself, resulting in extra blank space.
  % horizontal list on a line by itself, resulting in extra blank space.
Line 1788... Line 1839...
    \nobreak
    \nobreak
    \endgroup
    \endgroup
    \itemxneedsnegativevskipfalse
    \itemxneedsnegativevskipfalse
  \else
  \else
    % The item text fits into the space.  Start a paragraph, so that the
    % The item text fits into the space.  Start a paragraph, so that the
    % following text (if any) will end up on the same line.  Since that
    % following text (if any) will end up on the same line.
    % text will be indented by \tableindent, we make the item text be in
 
    % a zero-width box.
 
    \noindent
    \noindent
    \rlap{\hskip -\tableindent\box0}\ignorespaces%
    % Do this with kerns and \unhbox so that if there is a footnote in
    \endgroup%
    % the item text, it can migrate to the main vertical list and
    \itemxneedsnegativevskiptrue%
    % eventually be printed.
 
    \nobreak\kern-\tableindent
 
    \dimen0 = \itemmax  \advance\dimen0 by \itemmargin \advance\dimen0 by -\wd0
 
    \unhbox0
 
    \nobreak\kern\dimen0
 
    \endgroup
 
    \itemxneedsnegativevskiptrue
  \fi
  \fi
}
}
 
 
\def\item{\errmessage{@item while not in a table}}
\def\item{\errmessage{@item while not in a table}}
\def\itemx{\errmessage{@itemx while not in a table}}
\def\itemx{\errmessage{@itemx while not in a table}}
\def\kitem{\errmessage{@kitem while not in a table}}
\def\kitem{\errmessage{@kitem while not in a table}}
\def\kitemx{\errmessage{@kitemx while not in a table}}
\def\kitemx{\errmessage{@kitemx while not in a table}}
\def\xitem{\errmessage{@xitem while not in a table}}
\def\xitem{\errmessage{@xitem while not in a table}}
\def\xitemx{\errmessage{@xitemx while not in a table}}
\def\xitemx{\errmessage{@xitemx while not in a table}}
 
 
%% Contains a kludge to get @end[description] to work
% Contains a kludge to get @end[description] to work.
\def\description{\tablez{\dontindex}{1}{}{}{}{}}
\def\description{\tablez{\dontindex}{1}{}{}{}{}}
 
 
 
% @table, @ftable, @vtable.
\def\table{\begingroup\inENV\obeylines\obeyspaces\tablex}
\def\table{\begingroup\inENV\obeylines\obeyspaces\tablex}
{\obeylines\obeyspaces%
{\obeylines\obeyspaces%
\gdef\tablex #1^^M{%
\gdef\tablex #1^^M{%
\tabley\dontindex#1        \endtabley}}
\tabley\dontindex#1        \endtabley}}
 
 
Line 1867... Line 1923...
\newcount \itemno
\newcount \itemno
 
 
\def\itemize{\parsearg\itemizezzz}
\def\itemize{\parsearg\itemizezzz}
 
 
\def\itemizezzz #1{%
\def\itemizezzz #1{%
  \begingroup % ended by the @end itemsize
  \begingroup % ended by the @end itemize
  \itemizey {#1}{\Eitemize}
  \itemizey {#1}{\Eitemize}
}
}
 
 
\def\itemizey #1#2{%
\def\itemizey #1#2{%
\aboveenvbreak %
\aboveenvbreak %
Line 2233... Line 2289...
% \fooindex ...rest of line... puts an entry in the index foo.
% \fooindex ...rest of line... puts an entry in the index foo.
% It also defines \fooindfile to be the number of the output channel for
% It also defines \fooindfile to be the number of the output channel for
% the file that accumulates this index.  The file's extension is foo.
% the file that accumulates this index.  The file's extension is foo.
% The name of an index should be no more than 2 characters long
% The name of an index should be no more than 2 characters long
% for the sake of vms.
% for the sake of vms.
 
%
\def\newindex #1{
\def\newindex#1{%
\expandafter\newwrite \csname#1indfile\endcsname% Define number for output file
  \iflinks
 
    \expandafter\newwrite \csname#1indfile\endcsname
\openout \csname#1indfile\endcsname \jobname.#1 % Open the file
\openout \csname#1indfile\endcsname \jobname.#1 % Open the file
\expandafter\xdef\csname#1index\endcsname{%     % Define \xxxindex
  \fi
 
  \expandafter\xdef\csname#1index\endcsname{%     % Define @#1index
\noexpand\doindex {#1}}
\noexpand\doindex {#1}}
}
}
 
 
% @defindex foo  ==  \newindex{foo}
% @defindex foo  ==  \newindex{foo}
 
 
\def\defindex{\parsearg\newindex}
\def\defindex{\parsearg\newindex}
 
 
% Define @defcodeindex, like @defindex except put all entries in @code.
% Define @defcodeindex, like @defindex except put all entries in @code.
 
 
\def\newcodeindex #1{
\def\newcodeindex#1{%
\expandafter\newwrite \csname#1indfile\endcsname% Define number for output file
  \iflinks
\openout \csname#1indfile\endcsname \jobname.#1 % Open the file
    \expandafter\newwrite \csname#1indfile\endcsname
\expandafter\xdef\csname#1index\endcsname{%     % Define \xxxindex
    \openout \csname#1indfile\endcsname \jobname.#1
 
  \fi
 
  \expandafter\xdef\csname#1index\endcsname{%
\noexpand\docodeindex {#1}}
\noexpand\docodeindex {#1}}
}
}
 
 
\def\defcodeindex{\parsearg\newcodeindex}
\def\defcodeindex{\parsearg\newcodeindex}
 
 
% @synindex foo bar    makes index foo feed into index bar.
% @synindex foo bar    makes index foo feed into index bar.
% Do this instead of @defindex foo if you don't want it as a separate index.
% Do this instead of @defindex foo if you don't want it as a separate index.
 
% The \closeout helps reduce unnecessary open files; the limit on the
 
% Acorn RISC OS is a mere 16 files.
\def\synindex #1 #2 {%
\def\synindex #1 #2 {%
\expandafter\let\expandafter\synindexfoo\expandafter=\csname#2indfile\endcsname
\expandafter\let\expandafter\synindexfoo\expandafter=\csname#2indfile\endcsname
 
  \expandafter\closeout\csname#1indfile\endcsname
\expandafter\let\csname#1indfile\endcsname=\synindexfoo
\expandafter\let\csname#1indfile\endcsname=\synindexfoo
\expandafter\xdef\csname#1index\endcsname{%     % Define \xxxindex
  \expandafter\xdef\csname#1index\endcsname{% define \xxxindex
\noexpand\doindex {#2}}%
\noexpand\doindex {#2}}%
}
}
 
 
% @syncodeindex foo bar   similar, but put all entries made for index foo
% @syncodeindex foo bar   similar, but put all entries made for index foo
% inside @code.
% inside @code.
\def\syncodeindex #1 #2 {%
\def\syncodeindex #1 #2 {%
\expandafter\let\expandafter\synindexfoo\expandafter=\csname#2indfile\endcsname
\expandafter\let\expandafter\synindexfoo\expandafter=\csname#2indfile\endcsname
 
  \expandafter\closeout\csname#1indfile\endcsname
\expandafter\let\csname#1indfile\endcsname=\synindexfoo
\expandafter\let\csname#1indfile\endcsname=\synindexfoo
\expandafter\xdef\csname#1index\endcsname{%     % Define \xxxindex
  \expandafter\xdef\csname#1index\endcsname{% define \xxxindex
\noexpand\docodeindex {#2}}%
\noexpand\docodeindex {#2}}%
}
}
 
 
% Define \doindex, the driver for all \fooindex macros.
% Define \doindex, the driver for all \fooindex macros.
% Argument #1 is generated by the calling \fooindex macro,
% Argument #1 is generated by the calling \fooindex macro,
Line 2292... Line 2356...
% like the previous two, but they put @code around the argument.
% like the previous two, but they put @code around the argument.
\def\docodeindex#1{\edef\indexname{#1}\parsearg\singlecodeindexer}
\def\docodeindex#1{\edef\indexname{#1}\parsearg\singlecodeindexer}
\def\singlecodeindexer #1{\doind{\indexname}{\code{#1}}}
\def\singlecodeindexer #1{\doind{\indexname}{\code{#1}}}
 
 
\def\indexdummies{%
\def\indexdummies{%
 
\def\ { }%
% Take care of the plain tex accent commands.
% Take care of the plain tex accent commands.
\def\"{\realbackslash "}%
\def\"{\realbackslash "}%
\def\`{\realbackslash `}%
\def\`{\realbackslash `}%
\def\'{\realbackslash '}%
\def\'{\realbackslash '}%
\def\^{\realbackslash ^}%
\def\^{\realbackslash ^}%
Line 2333... Line 2398...
\def\sf{\realbackslash sf}%
\def\sf{\realbackslash sf}%
\def\tt{\realbackslash tt}%
\def\tt{\realbackslash tt}%
\def\gtr{\realbackslash gtr}%
\def\gtr{\realbackslash gtr}%
\def\less{\realbackslash less}%
\def\less{\realbackslash less}%
\def\hat{\realbackslash hat}%
\def\hat{\realbackslash hat}%
%\def\char{\realbackslash char}%
 
\def\TeX{\realbackslash TeX}%
\def\TeX{\realbackslash TeX}%
\def\dots{\realbackslash dots }%
\def\dots{\realbackslash dots }%
\def\result{\realbackslash result}%
\def\result{\realbackslash result}%
\def\equiv{\realbackslash equiv}%
\def\equiv{\realbackslash equiv}%
\def\expansion{\realbackslash expansion}%
\def\expansion{\realbackslash expansion}%
Line 2360... Line 2424...
\def\file##1{\realbackslash file {##1}}%
\def\file##1{\realbackslash file {##1}}%
\def\var##1{\realbackslash var {##1}}%
\def\var##1{\realbackslash var {##1}}%
\def\kbd##1{\realbackslash kbd {##1}}%
\def\kbd##1{\realbackslash kbd {##1}}%
\def\dfn##1{\realbackslash dfn {##1}}%
\def\dfn##1{\realbackslash dfn {##1}}%
\def\emph##1{\realbackslash emph {##1}}%
\def\emph##1{\realbackslash emph {##1}}%
\def\value##1{\realbackslash value {##1}}%
%
 
% Handle some cases of @value -- where the variable name does not
 
% contain - or _, and the value does not contain any
 
% (non-fully-expandable) commands.
 
\let\value = \expandablevalue
 
%
\unsepspaces
\unsepspaces
}
}
 
 
% 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
Line 2436... Line 2505...
 
 
{\catcode`\@=0 \catcode`\\=\other
{\catcode`\@=0 \catcode`\\=\other
@gdef@realbackslash{\}}
@gdef@realbackslash{\}}
 
 
\let\indexbackslash=0  %overridden during \printindex.
\let\indexbackslash=0  %overridden during \printindex.
 
\let\SETmarginindex=\relax % put index entries in margin (undocumented)?
 
 
 
% For \ifx comparisons.
 
\def\emptymacro{\empty}
 
 
\let\SETmarginindex=\relax %initialize!
% Most index entries go through here, but \dosubind is the general case.
% workhorse for all \fooindexes
%
% #1 is name of index, #2 is stuff to put there
\def\doind#1#2{\dosubind{#1}{#2}\empty}
\def\doind #1#2{%
 
 
% Workhorse for all \fooindexes.
 
% #1 is name of index, #2 is stuff to put there, #3 is subentry --
 
% \empty if called from \doind, as we usually are.  The main exception
 
% is with defuns, which call us directly.
 
%
 
\def\dosubind#1#2#3{%
  % Put the index entry in the margin if desired.
  % Put the index entry in the margin if desired.
  \ifx\SETmarginindex\relax\else
  \ifx\SETmarginindex\relax\else
    \insert\margin{\hbox{\vrule height8pt depth3pt width0pt #2}}%
    \insert\margin{\hbox{\vrule height8pt depth3pt width0pt #2}}%
  \fi
  \fi
  {%
  {%
Line 2455... Line 2534...
      {%
      {%
        \let\folio=0% We will expand all macros now EXCEPT \folio.
        \let\folio=0% We will expand all macros now EXCEPT \folio.
        \def\rawbackslashxx{\indexbackslash}% \indexbackslash isn't defined now
        \def\rawbackslashxx{\indexbackslash}% \indexbackslash isn't defined now
        % so it will be output as is; and it will print as backslash.
        % so it will be output as is; and it will print as backslash.
        %
        %
 
        \def\thirdarg{#3}%
 
        %
 
        % If third arg is present, precede it with space in sort key.
 
        \ifx\thirdarg\emptymacro
 
          \let\subentry = \empty
 
        \else
 
          \def\subentry{ #3}%
 
        \fi
 
        %
        % First process the index-string with all font commands turned off
        % First process the index-string with all font commands turned off
        % to get the string to sort by.
        % to get the string to sort by.
        {\indexnofonts \xdef\indexsorttmp{#2}}%
        {\indexnofonts \xdef\indexsorttmp{#2\subentry}}%
        %
        %
        % Now produce the complete index entry, with both the sort key and the
        % Now produce the complete index entry, with both the sort key and the
        % original text, including any font commands.
        % original text, including any font commands.
        \toks0 = {#2}%
        \toks0 = {#2}%
        \edef\temp{%
        \edef\temp{%
          \write\csname#1indfile\endcsname{%
          \write\csname#1indfile\endcsname{%
            \realbackslash entry{\indexsorttmp}{\folio}{\the\toks0}}%
            \realbackslash entry{\indexsorttmp}{\folio}{\the\toks0}}%
        }%
        }%
        \temp
        %
 
        % If third (subentry) arg is present, add it to the index string.
 
        \ifx\thirdarg\emptymacro \else
 
          \toks0 = {#3}%
 
          \edef\temp{\temp{\the\toks0}}%
 
        \fi
 
        %
 
        % If a skip is the last thing on the list now, preserve it
 
        % by backing up by \lastskip, doing the \write, then inserting
 
        % the skip again.  Otherwise, the whatsit generated by the
 
        % \write will make \lastskip zero.  The result is that sequences
 
        % like this:
 
        % @end defun
 
        % @tindex whatever
 
        % @defun ...
 
        % will have extra space inserted, because the \medbreak in the
 
        % start of the @defun won't see the skip inserted by the @end of
 
        % the previous defun.
 
        %
 
        % But don't do any of this if we're not in vertical mode.  We
 
        % don't want to do a \vskip and prematurely end a paragraph.
 
        %
 
        % Avoid page breaks due to these extra skips, too.
 
        %
 
        \iflinks
 
          \ifvmode
 
            \skip0 = \lastskip
 
            \ifdim\lastskip = 0pt \else \nobreak\vskip-\lastskip \fi
 
          \fi
 
          %
 
          \temp % do the write
 
          %
 
          %
 
          \ifvmode \ifdim\skip0 = 0pt \else \nobreak\vskip\skip0 \fi \fi
 
        \fi
      }%
      }%
    }%
    }%
    \penalty\count255
    \penalty\count255
  }%
  }%
}
}
 
 
\def\dosubind #1#2#3{%
 
{\count10=\lastpenalty %
 
{\indexdummies % Must do this here, since \bf, etc expand at this stage
 
\escapechar=`\\%
 
{\let\folio=0%
 
\def\rawbackslashxx{\indexbackslash}%
 
%
 
% Now process the index-string once, with all font commands turned off,
 
% to get the string to sort the index by.
 
{\indexnofonts
 
\xdef\temp1{#2 #3}%
 
}%
 
% Now produce the complete index entry.  We process the index-string again,
 
% this time with font commands expanded, to get what to print in the index.
 
\edef\temp{%
 
\write \csname#1indfile\endcsname{%
 
\realbackslash entry {\temp1}{\folio}{#2}{#3}}}%
 
\temp }%
 
}\penalty\count10}}
 
 
 
% The index entry written in the file actually looks like
% The index entry written in the file actually looks like
%  \entry {sortstring}{page}{topic}
%  \entry {sortstring}{page}{topic}
% or
% or
%  \entry {sortstring}{page}{topic}{subtopic}
%  \entry {sortstring}{page}{topic}{subtopic}
% The texindex program reads in these files and writes files
% The texindex program reads in these files and writes files
Line 2575... Line 2677...
\endgroup}
\endgroup}
 
 
% These macros are used by the sorted index file itself.
% These macros are used by the sorted index file itself.
% Change them to control the appearance of the index.
% Change them to control the appearance of the index.
 
 
% Same as \bigskipamount except no shrink.
\def\initial#1{{%
% \balancecolumns gets confused if there is any shrink.
  % Some minor font changes for the special characters.
\newskip\initialskipamount \initialskipamount 12pt plus4pt
  \let\tentt=\sectt \let\tt=\sectt \let\sf=\sectt
 
  %
\def\initial #1{%
  % Remove any glue we may have, we'll be inserting our own.
{\let\tentt=\sectt \let\tt=\sectt \let\sf=\sectt
  \removelastskip
\ifdim\lastskip<\initialskipamount
  %
\removelastskip \penalty-200 \vskip \initialskipamount\fi
  % We like breaks before the index initials, so insert a bonus.
\line{\secbf#1\hfill}\kern 2pt\penalty10000}}
  \penalty -300
 
  %
 
  % Typeset the initial.  Making this add up to a whole number of
 
  % baselineskips increases the chance of the dots lining up from column
 
  % to column.  It still won't often be perfect, because of the stretch
 
  % we need before each entry, but it's better.
 
  %
 
  % No shrink because it confuses \balancecolumns.
 
  \vskip 1.67\baselineskip plus .5\baselineskip
 
  \leftline{\secbf #1}%
 
  \vskip .33\baselineskip plus .1\baselineskip
 
  %
 
  % Do our best not to break after the initial.
 
  \nobreak
 
}}
 
 
% This typesets a paragraph consisting of #1, dot leaders, and then #2
% This typesets a paragraph consisting of #1, dot leaders, and then #2
% flush to the right margin.  It is used for index and table of contents
% flush to the right margin.  It is used for index and table of contents
% entries.  The paragraph is indented by \leftskip.
% entries.  The paragraph is indented by \leftskip.
%
%
Line 2618... Line 2734...
  %
  %
  % When the entry text needs to be broken, just fill out the first line
  % When the entry text needs to be broken, just fill out the first line
  % with blank space.
  % with blank space.
  \rightskip = 0pt plus1fil
  \rightskip = 0pt plus1fil
  %
  %
 
  % A bit of stretch before each entry for the benefit of balancing columns.
 
  \vskip 0pt plus1pt
 
  %
  % Start a ``paragraph'' for the index entry so the line breaking
  % Start a ``paragraph'' for the index entry so the line breaking
  % parameters we've set above will have an effect.
  % parameters we've set above will have an effect.
  \noindent
  \noindent
  %
  %
  % Insert the text of the index entry.  TeX will do line-breaking on it.
  % Insert the text of the index entry.  TeX will do line-breaking on it.
Line 2716... Line 2835...
    \divide\doublecolumnhsize by 2
    \divide\doublecolumnhsize by 2
  \hsize = \doublecolumnhsize
  \hsize = \doublecolumnhsize
  %
  %
  % Double the \vsize as well.  (We don't need a separate register here,
  % Double the \vsize as well.  (We don't need a separate register here,
  % since nobody clobbers \vsize.)
  % since nobody clobbers \vsize.)
 
  \advance\vsize by -\ht\partialpage
  \vsize = 2\vsize
  \vsize = 2\vsize
}
}
 
 
 
% The double-column output routine for all double-column pages except
 
% the last.
 
%
\def\doublecolumnout{%
\def\doublecolumnout{%
  \splittopskip=\topskip \splitmaxdepth=\maxdepth
  \splittopskip=\topskip \splitmaxdepth=\maxdepth
  % Get the available space for the double columns -- the normal
  % Get the available space for the double columns -- the normal
  % (undoubled) page height minus any material left over from the
  % (undoubled) page height minus any material left over from the
  % previous page.
  % previous page.
  \dimen@=\pageheight \advance\dimen@ by-\ht\partialpage
  \dimen@ = \vsize
 
  \divide\dimen@ by 2
 
  %
  % box0 will be the left-hand column, box2 the right.
  % box0 will be the left-hand column, box2 the right.
  \setbox0=\vsplit255 to\dimen@ \setbox2=\vsplit255 to\dimen@
  \setbox0=\vsplit255 to\dimen@ \setbox2=\vsplit255 to\dimen@
  \onepageout\pagesofar
  \onepageout\pagesofar
  \unvbox255
  \unvbox255
  \penalty\outputpenalty
  \penalty\outputpenalty
}
}
\def\pagesofar{%
\def\pagesofar{%
  % Re-output the contents of the output page -- any previous material,
  % Re-output the contents of the output page -- any previous material,
  % followed by the two boxes we just split.
  % followed by the two boxes we just split, in box0 and box2.
 
  \advance\vsize by \ht\partialpage
  \unvbox\partialpage
  \unvbox\partialpage
 
  %
  \hsize = \doublecolumnhsize
  \hsize = \doublecolumnhsize
  \wd0=\hsize \wd2=\hsize \hbox to\pagewidth{\box0\hfil\box2}%
  \wd0=\hsize \wd2=\hsize
 
  \hbox to\pagewidth{\box0\hfil\box2}%
}
}
\def\enddoublecolumns{%
\def\enddoublecolumns{%
  \output = {\balancecolumns}\eject % split what we have
  \output = {%
  \endgroup % started in \begindoublecolumns
    % Split the last of the double-column material.  Leave on the
  %
    % current page, no automatic page break.
  % Back to normal single-column typesetting, but take account of the
    \balancecolumns
  % fact that we just accumulated some stuff on the output page.
    %
 
    % If we end up splitting too much material for the current page,
 
    % though, there will be another page break right after this \output
 
    % invocation ends.  Having called \balancecolumns once, we do not
 
    % want to call it again.  Therefore, reset \output to its normal
 
    % definition right away.  (We hope \balancecolumns will never be
 
    % called on to balance too much material, but if it is, this makes
 
    % the output somewhat more palatable.)
 
    \global\output = {\onepageout{\pagecontents\PAGE}}%
 
    %
 
    % \pagegoal was set to the doubled \vsize above, since we restarted
 
    % the current page.  We're now back to normal single-column
 
    % typesetting, so reset \pagegoal to the normal \vsize.
  \pagegoal = \vsize
  \pagegoal = \vsize
 
  }%
 
  \eject
 
  \endgroup % started in \begindoublecolumns
}
}
\def\balancecolumns{%
\def\balancecolumns{%
  % Called at the end of the double column material.
  % Called at the end of the double column material.
  \setbox0 = \vbox{\unvbox255}%
  \setbox0 = \vbox{\unvbox255}% like \box255 but more efficient, see p.120.
  \dimen@ = \ht0
  \dimen@ = \ht0
  \advance\dimen@ by \topskip
  \advance\dimen@ by \topskip
  \advance\dimen@ by-\baselineskip
  \advance\dimen@ by-\baselineskip
  \divide\dimen@ by 2
  \divide\dimen@ by 2 % target to split to
 
  %debug\message{final 2-column material height=\the\ht0, target=\the\dimen@.}%
  \splittopskip = \topskip
  \splittopskip = \topskip
  % Loop until we get a decent breakpoint.
  % Loop until we get a decent breakpoint.
  {\vbadness=10000 \loop
  {%
 
    \vbadness = 10000
 
    \loop
    \global\setbox3=\copy0
    \global\setbox3=\copy0
    \global\setbox1=\vsplit3 to\dimen@
    \global\setbox1=\vsplit3 to\dimen@
    \ifdim\ht3>\dimen@ \global\advance\dimen@ by1pt
    \ifdim\ht3>\dimen@
   \repeat}%
      \global\advance\dimen@ by 1pt
 
    \repeat
 
  }%
 
  %debug\message{split to \the\dimen@, column heights: \the\ht1, \the\ht3.}%
  \setbox0=\vbox to\dimen@{\unvbox1}%
  \setbox0=\vbox to\dimen@{\unvbox1}%
  \setbox2=\vbox to\dimen@{\unvbox3}%
  \setbox2=\vbox to\dimen@{\unvbox3}%
 
  %
  \pagesofar
  \pagesofar
}
}
\catcode`\@ = \other
\catcode`\@ = \other
 
 
 
 
Line 2778... Line 2929...
 
 
% This counter is funny since it counts through charcodes of letters A, B, ...
% This counter is funny since it counts through charcodes of letters A, B, ...
\newcount\appendixno  \appendixno = `\@
\newcount\appendixno  \appendixno = `\@
\def\appendixletter{\char\the\appendixno}
\def\appendixletter{\char\the\appendixno}
 
 
\newwrite\contentsfile
 
% This is called from \setfilename.
 
\def\opencontents{\openout\contentsfile = \jobname.toc }
 
 
 
% Each @chapter defines this as the name of the chapter.
% Each @chapter defines this as the name of the chapter.
% page headings and footings can use it.  @section does likewise
% page headings and footings can use it.  @section does likewise.
 
\def\thischapter{}
\def\thischapter{} \def\thissection{}
\def\thissection{}
\def\seccheck#1{\ifnum \pageno<0
 
  \errmessage{@#1 not allowed after generating table of contents}%
 
\fi}
 
 
 
\def\chapternofonts{%
 
  \let\rawbackslash=\relax
 
  \let\frenchspacing=\relax
 
  \def\result{\realbackslash result}%
 
  \def\equiv{\realbackslash equiv}%
 
  \def\expansion{\realbackslash expansion}%
 
  \def\print{\realbackslash print}%
 
  \def\TeX{\realbackslash TeX}%
 
  \def\dots{\realbackslash dots}%
 
  \def\result{\realbackslash result}%
 
  \def\equiv{\realbackslash equiv}%
 
  \def\expansion{\realbackslash expansion}%
 
  \def\print{\realbackslash print}%
 
  \def\error{\realbackslash error}%
 
  \def\point{\realbackslash point}%
 
  \def\copyright{\realbackslash copyright}%
 
  \def\tt{\realbackslash tt}%
 
  \def\bf{\realbackslash bf}%
 
  \def\w{\realbackslash w}%
 
  \def\less{\realbackslash less}%
 
  \def\gtr{\realbackslash gtr}%
 
  \def\hat{\realbackslash hat}%
 
  \def\char{\realbackslash char}%
 
  \def\tclose##1{\realbackslash tclose{##1}}%
 
  \def\code##1{\realbackslash code{##1}}%
 
  \def\samp##1{\realbackslash samp{##1}}%
 
  \def\r##1{\realbackslash r{##1}}%
 
  \def\b##1{\realbackslash b{##1}}%
 
  \def\key##1{\realbackslash key{##1}}%
 
  \def\file##1{\realbackslash file{##1}}%
 
  \def\kbd##1{\realbackslash kbd{##1}}%
 
  % These are redefined because @smartitalic wouldn't work inside xdef.
 
  \def\i##1{\realbackslash i{##1}}%
 
  \def\cite##1{\realbackslash cite{##1}}%
 
  \def\var##1{\realbackslash var{##1}}%
 
  \def\emph##1{\realbackslash emph{##1}}%
 
  \def\dfn##1{\realbackslash dfn{##1}}%
 
}
 
 
 
\newcount\absseclevel % used to calculate proper heading level
\newcount\absseclevel % used to calculate proper heading level
\newcount\secbase\secbase=0 % @raise/lowersections modify this count
\newcount\secbase\secbase=0 % @raise/lowersections modify this count
 
 
% @raisesections: treat @section as chapter, @subsection as section, etc.
% @raisesections: treat @section as chapter, @subsection as section, etc.
Line 2899... Line 3004...
    \unnumberedsubsubseczzz{#2}
    \unnumberedsubsubseczzz{#2}
  \fi
  \fi
\fi
\fi
}
}
 
 
 
% @chapter, @appendix, @unnumbered.
\def\thischaptername{No Chapter Title}
\def\thischaptername{No Chapter Title}
\outer\def\chapter{\parsearg\chapteryyy}
\outer\def\chapter{\parsearg\chapteryyy}
\def\chapteryyy #1{\numhead0{#1}} % normally numhead0 calls chapterzzz
\def\chapteryyy #1{\numhead0{#1}} % normally numhead0 calls chapterzzz
\def\chapterzzz #1{\seccheck{chapter}%
\def\chapterzzz #1{%
\secno=0 \subsecno=0 \subsubsecno=0
\secno=0 \subsecno=0 \subsubsecno=0
\global\advance \chapno by 1 \message{\putwordChapter \the\chapno}%
\global\advance \chapno by 1 \message{\putwordChapter\space \the\chapno}%
\chapmacro {#1}{\the\chapno}%
\chapmacro {#1}{\the\chapno}%
\gdef\thissection{#1}%
\gdef\thissection{#1}%
\gdef\thischaptername{#1}%
\gdef\thischaptername{#1}%
% We don't substitute the actual chapter name into \thischapter
% We don't substitute the actual chapter name into \thischapter
% because we don't want its macros evaluated now.
% because we don't want its macros evaluated now.
\xdef\thischapter{\putwordChapter{} \the\chapno: \noexpand\thischaptername}%
\xdef\thischapter{\putwordChapter{} \the\chapno: \noexpand\thischaptername}%
{\chapternofonts%
 
\toks0 = {#1}%
\toks0 = {#1}%
\edef\temp{{\realbackslash chapentry{\the\toks0}{\the\chapno}{\noexpand\folio}}}%
\edef\temp{\noexpand\writetocentry{\realbackslash chapentry{\the\toks0}%
\escapechar=`\\%
                                  {\the\chapno}}}%
\write \contentsfile \temp  %
\temp
\donoderef %
\donoderef
\global\let\section = \numberedsec
\global\let\section = \numberedsec
\global\let\subsection = \numberedsubsec
\global\let\subsection = \numberedsubsec
\global\let\subsubsection = \numberedsubsubsec
\global\let\subsubsection = \numberedsubsubsec
}}
}
 
 
\outer\def\appendix{\parsearg\appendixyyy}
\outer\def\appendix{\parsearg\appendixyyy}
\def\appendixyyy #1{\apphead0{#1}} % normally apphead0 calls appendixzzz
\def\appendixyyy #1{\apphead0{#1}} % normally apphead0 calls appendixzzz
\def\appendixzzz #1{\seccheck{appendix}%
\def\appendixzzz #1{%
\secno=0 \subsecno=0 \subsubsecno=0
\secno=0 \subsecno=0 \subsubsecno=0
\global\advance \appendixno by 1 \message{Appendix \appendixletter}%
\global\advance \appendixno by 1
 
\message{\putwordAppendix\space \appendixletter}%
\chapmacro {#1}{\putwordAppendix{} \appendixletter}%
\chapmacro {#1}{\putwordAppendix{} \appendixletter}%
\gdef\thissection{#1}%
\gdef\thissection{#1}%
\gdef\thischaptername{#1}%
\gdef\thischaptername{#1}%
\xdef\thischapter{\putwordAppendix{} \appendixletter: \noexpand\thischaptername}%
\xdef\thischapter{\putwordAppendix{} \appendixletter: \noexpand\thischaptername}%
{\chapternofonts%
 
\toks0 = {#1}%
\toks0 = {#1}%
\edef\temp{{\realbackslash chapentry{\the\toks0}%
\edef\temp{\noexpand\writetocentry{\realbackslash chapentry{\the\toks0}%
  {\putwordAppendix{} \appendixletter}{\noexpand\folio}}}%
                       {\putwordAppendix{} \appendixletter}}}%
\escapechar=`\\%
\temp
\write \contentsfile \temp  %
\appendixnoderef
\appendixnoderef %
 
\global\let\section = \appendixsec
\global\let\section = \appendixsec
\global\let\subsection = \appendixsubsec
\global\let\subsection = \appendixsubsec
\global\let\subsubsection = \appendixsubsubsec
\global\let\subsubsection = \appendixsubsubsec
}}
}
 
 
% @centerchap is like @unnumbered, but the heading is centered.
% @centerchap is like @unnumbered, but the heading is centered.
\outer\def\centerchap{\parsearg\centerchapyyy}
\outer\def\centerchap{\parsearg\centerchapyyy}
\def\centerchapyyy #1{{\let\unnumbchapmacro=\centerchapmacro \unnumberedyyy{#1}}}
\def\centerchapyyy #1{{\let\unnumbchapmacro=\centerchapmacro \unnumberedyyy{#1}}}
 
 
 
% @top is like @unnumbered.
\outer\def\top{\parsearg\unnumberedyyy}
\outer\def\top{\parsearg\unnumberedyyy}
 
 
\outer\def\unnumbered{\parsearg\unnumberedyyy}
\outer\def\unnumbered{\parsearg\unnumberedyyy}
\def\unnumberedyyy #1{\unnmhead0{#1}} % normally unnmhead0 calls unnumberedzzz
\def\unnumberedyyy #1{\unnmhead0{#1}} % normally unnmhead0 calls unnumberedzzz
\def\unnumberedzzz #1{\seccheck{unnumbered}%
\def\unnumberedzzz #1{%
\secno=0 \subsecno=0 \subsubsecno=0
\secno=0 \subsecno=0 \subsubsecno=0
%
%
% This used to be simply \message{#1}, but TeX fully expands the
% This used to be simply \message{#1}, but TeX fully expands the
% argument to \message.  Therefore, if #1 contained @-commands, TeX
% argument to \message.  Therefore, if #1 contained @-commands, TeX
% expanded them.  For example, in `@unnumbered The @cite{Book}', TeX
% expanded them.  For example, in `@unnumbered The @cite{Book}', TeX
Line 2963... Line 3068...
% to be executed, not expanded).
% to be executed, not expanded).
%
%
% Anyway, we don't want the fully-expanded definition of @cite to appear
% Anyway, we don't want the fully-expanded definition of @cite to appear
% as a result of the \message, we just want `@cite' itself.  We use
% as a result of the \message, we just want `@cite' itself.  We use
% \the<toks register> to achieve this: TeX expands \the<toks> only once,
% \the<toks register> to achieve this: TeX expands \the<toks> only once,
% simply yielding the contents of the <toks register>.
% simply yielding the contents of <toks register>.  (We also do this for
 
% the toc entries.)
\toks0 = {#1}\message{(\the\toks0)}%
\toks0 = {#1}\message{(\the\toks0)}%
%
%
\unnumbchapmacro {#1}%
\unnumbchapmacro {#1}%
\gdef\thischapter{#1}\gdef\thissection{#1}%
\gdef\thischapter{#1}\gdef\thissection{#1}%
{\chapternofonts%
 
\toks0 = {#1}%
\toks0 = {#1}%
\edef\temp{{\realbackslash unnumbchapentry{\the\toks0}{\noexpand\folio}}}%
\edef\temp{\noexpand\writetocentry{\realbackslash unnumbchapentry{\the\toks0}}}%
\escapechar=`\\%
\temp
\write \contentsfile \temp  %
\unnumbnoderef
\unnumbnoderef %
 
\global\let\section = \unnumberedsec
\global\let\section = \unnumberedsec
\global\let\subsection = \unnumberedsubsec
\global\let\subsection = \unnumberedsubsec
\global\let\subsubsection = \unnumberedsubsubsec
\global\let\subsubsection = \unnumberedsubsubsec
}}
}
 
 
 
% Sections.
\outer\def\numberedsec{\parsearg\secyyy}
\outer\def\numberedsec{\parsearg\secyyy}
\def\secyyy #1{\numhead1{#1}} % normally calls seczzz
\def\secyyy #1{\numhead1{#1}} % normally calls seczzz
\def\seczzz #1{\seccheck{section}%
\def\seczzz #1{%
\subsecno=0 \subsubsecno=0 \global\advance \secno by 1 %
\subsecno=0 \subsubsecno=0 \global\advance \secno by 1 %
\gdef\thissection{#1}\secheading {#1}{\the\chapno}{\the\secno}%
\gdef\thissection{#1}\secheading {#1}{\the\chapno}{\the\secno}%
{\chapternofonts%
 
\toks0 = {#1}%
\toks0 = {#1}%
\edef\temp{{\realbackslash secentry %
\edef\temp{\noexpand\writetocentry{\realbackslash secentry{\the\toks0}%
{\the\toks0}{\the\chapno}{\the\secno}{\noexpand\folio}}}%
                                  {\the\chapno}{\the\secno}}}%
\escapechar=`\\%
\temp
\write \contentsfile \temp %
\donoderef
\donoderef %
\nobreak
\penalty 10000 %
}
}}
 
 
 
\outer\def\appendixsection{\parsearg\appendixsecyyy}
\outer\def\appendixsection{\parsearg\appendixsecyyy}
\outer\def\appendixsec{\parsearg\appendixsecyyy}
\outer\def\appendixsec{\parsearg\appendixsecyyy}
\def\appendixsecyyy #1{\apphead1{#1}} % normally calls appendixsectionzzz
\def\appendixsecyyy #1{\apphead1{#1}} % normally calls appendixsectionzzz
\def\appendixsectionzzz #1{\seccheck{appendixsection}%
\def\appendixsectionzzz #1{%
\subsecno=0 \subsubsecno=0 \global\advance \secno by 1 %
\subsecno=0 \subsubsecno=0 \global\advance \secno by 1 %
\gdef\thissection{#1}\secheading {#1}{\appendixletter}{\the\secno}%
\gdef\thissection{#1}\secheading {#1}{\appendixletter}{\the\secno}%
{\chapternofonts%
 
\toks0 = {#1}%
\toks0 = {#1}%
\edef\temp{{\realbackslash secentry %
\edef\temp{\noexpand\writetocentry{\realbackslash secentry{\the\toks0}%
{\the\toks0}{\appendixletter}{\the\secno}{\noexpand\folio}}}%
                                  {\appendixletter}{\the\secno}}}%
\escapechar=`\\%
\temp
\write \contentsfile \temp %
\appendixnoderef
\appendixnoderef %
\nobreak
\penalty 10000 %
}
}}
 
 
 
\outer\def\unnumberedsec{\parsearg\unnumberedsecyyy}
\outer\def\unnumberedsec{\parsearg\unnumberedsecyyy}
\def\unnumberedsecyyy #1{\unnmhead1{#1}} % normally calls unnumberedseczzz
\def\unnumberedsecyyy #1{\unnmhead1{#1}} % normally calls unnumberedseczzz
\def\unnumberedseczzz #1{\seccheck{unnumberedsec}%
\def\unnumberedseczzz #1{%
\plainsecheading {#1}\gdef\thissection{#1}%
\plainsecheading {#1}\gdef\thissection{#1}%
{\chapternofonts%
 
\toks0 = {#1}%
\toks0 = {#1}%
\edef\temp{{\realbackslash unnumbsecentry{\the\toks0}{\noexpand\folio}}}%
\edef\temp{\noexpand\writetocentry{\realbackslash unnumbsecentry{\the\toks0}}}%
\escapechar=`\\%
\temp
\write \contentsfile \temp %
\unnumbnoderef
\unnumbnoderef %
\nobreak
\penalty 10000 %
}
}}
 
 
 
 
% Subsections.
\outer\def\numberedsubsec{\parsearg\numberedsubsecyyy}
\outer\def\numberedsubsec{\parsearg\numberedsubsecyyy}
\def\numberedsubsecyyy #1{\numhead2{#1}} % normally calls numberedsubseczzz
\def\numberedsubsecyyy #1{\numhead2{#1}} % normally calls numberedsubseczzz
\def\numberedsubseczzz #1{\seccheck{subsection}%
\def\numberedsubseczzz #1{%
\gdef\thissection{#1}\subsubsecno=0 \global\advance \subsecno by 1 %
\gdef\thissection{#1}\subsubsecno=0 \global\advance \subsecno by 1 %
\subsecheading {#1}{\the\chapno}{\the\secno}{\the\subsecno}%
\subsecheading {#1}{\the\chapno}{\the\secno}{\the\subsecno}%
{\chapternofonts%
 
\toks0 = {#1}%
\toks0 = {#1}%
\edef\temp{{\realbackslash subsecentry %
\edef\temp{\noexpand\writetocentry{\realbackslash subsecentry{\the\toks0}%
{\the\toks0}{\the\chapno}{\the\secno}{\the\subsecno}{\noexpand\folio}}}%
                                    {\the\chapno}{\the\secno}{\the\subsecno}}}%
\escapechar=`\\%
\temp
\write \contentsfile \temp %
\donoderef
\donoderef %
\nobreak
\penalty 10000 %
}
}}
 
 
 
\outer\def\appendixsubsec{\parsearg\appendixsubsecyyy}
\outer\def\appendixsubsec{\parsearg\appendixsubsecyyy}
\def\appendixsubsecyyy #1{\apphead2{#1}} % normally calls appendixsubseczzz
\def\appendixsubsecyyy #1{\apphead2{#1}} % normally calls appendixsubseczzz
\def\appendixsubseczzz #1{\seccheck{appendixsubsec}%
\def\appendixsubseczzz #1{%
\gdef\thissection{#1}\subsubsecno=0 \global\advance \subsecno by 1 %
\gdef\thissection{#1}\subsubsecno=0 \global\advance \subsecno by 1 %
\subsecheading {#1}{\appendixletter}{\the\secno}{\the\subsecno}%
\subsecheading {#1}{\appendixletter}{\the\secno}{\the\subsecno}%
{\chapternofonts%
 
\toks0 = {#1}%
\toks0 = {#1}%
\edef\temp{{\realbackslash subsecentry %
\edef\temp{\noexpand\writetocentry{\realbackslash subsecentry{\the\toks0}%
{\the\toks0}{\appendixletter}{\the\secno}{\the\subsecno}{\noexpand\folio}}}%
                                {\appendixletter}{\the\secno}{\the\subsecno}}}%
\escapechar=`\\%
\temp
\write \contentsfile \temp %
\appendixnoderef
\appendixnoderef %
\nobreak
\penalty 10000 %
}
}}
 
 
 
\outer\def\unnumberedsubsec{\parsearg\unnumberedsubsecyyy}
\outer\def\unnumberedsubsec{\parsearg\unnumberedsubsecyyy}
\def\unnumberedsubsecyyy #1{\unnmhead2{#1}} %normally calls unnumberedsubseczzz
\def\unnumberedsubsecyyy #1{\unnmhead2{#1}} %normally calls unnumberedsubseczzz
\def\unnumberedsubseczzz #1{\seccheck{unnumberedsubsec}%
\def\unnumberedsubseczzz #1{%
\plainsubsecheading {#1}\gdef\thissection{#1}%
\plainsubsecheading {#1}\gdef\thissection{#1}%
{\chapternofonts%
 
\toks0 = {#1}%
\toks0 = {#1}%
\edef\temp{{\realbackslash unnumbsubsecentry{\the\toks0}{\noexpand\folio}}}%
\edef\temp{\noexpand\writetocentry{\realbackslash unnumbsubsecentry%
\escapechar=`\\%
                                    {\the\toks0}}}%
\write \contentsfile \temp %
\temp
\unnumbnoderef %
\unnumbnoderef
\penalty 10000 %
\nobreak
}}
}
 
 
 
% Subsubsections.
\outer\def\numberedsubsubsec{\parsearg\numberedsubsubsecyyy}
\outer\def\numberedsubsubsec{\parsearg\numberedsubsubsecyyy}
\def\numberedsubsubsecyyy #1{\numhead3{#1}} % normally numberedsubsubseczzz
\def\numberedsubsubsecyyy #1{\numhead3{#1}} % normally numberedsubsubseczzz
\def\numberedsubsubseczzz #1{\seccheck{subsubsection}%
\def\numberedsubsubseczzz #1{%
\gdef\thissection{#1}\global\advance \subsubsecno by 1 %
\gdef\thissection{#1}\global\advance \subsubsecno by 1 %
\subsubsecheading {#1}
\subsubsecheading {#1}
  {\the\chapno}{\the\secno}{\the\subsecno}{\the\subsubsecno}%
  {\the\chapno}{\the\secno}{\the\subsecno}{\the\subsubsecno}%
{\chapternofonts%
 
\toks0 = {#1}%
\toks0 = {#1}%
\edef\temp{{\realbackslash subsubsecentry{\the\toks0}
\edef\temp{\noexpand\writetocentry{\realbackslash subsubsecentry{\the\toks0}%
  {\the\chapno}{\the\secno}{\the\subsecno}{\the\subsubsecno}
  {\the\chapno}{\the\secno}{\the\subsecno}{\the\subsubsecno}}}%
  {\noexpand\folio}}}%
\temp
\escapechar=`\\%
\donoderef
\write \contentsfile \temp %
\nobreak
\donoderef %
}
\penalty 10000 %
 
}}
 
 
 
\outer\def\appendixsubsubsec{\parsearg\appendixsubsubsecyyy}
\outer\def\appendixsubsubsec{\parsearg\appendixsubsubsecyyy}
\def\appendixsubsubsecyyy #1{\apphead3{#1}} % normally appendixsubsubseczzz
\def\appendixsubsubsecyyy #1{\apphead3{#1}} % normally appendixsubsubseczzz
\def\appendixsubsubseczzz #1{\seccheck{appendixsubsubsec}%
\def\appendixsubsubseczzz #1{%
\gdef\thissection{#1}\global\advance \subsubsecno by 1 %
\gdef\thissection{#1}\global\advance \subsubsecno by 1 %
\subsubsecheading {#1}
\subsubsecheading {#1}
  {\appendixletter}{\the\secno}{\the\subsecno}{\the\subsubsecno}%
  {\appendixletter}{\the\secno}{\the\subsecno}{\the\subsubsecno}%
{\chapternofonts%
 
\toks0 = {#1}%
\toks0 = {#1}%
\edef\temp{{\realbackslash subsubsecentry{\the\toks0}%
\edef\temp{\noexpand\writetocentry{\realbackslash subsubsecentry{\the\toks0}%
  {\appendixletter}
  {\appendixletter}{\the\secno}{\the\subsecno}{\the\subsubsecno}}}%
  {\the\secno}{\the\subsecno}{\the\subsubsecno}{\noexpand\folio}}}%
\temp
\escapechar=`\\%
\appendixnoderef
\write \contentsfile \temp %
\nobreak
\appendixnoderef %
}
\penalty 10000 %
 
}}
 
 
 
\outer\def\unnumberedsubsubsec{\parsearg\unnumberedsubsubsecyyy}
\outer\def\unnumberedsubsubsec{\parsearg\unnumberedsubsubsecyyy}
\def\unnumberedsubsubsecyyy #1{\unnmhead3{#1}} %normally unnumberedsubsubseczzz
\def\unnumberedsubsubsecyyy #1{\unnmhead3{#1}} %normally unnumberedsubsubseczzz
\def\unnumberedsubsubseczzz #1{\seccheck{unnumberedsubsubsec}%
\def\unnumberedsubsubseczzz #1{%
\plainsubsubsecheading {#1}\gdef\thissection{#1}%
\plainsubsubsecheading {#1}\gdef\thissection{#1}%
{\chapternofonts%
 
\toks0 = {#1}%
\toks0 = {#1}%
\edef\temp{{\realbackslash unnumbsubsubsecentry{\the\toks0}{\noexpand\folio}}}%
\edef\temp{\noexpand\writetocentry{\realbackslash unnumbsubsubsecentry%
\escapechar=`\\%
                                    {\the\toks0}}}%
\write \contentsfile \temp %
\temp
\unnumbnoderef %
\unnumbnoderef
\penalty 10000 %
\nobreak
}}
}
 
 
% These are variants which are not "outer", so they can appear in @ifinfo.
% These are variants which are not "outer", so they can appear in @ifinfo.
% Actually, they should now be obsolete; ordinary section commands should work.
% Actually, they should now be obsolete; ordinary section commands should work.
\def\infotop{\parsearg\unnumberedzzz}
\def\infotop{\parsearg\unnumberedzzz}
\def\infounnumbered{\parsearg\unnumberedzzz}
\def\infounnumbered{\parsearg\unnumberedzzz}
Line 3140... Line 3229...
\global\let\subsection = \numberedsubsec
\global\let\subsection = \numberedsubsec
\global\let\subsubsection = \numberedsubsubsec
\global\let\subsubsection = \numberedsubsubsec
 
 
% Define @majorheading, @heading and @subheading
% Define @majorheading, @heading and @subheading
 
 
% NOTE on use of \vbox for chapter headings, section headings, and
% NOTE on use of \vbox for chapter headings, section headings, and such:
% such:
 
%       1) We use \vbox rather than the earlier \line to permit
%       1) We use \vbox rather than the earlier \line to permit
%          overlong headings to fold.
%          overlong headings to fold.
%       2) \hyphenpenalty is set to 10000 because hyphenation in a
%       2) \hyphenpenalty is set to 10000 because hyphenation in a
%          heading is obnoxious; this forbids it.
%          heading is obnoxious; this forbids it.
%       3) Likewise, headings look best if no \parindent is used, and
%       3) Likewise, headings look best if no \parindent is used, and
Line 3188... Line 3276...
\def\chappager{\par\vfill\supereject}
\def\chappager{\par\vfill\supereject}
\def\chapoddpage{\chappager \ifodd\pageno \else \hbox to 0pt{} \chappager\fi}
\def\chapoddpage{\chappager \ifodd\pageno \else \hbox to 0pt{} \chappager\fi}
 
 
\def\setchapternewpage #1 {\csname CHAPPAG#1\endcsname}
\def\setchapternewpage #1 {\csname CHAPPAG#1\endcsname}
 
 
\def\CHAPPAGoff{
\def\CHAPPAGoff{%
\global\let\contentsalignmacro = \chappager
\global\let\contentsalignmacro = \chappager
\global\let\pchapsepmacro=\chapbreak
\global\let\pchapsepmacro=\chapbreak
\global\let\pagealignmacro=\chappager}
\global\let\pagealignmacro=\chappager}
 
 
\def\CHAPPAGon{
\def\CHAPPAGon{%
\global\let\contentsalignmacro = \chappager
\global\let\contentsalignmacro = \chappager
\global\let\pchapsepmacro=\chappager
\global\let\pchapsepmacro=\chappager
\global\let\pagealignmacro=\chappager
\global\let\pagealignmacro=\chappager
\global\def\HEADINGSon{\HEADINGSsingle}}
\global\def\HEADINGSon{\HEADINGSsingle}}
 
 
Line 3247... Line 3335...
\CHAPFplain % The default
\CHAPFplain % The default
 
 
\def\unnchfopen #1{%
\def\unnchfopen #1{%
\chapoddpage {\chapfonts \vbox{\hyphenpenalty=10000\tolerance=5000
\chapoddpage {\chapfonts \vbox{\hyphenpenalty=10000\tolerance=5000
                       \parindent=0pt\raggedright
                       \parindent=0pt\raggedright
                       \rm #1\hfill}}\bigskip \par\penalty 10000 %
                       \rm #1\hfill}}\bigskip \par\nobreak
}
}
 
 
\def\chfopen #1#2{\chapoddpage {\chapfonts
\def\chfopen #1#2{\chapoddpage {\chapfonts
\vbox to 3in{\vfil \hbox to\hsize{\hfil #2} \hbox to\hsize{\hfil #1} \vfil}}%
\vbox to 3in{\vfil \hbox to\hsize{\hfil #2} \hbox to\hsize{\hfil #1} \vfil}}%
\par\penalty 5000 %
\par\penalty 5000 %
}
}
 
 
\def\centerchfopen #1{%
\def\centerchfopen #1{%
\chapoddpage {\chapfonts \vbox{\hyphenpenalty=10000\tolerance=5000
\chapoddpage {\chapfonts \vbox{\hyphenpenalty=10000\tolerance=5000
                       \parindent=0pt
                       \parindent=0pt
                       \hfill {\rm #1}\hfill}}\bigskip \par\penalty 10000 %
                       \hfill {\rm #1}\hfill}}\bigskip \par\nobreak
}
}
 
 
\def\CHAPFopen{
\def\CHAPFopen{
\global\let\chapmacro=\chfopen
\global\let\chapmacro=\chfopen
\global\let\unnumbchapmacro=\unnchfopen
\global\let\unnumbchapmacro=\unnchfopen
Line 3311... Line 3399...
  }%
  }%
  \ifdim\parskip<10pt \nobreak\kern10pt\nobreak\kern-\parskip\fi \nobreak
  \ifdim\parskip<10pt \nobreak\kern10pt\nobreak\kern-\parskip\fi \nobreak
}
}
 
 
 
 
\message{toc printing,}
\message{toc,}
% Finish up the main text and prepare to read what we've written
\newwrite\tocfile
% to \contentsfile.
 
 
% Write an entry to the toc file, opening it if necessary.
 
% Called from @chapter, etc.  We supply {\folio} at the end of the
 
% argument, which will end up as the last argument to the \...entry macro.
 
%
 
% We open the .toc file here instead of at @setfilename or any other
 
% given time so that @contents can be put in the document anywhere.
 
%
 
\newif\iftocfileopened
 
\def\writetocentry#1{%
 
  \iftocfileopened\else
 
    \immediate\openout\tocfile = \jobname.toc
 
    \global\tocfileopenedtrue
 
  \fi
 
  \iflinks \write\tocfile{#1{\folio}}\fi
 
}
 
 
\newskip\contentsrightmargin \contentsrightmargin=1in
\newskip\contentsrightmargin \contentsrightmargin=1in
 
\newcount\savepageno
 
\newcount\lastnegativepageno \lastnegativepageno = -1
 
 
 
% Finish up the main text and prepare to read what we've written
 
% to \tocfile.
 
%
\def\startcontents#1{%
\def\startcontents#1{%
   % If @setchapternewpage on, and @headings double, the contents should
   % If @setchapternewpage on, and @headings double, the contents should
   % start on an odd page, unlike chapters.  Thus, we maintain
   % start on an odd page, unlike chapters.  Thus, we maintain
   % \contentsalignmacro in parallel with \pagealignmacro.
   % \contentsalignmacro in parallel with \pagealignmacro.
   % From: Torbjorn Granlund <tege@matematik.su.se>
   % From: Torbjorn Granlund <tege@matematik.su.se>
   \contentsalignmacro
   \contentsalignmacro
   \immediate\closeout \contentsfile
   \immediate\closeout\tocfile
   \ifnum \pageno>0
   %
      \pageno = -1              % Request roman numbered pages.
 
   \fi
 
   % Don't need to put `Contents' or `Short Contents' in the headline.
   % Don't need to put `Contents' or `Short Contents' in the headline.
   % It is abundantly clear what they are.
   % It is abundantly clear what they are.
   \unnumbchapmacro{#1}\def\thischapter{}%
   \unnumbchapmacro{#1}\def\thischapter{}%
 
   \savepageno = \pageno
   \begingroup                  % Set up to handle contents files properly.
   \begingroup                  % Set up to handle contents files properly.
      \catcode`\\=0  \catcode`\{=1  \catcode`\}=2  \catcode`\@=11
      \catcode`\\=0  \catcode`\{=1  \catcode`\}=2  \catcode`\@=11
      % We can't do this, because then an actual ^ in a section
      % We can't do this, because then an actual ^ in a section
      % title fails, e.g., @chapter ^ -- exponentiation.  --karl, 9jul97.
      % title fails, e.g., @chapter ^ -- exponentiation.  --karl, 9jul97.
      %\catcode`\^=7 % to see ^^e4 as \"a etc. juha@piuha.ydi.vtt.fi
      %\catcode`\^=7 % to see ^^e4 as \"a etc. juha@piuha.ydi.vtt.fi
      \raggedbottom             % Worry more about breakpoints than the bottom.
      \raggedbottom             % Worry more about breakpoints than the bottom.
      \advance\hsize by -\contentsrightmargin % Don't use the full line length.
      \advance\hsize by -\contentsrightmargin % Don't use the full line length.
 
      %
 
      % Roman numerals for page numbers.
 
      \ifnum \pageno>0 \pageno = \lastnegativepageno \fi
}
}
 
 
 
 
% Normal (long) toc.
% Normal (long) toc.
\outer\def\contents{%
\def\contents{%
   \startcontents{\putwordTableofContents}%
   \startcontents{\putwordTableofContents}%
 
     \openin 1 \jobname.toc
 
     \ifeof 1 \else
 
       \closein 1
      \input \jobname.toc
      \input \jobname.toc
   \endgroup
     \fi
   \vfill \eject
   \vfill \eject
 
   \endgroup
 
   \lastnegativepageno = \pageno
 
   \pageno = \savepageno
}
}
 
 
% And just the chapters.
% And just the chapters.
\outer\def\summarycontents{%
\def\summarycontents{%
   \startcontents{\putwordShortContents}%
   \startcontents{\putwordShortContents}%
      %
      %
      \let\chapentry = \shortchapentry
      \let\chapentry = \shortchapentry
      \let\unnumbchapentry = \shortunnumberedentry
      \let\unnumbchapentry = \shortunnumberedentry
      % We want a true roman here for the page numbers.
      % We want a true roman here for the page numbers.
Line 3365... Line 3482...
      \def\unnumbsecentry ##1##2{}
      \def\unnumbsecentry ##1##2{}
      \def\subsecentry ##1##2##3##4##5{}
      \def\subsecentry ##1##2##3##4##5{}
      \def\unnumbsubsecentry ##1##2{}
      \def\unnumbsubsecentry ##1##2{}
      \def\subsubsecentry ##1##2##3##4##5##6{}
      \def\subsubsecentry ##1##2##3##4##5##6{}
      \def\unnumbsubsubsecentry ##1##2{}
      \def\unnumbsubsubsecentry ##1##2{}
 
      \openin 1 \jobname.toc
 
      \ifeof 1 \else
 
        \closein 1
      \input \jobname.toc
      \input \jobname.toc
   \endgroup
      \fi
   \vfill \eject
   \vfill \eject
 
   \endgroup
 
   \lastnegativepageno = \pageno
 
   \pageno = \savepageno
}
}
\let\shortcontents = \summarycontents
\let\shortcontents = \summarycontents
 
 
% These macros generate individual entries in the table of contents.
% These macros generate individual entries in the table of contents.
% The first argument is the chapter or section name.
% The first argument is the chapter or section name.
Line 3551... Line 3674...
  \let\dots=\ptexdots
  \let\dots=\ptexdots
  \let\equiv=\ptexequiv
  \let\equiv=\ptexequiv
  \let\!=\ptexexclam
  \let\!=\ptexexclam
  \let\i=\ptexi
  \let\i=\ptexi
  \let\{=\ptexlbrace
  \let\{=\ptexlbrace
 
  \let\+=\tabalign
  \let\}=\ptexrbrace
  \let\}=\ptexrbrace
  \let\*=\ptexstar
  \let\*=\ptexstar
  \let\t=\ptext
  \let\t=\ptext
  %
  %
  \def\endldots{\mathinner{\ldots\ldots\ldots\ldots}}%
  \def\endldots{\mathinner{\ldots\ldots\ldots\ldots}}%
Line 3602... Line 3726...
\let\afterenvbreak = \aboveenvbreak
\let\afterenvbreak = \aboveenvbreak
 
 
% \nonarrowing is a flag.  If "set", @lisp etc don't narrow margins.
% \nonarrowing is a flag.  If "set", @lisp etc don't narrow margins.
\let\nonarrowing=\relax
\let\nonarrowing=\relax
 
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% @cartouche ... @end cartouche: draw rectangle w/rounded corners around
% \cartouche: draw rectangle w/rounded corners around argument
% environment contents.
\font\circle=lcircle10
\font\circle=lcircle10
\newdimen\circthick
\newdimen\circthick
\newdimen\cartouter\newdimen\cartinner
\newdimen\cartouter\newdimen\cartinner
\newskip\normbskip\newskip\normpskip\newskip\normlskip
\newskip\normbskip\newskip\normpskip\newskip\normlskip
\circthick=\fontdimen8\circle
\circthick=\fontdimen8\circle
Line 3630... Line 3754...
        \lskip=\leftskip \rskip=\rightskip
        \lskip=\leftskip \rskip=\rightskip
        \leftskip=0pt\rightskip=0pt %we want these *outside*.
        \leftskip=0pt\rightskip=0pt %we want these *outside*.
        \cartinner=\hsize \advance\cartinner by-\lskip
        \cartinner=\hsize \advance\cartinner by-\lskip
                          \advance\cartinner by-\rskip
                          \advance\cartinner by-\rskip
        \cartouter=\hsize
        \cartouter=\hsize
        \advance\cartouter by 18pt % allow for 3pt kerns on either
        \advance\cartouter by 18.4pt % allow for 3pt kerns on either
%                                    side, and for 6pt waste from
%                                    side, and for 6pt waste from
%                                    each corner char
%                                    each corner char, and rule thickness
        \normbskip=\baselineskip \normpskip=\parskip \normlskip=\lineskip
        \normbskip=\baselineskip \normpskip=\parskip \normlskip=\lineskip
        % Flag to tell @lisp, etc., not to narrow margin.
        % Flag to tell @lisp, etc., not to narrow margin.
        \let\nonarrowing=\comment
        \let\nonarrowing=\comment
        \vbox\bgroup
        \vbox\bgroup
                \baselineskip=0pt\parskip=0pt\lineskip=0pt
                \baselineskip=0pt\parskip=0pt\lineskip=0pt
Line 3686... Line 3810...
    \let\exdent=\nofillexdent
    \let\exdent=\nofillexdent
    \let\nonarrowing=\relax
    \let\nonarrowing=\relax
  \fi
  \fi
}
}
 
 
% To ending an @example-like environment, we first end the paragraph
% Define the \E... control sequence only if we are inside the particular
% (via \afterenvbreak's vertical glue), and then the group.  That way we
% environment, so the error checking in \end will work.
% keep the zero \parskip that the environments set -- \parskip glue
%
% will be inserted at the beginning of the next paragraph in the
% To end an @example-like environment, we first end the paragraph (via
% document, after the environment.
% \afterenvbreak's vertical glue), and then the group.  That way we keep
 
% the zero \parskip that the environments set -- \parskip glue will be
 
% inserted at the beginning of the next paragraph in the document, after
 
% the environment.
%
%
\def\nonfillfinish{\afterenvbreak\endgroup}%
\def\nonfillfinish{\afterenvbreak\endgroup}
 
 
 
% @lisp: indented, narrowed, typewriter font.
\def\lisp{\begingroup
\def\lisp{\begingroup
  \nonfillstart
  \nonfillstart
  \let\Elisp = \nonfillfinish
  \let\Elisp = \nonfillfinish
  \tt
  \tt
  % Make @kbd do something special, if requested.
  \let\kbdfont = \kbdexamplefont % Allow @kbd to do something special.
  \let\kbdfont\kbdexamplefont
  \gobble       % eat return
  \rawbackslash % have \ input char produce \ char from current font
 
  \gobble
 
}
}
 
 
% Define the \E... control sequence only if we are inside the
% @example: Same as @lisp.
% environment, so the error checking in \end will work.
\def\example{\begingroup \def\Eexample{\nonfillfinish\endgroup}\lisp}
 
 
 
% @small... is usually equivalent to the non-small (@smallbook
 
% redefines).  We must call \example (or whatever) last in the
 
% definition, since it reads the return following the @example (or
 
% whatever) command.
%
%
% We must call \lisp last in the definition, since it reads the
% This actually allows (for example) @end display inside an
% return following the @example (or whatever) command.
% @smalldisplay.  Too bad, but makeinfo will catch the error anyway.
%
%
\def\example{\begingroup \def\Eexample{\nonfillfinish\endgroup}\lisp}
\def\smalldisplay{\begingroup\def\Esmalldisplay{\nonfillfinish\endgroup}\display}
\def\smallexample{\begingroup \def\Esmallexample{\nonfillfinish\endgroup}\lisp}
\def\smallexample{\begingroup \def\Esmallexample{\nonfillfinish\endgroup}\lisp}
 
\def\smallformat{\begingroup\def\Esmallformat{\nonfillfinish\endgroup}\format}
\def\smalllisp{\begingroup \def\Esmalllisp{\nonfillfinish\endgroup}\lisp}
\def\smalllisp{\begingroup \def\Esmalllisp{\nonfillfinish\endgroup}\lisp}
 
 
% @smallexample and @smalllisp.  This is not used unless the @smallbook
% Real @smallexample and @smalllisp (when @smallbook): use smaller fonts.
% command is given.  Originally contributed by Pavel@xerox.
% Originally contributed by Pavel@xerox.
%
 
\def\smalllispx{\begingroup
\def\smalllispx{\begingroup
  \nonfillstart
  \def\Esmalllisp{\nonfillfinish\endgroup}%
  \let\Esmalllisp = \nonfillfinish
  \def\Esmallexample{\nonfillfinish\endgroup}%
  \let\Esmallexample = \nonfillfinish
  \indexfonts
  %
  \lisp
  % Smaller fonts for small examples.
 
  \indexfonts \tt
 
  \rawbackslash % make \ output the \ character from the current font (tt)
 
  \gobble
 
}
}
 
 
% This is @display; same as @lisp except use roman font.
% @display: same as @lisp except keep current font.
%
%
\def\display{\begingroup
\def\display{\begingroup
  \nonfillstart
  \nonfillstart
  \let\Edisplay = \nonfillfinish
  \let\Edisplay = \nonfillfinish
  \gobble
  \gobble
}
}
 
 
% This is @format; same as @display except don't narrow margins.
% @smalldisplay (when @smallbook): @display plus smaller fonts.
 
%
 
\def\smalldisplayx{\begingroup
 
  \def\Esmalldisplay{\nonfillfinish\endgroup}%
 
  \indexfonts \rm
 
  \display
 
}
 
 
 
% @format: same as @display except don't narrow margins.
%
%
\def\format{\begingroup
\def\format{\begingroup
  \let\nonarrowing = t
  \let\nonarrowing = t
  \nonfillstart
  \nonfillstart
  \let\Eformat = \nonfillfinish
  \let\Eformat = \nonfillfinish
  \gobble
  \gobble
}
}
 
 
% @flushleft (same as @format) and @flushright.
% @smallformat (when @smallbook): @format plus smaller fonts.
%
%
\def\flushleft{\begingroup
\def\smallformatx{\begingroup
  \let\nonarrowing = t
  \def\Esmallformat{\nonfillfinish\endgroup}%
  \nonfillstart
  \indexfonts \rm
  \let\Eflushleft = \nonfillfinish
  \format
  \gobble
 
}
}
 
 
 
% @flushleft (same as @format).
 
%
 
\def\flushleft{\begingroup \def\Eflushleft{\nonfillfinish\endgroup}\format}
 
 
 
% @flushright.
 
%
\def\flushright{\begingroup
\def\flushright{\begingroup
  \let\nonarrowing = t
  \let\nonarrowing = t
  \nonfillstart
  \nonfillstart
  \let\Eflushright = \nonfillfinish
  \let\Eflushright = \nonfillfinish
  \advance\leftskip by 0pt plus 1fill
  \advance\leftskip by 0pt plus 1fill
  \gobble}
  \gobble
 
}
 
 
% @quotation does normal linebreaking (hence we can't use \nonfillstart)
% @quotation does normal linebreaking (hence we can't use \nonfillstart)
% and narrows the margins.
% and narrows the margins.
%
%
\def\quotation{%
\def\quotation{%
Line 3781... Line 3923...
    \exdentamount = \lispnarrowing
    \exdentamount = \lispnarrowing
    \let\nonarrowing = \relax
    \let\nonarrowing = \relax
  \fi
  \fi
}
}
 
 
 
 
\message{defuns,}
\message{defuns,}
% Define formatter for defuns
% Define formatter for defuns
% First, allow user to change definition object font (\df) internally
% First, allow user to change definition object font (\df) internally
\def\setdeffont #1 {\csname DEF#1\endcsname}
\def\setdeffont #1 {\csname DEF#1\endcsname}
 
 
Line 3850... Line 3993...
\def\defname #1#2{%
\def\defname #1#2{%
% Get the values of \leftskip and \rightskip as they were
% Get the values of \leftskip and \rightskip as they were
% outside the @def...
% outside the @def...
\dimen2=\leftskip
\dimen2=\leftskip
\advance\dimen2 by -\defbodyindent
\advance\dimen2 by -\defbodyindent
\dimen3=\rightskip
\noindent
\advance\dimen3 by -\defbodyindent
 
\noindent        %
 
\setbox0=\hbox{\hskip \deflastargmargin{\rm #2}\hskip \deftypemargin}%
\setbox0=\hbox{\hskip \deflastargmargin{\rm #2}\hskip \deftypemargin}%
\dimen0=\hsize \advance \dimen0 by -\wd0 % compute size for first line
\dimen0=\hsize \advance \dimen0 by -\wd0 % compute size for first line
\dimen1=\hsize \advance \dimen1 by -\defargsindent %size for continuations
\dimen1=\hsize \advance \dimen1 by -\defargsindent %size for continuations
\parshape 2 0in \dimen0 \defargsindent \dimen1     %
\parshape 2 0in \dimen0 \defargsindent \dimen1
% Now output arg 2 ("Function" or some such)
% Now output arg 2 ("Function" or some such)
% ending at \deftypemargin from the right margin,
% ending at \deftypemargin from the right margin,
% but stuck inside a box of width 0 so it does not interfere with linebreaking
% but stuck inside a box of width 0 so it does not interfere with linebreaking
{% Adjust \hsize to exclude the ambient margins,
{% Adjust \hsize to exclude the ambient margins,
% so that \rightline will obey them.
% so that \rightline will obey them.
\advance \hsize by -\dimen2 \advance \hsize by -\dimen3
\advance \hsize by -\dimen2
\rlap{\rightline{{\rm #2}\hskip \deftypemargin}}}%
\rlap{\rightline{{\rm #2}\hskip -1.25pc }}}%
% Make all lines underfull and no complaints:
% Make all lines underfull and no complaints:
\tolerance=10000 \hbadness=10000
\tolerance=10000 \hbadness=10000
\advance\leftskip by -\defbodyindent
\advance\leftskip by -\defbodyindent
\exdentamount=\defbodyindent
\exdentamount=\defbodyindent
{\df #1}\enskip        % Generate function name
{\df #1}\enskip        % Generate function name
Line 3884... Line 4025...
% Define the end token that this defining construct specifies
% Define the end token that this defining construct specifies
% so that it will exit this group.
% so that it will exit this group.
\def#1{\endgraf\endgroup\medbreak}%
\def#1{\endgraf\endgroup\medbreak}%
\def#2{\begingroup\obeylines\activeparens\spacesplit#3}%
\def#2{\begingroup\obeylines\activeparens\spacesplit#3}%
\parindent=0in
\parindent=0in
\advance\leftskip by \defbodyindent \advance \rightskip by \defbodyindent
\advance\leftskip by \defbodyindent
\exdentamount=\defbodyindent
\exdentamount=\defbodyindent
\begingroup %
\begingroup %
\catcode 61=\active % 61 is `='
\catcode 61=\active % 61 is `='
\obeylines\activeparens\spacesplit#3}
\obeylines\activeparens\spacesplit#3}
 
 
 
% #1 is the \E... control sequence to end the definition (which we define).
 
% #2 is the \...x control sequence for consecutive fns (which we define).
 
% #3 is the control sequence to call to resume processing.
 
% #4, delimited by the space, is the class name.
 
%
\def\defmethparsebody #1#2#3#4 {\begingroup\inENV %
\def\defmethparsebody #1#2#3#4 {\begingroup\inENV %
\medbreak %
\medbreak %
% Define the end token that this defining construct specifies
% Define the end token that this defining construct specifies
% so that it will exit this group.
% so that it will exit this group.
\def#1{\endgraf\endgroup\medbreak}%
\def#1{\endgraf\endgroup\medbreak}%
\def#2##1 {\begingroup\obeylines\activeparens\spacesplit{#3{##1}}}%
\def#2##1 {\begingroup\obeylines\activeparens\spacesplit{#3{##1}}}%
\parindent=0in
\parindent=0in
\advance\leftskip by \defbodyindent \advance \rightskip by \defbodyindent
\advance\leftskip by \defbodyindent
\exdentamount=\defbodyindent
\exdentamount=\defbodyindent
\begingroup\obeylines\activeparens\spacesplit{#3{#4}}}
\begingroup\obeylines\activeparens\spacesplit{#3{#4}}}
 
 
 
% @deftypemethod has an extra argument that nothing else does.  Sigh.
 
% #1 is the \E... control sequence to end the definition (which we define).
 
% #2 is the \...x control sequence for consecutive fns (which we define).
 
% #3 is the control sequence to call to resume processing.
 
% #4, delimited by the space, is the class name.
 
% #5 is the method's return type.
 
%
 
\def\deftypemethparsebody#1#2#3#4 #5 {\begingroup\inENV %
 
\medbreak %
 
% Define the end token that this defining construct specifies
 
% so that it will exit this group.
 
\def#1{\endgraf\endgroup\medbreak}%
 
\def#2##1 ##2 {\begingroup\obeylines\activeparens\spacesplit{#3{##1}{##2}}}%
 
\parindent=0in
 
\advance\leftskip by \defbodyindent
 
\exdentamount=\defbodyindent
 
\begingroup\obeylines\activeparens\spacesplit{#3{#4}{#5}}}
 
 
\def\defopparsebody #1#2#3#4#5 {\begingroup\inENV %
\def\defopparsebody #1#2#3#4#5 {\begingroup\inENV %
\medbreak %
\medbreak %
% Define the end token that this defining construct specifies
% Define the end token that this defining construct specifies
% so that it will exit this group.
% so that it will exit this group.
\def#1{\endgraf\endgroup\medbreak}%
\def#1{\endgraf\endgroup\medbreak}%
\def#2##1 ##2 {\def#4{##1}%
\def#2##1 ##2 {\def#4{##1}%
\begingroup\obeylines\activeparens\spacesplit{#3{##2}}}%
\begingroup\obeylines\activeparens\spacesplit{#3{##2}}}%
\parindent=0in
\parindent=0in
\advance\leftskip by \defbodyindent \advance \rightskip by \defbodyindent
\advance\leftskip by \defbodyindent
\exdentamount=\defbodyindent
\exdentamount=\defbodyindent
\begingroup\obeylines\activeparens\spacesplit{#3{#5}}}
\begingroup\obeylines\activeparens\spacesplit{#3{#5}}}
 
 
% These parsing functions are similar to the preceding ones
% These parsing functions are similar to the preceding ones
% except that they do not make parens into active characters.
% except that they do not make parens into active characters.
Line 3924... Line 4088...
% Define the end token that this defining construct specifies
% Define the end token that this defining construct specifies
% so that it will exit this group.
% so that it will exit this group.
\def#1{\endgraf\endgroup\medbreak}%
\def#1{\endgraf\endgroup\medbreak}%
\def#2{\begingroup\obeylines\spacesplit#3}%
\def#2{\begingroup\obeylines\spacesplit#3}%
\parindent=0in
\parindent=0in
\advance\leftskip by \defbodyindent \advance \rightskip by \defbodyindent
\advance\leftskip by \defbodyindent
\exdentamount=\defbodyindent
\exdentamount=\defbodyindent
\begingroup %
\begingroup %
\catcode 61=\active %
\catcode 61=\active %
\obeylines\spacesplit#3}
\obeylines\spacesplit#3}
 
 
Line 3941... Line 4105...
  % Define the end token that this defining construct specifies
  % Define the end token that this defining construct specifies
  % so that it will exit this group.
  % so that it will exit this group.
  \def#1{\endgraf\endgroup\medbreak}%
  \def#1{\endgraf\endgroup\medbreak}%
  \def#2##1 {\begingroup\obeylines\spacesplit{#3{##1}}}%
  \def#2##1 {\begingroup\obeylines\spacesplit{#3{##1}}}%
  \parindent=0in
  \parindent=0in
  \advance\leftskip by \defbodyindent \advance \rightskip by \defbodyindent
  \advance\leftskip by \defbodyindent
  \exdentamount=\defbodyindent
  \exdentamount=\defbodyindent
  \begingroup\obeylines
  \begingroup\obeylines
}
}
 
 
\def\defvrparsebody#1#2#3#4 {%
\def\defvrparsebody#1#2#3#4 {%
Line 3986... Line 4150...
% so that it will exit this group.
% so that it will exit this group.
\def#1{\endgraf\endgroup\medbreak}%
\def#1{\endgraf\endgroup\medbreak}%
\def#2##1 ##2 {\def#4{##1}%
\def#2##1 ##2 {\def#4{##1}%
\begingroup\obeylines\spacesplit{#3{##2}}}%
\begingroup\obeylines\spacesplit{#3{##2}}}%
\parindent=0in
\parindent=0in
\advance\leftskip by \defbodyindent \advance \rightskip by \defbodyindent
\advance\leftskip by \defbodyindent
\exdentamount=\defbodyindent
\exdentamount=\defbodyindent
\begingroup\obeylines\spacesplit{#3{#5}}}
\begingroup\obeylines\spacesplit{#3{#5}}}
 
 
% Split up #2 at the first space token.
% Split up #2 at the first space token.
% call #1 with two arguments:
% call #1 with two arguments:
Line 4019... Line 4183...
#1%
#1%
\hyphenchar\tensl=45
\hyphenchar\tensl=45
\ifnum\parencount=0 \else \errmessage{Unbalanced parentheses in @def}\fi%
\ifnum\parencount=0 \else \errmessage{Unbalanced parentheses in @def}\fi%
\interlinepenalty=10000
\interlinepenalty=10000
\advance\rightskip by 0pt plus 1fil
\advance\rightskip by 0pt plus 1fil
\endgraf\penalty 10000\vskip -\parskip\penalty 10000%
\endgraf\nobreak\vskip -\parskip\nobreak
}
}
 
 
\def\deftypefunargs #1{%
\def\deftypefunargs #1{%
% Expand, preventing hyphenation at `-' chars.
% Expand, preventing hyphenation at `-' chars.
% Note that groups don't affect changes in \hyphenchar.
% Note that groups don't affect changes in \hyphenchar.
% Use \boldbraxnoamp, not \functionparens, so that & is not special.
% Use \boldbraxnoamp, not \functionparens, so that & is not special.
\boldbraxnoamp
\boldbraxnoamp
\tclose{#1}% avoid \code because of side effects on active chars
\tclose{#1}% avoid \code because of side effects on active chars
\interlinepenalty=10000
\interlinepenalty=10000
\advance\rightskip by 0pt plus 1fil
\advance\rightskip by 0pt plus 1fil
\endgraf\penalty 10000\vskip -\parskip\penalty 10000%
\endgraf\nobreak\vskip -\parskip\nobreak
}
}
 
 
% Do complete processing of one @defun or @defunx line already parsed.
% Do complete processing of one @defun or @defunx line already parsed.
 
 
% @deffn Command forward-char nchars
% @deffn Command forward-char nchars
Line 4118... Line 4282...
\def\defunx #1 {\errmessage{@defunx in invalid context}}
\def\defunx #1 {\errmessage{@defunx in invalid context}}
\def\defmacx #1 {\errmessage{@defmacx in invalid context}}
\def\defmacx #1 {\errmessage{@defmacx in invalid context}}
\def\defspecx #1 {\errmessage{@defspecx in invalid context}}
\def\defspecx #1 {\errmessage{@defspecx in invalid context}}
\def\deftypefnx #1 {\errmessage{@deftypefnx in invalid context}}
\def\deftypefnx #1 {\errmessage{@deftypefnx in invalid context}}
\def\deftypemethodx #1 {\errmessage{@deftypemethodx in invalid context}}
\def\deftypemethodx #1 {\errmessage{@deftypemethodx in invalid context}}
\def\deftypeunx #1 {\errmessage{@deftypeunx in invalid context}}
\def\deftypefunx #1 {\errmessage{@deftypefunx in invalid context}}
 
 
% @defmethod, and so on
% @defmethod, and so on
 
 
% @defop {Funny Method} foo-class frobnicate argument
% @defop CATEGORY CLASS OPERATION ARG...
 
 
\def\defop #1 {\def\defoptype{#1}%
\def\defop #1 {\def\defoptype{#1}%
\defopparsebody\Edefop\defopx\defopheader\defoptype}
\defopparsebody\Edefop\defopx\defopheader\defoptype}
 
 
\def\defopheader #1#2#3{%
\def\defopheader #1#2#3{%
\dosubind {fn}{\code{#2}}{on #1}% Make entry in function index
\dosubind {fn}{\code{#2}}{\putwordon\ #1}% Make entry in function index
\begingroup\defname {#2}{\defoptype{} on #1}%
\begingroup\defname {#2}{\defoptype{} on #1}%
\defunargs {#3}\endgroup %
\defunargs {#3}\endgroup %
}
}
 
 
% @deftypemethod foo-class return-type foo-method args
% @deftypemethod CLASS RETURN-TYPE METHOD ARG...
%
%
\def\deftypemethod{%
\def\deftypemethod{%
  \defmethparsebody\Edeftypemethod\deftypemethodx\deftypemethodheader}
  \deftypemethparsebody\Edeftypemethod\deftypemethodx\deftypemethodheader}
%
%
% #1 is the class name, #2 the data type, #3 the method name, #4 the args.
% #1 is the class name, #2 the data type, #3 the method name, #4 the args.
\def\deftypemethodheader#1#2#3#4{%
\def\deftypemethodheader#1#2#3#4{%
  \deftypefnheaderx{Method on #1}{#2}#3 #4\relax
  \dosubind{fn}{\code{#3}}{\putwordon\ \code{#1}}% entry in function index
 
  \begingroup
 
    \defname{\defheaderxcond#2\relax$$$#3}{\putwordMethodon\ \code{#1}}%
 
    \deftypefunargs{#4}%
 
  \endgroup
}
}
 
 
% @defmethod == @defop Method
% @defmethod == @defop Method
 
%
\def\defmethod{\defmethparsebody\Edefmethod\defmethodx\defmethodheader}
\def\defmethod{\defmethparsebody\Edefmethod\defmethodx\defmethodheader}
 
%
 
% #1 is the class name, #2 the method name, #3 the args.
\def\defmethodheader #1#2#3{%
\def\defmethodheader #1#2#3{%
\dosubind {fn}{\code{#2}}{on #1}% entry in function index
  \dosubind{fn}{\code{#2}}{\putwordon\ \code{#1}}% entry in function index
\begingroup\defname {#2}{Method on #1}%
  \begingroup
\defunargs {#3}\endgroup %
    \defname{#2}{\putwordMethodon\ \code{#1}}%
 
    \defunargs{#3}%
 
  \endgroup
}
}
 
 
% @defcv {Class Option} foo-class foo-flag
% @defcv {Class Option} foo-class foo-flag
 
 
\def\defcv #1 {\def\defcvtype{#1}%
\def\defcv #1 {\def\defcvtype{#1}%
Line 4189... Line 4360...
% First, define the processing that is wanted for arguments of @defvar.
% First, define the processing that is wanted for arguments of @defvar.
% This is actually simple: just print them in roman.
% This is actually simple: just print them in roman.
% This must expand the args and terminate the paragraph they make up
% This must expand the args and terminate the paragraph they make up
\def\defvarargs #1{\normalparens #1%
\def\defvarargs #1{\normalparens #1%
\interlinepenalty=10000
\interlinepenalty=10000
\endgraf\penalty 10000\vskip -\parskip\penalty 10000}
\endgraf\nobreak\vskip -\parskip\nobreak}
 
 
% @defvr Counter foo-count
% @defvr Counter foo-count
 
 
\def\defvr{\defvrparsebody\Edefvr\defvrx\defvrheader}
\def\defvr{\defvrparsebody\Edefvr\defvrx\defvrheader}
 
 
Line 4226... Line 4397...
% is actually part of the data type, which should not be put into the index.
% is actually part of the data type, which should not be put into the index.
\def\deftypevarheader #1#2{%
\def\deftypevarheader #1#2{%
\dovarind#2 \relax% Make entry in variables index
\dovarind#2 \relax% Make entry in variables index
\begingroup\defname {\defheaderxcond#1\relax$$$#2}{Variable}%
\begingroup\defname {\defheaderxcond#1\relax$$$#2}{Variable}%
\interlinepenalty=10000
\interlinepenalty=10000
\endgraf\penalty 10000\vskip -\parskip\penalty 10000
\endgraf\nobreak\vskip -\parskip\nobreak
\endgroup}
\endgroup}
\def\dovarind#1 #2\relax{\doind{vr}{\code{#1}}}
\def\dovarind#1 #2\relax{\doind{vr}{\code{#1}}}
 
 
% @deftypevr {Global Flag} int enable
% @deftypevr {Global Flag} int enable
 
 
\def\deftypevr{\defvrparsebody\Edeftypevr\deftypevrx\deftypevrheader}
\def\deftypevr{\defvrparsebody\Edeftypevr\deftypevrx\deftypevrheader}
 
 
\def\deftypevrheader #1#2#3{\dovarind#3 \relax%
\def\deftypevrheader #1#2#3{\dovarind#3 \relax%
\begingroup\defname {\defheaderxcond#2\relax$$$#3}{#1}
\begingroup\defname {\defheaderxcond#2\relax$$$#3}{#1}
\interlinepenalty=10000
\interlinepenalty=10000
\endgraf\penalty 10000\vskip -\parskip\penalty 10000
\endgraf\nobreak\vskip -\parskip\nobreak
\endgroup}
\endgroup}
 
 
% This definition is run if you use @defvarx
% This definition is run if you use @defvarx
% anywhere other than immediately after a @defvar or @defvarx.
% anywhere other than immediately after a @defvar or @defvarx.
 
 
Line 4267... Line 4438...
% anywhere other than immediately after a @deftp, etc.
% anywhere other than immediately after a @deftp, etc.
 
 
\def\deftpx #1 {\errmessage{@deftpx in invalid context}}
\def\deftpx #1 {\errmessage{@deftpx in invalid context}}
 
 
 
 
\message{cross reference,}
\message{macros,}
% Define cross-reference macros
% @macro.
 
 
 
% To do this right we need a feature of e-TeX, \scantokens,
 
% which we arrange to emulate with a temporary file in ordinary TeX.
 
\ifx\eTeXversion\undefined
 
 \newwrite\macscribble
 
 \def\scanmacro#1{%
 
   \begingroup \newlinechar`\^^M
 
   \immediate\openout\macscribble=\jobname.tmp
 
   \immediate\write\macscribble{#1}%
 
   \immediate\closeout\macscribble
 
   \let\xeatspaces\eatspaces
 
   \input \jobname.tmp
 
   \endgroup
 
}
 
\else
 
\def\scanmacro#1{%
 
\begingroup \newlinechar`\^^M
 
\let\xeatspaces\eatspaces\scantokens{#1}\endgroup}
 
\fi
 
 
 
\newcount\paramno   % Count of parameters
 
\newtoks\macname    % Macro name
 
\newif\ifrecursive  % Is it recursive?
 
 
 
% Utility routines.
 
% Thisdoes \let #1 = #2, except with \csnames.
 
\def\cslet#1#2{%
 
\expandafter\expandafter
 
\expandafter\let
 
\expandafter\expandafter
 
\csname#1\endcsname
 
\csname#2\endcsname}
 
 
 
% Trim leading and trailing spaces off a string.
 
% Concepts from aro-bend problem 15 (see CTAN).
 
{\catcode`\@=11
 
\gdef\eatspaces #1{\expandafter\trim@\expandafter{#1 }}
 
\gdef\trim@ #1{\trim@@ @#1 @ #1 @ @@}
 
\gdef\trim@@ #1@ #2@ #3@@{\trim@@@\empty #2 @}
 
\def\unbrace#1{#1}
 
\unbrace{\gdef\trim@@@ #1 } #2@{#1}
 
}
 
 
 
% Trim a single trailing ^^M off a string.
 
{\catcode`\^^M=12\catcode`\Q=3%
 
\gdef\eatcr #1{\eatcra #1Q^^MQ}%
 
\gdef\eatcra#1^^MQ{\eatcrb#1Q}%
 
\gdef\eatcrb#1Q#2Q{#1}%
 
}
 
 
 
% Macro bodies are absorbed as an argument in a context where
 
% all characters are catcode 10, 11 or 12, except \ which is active
 
% (as in normal texinfo). It is necessary to change the definition of \.
 
 
 
% It's necessary to have hard CRs when the macro is executed. This is
 
% done by  making ^^M (\endlinechar) catcode 12 when reading the macro
 
% body, and then making it the \newlinechar in \scanmacro.
 
 
 
\def\macrobodyctxt{%
 
  \catcode`\~=12
 
  \catcode`\^=12
 
  \catcode`\_=12
 
  \catcode`\|=12
 
  \catcode`\<=12
 
  \catcode`\>=12
 
  \catcode`\+=12
 
  \catcode`\{=12
 
  \catcode`\}=12
 
  \catcode`\@=12
 
  \catcode`\^^M=12
 
  \usembodybackslash}
 
 
 
% \mbodybackslash is the definition of \ in @macro bodies.
 
% It maps \foo\ => \csname macarg.foo\endcsname => #N
 
% where N is the macro parameter number.
 
% We define \csname macarg.\endcsname to be \realbackslash, so
 
% \\ in macro replacement text gets you a backslash.
 
 
 
{\catcode`@=0 @catcode`@\=@active
 
 @gdef@usembodybackslash{@let\=@mbodybackslash}
 
 @gdef@mbodybackslash#1\{@csname macarg.#1@endcsname}
 
}
 
\expandafter\def\csname macarg.\endcsname{\realbackslash}
 
 
 
\def\macro{\recursivefalse\parsearg\macroxxx}
 
\def\rmacro{\recursivetrue\parsearg\macroxxx}
 
 
 
\def\macroxxx#1{%
 
  \getargs{#1}%           now \macname is the macname and \argl the arglist
 
  \ifx\argl\empty       % no arguments
 
     \paramno=0%
 
  \else
 
     \expandafter\parsemargdef \argl;%
 
  \fi
 
  \expandafter\ifx \csname macsave.\the\macname\endcsname \relax
 
     \cslet{macsave.\the\macname}{\the\macname}%
 
  \else
 
     \message{Warning: redefining \the\macname}%
 
  \fi
 
  \begingroup \macrobodyctxt
 
  \ifrecursive \expandafter\parsermacbody
 
  \else \expandafter\parsemacbody
 
  \fi}
 
 
 
\def\unmacro{\parsearg\unmacroxxx}
 
\def\unmacroxxx#1{%
 
  \expandafter\ifx \csname macsave.\the\macname\endcsname \relax
 
    \errmessage{Macro \the\macname\ not defined.}%
 
  \else
 
    \cslet{#1}{macsave.#1}%
 
    \expandafter\let \csname macsave.\the\macname\endcsname \undefined
 
  \fi
 
}
 
 
 
% This makes use of the obscure feature that if the last token of a
 
% <parameter list> is #, then the preceding argument is delimited by
 
% an opening brace, and that opening brace is not consumed.
 
\def\getargs#1{\getargsxxx#1{}}
 
\def\getargsxxx#1#{\getmacname #1 \relax\getmacargs}
 
\def\getmacname #1 #2\relax{\macname={#1}}
 
\def\getmacargs#1{\def\argl{#1}}
 
 
 
% Parse the optional {params} list.  Set up \paramno and \paramlist
 
% so \defmacro knows what to do.  Define \macarg.blah for each blah
 
% in the params list, to be ##N where N is the position in that list.
 
% That gets used by \mbodybackslash (above).
 
 
 
% We need to get `macro parameter char #' into several definitions.
 
% The technique used is stolen from LaTeX:  let \hash be something
 
% unexpandable, insert that wherever you need a #, and then redefine
 
% it to # just before using the token list produced.
 
%
 
% The same technique is used to protect \eatspaces till just before
 
% the macro is used.
 
 
 
\def\parsemargdef#1;{\paramno=0\def\paramlist{}%
 
        \let\hash\relax\let\xeatspaces\relax\parsemargdefxxx#1,;,}
 
\def\parsemargdefxxx#1,{%
 
  \if#1;\let\next=\relax
 
  \else \let\next=\parsemargdefxxx
 
    \advance\paramno by 1%
 
    \expandafter\edef\csname macarg.\eatspaces{#1}\endcsname
 
        {\xeatspaces{\hash\the\paramno}}%
 
    \edef\paramlist{\paramlist\hash\the\paramno,}%
 
  \fi\next}
 
 
 
% These two commands read recursive and nonrecursive macro bodies.
 
% (They're different since rec and nonrec macros end differently.)
 
 
 
\long\def\parsemacbody#1@end macro%
 
{\xdef\temp{\eatcr{#1}}\endgroup\defmacro}%
 
\long\def\parsermacbody#1@end rmacro%
 
{\xdef\temp{\eatcr{#1}}\endgroup\defmacro}%
 
 
 
% This defines the macro itself. There are six cases: recursive and
 
% nonrecursive macros of zero, one, and many arguments.
 
% Much magic with \expandafter here.
 
% \xdef is used so that macro definitions will survive the file
 
% they're defined in; @include reads the file inside a group.
 
\def\defmacro{%
 
  \let\hash=##% convert placeholders to macro parameter chars
 
  \ifrecursive
 
    \ifcase\paramno
 
    % 0
 
      \expandafter\xdef\csname\the\macname\endcsname{%
 
        \noexpand\scanmacro{\temp}}%
 
    \or % 1
 
      \expandafter\xdef\csname\the\macname\endcsname{%
 
         \noexpand\braceorline\csname\the\macname xxx\endcsname}%
 
      \expandafter\xdef\csname\the\macname xxx\endcsname##1{%
 
         \noexpand\scanmacro{\temp}}%
 
    \else % many
 
      \expandafter\xdef\csname\the\macname\endcsname##1{%
 
          \csname\the\macname xxx\endcsname ##1,}%
 
      \expandafter\expandafter
 
      \expandafter\xdef
 
      \expandafter\expandafter
 
        \csname\the\macname xxx\endcsname
 
          \paramlist{\noexpand\scanmacro{\temp}}%
 
    \fi
 
  \else
 
    \ifcase\paramno
 
    % 0
 
      \expandafter\xdef\csname\the\macname\endcsname{%
 
        \noexpand\norecurse{\the\macname}%
 
        \noexpand\scanmacro{\temp}\egroup}%
 
    \or % 1
 
      \expandafter\xdef\csname\the\macname\endcsname{%
 
         \noexpand\braceorline\csname\the\macname xxx\endcsname}%
 
      \expandafter\xdef\csname\the\macname xxx\endcsname##1{%
 
        \noexpand\norecurse{\the\macname}%
 
        \noexpand\scanmacro{\temp}\egroup}%
 
    \else % many
 
      \expandafter\xdef\csname\the\macname\endcsname##1{%
 
          \csname\the\macname xxx\endcsname ##1,}%
 
      \expandafter\expandafter
 
      \expandafter\xdef
 
      \expandafter\expandafter
 
      \csname\the\macname xxx\endcsname
 
      \paramlist{%
 
          \noexpand\norecurse{\the\macname}%
 
          \noexpand\scanmacro{\temp}\egroup}%
 
    \fi
 
  \fi}
 
 
 
\def\norecurse#1{\bgroup\cslet{#1}{macsave.#1}}
 
 
 
% \braceorline decides whether the next nonwhitespace character is a
 
% {.  If so it reads up to the closing }, if not, it reads the whole
 
% line.  Whatever was read is then fed to the next control sequence
 
% as an argument (by \parsebrace or \parsearg)
 
\def\braceorline#1{\let\next=#1\futurelet\nchar\braceorlinexxx}
 
\def\braceorlinexxx{%
 
  \ifx\nchar\bgroup\else
 
    \expandafter\parsearg
 
  \fi \next}
 
 
 
 
 
\message{cross references,}
\newwrite \auxfile
\newwrite \auxfile
 
 
\newif\ifhavexrefs  % True if xref values are known.
\newif\ifhavexrefs  % True if xref values are known.
\newif\ifwarnedxrefs  % True if we warned once that they aren't known.
\newif\ifwarnedxrefs  % True if we warned once that they aren't known.
 
 
% @inforef is simple.
% @inforef is relatively simple.
\def\inforef #1{\inforefzzz #1,,,,**}
\def\inforef #1{\inforefzzz #1,,,,**}
\def\inforefzzz #1,#2,#3,#4**{\putwordSee{} \putwordInfo{} \putwordfile{} \file{\ignorespaces #3{}},
\def\inforefzzz #1,#2,#3,#4**{\putwordSee{} \putwordInfo{} \putwordfile{} \file{\ignorespaces #3{}},
  node \samp{\ignorespaces#1{}}}
  node \samp{\ignorespaces#1{}}}
 
 
% \setref{foo} defines a cross-reference point named foo.
% @node's job is to define \lastnode.
 
\def\node{\ENVcheck\parsearg\nodezzz}
 
\def\nodezzz#1{\nodexxx [#1,]}
 
\def\nodexxx[#1,#2]{\gdef\lastnode{#1}}
 
\let\nwnode=\node
 
\let\lastnode=\relax
 
 
\def\setref#1{%
% The sectioning commands (@chapter, etc.) call these.
\dosetq{#1-title}{Ytitle}%
\def\donoderef{%
\dosetq{#1-pg}{Ypagenumber}%
  \ifx\lastnode\relax\else
\dosetq{#1-snt}{Ysectionnumberandtype}}
    \expandafter\expandafter\expandafter\setref{\lastnode}%
 
      {Ysectionnumberandtype}%
 
    \global\let\lastnode=\relax
 
  \fi
 
}
 
\def\unnumbnoderef{%
 
  \ifx\lastnode\relax\else
 
    \expandafter\expandafter\expandafter\setref{\lastnode}{Ynothing}%
 
    \global\let\lastnode=\relax
 
  \fi
 
}
 
\def\appendixnoderef{%
 
  \ifx\lastnode\relax\else
 
    \expandafter\expandafter\expandafter\setref{\lastnode}%
 
      {Yappendixletterandtype}%
 
    \global\let\lastnode=\relax
 
  \fi
 
}
 
 
 
 
 
% @anchor{NAME} -- define xref target at arbitrary point.
 
%
 
\def\anchor#1{\setref{#1}{Ynothing}}
 
 
\def\unnumbsetref#1{%
 
\dosetq{#1-title}{Ytitle}%
 
\dosetq{#1-pg}{Ypagenumber}%
 
\dosetq{#1-snt}{Ynothing}}
 
 
 
\def\appendixsetref#1{%
% \setref{NAME}{SNT} defines a cross-reference point NAME, namely
 
% NAME-title, NAME-pg, and NAME-SNT.  Called from \foonoderef.  We have
 
% to set \indexdummies so commands such as @code in a section title
 
% aren't expanded.  It would be nicer not to expand the titles in the
 
% first place, but there's so many layers that that is hard to do.
 
%
 
\def\setref#1#2{{%
 
  \indexdummies
\dosetq{#1-title}{Ytitle}%
\dosetq{#1-title}{Ytitle}%
\dosetq{#1-pg}{Ypagenumber}%
\dosetq{#1-pg}{Ypagenumber}%
\dosetq{#1-snt}{Yappendixletterandtype}}
  \dosetq{#1-snt}{#2}
 
}}
 
 
% \xref, \pxref, and \ref generate cross-references to specified points.
% @xref, @pxref, and @ref generate cross-references.  For \xrefX, #1 is
% For \xrefX, #1 is the node name, #2 the name of the Info
% the node name, #2 the name of the Info cross-reference, #3 the printed
% cross-reference, #3 the printed node name, #4 the name of the Info
% node name, #4 the name of the Info file, #5 the name of the printed
% file, #5 the name of the printed manual.  All but the node name can be
% manual.  All but the node name can be omitted.
% omitted.
 
%
%
\def\pxref#1{\putwordsee{} \xrefX[#1,,,,,,,]}
\def\pxref#1{\putwordsee{} \xrefX[#1,,,,,,,]}
\def\xref#1{\putwordSee{} \xrefX[#1,,,,,,,]}
\def\xref#1{\putwordSee{} \xrefX[#1,,,,,,,]}
\def\ref#1{\xrefX[#1,,,,,,,]}
\def\ref#1{\xrefX[#1,,,,,,,]}
\def\xrefX[#1,#2,#3,#4,#5,#6]{\begingroup
\def\xrefX[#1,#2,#3,#4,#5,#6]{\begingroup
Line 4318... Line 4738...
      % Use the node name inside the square brackets.
      % Use the node name inside the square brackets.
      \def\printednodename{\ignorespaces #1}%
      \def\printednodename{\ignorespaces #1}%
    \else
    \else
      % Use the actual chapter/section title appear inside
      % Use the actual chapter/section title appear inside
      % the square brackets.  Use the real section title if we have it.
      % the square brackets.  Use the real section title if we have it.
      \ifdim \wd1>0pt%
      \ifdim \wd1 > 0pt
        % It is in another manual, so we don't have it.
        % It is in another manual, so we don't have it.
        \def\printednodename{\ignorespaces #1}%
        \def\printednodename{\ignorespaces #1}%
      \else
      \else
        \ifhavexrefs
        \ifhavexrefs
          % We know the real title if we have the xref values.
          % We know the real title if we have the xref values.
Line 4347... Line 4767...
    % _ (for example) has to be the character _ for the purposes of the
    % _ (for example) has to be the character _ for the purposes of the
    % control sequence corresponding to the node, but it has to expand
    % control sequence corresponding to the node, but it has to expand
    % into the usual \leavevmode...\vrule stuff for purposes of
    % into the usual \leavevmode...\vrule stuff for purposes of
    % printing. So we \turnoffactive for the \refx-snt, back on for the
    % printing. So we \turnoffactive for the \refx-snt, back on for the
    % printing, back off for the \refx-pg.
    % printing, back off for the \refx-pg.
    {\turnoffactive \refx{#1-snt}{}}%
    {\normalturnoffactive
    \space [\printednodename],\space
     % Only output a following space if the -snt ref is nonempty; for
 
     % @unnumbered and @anchor, it won't be.
 
     \setbox2 = \hbox{\ignorespaces \refx{#1-snt}{}}%
 
     \ifdim \wd2 > 0pt \refx{#1-snt}\space\fi
 
    }%
 
    % [mynode],
 
    [\printednodename],\space
 
    % page 3
    \turnoffactive \putwordpage\tie\refx{#1-pg}{}%
    \turnoffactive \putwordpage\tie\refx{#1-pg}{}%
  \fi
  \fi
\endgroup}
\endgroup}
 
 
% \dosetq is the interface for calls from other macros
% \dosetq is the interface for calls from other macros
 
 
% Use \turnoffactive so that punctuation chars such as underscore
% Use \normalturnoffactive so that punctuation chars such as underscore
% work in node names.
% and backslash work in node names.  (\turnoffactive doesn't do \.)
\def\dosetq #1#2{{\let\folio=0 \turnoffactive
\def\dosetq#1#2{%
 
  {\let\folio=0
 
   \normalturnoffactive
\edef\next{\write\auxfile{\internalsetq {#1}{#2}}}%
\edef\next{\write\auxfile{\internalsetq {#1}{#2}}}%
\next}}
   \iflinks
 
     \next
 
   \fi
 
  }%
 
}
 
 
% \internalsetq {foo}{page} expands into
% \internalsetq {foo}{page} expands into
% CHARACTERS 'xrdef {foo}{...expansion of \Ypage...}
% CHARACTERS 'xrdef {foo}{...expansion of \Ypage...}
% When the aux file is read, ' is the escape character
% When the aux file is read, ' is the escape character
 
 
Line 4411... Line 4844...
 
 
\def\refx#1#2{%
\def\refx#1#2{%
  \expandafter\ifx\csname X#1\endcsname\relax
  \expandafter\ifx\csname X#1\endcsname\relax
    % If not defined, say something at least.
    % If not defined, say something at least.
    \angleleft un\-de\-fined\angleright
    \angleleft un\-de\-fined\angleright
 
    \iflinks
    \ifhavexrefs
    \ifhavexrefs
      \message{\linenumber Undefined cross reference `#1'.}%
      \message{\linenumber Undefined cross reference `#1'.}%
    \else
    \else
      \ifwarnedxrefs\else
      \ifwarnedxrefs\else
        \global\warnedxrefstrue
        \global\warnedxrefstrue
        \message{Cross reference values unknown; you must run TeX again.}%
        \message{Cross reference values unknown; you must run TeX again.}%
      \fi
      \fi
    \fi
    \fi
 
    \fi
  \else
  \else
    % It's defined, so just use it.
    % It's defined, so just use it.
    \csname X#1\endcsname
    \csname X#1\endcsname
  \fi
  \fi
  #2% Output the suffix in any case.
  #2% Output the suffix in any case.
Line 4490... Line 4925...
  \catcode`\<=\other
  \catcode`\<=\other
  \catcode`\>=\other
  \catcode`\>=\other
  \catcode`\$=\other
  \catcode`\$=\other
  \catcode`\#=\other
  \catcode`\#=\other
  \catcode`\&=\other
  \catcode`\&=\other
  % `\+ does not work, so use 43.
  \catcode`+=\other % avoid \+ for paranoia even though we've turned it off
  \catcode43=\other
 
  % Make the characters 128-255 be printing characters
  % Make the characters 128-255 be printing characters
  {%
  {%
    \count 1=128
    \count 1=128
    \def\loop{%
    \def\loop{%
      \catcode\count 1=\other
      \catcode\count 1=\other
Line 4660... Line 5094...
% time, we might be inside a group, and then its definitions would get
% time, we might be inside a group, and then its definitions would get
% undone and the next image would fail.
% undone and the next image would fail.
\openin 1 = epsf.tex
\openin 1 = epsf.tex
\ifeof 1 \else
\ifeof 1 \else
  \closein 1
  \closein 1
  \def\epsfannounce{\toks0 = }% do not bother showing banner
  % Do not bother showing banner with post-v2.7 epsf.tex (available in
 
  % doc/epsf.tex until it shows up on ctan).
 
  \def\epsfannounce{\toks0 = }%
  \input epsf.tex
  \input epsf.tex
\fi
\fi
%
%
\newif\ifwarnednoepsf
\newif\ifwarnednoepsf
\newhelp\noepsfhelp{epsf.tex must be installed for images to
\newhelp\noepsfhelp{epsf.tex must be installed for images to
Line 4690... Line 5126...
% #4 is just the usual extra ignored arg for parsing this stuff.
% #4 is just the usual extra ignored arg for parsing this stuff.
\def\imagexxx#1,#2,#3,#4\finish{%
\def\imagexxx#1,#2,#3,#4\finish{%
  % \epsfbox itself resets \epsf?size at each figure.
  % \epsfbox itself resets \epsf?size at each figure.
  \setbox0 = \hbox{\ignorespaces #2}\ifdim\wd0 > 0pt \epsfxsize=#2\relax \fi
  \setbox0 = \hbox{\ignorespaces #2}\ifdim\wd0 > 0pt \epsfxsize=#2\relax \fi
  \setbox0 = \hbox{\ignorespaces #3}\ifdim\wd0 > 0pt \epsfysize=#3\relax \fi
  \setbox0 = \hbox{\ignorespaces #3}\ifdim\wd0 > 0pt \epsfysize=#3\relax \fi
 
  % If the image is by itself, center it.
 
  \ifvmode
 
    \nobreak\medskip
 
    \nobreak
 
    \centerline{\epsfbox{#1.eps}}%
 
    \bigbreak
 
  \else
  \epsfbox{#1.eps}%
  \epsfbox{#1.eps}%
 
  \fi
}
}
 
 
% End of control word definitions.
 
 
 
 
 
\message{and turning on texinfo input format.}
 
 
 
\def\openindices{%
\message{paper sizes,}
   \newindex{cp}%
% And other related parameters.
   \newcodeindex{fn}%
 
   \newcodeindex{vr}%
 
   \newcodeindex{tp}%
 
   \newcodeindex{ky}%
 
   \newcodeindex{pg}%
 
}
 
 
 
% Set some numeric style parameters, for 8.5 x 11 format.
 
 
 
\hsize = 6in
 
\hoffset = .25in
 
\newdimen\defaultparindent \defaultparindent = 15pt
\newdimen\defaultparindent \defaultparindent = 15pt
\parindent = \defaultparindent
 
\parskip 3pt plus 2pt minus 1pt
 
\setleading{13.2pt}
 
\advance\topskip by 1.2cm
 
 
 
\chapheadingskip = 15pt plus 4pt minus 2pt
\chapheadingskip = 15pt plus 4pt minus 2pt
\secheadingskip = 12pt plus 3pt minus 2pt
\secheadingskip = 12pt plus 3pt minus 2pt
\subsecheadingskip = 9pt plus 2pt minus 2pt
\subsecheadingskip = 9pt plus 2pt minus 2pt
 
 
% Prevent underfull vbox error messages.
% Prevent underfull vbox error messages.
\vbadness=10000
\vbadness=10000
 
 
 
% Don't be so finicky about underfull hboxes, either.
 
\hbadness = 2000
 
 
% Following George Bush, just get rid of widows and orphans.
% Following George Bush, just get rid of widows and orphans.
\widowpenalty=10000
\widowpenalty=10000
\clubpenalty=10000
\clubpenalty=10000
 
 
% Use TeX 3.0's \emergencystretch to help line breaking, but if we're
% Use TeX 3.0's \emergencystretch to help line breaking, but if we're
% using an old version of TeX, don't do anything.  We want the amount of
% using an old version of TeX, don't do anything.  We want the amount of
% stretch added to depend on the line length, hence the dependence on
% stretch added to depend on the line length, hence the dependence on
% \hsize.  This makes it come to about 9pt for the 8.5x11 format.
% \hsize.  This makes it come to about 9pt for the 8.5x11 format.  We
 
% call this whenever the paper size is set.
%
%
 
\def\setemergencystretch{%
\ifx\emergencystretch\thisisundefined
\ifx\emergencystretch\thisisundefined
  % Allow us to assign to \emergencystretch anyway.
  % Allow us to assign to \emergencystretch anyway.
  \def\emergencystretch{\dimen0}%
  \def\emergencystretch{\dimen0}%
\else
\else
  \emergencystretch = \hsize
  \emergencystretch = \hsize
  \divide\emergencystretch by 45
  \divide\emergencystretch by 45
\fi
\fi
 
 
% Use @smallbook to reset parameters for 7x9.5 format  (or else 7x9.25)
 
\def\smallbook{
 
  \global\chapheadingskip = 15pt plus 4pt minus 2pt
 
  \global\secheadingskip = 12pt plus 3pt minus 2pt
 
  \global\subsecheadingskip = 9pt plus 2pt minus 2pt
 
  %
 
  \global\lispnarrowing = 0.3in
 
  \setleading{12pt}
 
  \advance\topskip by -1cm
 
  \global\parskip 2pt plus 1pt
 
  \global\hsize = 5in
 
  \global\vsize=7.5in
 
  \global\tolerance=700
 
  \global\hfuzz=1pt
 
  \global\contentsrightmargin=0pt
 
  \global\deftypemargin=0pt
 
  \global\defbodyindent=.5cm
 
  %
 
  \global\pagewidth=\hsize
 
  \global\pageheight=\vsize
 
  %
 
  \global\let\smalllisp=\smalllispx
 
  \global\let\smallexample=\smalllispx
 
  \global\def\Esmallexample{\Esmalllisp}
 
}
}
 
 
% Use @afourpaper to print on European A4 paper.
% Parameters in order: 1) textheight; 2) textwidth; 3) voffset;
\def\afourpaper{
% 4) hoffset; 5) binding offset; 6) topskip.  Then whoever calls us can
\global\tolerance=700
% set \parskip and call \setleading for \baselineskip.
\global\hfuzz=1pt
%
\setleading{12pt}
\def\internalpagesizes#1#2#3#4#5#6{%
\global\parskip 15pt plus 1pt
  \voffset = #3\relax
 
  \topskip = #6\relax
\global\vsize= 53\baselineskip
  \splittopskip = \topskip
 
  %
 
  \vsize = #1\relax
\advance\vsize by \topskip
\advance\vsize by \topskip
%\global\hsize=   5.85in     % A4 wide 10pt
  \outervsize = \vsize
\global\hsize=  6.5in
  \advance\outervsize by 0.6in
\global\outerhsize=\hsize
  \pageheight = \vsize
\global\advance\outerhsize by 0.5in
  %
\global\outervsize=\vsize
  \hsize = #2\relax
\global\advance\outervsize by 0.6in
  \outerhsize = \hsize
 
  \advance\outerhsize by 0.5in
\global\pagewidth=\hsize
  \pagewidth = \hsize
\global\pageheight=\vsize
  %
 
  \normaloffset = #4\relax
 
  \bindingoffset = #5\relax
 
  %
 
  \parindent = \defaultparindent
 
  \setemergencystretch
}
}
 
 
\bindingoffset=0pt
% @letterpaper (the default).
\normaloffset=\hoffset
\def\letterpaper{{\globaldefs = 1
\pagewidth=\hsize
  \parskip = 3pt plus 2pt minus 1pt
\pageheight=\vsize
  \setleading{13.2pt}%
 
  %
 
  % If page is nothing but text, make it come out even.
 
  \internalpagesizes{46\baselineskip}{6in}{\voffset}{.25in}{\bindingoffset}{36pt}%
 
}}
 
 
% Allow control of the text dimensions.  Parameters in order: textheight;
% Use @smallbook to reset parameters for 7x9.5 (or so) format.
% textwidth; voffset; hoffset; binding offset; topskip.
\def\smallbook{{\globaldefs = 1
% All require a dimension;
  \parskip = 2pt plus 1pt
% header is additional; added length extends the bottom of the page.
  \setleading{12pt}%
 
  %
\def\changepagesizes#1#2#3#4#5#6{
  \internalpagesizes{7.5in}{5.in}{\voffset}{.25in}{\bindingoffset}{16pt}%
 \global\vsize= #1
  %
 \global\topskip= #6
  \lispnarrowing = 0.3in
 \advance\vsize by \topskip
  \tolerance = 700
 \global\voffset= #3
  \hfuzz = 1pt
 \global\hsize= #2
  \contentsrightmargin = 0pt
 \global\outerhsize=\hsize
  \deftypemargin = 0pt
 \global\advance\outerhsize by 0.5in
  \defbodyindent = .5cm
 \global\outervsize=\vsize
  %
 \global\advance\outervsize by 0.6in
  \let\smalldisplay = \smalldisplayx
 \global\pagewidth=\hsize
  \let\smallexample = \smalllispx
 \global\pageheight=\vsize
  \let\smallformat = \smallformatx
 \global\normaloffset= #4
  \let\smalllisp = \smalllispx
 \global\bindingoffset= #5}
}}
 
 
 
% Use @afourpaper to print on European A4 paper.
 
\def\afourpaper{{\globaldefs = 1
 
  \setleading{12pt}%
 
  \parskip = 3pt plus 2pt minus 1pt
 
  %
 
  \internalpagesizes{53\baselineskip}{160mm}{\voffset}{4mm}{\bindingoffset}{44pt}%
 
  %
 
  \tolerance = 700
 
  \hfuzz = 1pt
 
}}
 
 
% A specific text layout, 24x15cm overall, intended for A4 paper.  Top margin
% A specific text layout, 24x15cm overall, intended for A4 paper.  Top margin
% 29mm, hence bottom margin 28mm, nominal side margin 3cm.
% 29mm, hence bottom margin 28mm, nominal side margin 3cm.
\def\afourlatex
\def\afourlatex{{\globaldefs = 1
        {\global\tolerance=700
  \setleading{13.6pt}%
        \global\hfuzz=1pt
  %
        \setleading{12pt}
  \afourpaper
        \global\parskip 15pt plus 1pt
  \internalpagesizes{237mm}{150mm}{3.6mm}{3.6mm}{3mm}{7mm}%
        \advance\baselineskip by 1.6pt
  %
        \changepagesizes{237mm}{150mm}{3.6mm}{3.6mm}{3mm}{7mm}
  \globaldefs = 0
        }
}}
 
 
% Use @afourwide to print on European A4 paper in wide format.
% Use @afourwide to print on European A4 paper in wide format.
\def\afourwide{\afourpaper
\def\afourwide{%
\changepagesizes{9.5in}{6.5in}{\hoffset}{\normaloffset}{\bindingoffset}{7mm}}
  \afourpaper
 
  \internalpagesizes{9.5in}{6.5in}{\hoffset}{\normaloffset}{\bindingoffset}{7mm}%
 
  %
 
  \globaldefs = 0
 
}
 
 
 
% @pagesizes TEXTHEIGHT[,TEXTWIDTH]
 
% Perhaps we should allow setting the margins, \topskip, \parskip,
 
% and/or leading, also. Or perhaps we should compute them somehow.
 
%
 
\def\pagesizes{\parsearg\pagesizesxxx}
 
\def\pagesizesxxx#1{\pagesizesyyy #1,,\finish}
 
\def\pagesizesyyy#1,#2,#3\finish{{%
 
  \setbox0 = \hbox{\ignorespaces #2}\ifdim\wd0 > 0pt \hsize=#2\relax \fi
 
  \globaldefs = 1
 
  %
 
  \parskip = 3pt plus 2pt minus 1pt
 
  \setleading{13.2pt}%
 
  %
 
  \internalpagesizes{#1}{\hsize}{\voffset}{\normaloffset}{\bindingoffset}{44pt}%
 
}}
 
 
 
% Set default to letter.
 
%
 
\letterpaper
 
 
 
\message{and turning on texinfo input format.}
 
 
% Define macros to output various characters with catcode for normal text.
% Define macros to output various characters with catcode for normal text.
\catcode`\"=\other
\catcode`\"=\other
\catcode`\~=\other
\catcode`\~=\other
\catcode`\^=\other
\catcode`\^=\other
Line 4862... Line 5316...
% (and those which the user can use as if they were ordinary).
% (and those which the user can use as if they were ordinary).
% Most of these we simply print from the \tt font, but for some, we can
% Most of these we simply print from the \tt font, but for some, we can
% use math or other variants that look better in normal text.
% use math or other variants that look better in normal text.
 
 
\catcode`\"=\active
\catcode`\"=\active
\def\activedoublequote{{\tt \char '042}}
\def\activedoublequote{{\tt\char34}}
\let"=\activedoublequote
\let"=\activedoublequote
\catcode`\~=\active
\catcode`\~=\active
\def~{{\tt \char '176}}
\def~{{\tt\char126}}
\chardef\hat=`\^
\chardef\hat=`\^
\catcode`\^=\active
\catcode`\^=\active
\def^{{\tt \hat}}
\def^{{\tt \hat}}
 
 
\catcode`\_=\active
\catcode`\_=\active
\def_{\ifusingtt\normalunderscore\_}
\def_{\ifusingtt\normalunderscore\_}
% Subroutine for the previous macro.
% Subroutine for the previous macro.
\def\_{\leavevmode \kern.06em \vbox{\hrule width.3em height.1ex}}
\def\_{\leavevmode \kern.06em \vbox{\hrule width.3em height.1ex}}
 
 
\catcode`\|=\active
\catcode`\|=\active
\def|{{\tt \char '174}}
\def|{{\tt\char124}}
\chardef \less=`\<
\chardef \less=`\<
\catcode`\<=\active
\catcode`\<=\active
\def<{{\tt \less}}
\def<{{\tt \less}}
\chardef \gtr=`\>
\chardef \gtr=`\>
\catcode`\>=\active
\catcode`\>=\active
Line 4963... Line 5417...
% file name, in case not using a pre-dumped format.
% file name, in case not using a pre-dumped format.
%
%
@gdef@fixbackslash{@ifx\@eatinput @let\ = @normalbackslash @fi
@gdef@fixbackslash{@ifx\@eatinput @let\ = @normalbackslash @fi
  @catcode`+=@active @catcode`@_=@active}
  @catcode`+=@active @catcode`@_=@active}
 
 
%% These look ok in all fonts, so just make them not special.  The @rm below
% These look ok in all fonts, so just make them not special.  The @rm below
%% makes sure that the current font starts out as the newly loaded cmr10
% makes sure that the current font starts out as the newly loaded cmr10
@catcode`@$=@other @catcode`@%=@other @catcode`@&=@other @catcode`@#=@other
@catcode`@$=@other @catcode`@%=@other @catcode`@&=@other @catcode`@#=@other
 
 
@textfonts
@textfonts
@rm
@rm
 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.