Diff for /gforth/doc/Attic/texinfo.tex between versions 1.2 and 1.4

version 1.2, 1998/06/17 16:55:15 version 1.4, 2002/08/14 09:00:22
Line 1 Line 1
 % texinfo.tex -- TeX macros to handle Texinfo files.  % texinfo.tex -- TeX macros to handle Texinfo files.
 % $Id$  
 %  %
 % Copyright (C) 1985, 86, 88, 90, 91, 92, 93, 94, 95, 96, 97, 98  % Load plain if necessary, i.e., if running under initex.
 % Free Software Foundation, Inc.  \expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi
   %
   \def\texinfoversion{2002-03-26.08}
   %
   % Copyright (C) 1985, 86, 88, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99,
   %               2000, 01, 02 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
 % modify it under the terms of the GNU General Public License as  % modify it under the terms of the GNU General Public License as
Line 25 Line 29
 %  %
 % 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/gnu/texinfo.tex
 % /home/gd/gnu/doc/texinfo.tex on the GNU machines.  %     (and all GNU mirrors, see http://www.gnu.org/order/ftp.html)
   %   ftp://texinfo.org/texinfo/texinfo.tex
   %   ftp://tug.org/tex/texinfo.tex
   %     (and all CTAN mirrors, see http://www.ctan.org),
   %   and /home/gd/gnu/doc/texinfo.tex on the GNU machines.
 %   % 
 % Send bug reports to bug-texinfo@gnu.org.  % The texinfo.tex in any given Texinfo distribution could well be out
 % Please include a precise test case in each bug report,  % of date, so if that's what you're using, please check.
 % including a complete document with which we can reproduce the problem.  
 %   % 
 % Texinfo macros (with @macro) are *not* supported by texinfo.tex.  You  % Texinfo has a small home page at http://texinfo.org/ and also
 % have to run makeinfo -E to expand macros first; the texi2dvi script  % http://www.gnu.org/software/texinfo.
 % does this.  %
   % Send bug reports to bug-texinfo@gnu.org.  Please include including a
   % complete document in each bug report with which we can reproduce the
 % Make it possible to create a .fmt file just by loading this file:  % problem.  Patches are, of course, greatly appreciated.
 % if the underlying format is not loaded, start by loading it now.  %
 % Added by gildea November 1993.  % To process a Texinfo manual with TeX, it's most reliable to use the
 \expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi  % texi2dvi shell script that comes with the distribution.  For a simple
   % manual foo.texi, however, you can get away with this:
   %   tex foo.texi
   %   texindex foo.??
   %   tex foo.texi
   %   tex foo.texi
   %   dvips foo.dvi -o  # or whatever; this makes foo.ps.
   % The extra TeX runs 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.
   %
   % It is possible to adapt texinfo.tex for other languages.  You can get
   % the existing language-specific files from the full Texinfo distribution.
   
 % This automatically updates the version number based on RCS.  \message{Loading texinfo [version \texinfoversion]:}
 \def\deftexinfoversion$#1: #2 ${\def\texinfoversion{#2}}  
 \deftexinfoversion$Revision$  
 \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.
 \everyjob{\message{[Texinfo version \texinfoversion]}\message{}  \everyjob{\message{[Texinfo version \texinfoversion]}%
   \catcode`+=\active \catcode`\_=\active}    \catcode`+=\active \catcode`\_=\active}
   
 % Save some parts of plain tex whose names we will redefine.  % Save some parts of plain tex whose names we will redefine.
   
 \let\ptexb=\b  \let\ptexb=\b
 \let\ptexbullet=\bullet  \let\ptexbullet=\bullet
 \let\ptexc=\c  \let\ptexc=\c
Line 70 Line 85
 \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
Line 90 Line 96
 % 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\putwordin\undefined        \gdef\putwordin{in}\fi
 \ifx\putwordfile\undefined{\gdef\putwordfile{file}}\fi%  \ifx\putwordIndexIsEmpty\undefined     \gdef\putwordIndexIsEmpty{(Index is empty)}\fi
 \ifx\putwordpage\undefined{\gdef\putwordpage{page}}\fi%  \ifx\putwordIndexNonexistent\undefined \gdef\putwordIndexNonexistent{(Index is nonexistent)}\fi
 \ifx\putwordsection\undefined{\gdef\putwordsection{section}}\fi%  \ifx\putwordInfo\undefined      \gdef\putwordInfo{Info}\fi
 \ifx\putwordSection\undefined{\gdef\putwordSection{Section}}\fi%  \ifx\putwordInstanceVariableof\undefined \gdef\putwordInstanceVariableof{Instance Variable of}\fi
 \ifx\putwordTableofContents\undefined{\gdef\putwordTableofContents{Table of Contents}}\fi%  \ifx\putwordMethodon\undefined  \gdef\putwordMethodon{Method on}\fi
 \ifx\putwordShortContents\undefined{\gdef\putwordShortContents{Short Contents}}\fi%  \ifx\putwordNoTitle\undefined   \gdef\putwordNoTitle{No Title}\fi
 \ifx\putwordAppendix\undefined{\gdef\putwordAppendix{Appendix}}\fi%  \ifx\putwordof\undefined        \gdef\putwordof{of}\fi
   \ifx\putwordon\undefined        \gdef\putwordon{on}\fi
   \ifx\putwordpage\undefined      \gdef\putwordpage{page}\fi
   \ifx\putwordsection\undefined   \gdef\putwordsection{section}\fi
   \ifx\putwordSection\undefined   \gdef\putwordSection{Section}\fi
   \ifx\putwordsee\undefined       \gdef\putwordsee{see}\fi
   \ifx\putwordSee\undefined       \gdef\putwordSee{See}\fi
   \ifx\putwordShortTOC\undefined  \gdef\putwordShortTOC{Short Contents}\fi
   \ifx\putwordTOC\undefined       \gdef\putwordTOC{Table of Contents}\fi
   %
   \ifx\putwordMJan\undefined \gdef\putwordMJan{January}\fi
   \ifx\putwordMFeb\undefined \gdef\putwordMFeb{February}\fi
   \ifx\putwordMMar\undefined \gdef\putwordMMar{March}\fi
   \ifx\putwordMApr\undefined \gdef\putwordMApr{April}\fi
   \ifx\putwordMMay\undefined \gdef\putwordMMay{May}\fi
   \ifx\putwordMJun\undefined \gdef\putwordMJun{June}\fi
   \ifx\putwordMJul\undefined \gdef\putwordMJul{July}\fi
   \ifx\putwordMAug\undefined \gdef\putwordMAug{August}\fi
   \ifx\putwordMSep\undefined \gdef\putwordMSep{September}\fi
   \ifx\putwordMOct\undefined \gdef\putwordMOct{October}\fi
   \ifx\putwordMNov\undefined \gdef\putwordMNov{November}\fi
   \ifx\putwordMDec\undefined \gdef\putwordMDec{December}\fi
   %
   \ifx\putwordDefmac\undefined    \gdef\putwordDefmac{Macro}\fi
   \ifx\putwordDefspec\undefined   \gdef\putwordDefspec{Special Form}\fi
   \ifx\putwordDefvar\undefined    \gdef\putwordDefvar{Variable}\fi
   \ifx\putwordDefopt\undefined    \gdef\putwordDefopt{User Option}\fi
   \ifx\putwordDeftypevar\undefined\gdef\putwordDeftypevar{Variable}\fi
   \ifx\putwordDeffunc\undefined   \gdef\putwordDeffunc{Function}\fi
   \ifx\putwordDeftypefun\undefined\gdef\putwordDeftypefun{Function}\fi
   
 % Ignore a token.  % Ignore a token.
 %  %
Line 122 Line 157
 % 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
   
   % add check for \lastpenalty to plain's definitions.  If the last thing
   % we did was a \nobreak, we don't want to insert more space.
   % 
   \def\smallbreak{\ifnum\lastpenalty<10000\par\ifdim\lastskip<\smallskipamount
     \removelastskip\penalty-50\smallskip\fi\fi}
   \def\medbreak{\ifnum\lastpenalty<10000\par\ifdim\lastskip<\medskipamount
     \removelastskip\penalty-100\medskip\fi\fi}
   \def\bigbreak{\ifnum\lastpenalty<10000\par\ifdim\lastskip<\bigskipamount
     \removelastskip\penalty-200\bigskip\fi\fi}
   
 % For @cropmarks command.  % For @cropmarks command.
 % Do @cropmarks to get crop marks.  % Do @cropmarks to get crop marks.
 %   %
 \newif\ifcropmarks  \newif\ifcropmarks
 \let\cropmarks = \cropmarkstrue  \let\cropmarks = \cropmarkstrue
 %  %
 % Dimensions to add cropmarks at corners.  % Dimensions to add cropmarks at corners.
 % Added by P. A. MacKay, 12 Nov. 1986  % Added by P. A. MacKay, 12 Nov. 1986
 %  %
 \newdimen\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
Line 177 Line 227
     \normalturnoffactive  % \ in index entries must not stay \, e.g., if      \normalturnoffactive  % \ in index entries must not stay \, e.g., if
                    % the page break happens to be in the middle of an example.                     % the page break happens to be in the middle of an example.
     \shipout\vbox{%      \shipout\vbox{%
         % Do this early so pdf references go to the beginning of the page.
         \ifpdfmakepagedest \pdfmkdest{\the\pageno} \fi
         %
       \ifcropmarks \vbox to \outervsize\bgroup        \ifcropmarks \vbox to \outervsize\bgroup
         \hsize = \outerhsize          \hsize = \outerhsize
         \line{\ewtop\hfil\ewtop}%          \vskip-\topandbottommargin
         \nointerlineskip          \vtop to0pt{%
         \line{%            \line{\ewtop\hfil\ewtop}%
           \vbox{\moveleft\cornerthick\nstop}%            \nointerlineskip
           \hfill            \line{%
           \vbox{\moveright\cornerthick\nstop}%              \vbox{\moveleft\cornerthick\nstop}%
         }%              \hfill
               \vbox{\moveright\cornerthick\nstop}%
             }%
             \vss}%
         \vskip\topandbottommargin          \vskip\topandbottommargin
         \line\bgroup          \line\bgroup
           \hfil % center the page within the outer (page) hsize.            \hfil % center the page within the outer (page) hsize.
Line 208 Line 264
         \hfil\egroup % end of (centering) \line\bgroup          \hfil\egroup % end of (centering) \line\bgroup
         \vskip\topandbottommargin plus1fill minus1fill          \vskip\topandbottommargin plus1fill minus1fill
         \boxmaxdepth = \cornerthick          \boxmaxdepth = \cornerthick
         \line{%          \vbox to0pt{\vss
           \vbox{\moveleft\cornerthick\nsbot}%            \line{%
           \hfill              \vbox{\moveleft\cornerthick\nsbot}%
           \vbox{\moveright\cornerthick\nsbot}%              \hfill
               \vbox{\moveright\cornerthick\nsbot}%
             }%
             \nointerlineskip
             \line{\ewbot\hfil\ewbot}%
         }%          }%
         \nointerlineskip  
         \line{\ewbot\hfil\ewbot}%  
       \egroup % \vbox from first cropmarks clause        \egroup % \vbox from first cropmarks clause
       \fi        \fi
     }% end of \shipout\vbox      }% end of \shipout\vbox
Line 330 Line 388
 %% 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}
   
Line 386 Line 444
   % environments.  --karl, 6may93    % environments.  --karl, 6may93
   %{\advance \baselineskip by -\singlespaceskip    %{\advance \baselineskip by -\singlespaceskip
   %\kern \baselineskip}%    %\kern \baselineskip}%
   \setleading \singlespaceskip    \setleading\singlespaceskip
 }  }
   
 %% 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.
Line 403 Line 461
 %\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
Line 441 Line 499
   \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 }
   
Line 538  where each line of input produces a line Line 608  where each line of input produces a line
 %% 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    % Ensure vertical mode, so we don't make a big box in the middle of a
   % paragraph.    % paragraph.
   \par    \par
   %    %
   % Don't add any leading before our big empty box, but allow a page    % If the @need value is less than one line space, it's useless.
   % break, since the best break might be right here.    \dimen0 = #1\mil
   \allowbreak    \dimen2 = \ht\strutbox
   \nointerlineskip    \advance\dimen2 by \dp\strutbox
   \vtop to #1\mil{\vfil}%    \ifdim\dimen0 > \dimen2
   %      %
   % TeX does not even consider page breaks if a penalty added to the      % Do a \strut just to make the height of this box be normal, so the
   % main vertical list is 10000 or more.  But in order to see if the      % normal leading is inserted relative to the preceding line.
   % empty box we just added fits on the page, we must make it consider      % And a page break here is fine.
   % page breaks.  On the other hand, we don't want to actually break the      \vtop to #1\mil{\strut\vfil}%
   % page after the empty box.  So we use a penalty of 9999.      %
   %      % TeX does not even consider page breaks if a penalty added to the
   % There is an extremely small chance that TeX will actually break the      % main vertical list is 10000 or more.  But in order to see if the
   % page at this \penalty, if there are no other feasible breakpoints in      % empty box we just added fits on the page, we must make it consider
   % sight.  (If the user is using lots of big @group commands, which      % page breaks.  On the other hand, we don't want to actually break the
   % almost-but-not-quite fill up a page, TeX will have a hard time doing      % page after the empty box.  So we use a penalty of 9999.
   % good page breaking, for example.)  However, I could not construct an      %
   % example where a page broke at this \penalty; if it happens in a real      % There is an extremely small chance that TeX will actually break the
   % document, then we can reconsider our strategy.      % page at this \penalty, if there are no other feasible breakpoints in
   \penalty9999      % sight.  (If the user is using lots of big @group commands, which
   %      % almost-but-not-quite fill up a page, TeX will have a hard time doing
   % Back up by the size of the box, whether we did a page break or not.      % good page breaking, for example.)  However, I could not construct an
   \kern -#1\mil      % example where a page broke at this \penalty; if it happens in a real
   %      % document, then we can reconsider our strategy.
   % Do not allow a page break right after this kern.      \penalty9999
   \nobreak      %
       % Back up by the size of the box, whether we did a page break or not.
       \kern -#1\mil
       %
       % Do not allow a page break right after this kern.
       \nobreak
     \fi
 }  }
   
 % @br   forces paragraph break  % @br   forces paragraph break
Line 583  where each line of input produces a line Line 659  where each line of input produces a line
 % 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{%
   \hskip 0pt plus 0.25fil minus 0.25fil    \leavevmode
   .\hss.\hss.%    \hbox to 1.5em{%
   \hskip 0pt plus 0.5fil minus 0.5fil      \hskip 0pt plus 0.25fil minus 0.25fil
 }}      .\hss.\hss.%
       \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.%
Line 602  where each line of input produces a line Line 682  where each line of input produces a line
   
   
 % @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....
Line 621  where each line of input produces a line Line 701  where each line of input produces a line
 \def\nofillexdentyyy #1{{\advance \leftskip by -\exdentamount  \def\nofillexdentyyy #1{{\advance \leftskip by -\exdentamount
 \leftline{\hskip\leftskip{\rm#1}}}}  \leftline{\hskip\leftskip{\rm#1}}}}
   
 % @inmargin{TEXT} puts TEXT in the margin next to the current paragraph.  % @inmargin{WHICH}{TEXT} puts TEXT in the WHICH margin next to the current
   % paragraph.  For more general purposes, use the \margin insertion
 \def\inmargin#1{%  % class.  WHICH is `l' or `r'.
 \strut\vadjust{\nobreak\kern-\strutdepth  %
   \vtop to \strutdepth{\baselineskip\strutdepth\vss  
   \llap{\rightskip=\inmarginspacing \vbox{\noindent #1}}\null}}}  
 \newskip\inmarginspacing \inmarginspacing=1cm  \newskip\inmarginspacing \inmarginspacing=1cm
 \def\strutdepth{\dp\strutbox}  \def\strutdepth{\dp\strutbox}
   %
 %\hbox{{\rm#1}}\hfil\break}}  \def\doinmargin#1#2{\strut\vadjust{%
     \nobreak
     \kern-\strutdepth
     \vtop to \strutdepth{%
       \baselineskip=\strutdepth
       \vss
       % if you have multiple lines of stuff to put here, you'll need to
       % make the vbox yourself of the appropriate size.
       \ifx#1l%
         \llap{\ignorespaces #2\hskip\inmarginspacing}%
       \else
         \rlap{\hskip\hsize \hskip\inmarginspacing \ignorespaces #2}%
       \fi
       \null
     }%
   }}
   \def\inleftmargin{\doinmargin l}
   \def\inrightmargin{\doinmargin r}
   %
   % @inmargin{TEXT [, RIGHT-TEXT]}
   % (if RIGHT-TEXT is given, use TEXT for left page, RIGHT-TEXT for right;
   % else use TEXT for both).
   % 
   \def\inmargin#1{\parseinmargin #1,,\finish}
   \def\parseinmargin#1,#2,#3\finish{% not perfect, but better than nothing.
     \setbox0 = \hbox{\ignorespaces #2}% 
     \ifdim\wd0 > 0pt
       \def\lefttext{#1}%  have both texts
       \def\righttext{#2}%
     \else
       \def\lefttext{#1}%  have only one text
       \def\righttext{#1}%
     \fi
     %
     \ifodd\pageno
       \def\temp{\inrightmargin\righttext}% odd page -> outside is right margin
     \else
       \def\temp{\inleftmargin\lefttext}%
     \fi
     \temp
   }
   
 % @include file    insert text of that file as input.  % @include file    insert text of that file as input.
 % Allow normal characters that  we make active in the argument (a file name).  % Allow normal characters that  we make active in the argument (a file name).
Line 669  where each line of input produces a line Line 787  where each line of input produces a line
 % @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 NCHARS
 \let\paragraphindent=\comment  % We'll use ems for NCHARS, close enough.
   % We cannot implement @paragraphindent asis, though.
 % Prevent errors for section commands.  % 
 % Used in @ignore and in failing conditionals.  \def\asisword{asis} % no translation, these are keywords
 \def\ignoresections{%  \def\noneword{none}
 \let\chapter=\relax  %
 \let\unnumbered=\relax  \def\paragraphindent{\parsearg\doparagraphindent}
 \let\top=\relax  \def\doparagraphindent#1{%
 \let\unnumberedsec=\relax    \def\temp{#1}%
 \let\unnumberedsection=\relax    \ifx\temp\asisword
 \let\unnumberedsubsec=\relax    \else
 \let\unnumberedsubsection=\relax      \ifx\temp\noneword
 \let\unnumberedsubsubsec=\relax        \defaultparindent = 0pt
 \let\unnumberedsubsubsection=\relax      \else
 \let\section=\relax        \defaultparindent = #1em
 \let\subsec=\relax      \fi
 \let\subsubsec=\relax    \fi
 \let\subsection=\relax    \parindent = \defaultparindent
 \let\subsubsection=\relax  
 \let\appendix=\relax  
 \let\appendixsec=\relax  
 \let\appendixsection=\relax  
 \let\appendixsubsec=\relax  
 \let\appendixsubsection=\relax  
 \let\appendixsubsubsec=\relax  
 \let\appendixsubsubsection=\relax  
 \let\contents=\relax  
 \let\smallbook=\relax  
 \let\titlepage=\relax  
 }  }
   
 % Used in nested conditionals, where we have to parse the Texinfo source  % @exampleindent NCHARS
 % and so want to turn off most commands, in case they are used  % We'll use ems for NCHARS like @paragraphindent.
 % incorrectly.  % It seems @exampleindent asis isn't necessary, but
 %  % I preserve it to make it similar to @paragraphindent.
 \def\ignoremorecommands{%  \def\exampleindent{\parsearg\doexampleindent}
   \let\defcodeindex = \relax  \def\doexampleindent#1{%
   \let\defcv = \relax    \def\temp{#1}%
   \let\deffn = \relax    \ifx\temp\asisword
   \let\deffnx = \relax    \else
   \let\defindex = \relax      \ifx\temp\noneword
   \let\defivar = \relax        \lispnarrowing = 0pt
   \let\defmac = \relax      \else
   \let\defmethod = \relax        \lispnarrowing = #1em
   \let\defop = \relax      \fi
   \let\defopt = \relax    \fi
   \let\defspec = \relax  
   \let\deftp = \relax  
   \let\deftypefn = \relax  
   \let\deftypefun = \relax  
   \let\deftypevar = \relax  
   \let\deftypevr = \relax  
   \let\defun = \relax  
   \let\defvar = \relax  
   \let\defvr = \relax  
   \let\ref = \relax  
   \let\xref = \relax  
   \let\printindex = \relax  
   \let\pxref = \relax  
   \let\settitle = \relax  
   \let\setchapternewpage = \relax  
   \let\setchapterstyle = \relax  
   \let\everyheading = \relax  
   \let\evenheading = \relax  
   \let\oddheading = \relax  
   \let\everyfooting = \relax  
   \let\evenfooting = \relax  
   \let\oddfooting = \relax  
   \let\headings = \relax  
   \let\include = \relax  
   \let\lowersections = \relax  
   \let\down = \relax  
   \let\raisesections = \relax  
   \let\up = \relax  
   \let\set = \relax  
   \let\clear = \relax  
   \let\item = \relax  
 }  }
   
 % Ignore @ignore ... @end ignore.  % @asis just yields its argument.  Used with @table, for example.
 %  %
 \def\ignore{\doignore{ignore}}  \def\asis#1{#1}
   
 % Ignore @ifinfo, @ifhtml, @ifnottex, @html, @menu, and @direntry text.  % @math outputs its argument in math mode.
   % We don't use $'s directly in the definition of \math because we need
   % to set catcodes according to plain TeX first, to allow for subscripts,
   % superscripts, special math chars, etc.
   % 
   % @math does not do math typesetting in section titles, index
   % entries, and other such contexts where the catcodes are set before
   % @math gets a chance to work.  This could perhaps be fixed, but for now
   % at least we can have real math in the main text, where it's needed most.
   %
   \let\implicitmath = $%$ font-lock fix
   %
   % One complication: _ usually means subscripts, but it could also mean
   % an actual _ character, as in @math{@var{some_variable} + 1}.  So make
   % _ within @math be active (mathcode "8000), and distinguish by seeing
   % if the current family is \slfam, which is what @var uses.
   % 
   {\catcode95 = \active  % 95 = _
   \gdef\mathunderscore{%
     \catcode95=\active
     \def_{\ifnum\fam=\slfam \_\else\sb\fi}%
   }}
 %  %
 \def\ifinfo{\doignore{ifinfo}}  % Another complication: we want \\ (and @\) to output a \ character.
 \def\ifhtml{\doignore{ifhtml}}  % FYI, plain.tex uses \\ as a temporary control sequence (why?), but
 \def\ifnottex{\doignore{ifnottex}}  % this is not advertised and we don't care.  Texinfo does not
 \def\html{\doignore{html}}  % otherwise define @\.
 \def\menu{\doignore{menu}}  % 
 \def\direntry{\doignore{direntry}}  % The \mathchar is class=0=ordinary, family=7=ttfam, position=5C=\.
   \def\mathbackslash{\ifnum\fam=\ttfam \mathchar"075C \else\backslash \fi}
 % Also ignore @macro ... @end macro.  The user must run texi2dvi,  %
 % which runs makeinfo to do macro expansion.  Ignore @unmacro, too.  \def\math{%
 \def\macro{\doignore{macro}}    \tex
 \let\unmacro = \comment    \mathcode`\_="8000 \mathunderscore
     \let\\ = \mathbackslash
     \implicitmath\finishmath}
   \def\finishmath#1{#1\implicitmath\Etex}
   
   % @bullet and @minus need the same treatment as @math, just above.
   \def\bullet{\implicitmath\ptexbullet\implicitmath}
   \def\minus{\implicitmath-\implicitmath}
   
 % @dircategory CATEGORY  -- specify a category of the dir file  % @refill is a no-op.
 % which this file should belong to.  Ignore this in TeX.  \let\refill=\relax
 \let\dircategory = \comment  
   
 % Ignore text until a line `@end #1'.  % 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).
 %  %
 \def\doignore#1{\begingroup  \newif\iflinks \linkstrue % by default we want the aux files.
   % Don't complain about control sequences we have declared \outer.  \let\novalidate = \linksfalse
   \ignoresections  
   %  % @setfilename is done at the beginning of every texinfo file.
   % Define a command to swallow text until we reach `@end #1'.  % So open here the files we need to have open while reading the input.
   \long\def\doignoretext##1\end #1{\enddoignore}%  % This makes it possible to make a .fmt file for texinfo.
   %  \def\setfilename{%
   % Make sure that spaces turn into tokens that match what \doignoretext wants.     \iflinks
   \catcode32 = 10       \readauxfile
   %     \fi % \openindices needs to do some work in any case.
   % Ignore braces, too, so mismatched braces don't cause trouble.     \openindices
   \catcode`\{ = 9     \fixbackslash  % Turn off hack to swallow `\input texinfo'.
   \catcode`\} = 9     \global\let\setfilename=\comment % Ignore extra @setfilename cmds.
   %     %
   % And now expand that command.     % If texinfo.cnf is present on the system, read it.
   \doignoretext     % Useful for site-wide @afourpaper, etc.
      % Just to be on the safe side, close the input stream before the \input.
      \openin 1 texinfo.cnf
      \ifeof1 \let\temp=\relax \else \def\temp{\input texinfo.cnf }\fi
      \closein1
      \temp
      %
      \comment % Ignore the actual filename.
 }  }
   
 % What we do to finish off ignored text.  % Called from \setfilename.
 %  %
 \def\enddoignore{\endgroup\ignorespaces}%  \def\openindices{%
     \newindex{cp}%
     \newcodeindex{fn}%
     \newcodeindex{vr}%
     \newcodeindex{tp}%
     \newcodeindex{ky}%
     \newcodeindex{pg}%
   }
   
 \newif\ifwarnedobs\warnedobsfalse  % @bye.
 \def\obstexwarn{%  \outer\def\bye{\pagealignmacro\tracingstats=1\ptexend}
   \ifwarnedobs\relax\else  
   % We need to warn folks that they may have trouble with TeX 3.0.  
   % This uses \immediate\write16 rather than \message to get newlines.  \message{pdf,}
     \immediate\write16{}  % adobe `portable' document format
     \immediate\write16{***WARNING*** for users of Unix TeX 3.0!}  \newcount\tempnum
     \immediate\write16{This manual trips a bug in TeX version 3.0 (tex hangs).}  \newcount\lnkcount
     \immediate\write16{If you are running another version of TeX, relax.}  \newtoks\filename
     \immediate\write16{If you are running Unix TeX 3.0, kill this TeX process.}  \newcount\filenamelength
     \immediate\write16{  Then upgrade your TeX installation if you can.}  \newcount\pgn
     \immediate\write16{  (See ftp://ftp.gnu.ai.mit.edu/pub/gnu/TeX.README.)}  \newtoks\toksA
     \immediate\write16{If you are stuck with version 3.0, run the}  \newtoks\toksB
     \immediate\write16{  script ``tex3patch'' from the Texinfo distribution}  \newtoks\toksC
     \immediate\write16{  to use a workaround.}  \newtoks\toksD
     \immediate\write16{}  \newbox\boxA
     \global\warnedobstrue  \newcount\countA
   \newif\ifpdf
   \newif\ifpdfmakepagedest
   
   \ifx\pdfoutput\undefined
     \pdffalse
     \let\pdfmkdest = \gobble
     \let\pdfurl = \gobble
     \let\endlink = \relax
     \let\linkcolor = \relax
     \let\pdfmakeoutlines = \relax
   \else
     \pdftrue
     \pdfoutput = 1
     \input pdfcolor
     \def\dopdfimage#1#2#3{%
       \def\imagewidth{#2}%
       \def\imageheight{#3}%
       % without \immediate, pdftex seg faults when the same image is
       % included twice.  (Version 3.14159-pre-1.0-unofficial-20010704.)
       \ifnum\pdftexversion < 14
         \immediate\pdfimage
       \else
         \immediate\pdfximage
     \fi      \fi
 }        \ifx\empty\imagewidth\else width \imagewidth \fi
         \ifx\empty\imageheight\else height \imageheight \fi
 % **In TeX 3.0, setting text in \nullfont hangs tex.  For a        \ifnum\pdftexversion<13
 % workaround (which requires the file ``dummy.tfm'' to be installed),           #1.pdf%
 % uncomment the following line:         \else
 %%%%%\font\nullfont=dummy\let\obstexwarn=\relax           {#1.pdf}%
          \fi
 % Ignore text, except that we keep track of conditional commands for      \ifnum\pdftexversion < 14 \else
 % purposes of nesting, up to an `@end #1' command.        \pdfrefximage \pdflastximage
 %      \fi}
 \def\nestedignore#1{%    \def\pdfmkdest#1{{\normalturnoffactive \pdfdest name{#1} xyz}}
   \obstexwarn    \def\pdfmkpgn#1{#1}
   % We must actually expand the ignored text to look for the @end    \let\linkcolor = \Blue  % was Cyan, but that seems light?
   % command, so that nested ignore constructs work.  Thus, we put the    \def\endlink{\Black\pdfendlink}
   % text into a \vbox and then do nothing with the result.  To minimize    % Adding outlines to PDF; macros for calculating structure of outlines
   % the change of memory overflow, we follow the approach outlined on    % come from Petr Olsak
   % page 401 of the TeXbook: make the current font be a dummy font.    \def\expnumber#1{\expandafter\ifx\csname#1\endcsname\relax 0%
   %      \else \csname#1\endcsname \fi}
   \setbox0 = \vbox\bgroup    \def\advancenumber#1{\tempnum=\expnumber{#1}\relax
     % Don't complain about control sequences we have declared \outer.      \advance\tempnum by1
     \ignoresections      \expandafter\xdef\csname#1\endcsname{\the\tempnum}}
     %    \def\pdfmakeoutlines{{%
     % Define `@end #1' to end the box, which will in turn undefine the      \openin 1 \jobname.toc
     % @end command again.      \ifeof 1\else\begingroup
     \expandafter\def\csname E#1\endcsname{\egroup\ignorespaces}%        \closein 1 
     %        \indexnofonts
     % We are going to be parsing Texinfo commands.  Most cause no        \def\tt{}
     % trouble when they are used incorrectly, but some commands do        \let\_ = \normalunderscore
     % complicated argument parsing or otherwise get confused, so we        % Thanh's hack / proper braces in bookmarks  
     % undefine them.        \edef\mylbrace{\iftrue \string{\else}\fi}\let\{=\mylbrace
     %        \edef\myrbrace{\iffalse{\else\string}\fi}\let\}=\myrbrace
     % We can't do anything about stray @-signs, unfortunately;        %
     % they'll produce `undefined control sequence' errors.        \def\chapentry ##1##2##3{}
     \ignoremorecommands        \let\appendixentry = \chapentry
     %        \def\unnumbchapentry ##1##2{}
     % Set the current font to be \nullfont, a TeX primitive, and define        \def\secentry ##1##2##3##4{\advancenumber{chap##2}}
     % all the font commands to also use \nullfont.  We don't use        \def\unnumbsecentry ##1##2##3{\advancenumber{chap##2}}
     % dummy.tfm, as suggested in the TeXbook, because not all sites        \def\subsecentry ##1##2##3##4##5{\advancenumber{sec##2.##3}}
     % might have that installed.  Therefore, math mode will still        \def\unnumbsubsecentry ##1##2##3##4{\advancenumber{sec##2.##3}}
     % produce output, but that should be an extremely small amount of        \def\subsubsecentry ##1##2##3##4##5##6{\advancenumber{subsec##2.##3.##4}}
     % stuff compared to the main input.        \def\unnumbsubsubsecentry ##1##2##3##4##5{\advancenumber{subsec##2.##3.##4}}
     %        \input \jobname.toc
     \nullfont        \def\chapentry ##1##2##3{%
     \let\tenrm = \nullfont  \let\tenit = \nullfont  \let\tensl = \nullfont          \pdfoutline goto name{\pdfmkpgn{##3}}count-\expnumber{chap##2}{##1}}
     \let\tenbf = \nullfont  \let\tentt = \nullfont  \let\smallcaps = \nullfont        \let\appendixentry = \chapentry
     \let\tensf = \nullfont        \def\unnumbchapentry ##1##2{%
     % Similarly for index fonts (mostly for their use in          \pdfoutline goto name{\pdfmkpgn{##2}}{##1}}
     % smallexample)        \def\secentry ##1##2##3##4{%
     \let\indrm = \nullfont  \let\indit = \nullfont  \let\indsl = \nullfont          \pdfoutline goto name{\pdfmkpgn{##4}}count-\expnumber{sec##2.##3}{##1}}
     \let\indbf = \nullfont  \let\indtt = \nullfont  \let\indsc = \nullfont        \def\unnumbsecentry ##1##2##3{%
     \let\indsf = \nullfont          \pdfoutline goto name{\pdfmkpgn{##3}}{##1}}
     %        \def\subsecentry ##1##2##3##4##5{%
     % Don't complain when characters are missing from the fonts.          \pdfoutline goto name{\pdfmkpgn{##5}}count-\expnumber{subsec##2.##3.##4}{##1}}
     \tracinglostchars = 0        \def\unnumbsubsecentry ##1##2##3##4{%
     %          \pdfoutline goto name{\pdfmkpgn{##4}}{##1}}
     % Don't bother to do space factor calculations.        \def\subsubsecentry ##1##2##3##4##5##6{%
     \frenchspacing          \pdfoutline goto name{\pdfmkpgn{##6}}{##1}}
     %        \def\unnumbsubsubsecentry ##1##2##3##4##5{%
     % Don't report underfull hboxes.          \pdfoutline goto name{\pdfmkpgn{##5}}{##1}}
     \hbadness = 10000        \input \jobname.toc
     %      \endgroup\fi
     % Do minimal line-breaking.    }}
     \pretolerance = 10000    \def\makelinks #1,{%
     %      \def\params{#1}\def\E{END}%
     % Do not execute instructions in @tex      \ifx\params\E
     \def\tex{\doignore{tex}}%        \let\nextmakelinks=\relax
 }      \else
         \let\nextmakelinks=\makelinks
 % @set VAR sets the variable VAR to an empty value.        \ifnum\lnkcount>0,\fi
 % @set VAR REST-OF-LINE sets VAR to the value REST-OF-LINE.        \picknum{#1}%
 %        \startlink attr{/Border [0 0 0]} 
 % Since we want to separate VAR from REST-OF-LINE (which might be          goto name{\pdfmkpgn{\the\pgn}}%
 % empty), we can't just use \parsearg; we have to insert a space of our        \linkcolor #1%
 % own to delimit the rest of the line, and then take it out again if we        \advance\lnkcount by 1%
 % didn't need it.  Make sure the catcode of space is correct to avoid        \endlink
 % losing inside @example, for instance.      \fi
 %      \nextmakelinks
 \def\set{\begingroup\catcode` =10    }
   \catcode`\-=12 \catcode`\_=12 % Allow - and _ in VAR.    \def\picknum#1{\expandafter\pn#1}
   \parsearg\setxxx}    \def\pn#1{%
 \def\setxxx#1{\setyyy#1 \endsetyyy}      \def\p{#1}%
 \def\setyyy#1 #2\endsetyyy{%      \ifx\p\lbrace
   \def\temp{#2}%        \let\nextpn=\ppn
   \ifx\temp\empty \global\expandafter\let\csname SET#1\endcsname = \empty      \else
   \else \setzzz{#1}#2\endsetzzz % Remove the trailing space \setxxx inserted.        \let\nextpn=\ppnn
   \fi        \def\first{#1}
   \endgroup      \fi
 }      \nextpn
 % Can't use \xdef to pre-expand #2 and save some time, since \temp or    }
 % \next or other control sequences that we've defined might get us into    \def\ppn#1{\pgn=#1\gobble}
 % an infinite loop. Consider `@set foo @cite{bar}'.    \def\ppnn{\pgn=\first}
 \def\setzzz#1#2 \endsetzzz{\expandafter\gdef\csname SET#1\endcsname{#2}}    \def\pdfmklnk#1{\lnkcount=0\makelinks #1,END,}
     \def\addtokens#1#2{\edef\addtoks{\noexpand#1={\the#1#2}}\addtoks}
 % @clear VAR clears (i.e., unsets) the variable VAR.    \def\skipspaces#1{\def\PP{#1}\def\D{|}%
 %      \ifx\PP\D\let\nextsp\relax
 \def\clear{\parsearg\clearxxx}      \else\let\nextsp\skipspaces
 \def\clearxxx#1{\global\expandafter\let\csname SET#1\endcsname=\relax}        \ifx\p\space\else\addtokens{\filename}{\PP}%
           \advance\filenamelength by 1
 % @value{foo} gets the text saved in variable foo.        \fi
 %      \fi
 \def\value{\begingroup      \nextsp}
   \catcode`\-=12 \catcode`\_=12 % Allow - and _ in VAR.    \def\getfilename#1{\filenamelength=0\expandafter\skipspaces#1|\relax}
   \valuexxx}    \ifnum\pdftexversion < 14
 \def\valuexxx#1{%      \let \startlink \pdfannotlink
   \expandafter\ifx\csname SET#1\endcsname\relax    \else
     {\{No value for ``#1''\}}%      \let \startlink \pdfstartlink
   \else    \fi
     \csname SET#1\endcsname    \def\pdfurl#1{%
   \fi      \begingroup
 \endgroup}        \normalturnoffactive\def\@{@}%
         \let\value=\expandablevalue
 % @ifset VAR ... @end ifset reads the `...' iff VAR has been defined        \leavevmode\Red
 % with @set.        \startlink attr{/Border [0 0 0]}%
 %          user{/Subtype /Link /A << /S /URI /URI (#1) >>}%
 \def\ifset{\parsearg\ifsetxxx}          % #1
 \def\ifsetxxx #1{%      \endgroup}
   \expandafter\ifx\csname SET#1\endcsname\relax    \def\pdfgettoks#1.{\setbox\boxA=\hbox{\toksA={#1.}\toksB={}\maketoks}}
     \expandafter\ifsetfail    \def\addtokens#1#2{\edef\addtoks{\noexpand#1={\the#1#2}}\addtoks}
   \else    \def\adn#1{\addtokens{\toksC}{#1}\global\countA=1\let\next=\maketoks}
     \expandafter\ifsetsucceed    \def\poptoks#1#2|ENDTOKS|{\let\first=#1\toksD={#1}\toksA={#2}}
   \fi    \def\maketoks{%
 }      \expandafter\poptoks\the\toksA|ENDTOKS|
 \def\ifsetsucceed{\conditionalsucceed{ifset}}      \ifx\first0\adn0
 \def\ifsetfail{\nestedignore{ifset}}      \else\ifx\first1\adn1 \else\ifx\first2\adn2 \else\ifx\first3\adn3
 \defineunmatchedend{ifset}      \else\ifx\first4\adn4 \else\ifx\first5\adn5 \else\ifx\first6\adn6
       \else\ifx\first7\adn7 \else\ifx\first8\adn8 \else\ifx\first9\adn9 
 % @ifclear VAR ... @end ifclear reads the `...' iff VAR has never been      \else
 % defined with @set, or has been undefined with @clear.        \ifnum0=\countA\else\makelink\fi
 %        \ifx\first.\let\next=\done\else
 \def\ifclear{\parsearg\ifclearxxx}          \let\next=\maketoks
 \def\ifclearxxx #1{%          \addtokens{\toksB}{\the\toksD}
   \expandafter\ifx\csname SET#1\endcsname\relax          \ifx\first,\addtokens{\toksB}{\space}\fi
     \expandafter\ifclearsucceed        \fi
   \else      \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
     \expandafter\ifclearfail      \next}
   \fi    \def\makelink{\addtokens{\toksB}%
 }      {\noexpand\pdflink{\the\toksC}}\toksC={}\global\countA=0}
 \def\ifclearsucceed{\conditionalsucceed{ifclear}}    \def\pdflink#1{%
 \def\ifclearfail{\nestedignore{ifclear}}      \startlink attr{/Border [0 0 0]} goto name{\pdfmkpgn{#1}}
 \defineunmatchedend{ifclear}      \linkcolor #1\endlink}
     \def\done{\edef\st{\global\noexpand\toksA={\the\toksB}}\st}
 % @iftex, @ifnothtml, @ifnotinfo always succeed; we read the text  \fi % \ifx\pdfoutput
 % following, through the first @end iftex (etc.).  Make `@end iftex'  
 % (etc.) valid only after an @iftex.  
 %  
 \def\iftex{\conditionalsucceed{iftex}}  
 \def\ifnothtml{\conditionalsucceed{ifnothtml}}  
 \def\ifnotinfo{\conditionalsucceed{ifnotinfo}}  
 \defineunmatchedend{iftex}  
 \defineunmatchedend{ifnothtml}  
 \defineunmatchedend{ifnotinfo}  
   
 % We can't just want to start a group at @iftex (for example) and end it  
 % at @end iftex, since then @set commands inside the conditional have no  
 % effect (they'd get reverted at the end of the group).  So we must  
 % define \Eiftex to redefine itself to be its previous value.  (We can't  
 % just define it to fail again with an ``unmatched end'' error, since  
 % the @ifset might be nested.)  
 %  
 \def\conditionalsucceed#1{%  
   \edef\temp{%  
     % Remember the current value of \E#1.  
     \let\nece{prevE#1} = \nece{E#1}%  
     %  
     % At the `@end #1', redefine \E#1 to be its previous value.  
     \def\nece{E#1}{\let\nece{E#1} = \nece{prevE#1}}%  
   }%  
   \temp  
 }  
   
 % We need to expand lots of \csname's, but we don't want to expand the  
 % control sequences after we've constructed them.  
 %  
 \def\nece#1{\expandafter\noexpand\csname#1\endcsname}  
   
 % @asis just yields its argument.  Used with @table, for example.  
 %  
 \def\asis#1{#1}  
   
 % @math means output in math mode.  
 % We don't use $'s directly in the definition of \math because control  
 % sequences like \math are expanded when the toc file is written.  Then,  
 % we read the toc file back, the $'s will be normal characters (as they  
 % should be, according to the definition of Texinfo).  So we must use a  
 % control sequence to switch into and out of math mode.  
 %  
 % This isn't quite enough for @math to work properly in indices, but it  
 % seems unlikely it will ever be needed there.  
 %  
 \let\implicitmath = $  
 \def\math#1{\implicitmath #1\implicitmath}  
   
 % @bullet and @minus need the same treatment as @math, just above.  
 \def\bullet{\implicitmath\ptexbullet\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.  
 \let\refill=\relax  
   
 % @setfilename is done at the beginning of every texinfo file.  
 % 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.  
 \def\setfilename{%  
    \readauxfile  
    \opencontents  
    \openindices  
    \fixbackslash  % Turn off hack to swallow `\input texinfo'.  
    \global\let\setfilename=\comment % Ignore extra @setfilename cmds.  
    %  
    % If texinfo.cnf is present on the system, read it.  
    % Useful for site-wide @afourpaper, etc.  
    % Just to be on the safe side, close the input stream before the \input.  
    \openin 1 texinfo.cnf  
    \ifeof1 \let\temp=\relax \else \def\temp{\input texinfo.cnf }\fi  
    \closein1  
    \temp  
    %  
    \comment % Ignore the actual filename.  
 }  
   
 % @bye.  
 \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}
Line 1091  where each line of input produces a line Line 1118  where each line of input produces a line
 % We don't need math for this one.  % We don't need math for this one.
 \def\ttsl{\tenttsl}  \def\ttsl{\tenttsl}
   
 % Use Computer Modern fonts at \magstephalf (11pt).  % Default leading.
 \newcount\mainmagstep  \newdimen\textleading  \textleading = 13.2pt
 \mainmagstep=\magstephalf  
   % Set the baselineskip to #1, and the lineskip and strut size
   % correspondingly.  There is no deep meaning behind these magic numbers
   % used as factors; they just match (closely enough) what Knuth defined.
   %
   \def\lineskipfactor{.08333}
   \def\strutheightpercent{.70833}
   \def\strutdepthpercent {.29167}
   %
   \def\setleading#1{%
     \normalbaselineskip = #1\relax
     \normallineskip = \lineskipfactor\normalbaselineskip
     \normalbaselines
     \setbox\strutbox =\hbox{%
       \vrule width0pt height\strutheightpercent\baselineskip
                       depth \strutdepthpercent \baselineskip
     }%
   }
   
 % Set the font macro #1 to the font named #2, adding on the  % Set the font macro #1 to the font named #2, adding on the
 % specified font prefix (normally `cm').  % specified font prefix (normally `cm').
Line 1123  where each line of input produces a line Line 1167  where each line of input produces a line
 \def\scshape{csc}  \def\scshape{csc}
 \def\scbshape{csc}  \def\scbshape{csc}
   
   \newcount\mainmagstep
 \ifx\bigger\relax  \ifx\bigger\relax
 \let\mainmagstep=\magstep1    % not really supported.
 \setfont\textrm\rmshape{12}{1000}    \let\mainmagstep=\magstep1
 \setfont\texttt\ttshape{12}{1000}    \setfont\textrm\rmshape{12}{1000}
     \setfont\texttt\ttshape{12}{1000}
 \else  \else
 \setfont\textrm\rmshape{10}{\mainmagstep}    \mainmagstep=\magstephalf
 \setfont\texttt\ttshape{10}{\mainmagstep}    \setfont\textrm\rmshape{10}{\mainmagstep}
     \setfont\texttt\ttshape{10}{\mainmagstep}
 \fi  \fi
 % Instead of cmb10, you many want to use cmbx10.  % Instead of cmb10, you many want to use cmbx10.
 % cmbx10 is a prettier font on its own, but cmb10  % cmbx10 is a prettier font on its own, but cmb10
Line 1148  where each line of input produces a line Line 1195  where each line of input produces a line
 \setfont\deftt\ttshape{10}{\magstep1}  \setfont\deftt\ttshape{10}{\magstep1}
 \def\df{\let\tentt=\deftt \let\tenbf = \defbf \bf}  \def\df{\let\tentt=\deftt \let\tenbf = \defbf \bf}
   
 % Fonts for indices and small examples (9pt).  % Fonts for indices, footnotes, small examples (9pt).
 % We actually use the slanted font rather than the italic,  \setfont\smallrm\rmshape{9}{1000}
 % because texinfo normally uses the slanted fonts for that.  \setfont\smalltt\ttshape{9}{1000}
 % Do not make many font distinctions in general in the index, since they  \setfont\smallbf\bfshape{10}{900}
 % aren't very useful.  \setfont\smallit\itshape{9}{1000}
 \setfont\ninett\ttshape{9}{1000}  \setfont\smallsl\slshape{9}{1000}
 \setfont\indrm\rmshape{9}{1000}  \setfont\smallsf\sfshape{9}{1000}
 \setfont\indit\slshape{9}{1000}  \setfont\smallsc\scshape{10}{900}
 \let\indsl=\indit  \setfont\smallttsl\ttslshape{10}{900}
 \let\indtt=\ninett  \font\smalli=cmmi9
 \let\indttsl=\ninett  \font\smallsy=cmsy9
 \let\indsf=\indrm  
 \let\indbf=\indrm  % Fonts for small examples (8pt).
 \setfont\indsc\scshape{10}{900}  \setfont\smallerrm\rmshape{8}{1000}
 \font\indi=cmmi9  \setfont\smallertt\ttshape{8}{1000}
 \font\indsy=cmsy9  \setfont\smallerbf\bfshape{10}{800}
   \setfont\smallerit\itshape{8}{1000}
   \setfont\smallersl\slshape{8}{1000}
   \setfont\smallersf\sfshape{8}{1000}
   \setfont\smallersc\scshape{10}{800}
   \setfont\smallerttsl\ttslshape{10}{800}
   \font\smalleri=cmmi8
   \font\smallersy=cmsy8
   
 % Fonts for title page:  % Fonts for title page:
 \setfont\titlerm\rmbshape{12}{\magstep3}  \setfont\titlerm\rmbshape{12}{\magstep3}
Line 1202  where each line of input produces a line Line 1256  where each line of input produces a line
 \font\seci=cmmi12 scaled \magstep1  \font\seci=cmmi12 scaled \magstep1
 \font\secsy=cmsy10 scaled \magstep2  \font\secsy=cmsy10 scaled \magstep2
   
 % \setfont\ssecrm\bxshape{10}{\magstep1}    % This size an font looked bad.  
 % \setfont\ssecit\itshape{10}{\magstep1}    % The letters were too crowded.  
 % \setfont\ssecsl\slshape{10}{\magstep1}  
 % \setfont\ssectt\ttshape{10}{\magstep1}  
 % \setfont\ssecsf\sfshape{10}{\magstep1}  
   
 %\setfont\ssecrm\bfshape{10}{1315}      % Note the use of cmb rather than cmbx.  
 %\setfont\ssecit\itshape{10}{1315}      % Also, the size is a little larger than  
 %\setfont\ssecsl\slshape{10}{1315}      % being scaled magstep1.  
 %\setfont\ssectt\ttshape{10}{1315}  
 %\setfont\ssecsf\sfshape{10}{1315}  
   
 %\let\ssecbf=\ssecrm  
   
 % Subsection fonts (13.15pt).  % Subsection fonts (13.15pt).
 \setfont\ssecrm\rmbshape{12}{\magstephalf}  \setfont\ssecrm\rmbshape{12}{\magstephalf}
 \setfont\ssecit\itbshape{10}{1315}  \setfont\ssecit\itbshape{10}{1315}
Line 1232  where each line of input produces a line Line 1272  where each line of input produces a line
   
 % In order for the font changes to affect most math symbols and letters,  % In order for the font changes to affect most math symbols and letters,
 % we have to define the \textfont of the standard families.  Since  % we have to define the \textfont of the standard families.  Since
 % texinfo doesn't allow for producing subscripts and superscripts, we  % texinfo doesn't allow for producing subscripts and superscripts except
 % don't bother to reset \scriptfont and \scriptscriptfont (which would  % in the main text, we don't bother to reset \scriptfont and
 % also require loading a lot more fonts).  % \scriptscriptfont (which would also require loading a lot more fonts).
 %  %
 \def\resetmathfonts{%  \def\resetmathfonts{%
   \textfont0 = \tenrm \textfont1 = \teni \textfont2 = \tensy    \textfont0=\tenrm \textfont1=\teni \textfont2=\tensy
   \textfont\itfam = \tenit \textfont\slfam = \tensl \textfont\bffam = \tenbf    \textfont\itfam=\tenit \textfont\slfam=\tensl \textfont\bffam=\tenbf
   \textfont\ttfam = \tentt \textfont\sffam = \tensf    \textfont\ttfam=\tentt \textfont\sffam=\tensf
 }  }
   
   
 % The font-changing commands redefine the meanings of \tenSTYLE, instead  % The font-changing commands redefine the meanings of \tenSTYLE, instead
 % of just \STYLE.  We do this so that font changes will continue to work  % of just \STYLE.  We do this so that font changes will continue to work
 % in math mode, where it is the current \fam that is relevant in most  % in math mode, where it is the current \fam that is relevant in most
Line 1253  where each line of input produces a line Line 1292  where each line of input produces a line
   \let\tenrm=\textrm \let\tenit=\textit \let\tensl=\textsl    \let\tenrm=\textrm \let\tenit=\textit \let\tensl=\textsl
   \let\tenbf=\textbf \let\tentt=\texttt \let\smallcaps=\textsc    \let\tenbf=\textbf \let\tentt=\texttt \let\smallcaps=\textsc
   \let\tensf=\textsf \let\teni=\texti \let\tensy=\textsy \let\tenttsl=\textttsl    \let\tensf=\textsf \let\teni=\texti \let\tensy=\textsy \let\tenttsl=\textttsl
   \resetmathfonts}    \resetmathfonts \setleading{\textleading}}
 \def\titlefonts{%  \def\titlefonts{%
   \let\tenrm=\titlerm \let\tenit=\titleit \let\tensl=\titlesl    \let\tenrm=\titlerm \let\tenit=\titleit \let\tensl=\titlesl
   \let\tenbf=\titlebf \let\tentt=\titlett \let\smallcaps=\titlesc    \let\tenbf=\titlebf \let\tentt=\titlett \let\smallcaps=\titlesc
Line 1277  where each line of input produces a line Line 1316  where each line of input produces a line
   \let\tensf=\ssecsf \let\teni=\sseci \let\tensy=\ssecsy \let\tenttsl=\ssecttsl    \let\tensf=\ssecsf \let\teni=\sseci \let\tensy=\ssecsy \let\tenttsl=\ssecttsl
   \resetmathfonts \setleading{15pt}}    \resetmathfonts \setleading{15pt}}
 \let\subsubsecfonts = \subsecfonts % Maybe make sssec fonts scaled magstephalf?  \let\subsubsecfonts = \subsecfonts % Maybe make sssec fonts scaled magstephalf?
 \def\indexfonts{%  \def\smallfonts{%
   \let\tenrm=\indrm \let\tenit=\indit \let\tensl=\indsl    \let\tenrm=\smallrm \let\tenit=\smallit \let\tensl=\smallsl
   \let\tenbf=\indbf \let\tentt=\indtt \let\smallcaps=\indsc    \let\tenbf=\smallbf \let\tentt=\smalltt \let\smallcaps=\smallsc
   \let\tensf=\indsf \let\teni=\indi \let\tensy=\indsy \let\tenttsl=\indttsl    \let\tensf=\smallsf \let\teni=\smalli \let\tensy=\smallsy
   \resetmathfonts \setleading{12pt}}    \let\tenttsl=\smallttsl
     \resetmathfonts \setleading{10.5pt}}
   \def\smallerfonts{%
     \let\tenrm=\smallerrm \let\tenit=\smallerit \let\tensl=\smallersl
     \let\tenbf=\smallerbf \let\tentt=\smallertt \let\smallcaps=\smallersc
     \let\tensf=\smallersf \let\teni=\smalleri \let\tensy=\smallersy
     \let\tenttsl=\smallerttsl
     \resetmathfonts \setleading{9.5pt}}
   \let\smallexamplefonts = \smallerfonts
   
 % Set up the default fonts, so we can use them for creating boxes.  % Set up the default fonts, so we can use them for creating boxes.
 %  %
Line 1305  where each line of input produces a line Line 1352  where each line of input produces a line
 % \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
Line 1329  where each line of input produces a line Line 1377  where each line of input produces a line
 }  }
 \let\ttfont=\t  \let\ttfont=\t
 \def\samp#1{`\tclose{#1}'\null}  \def\samp#1{`\tclose{#1}'\null}
 \setfont\smallrm\rmshape{8}{1000}  \setfont\keyrm\rmshape{8}{1000}
 \font\smallsy=cmsy9  \font\keysy=cmsy9
 \def\key#1{{\smallrm\textfont2=\smallsy \leavevmode\hbox{%  \def\key#1{{\keyrm\textfont2=\keysy \leavevmode\hbox{%
   \raise0.4pt\hbox{\angleleft}\kern-.08em\vtop{%    \raise0.4pt\hbox{\angleleft}\kern-.08em\vtop{%
     \vbox{\hrule\kern-0.4pt      \vbox{\hrule\kern-0.4pt
      \hbox{\raise0.4pt\hbox{\vphantom{\angleleft}}#1}}%       \hbox{\raise0.4pt\hbox{\vphantom{\angleleft}}#1}}%
Line 1341  where each line of input produces a line Line 1389  where each line of input produces a line
 %\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.
Line 1376  where each line of input produces a line Line 1426  where each line of input produces a line
 % 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)    % If we end up with any active - characters when handling the index,
 % fails.  --karl    % just treat them as a normal -.
 \global\def\indexbreaks{%    \global\def\indexbreaks{\catcode`\-=\active \let-\realdash}
   \catcode`\-=\active \let-\realdash  
 }  
 }  }
   
 \def\realdash{-}  \def\realdash{-}
 \def\codedash{-\discretionary{}{}{}}  \def\codedash{-\discretionary{}{}{}}
 \def\codeunder{\ifusingtt{\normalunderscore\discretionary{}{}{}}{\_}}  \def\codeunder{%
     % this is all so @math{@code{var_name}+1} can work.  In math mode, _
     % is "active" (mathcode"8000) and \normalunderscore (or \char95, etc.)
     % will therefore expand the active definition of _, which is us
     % (inside @code that is), therefore an endless loop.
     \ifusingtt{\ifmmode
                  \mathchar"075F % class 0=ordinary, family 7=ttfam, pos 0x5F=_.
                \else\normalunderscore \fi
                \discretionary{}{}{}}%
               {\_}%
   }
 \def\codex #1{\tclose{#1}\endgroup}  \def\codex #1{\tclose{#1}\endgroup}
   
 %\let\exp=\tclose  %Was temporary  
   
 % @kbd is like @code, except that if the argument is just one @key command,  % @kbd is like @code, except that if the argument is just one @key command,
 % then @kbd has no effect.  % then @kbd has no effect.
   
Line 1430  where each line of input produces a line Line 1486  where each line of input produces a line
 \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 (comma-separated)
 % specifying the text to display.  First (mandatory) arg is the url.  % second argument specifying the text to display and an optional third
 % Perhaps eventually put in a hypertex \special here.  % arg as text to display instead of (rather than in addition to) the url
 %   % itself.  First (mandatory) arg is the url.  Perhaps eventually put in
 \def\uref#1{\urefxxx #1,,\finish}  % a hypertex \special here.
 \def\urefxxx#1,#2,#3\finish{%  %
   \setbox0 = \hbox{\ignorespaces #2}%  \def\uref#1{\douref #1,,,\finish}
   \def\douref#1,#2,#3,#4\finish{\begingroup
     \unsepspaces
     \pdfurl{#1}%
     \setbox0 = \hbox{\ignorespaces #3}%
   \ifdim\wd0 > 0pt    \ifdim\wd0 > 0pt
     \unhbox0\ (\code{#1})%      \unhbox0 % third arg given, show only that
   \else    \else
     \code{#1}%      \setbox0 = \hbox{\ignorespaces #2}%
       \ifdim\wd0 > 0pt
         \ifpdf
           \unhbox0             % PDF: 2nd arg given, show only it
         \else
           \unhbox0\ (\code{#1})% DVI: 2nd arg given, show both it and url
         \fi
       \else
         \code{#1}% only url given, so show it
       \fi
   \fi    \fi
 }    \endlink
   \endgroup}
   
 % rms does not like the angle brackets --karl, 17may97.  % rms does not like angle brackets --karl, 17may97.
 % So now @email is just like @uref.  % So now @email is just like @uref, unless we are pdf.
   % 
 %\def\email#1{\angleleft{\tt #1}\angleright}  %\def\email#1{\angleleft{\tt #1}\angleright}
 \let\email=\uref  \ifpdf
     \def\email#1{\doemail#1,,\finish}
     \def\doemail#1,#2,#3\finish{\begingroup
       \unsepspaces
       \pdfurl{mailto:#1}%
       \setbox0 = \hbox{\ignorespaces #2}%
       \ifdim\wd0>0pt\unhbox0\else\code{#1}\fi
       \endlink
     \endgroup}
   \else
     \let\email=\uref
   \fi
   
 % Check if we are currently using a typewriter font.  Since all the  % Check if we are currently using a typewriter font.  Since all the
 % Computer Modern typewriter fonts have zero interword stretch (and  % Computer Modern typewriter fonts have zero interword stretch (and
Line 1460  where each line of input produces a line Line 1544  where each line of input produces a line
 \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}
   
Line 1472  where each line of input produces a line Line 1555  where each line of input produces a line
 % 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\$}}
   
Line 1490  where each line of input produces a line Line 1576  where each line of input produces a line
 \newif\ifseenauthor  \newif\ifseenauthor
 \newif\iffinishedtitlepage  \newif\iffinishedtitlepage
   
   % Do an implicit @contents or @shortcontents after @end titlepage if the
   % user says @setcontentsaftertitlepage or @setshortcontentsaftertitlepage.
   %
   \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}%
Line 1547  where each line of input produces a line Line 1638  where each line of input produces a line
    % after the title page, which we certainly don't want.     % after the title page, which we certainly don't want.
    \oldpage     \oldpage
    \endgroup     \endgroup
      %
      % Need this before the \...aftertitlepage checks so that if they are
      % in effect the toc pages will come out with page numbers.
    \HEADINGSon     \HEADINGSon
      %
      % 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
 }  }
   
 \def\finishtitlepage{%  \def\finishtitlepage{%
Line 1560  where each line of input produces a line Line 1668  where each line of input produces a line
   
 \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
Line 1680  where each line of input produces a line Line 1788  where each line of input produces a line
 }  }
   
 % Subroutines used in generating headings  % Subroutines used in generating headings
 % Produces Day Month Year style of output.  % This produces Day Month Year style of output.
 \def\today{\number\day\space  % Only define if not already defined, in case a txi-??.tex file has set
 \ifcase\month\or  % up a different format (e.g., txi-cs.tex does this).
 January\or February\or March\or April\or May\or June\or  \ifx\today\undefined
 July\or August\or September\or October\or November\or December\fi  \def\today{%
 \space\number\year}    \number\day\space
     \ifcase\month
 % Use this if you want the Month Day, Year style of output.    \or\putwordMJan\or\putwordMFeb\or\putwordMMar\or\putwordMApr
 %\def\today{\ifcase\month\or    \or\putwordMMay\or\putwordMJun\or\putwordMJul\or\putwordMAug
 %January\or February\or March\or April\or May\or June\or    \or\putwordMSep\or\putwordMOct\or\putwordMNov\or\putwordMDec
 %July\or August\or September\or October\or November\or December\fi    \fi
 %\space\number\day, \number\year}    \space\number\year}
   \fi
 % @settitle line...  specifies the title of the document, for headings  
 % It generates no output of its own  
   
 \def\thistitle{No Title}  % @settitle line...  specifies the title of the document, for headings.
   % It generates no output of its own.
   \def\thistitle{\putwordNoTitle}
 \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
Line 1757  July\or August\or September\or October\o Line 1853  July\or August\or September\or October\o
   \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
Line 1790  July\or August\or September\or October\o Line 1881  July\or August\or September\or October\o
     \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
 }  }
   
Line 1807  July\or August\or September\or October\o Line 1902  July\or August\or September\or October\o
 \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{%
Line 1869  July\or August\or September\or October\o Line 1965  July\or August\or September\or October\o
 \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}
 }  }
   
Line 2082  July\or August\or September\or October\o Line 2178  July\or August\or September\or October\o
 \multitablelinespace=0pt  \multitablelinespace=0pt
   
 % Macros used to set up halign preamble:  % Macros used to set up halign preamble:
 %   %
 \let\endsetuptable\relax  \let\endsetuptable\relax
 \def\xendsetuptable{\endsetuptable}  \def\xendsetuptable{\endsetuptable}
 \let\columnfractions\relax  \let\columnfractions\relax
 \def\xcolumnfractions{\columnfractions}  \def\xcolumnfractions{\columnfractions}
 \newif\ifsetpercent  \newif\ifsetpercent
   
 % 2/1/96, to allow fractions to be given with more than one digit.  % #1 is the part of the @columnfraction before the decimal point, which
 \def\pickupwholefraction#1 {\global\advance\colcount by1 %  % is presumably either 0 or the empty string (but we don't check, we
 \expandafter\xdef\csname col\the\colcount\endcsname{.#1\hsize}%  % just throw it away).  #2 is the decimal part, which we use as the
 \setuptable}  % percent of \hsize for this column.
   \def\pickupwholefraction#1.#2 {%
     \global\advance\colcount by 1
     \expandafter\xdef\csname col\the\colcount\endcsname{.#2\hsize}%
     \setuptable
   }
   
 \newcount\colcount  \newcount\colcount
 \def\setuptable#1{\def\firstarg{#1}%  \def\setuptable#1{%
 \ifx\firstarg\xendsetuptable\let\go\relax%    \def\firstarg{#1}%
 \else    \ifx\firstarg\xendsetuptable
   \ifx\firstarg\xcolumnfractions\global\setpercenttrue%      \let\go = \relax
   \else    \else
     \ifsetpercent      \ifx\firstarg\xcolumnfractions
        \let\go\pickupwholefraction   % In this case arg of setuptable        \global\setpercenttrue
                                      % is the decimal point before the  
                                      % number given in percent of hsize.  
                                      % We don't need this so we don't use it.  
     \else      \else
        \global\advance\colcount by1        \ifsetpercent
        \setbox0=\hbox{#1 }% Add a normal word space as a separator;           \let\go\pickupwholefraction
                           % typically that is always in the input, anyway.        \else
        \expandafter\xdef\csname col\the\colcount\endcsname{\the\wd0}%           \global\advance\colcount by 1
     \fi%           \setbox0=\hbox{#1\unskip }% Add a normal word space as a separator;
   \fi%                              % typically that is always in the input, anyway.
 \ifx\go\pickupwholefraction\else\let\go\setuptable\fi%           \expandafter\xdef\csname col\the\colcount\endcsname{\the\wd0}%
 \fi\go}        \fi
       \fi
 % multitable syntax      \ifx\go\pickupwholefraction
 \def\tab{&\hskip1sp\relax} % 2/2/96        % Put the argument back for the \pickupwholefraction call, so
                            % tiny skip here makes sure this column space is        % we'll always have a period there to be parsed.
                            % maintained, even if it is never used.        \def\go{\pickupwholefraction#1}%
       \else
         \let\go = \setuptable
       \fi%
     \fi
     \go
   }
   
 % @multitable ... @end multitable definitions:  % This used to have \hskip1sp.  But then the space in a template line is
   % not enough.  That is bad.  So let's go back to just & until we
   % encounter the problem it was intended to solve again.
   % --karl, nathan@acm.org, 20apr99.
   \def\tab{&}
   
   % @multitable ... @end multitable definitions:
   %
 \def\multitable{\parsearg\dotable}  \def\multitable{\parsearg\dotable}
 \def\dotable#1{\bgroup  \def\dotable#1{\bgroup
   \vskip\parskip    \vskip\parskip
Line 2160  July\or August\or September\or October\o Line 2270  July\or August\or September\or October\o
   % In order to keep entries from bumping into each other    % In order to keep entries from bumping into each other
   % we will add a \leftskip of \multitablecolspace to all columns after    % we will add a \leftskip of \multitablecolspace to all columns after
   % the first one.    % the first one.
   %     %
   % If a template has been used, we will add \multitablecolspace    % If a template has been used, we will add \multitablecolspace
   % to the width of each template entry.    % to the width of each template entry.
   %     %
   % If the user has set preamble in terms of percent of \hsize we will    % If the user has set preamble in terms of percent of \hsize we will
   % use that dimension as the width of the column, and the \leftskip    % use that dimension as the width of the column, and the \leftskip
   % will keep entries from bumping into each other.  Table will start at    % will keep entries from bumping into each other.  Table will start at
   % left margin and final column will justify at right margin.    % left margin and final column will justify at right margin.
   %     %
   % Make sure we don't inherit \rightskip from the outer environment.    % Make sure we don't inherit \rightskip from the outer environment.
   \rightskip=0pt    \rightskip=0pt
   \ifnum\colcount=1    \ifnum\colcount=1
Line 2199  July\or August\or September\or October\o Line 2309  July\or August\or September\or October\o
 % If so, do nothing. If not, give it an appropriate dimension based on  % If so, do nothing. If not, give it an appropriate dimension based on
 % current baselineskip.  % current baselineskip.
 \ifdim\multitablelinespace=0pt  \ifdim\multitablelinespace=0pt
   \setbox0=\vbox{X}\global\multitablelinespace=\the\baselineskip
   \global\advance\multitablelinespace by-\ht0
 %% strut to put in table in case some entry doesn't have descenders,  %% strut to put in table in case some entry doesn't have descenders,
 %% to keep lines equally spaced  %% to keep lines equally spaced
 \let\multistrut = \strut  \let\multistrut = \strut
 %% Test to see if parskip is larger than space between lines of  
 %% table. If not, do nothing.  
 %%        If so, set to same dimension as multitablelinespace.  
 \else  \else
   %% FIXME: what is \box0 supposed to be?
 \gdef\multistrut{\vrule height\multitablelinespace depth\dp0  \gdef\multistrut{\vrule height\multitablelinespace depth\dp0
 width0pt\relax} \fi  width0pt\relax} \fi
   %% Test to see if parskip is larger than space between lines of
   %% table. If not, do nothing.
   %%        If so, set to same dimension as multitablelinespace.
 \ifdim\multitableparskip>\multitablelinespace  \ifdim\multitableparskip>\multitablelinespace
 \global\multitableparskip=\multitablelinespace  \global\multitableparskip=\multitablelinespace
 \global\advance\multitableparskip-7pt %% to keep parskip somewhat smaller  \global\advance\multitableparskip-7pt %% to keep parskip somewhat smaller
Line 2220  width0pt\relax} \fi Line 2333  width0pt\relax} \fi
 \fi}  \fi}
   
   
   \message{conditionals,}
   % Prevent errors for section commands.
   % Used in @ignore and in failing conditionals.
   \def\ignoresections{%
     \let\chapter=\relax
     \let\unnumbered=\relax
     \let\top=\relax
     \let\unnumberedsec=\relax
     \let\unnumberedsection=\relax
     \let\unnumberedsubsec=\relax
     \let\unnumberedsubsection=\relax
     \let\unnumberedsubsubsec=\relax
     \let\unnumberedsubsubsection=\relax
     \let\section=\relax
     \let\subsec=\relax
     \let\subsubsec=\relax
     \let\subsection=\relax
     \let\subsubsection=\relax
     \let\appendix=\relax
     \let\appendixsec=\relax
     \let\appendixsection=\relax
     \let\appendixsubsec=\relax
     \let\appendixsubsection=\relax
     \let\appendixsubsubsec=\relax
     \let\appendixsubsubsection=\relax
     \let\contents=\relax
     \let\smallbook=\relax
     \let\titlepage=\relax
   }
   
   % Used in nested conditionals, where we have to parse the Texinfo source
   % and so want to turn off most commands, in case they are used
   % incorrectly.
   %
   \def\ignoremorecommands{%
     \let\defcodeindex = \relax
     \let\defcv = \relax
     \let\deffn = \relax
     \let\deffnx = \relax
     \let\defindex = \relax
     \let\defivar = \relax
     \let\defmac = \relax
     \let\defmethod = \relax
     \let\defop = \relax
     \let\defopt = \relax
     \let\defspec = \relax
     \let\deftp = \relax
     \let\deftypefn = \relax
     \let\deftypefun = \relax
     \let\deftypeivar = \relax
     \let\deftypeop = \relax
     \let\deftypevar = \relax
     \let\deftypevr = \relax
     \let\defun = \relax
     \let\defvar = \relax
     \let\defvr = \relax
     \let\ref = \relax
     \let\xref = \relax
     \let\printindex = \relax
     \let\pxref = \relax
     \let\settitle = \relax
     \let\setchapternewpage = \relax
     \let\setchapterstyle = \relax
     \let\everyheading = \relax
     \let\evenheading = \relax
     \let\oddheading = \relax
     \let\everyfooting = \relax
     \let\evenfooting = \relax
     \let\oddfooting = \relax
     \let\headings = \relax
     \let\include = \relax
     \let\lowersections = \relax
     \let\down = \relax
     \let\raisesections = \relax
     \let\up = \relax
     \let\set = \relax
     \let\clear = \relax
     \let\item = \relax
   }
   
   % Ignore @ignore, @ifhtml, @ifinfo, @ifplaintext, @ifnottex, @html, @menu,
   % @direntry, and @documentdescription.
   %
   \def\ignore{\doignore{ignore}}
   \def\ifhtml{\doignore{ifhtml}}
   \def\ifinfo{\doignore{ifinfo}}
   \def\ifplaintext{\doignore{ifplaintext}}
   \def\ifnottex{\doignore{ifnottex}}
   \def\html{\doignore{html}}
   \def\menu{\doignore{menu}}
   \def\direntry{\doignore{direntry}}
   \def\documentdescription{\doignore{documentdescription}}
   \def\documentdescriptionword{documentdescription}
   
   % @dircategory CATEGORY  -- specify a category of the dir file
   % which this file should belong to.  Ignore this in TeX.
   \let\dircategory = \comment
   
   % Ignore text until a line `@end #1'.
   %
   \def\doignore#1{\begingroup
     % Don't complain about control sequences we have declared \outer.
     \ignoresections
     %
     % Define a command to swallow text until we reach `@end #1'.
     % 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.
     \catcode32 = 10
     %
     % Ignore braces, too, so mismatched braces don't cause trouble.
     \catcode`\{ = 9
     \catcode`\} = 9
     %
     % We must not have @c interpreted as a control sequence.
     \catcode`\@ = 12
     %
     \def\ignoreword{#1}%
     \ifx\ignoreword\documentdescriptionword
       % The c kludge breaks documentdescription, since
       % `documentdescription' contains a `c'.  Means not everything will
       % be ignored inside @documentdescription, but oh well...
     \else
       % 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
     \fi
     %
     % And now expand the command defined above.
     \doignoretext
   }
   
   % What we do to finish off ignored text.
   %
   \def\enddoignore{\endgroup\ignorespaces}%
   
   \newif\ifwarnedobs\warnedobsfalse
   \def\obstexwarn{%
     \ifwarnedobs\relax\else
     % We need to warn folks that they may have trouble with TeX 3.0.
     % This uses \immediate\write16 rather than \message to get newlines.
       \immediate\write16{}
       \immediate\write16{WARNING: for users of Unix TeX 3.0!}
       \immediate\write16{This manual trips a bug in TeX version 3.0 (tex hangs).}
       \immediate\write16{If you are running another version of TeX, relax.}
       \immediate\write16{If you are running Unix TeX 3.0, kill this TeX process.}
       \immediate\write16{  Then upgrade your TeX installation if you can.}
       \immediate\write16{  (See ftp://ftp.gnu.org/pub/gnu/TeX.README.)}
       \immediate\write16{If you are stuck with version 3.0, run the}
       \immediate\write16{  script ``tex3patch'' from the Texinfo distribution}
       \immediate\write16{  to use a workaround.}
       \immediate\write16{}
       \global\warnedobstrue
       \fi
   }
   
   % **In TeX 3.0, setting text in \nullfont hangs tex.  For a
   % workaround (which requires the file ``dummy.tfm'' to be installed),
   % uncomment the following line:
   %%%%%\font\nullfont=dummy\let\obstexwarn=\relax
   
   % Ignore text, except that we keep track of conditional commands for
   % purposes of nesting, up to an `@end #1' command.
   %
   \def\nestedignore#1{%
     \obstexwarn
     % We must actually expand the ignored text to look for the @end
     % command, so that nested ignore constructs work.  Thus, we put the
     % text into a \vbox and then do nothing with the result.  To minimize
     % the change of memory overflow, we follow the approach outlined on
     % page 401 of the TeXbook: make the current font be a dummy font.
     %
     \setbox0 = \vbox\bgroup
       % Don't complain about control sequences we have declared \outer.
       \ignoresections
       %
       % Define `@end #1' to end the box, which will in turn undefine the
       % @end command again.
       \expandafter\def\csname E#1\endcsname{\egroup\ignorespaces}%
       %
       % We are going to be parsing Texinfo commands.  Most cause no
       % trouble when they are used incorrectly, but some commands do
       % complicated argument parsing or otherwise get confused, so we
       % undefine them.
       %
       % We can't do anything about stray @-signs, unfortunately;
       % they'll produce `undefined control sequence' errors.
       \ignoremorecommands
       %
       % Set the current font to be \nullfont, a TeX primitive, and define
       % all the font commands to also use \nullfont.  We don't use
       % dummy.tfm, as suggested in the TeXbook, because not all sites
       % might have that installed.  Therefore, math mode will still
       % produce output, but that should be an extremely small amount of
       % stuff compared to the main input.
       %
       \nullfont
       \let\tenrm=\nullfont \let\tenit=\nullfont \let\tensl=\nullfont
       \let\tenbf=\nullfont \let\tentt=\nullfont \let\smallcaps=\nullfont
       \let\tensf=\nullfont
       % Similarly for index fonts.
       \let\smallrm=\nullfont \let\smallit=\nullfont \let\smallsl=\nullfont
       \let\smallbf=\nullfont \let\smalltt=\nullfont \let\smallsc=\nullfont
       \let\smallsf=\nullfont
       % Similarly for smallexample fonts.
       \let\smallerrm=\nullfont \let\smallerit=\nullfont \let\smallersl=\nullfont
       \let\smallerbf=\nullfont \let\smallertt=\nullfont \let\smallersc=\nullfont
       \let\smallersf=\nullfont
       %
       % Don't complain when characters are missing from the fonts.
       \tracinglostchars = 0
       %
       % Don't bother to do space factor calculations.
       \frenchspacing
       %
       % Don't report underfull hboxes.
       \hbadness = 10000
       %
       % Do minimal line-breaking.
       \pretolerance = 10000
       %
       % Do not execute instructions in @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 REST-OF-LINE sets VAR to the value REST-OF-LINE.
   %
   % Since we want to separate VAR from REST-OF-LINE (which might be
   % empty), we can't just use \parsearg; we have to insert a space of our
   % own to delimit the rest of the line, and then take it out again if we
   % didn't need it.  Make sure the catcode of space is correct to avoid
   % losing inside @example, for instance.
   %
   \def\set{\begingroup\catcode` =10
     \catcode`\-=12 \catcode`\_=12 % Allow - and _ in VAR.
     \parsearg\setxxx}
   \def\setxxx#1{\setyyy#1 \endsetyyy}
   \def\setyyy#1 #2\endsetyyy{%
     \def\temp{#2}%
     \ifx\temp\empty \global\expandafter\let\csname SET#1\endcsname = \empty
     \else \setzzz{#1}#2\endsetzzz % Remove the trailing space \setxxx inserted.
     \fi
     \endgroup
   }
   % Can't use \xdef to pre-expand #2 and save some time, since \temp or
   % \next or other control sequences that we've defined might get us into
   % an infinite loop. Consider `@set foo @cite{bar}'.
   \def\setzzz#1#2 \endsetzzz{\expandafter\gdef\csname SET#1\endcsname{#2}}
   
   % @clear VAR clears (i.e., unsets) the variable VAR.
   %
   \def\clear{\parsearg\clearxxx}
   \def\clearxxx#1{\global\expandafter\let\csname SET#1\endcsname=\relax}
   
   % @value{foo} gets the text saved in variable foo.
   {
     \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}
   }
   \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
       {[No value for ``#1'']}%
     \else
       \csname SET#1\endcsname
     \fi
   }
   
   % @ifset VAR ... @end ifset reads the `...' iff VAR has been defined
   % with @set.
   %
   \def\ifset{\parsearg\ifsetxxx}
   \def\ifsetxxx #1{%
     \expandafter\ifx\csname SET#1\endcsname\relax
       \expandafter\ifsetfail
     \else
       \expandafter\ifsetsucceed
     \fi
   }
   \def\ifsetsucceed{\conditionalsucceed{ifset}}
   \def\ifsetfail{\nestedignore{ifset}}
   \defineunmatchedend{ifset}
   
   % @ifclear VAR ... @end ifclear reads the `...' iff VAR has never been
   % defined with @set, or has been undefined with @clear.
   %
   \def\ifclear{\parsearg\ifclearxxx}
   \def\ifclearxxx #1{%
     \expandafter\ifx\csname SET#1\endcsname\relax
       \expandafter\ifclearsucceed
     \else
       \expandafter\ifclearfail
     \fi
   }
   \def\ifclearsucceed{\conditionalsucceed{ifclear}}
   \def\ifclearfail{\nestedignore{ifclear}}
   \defineunmatchedend{ifclear}
   
   % @iftex, @ifnothtml, @ifnotinfo, @ifnotplaintext always succeed; we
   % read the text following, through the first @end iftex (etc.).  Make
   % `@end iftex' (etc.) valid only after an @iftex.
   %
   \def\iftex{\conditionalsucceed{iftex}}
   \def\ifnothtml{\conditionalsucceed{ifnothtml}}
   \def\ifnotinfo{\conditionalsucceed{ifnotinfo}}
   \def\ifnotplaintext{\conditionalsucceed{ifnotplaintext}}
   \defineunmatchedend{iftex}
   \defineunmatchedend{ifnothtml}
   \defineunmatchedend{ifnotinfo}
   \defineunmatchedend{ifnotplaintext}
   
   % We can't just want to start a group at @iftex (etc.) and end it at
   % @end iftex, since then @set commands inside the conditional have no
   % effect (they'd get reverted at the end of the group).  So we must
   % define \Eiftex to redefine itself to be its previous value.  (We can't
   % just define it to fail again with an ``unmatched end'' error, since
   % the @ifset might be nested.)
   %
   \def\conditionalsucceed#1{%
     \edef\temp{%
       % Remember the current value of \E#1.
       \let\nece{prevE#1} = \nece{E#1}%
       %
       % At the `@end #1', redefine \E#1 to be its previous value.
       \def\nece{E#1}{\let\nece{E#1} = \nece{prevE#1}}%
     }%
     \temp
   }
   
   % We need to expand lots of \csname's, but we don't want to expand the
   % control sequences after we've constructed them.
   %
   \def\nece#1{\expandafter\noexpand\csname#1\endcsname}
   
   % @defininfoenclose.
   \let\definfoenclose=\comment
   
   
 \message{indexing,}  \message{indexing,}
 % Index generation facilities  % Index generation facilities
   
Line 2235  width0pt\relax} \fi Line 2712  width0pt\relax} \fi
 % 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
 \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 % Open the file
 \noexpand\doindex {#1}}    \fi
     \expandafter\xdef\csname#1index\endcsname{%     % Define @#1index
       \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\defcodeindex{\parsearg\newcodeindex}
 \expandafter\newwrite \csname#1indfile\endcsname% Define number for output file  %
 \openout \csname#1indfile\endcsname \jobname.#1 % Open the file  \def\newcodeindex#1{%
 \expandafter\xdef\csname#1index\endcsname{%     % Define \xxxindex    \iflinks
 \noexpand\docodeindex {#1}}      \expandafter\newwrite \csname#1indfile\endcsname
       \openout \csname#1indfile\endcsname \jobname.#1
     \fi
     \expandafter\xdef\csname#1index\endcsname{%
       \noexpand\docodeindex{#1}}%
 }  }
   
 \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.
 \def\synindex #1 #2 {%  % 
 \expandafter\let\expandafter\synindexfoo\expandafter=\csname#2indfile\endcsname  
 \expandafter\let\csname#1indfile\endcsname=\synindexfoo  
 \expandafter\xdef\csname#1index\endcsname{%     % Define \xxxindex  
 \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 {%  % 
 \expandafter\let\expandafter\synindexfoo\expandafter=\csname#2indfile\endcsname  \def\synindex#1 #2 {\dosynindex\doindex{#1}{#2}}
 \expandafter\let\csname#1indfile\endcsname=\synindexfoo  \def\syncodeindex#1 #2 {\dosynindex\docodeindex{#1}{#2}}
 \expandafter\xdef\csname#1index\endcsname{%     % Define \xxxindex  
 \noexpand\docodeindex {#2}}%  % #1 is \doindex or \docodeindex, #2 the index getting redefined (foo),
   % #3 the target index (bar).
   \def\dosynindex#1#2#3{%
     % Only do \closeout if we haven't already done it, else we'll end up
     % closing the target index.
     \expandafter \ifx\csname donesynindex#2\endcsname \undefined
       % The \closeout helps reduce unnecessary open files; the limit on the
       % Acorn RISC OS is a mere 16 files.
       \expandafter\closeout\csname#2indfile\endcsname
       \expandafter\let\csname\donesynindex#2\endcsname = 1
     \fi
     % redefine \fooindfile:
     \expandafter\let\expandafter\temp\expandafter=\csname#3indfile\endcsname
     \expandafter\let\csname#2indfile\endcsname=\temp
     % redefine \fooindex:
     \expandafter\xdef\csname#2index\endcsname{\noexpand#1{#3}}%
 }  }
   
 % Define \doindex, the driver for all \fooindex macros.  % Define \doindex, the driver for all \fooindex macros.
Line 2293  width0pt\relax} \fi Line 2784  width0pt\relax} \fi
 \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}}}
   
   % Take care of texinfo commands likely to appear in an index entry.
   % (Must be a way to avoid doing expansion at all, and thus not have to
   % laboriously list every single command here.)
   % 
 \def\indexdummies{%  \def\indexdummies{%
   \def\ { }%
   \def\@{@}% change to @@ when we switch to @ as escape char in aux files.
   % Need these in case \tex is in effect and \{ is a \delimiter again.
   % But can't use \lbracecmd and \rbracecmd because texindex assumes
   % braces and backslashes are used only as delimiters.  
   \let\{ = \mylbrace
   \let\} = \myrbrace
   \def\_{{\realbackslash _}}%
   \normalturnoffactive
   %
 % Take care of the plain tex accent commands.  % Take care of the plain tex accent commands.
   \def\,##1{\realbackslash ,{##1}}%
 \def\"{\realbackslash "}%  \def\"{\realbackslash "}%
 \def\`{\realbackslash `}%  \def\`{\realbackslash `}%
 \def\'{\realbackslash '}%  \def\'{\realbackslash '}%
Line 2307  width0pt\relax} \fi Line 2813  width0pt\relax} \fi
 \def\u{\realbackslash u}%  \def\u{\realbackslash u}%
 \def\v{\realbackslash v}%  \def\v{\realbackslash v}%
 \def\H{\realbackslash H}%  \def\H{\realbackslash H}%
   \def\dotless##1{\realbackslash dotless {##1}}%
 % Take care of the plain tex special European modified letters.  % Take care of the plain tex special European modified letters.
 \def\oe{\realbackslash oe}%  
 \def\ae{\realbackslash ae}%  
 \def\aa{\realbackslash aa}%  
 \def\OE{\realbackslash OE}%  
 \def\AE{\realbackslash AE}%  
 \def\AA{\realbackslash AA}%  \def\AA{\realbackslash AA}%
 \def\o{\realbackslash o}%  \def\AE{\realbackslash AE}%
   \def\L{\realbackslash L}%
   \def\OE{\realbackslash OE}%
 \def\O{\realbackslash O}%  \def\O{\realbackslash O}%
   \def\aa{\realbackslash aa}%
   \def\ae{\realbackslash ae}%
 \def\l{\realbackslash l}%  \def\l{\realbackslash l}%
 \def\L{\realbackslash L}%  \def\oe{\realbackslash oe}%
   \def\o{\realbackslash o}%
 \def\ss{\realbackslash ss}%  \def\ss{\realbackslash ss}%
 % Take care of texinfo commands likely to appear in an index entry.  %
 % (Must be a way to avoid doing expansion at all, and thus not have to  % Although these internals commands shouldn't show up, sometimes they do.
 % laboriously list every single command here.)  
 \def\@{@}% will be @@ when we switch to @ as escape char.  
 %\let\{ = \lbracecmd  
 %\let\} = \rbracecmd  
 \def\_{{\realbackslash _}}%  
 \def\w{\realbackslash w }%  
 \def\bf{\realbackslash bf }%  \def\bf{\realbackslash bf }%
 %\def\rm{\realbackslash rm }%  
 \def\sl{\realbackslash sl }%  
 \def\sf{\realbackslash sf}%  
 \def\tt{\realbackslash tt}%  
 \def\gtr{\realbackslash gtr}%  \def\gtr{\realbackslash gtr}%
 \def\less{\realbackslash less}%  
 \def\hat{\realbackslash hat}%  \def\hat{\realbackslash hat}%
 %\def\char{\realbackslash char}%  \def\less{\realbackslash less}%
 \def\TeX{\realbackslash TeX}%  %\def\rm{\realbackslash rm }%
 \def\dots{\realbackslash dots }%  \def\sf{\realbackslash sf}%
 \def\result{\realbackslash result}%  \def\sl{\realbackslash sl }%
 \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\tclose##1{\realbackslash tclose {##1}}%  \def\tclose##1{\realbackslash tclose {##1}}%
 \def\code##1{\realbackslash code {##1}}%  \def\tt{\realbackslash tt}%
 \def\dotless##1{\realbackslash dotless {##1}}%  %
 \def\samp##1{\realbackslash samp {##1}}%  
 \def\,##1{\realbackslash ,{##1}}%  
 \def\t##1{\realbackslash t {##1}}%  
 \def\r##1{\realbackslash r {##1}}%  
 \def\i##1{\realbackslash i {##1}}%  
 \def\b##1{\realbackslash b {##1}}%  \def\b##1{\realbackslash b {##1}}%
   \def\i##1{\realbackslash i {##1}}%
 \def\sc##1{\realbackslash sc {##1}}%  \def\sc##1{\realbackslash sc {##1}}%
   \def\t##1{\realbackslash t {##1}}%
   \def\r##1{\realbackslash r {##1}}%
   %
   \def\TeX{\realbackslash TeX}%
   \def\acronym##1{\realbackslash acronym {##1}}%
 \def\cite##1{\realbackslash cite {##1}}%  \def\cite##1{\realbackslash cite {##1}}%
 \def\key##1{\realbackslash key {##1}}%  \def\code##1{\realbackslash code {##1}}%
 \def\file##1{\realbackslash file {##1}}%  \def\command##1{\realbackslash command {##1}}%
 \def\var##1{\realbackslash var {##1}}%  
 \def\kbd##1{\realbackslash kbd {##1}}%  
 \def\dfn##1{\realbackslash dfn {##1}}%  \def\dfn##1{\realbackslash dfn {##1}}%
   \def\dots{\realbackslash dots }%
 \def\emph##1{\realbackslash emph {##1}}%  \def\emph##1{\realbackslash emph {##1}}%
 \def\value##1{\realbackslash value {##1}}%  \def\env##1{\realbackslash env {##1}}%
   \def\file##1{\realbackslash file {##1}}%
   \def\kbd##1{\realbackslash kbd {##1}}%
   \def\key##1{\realbackslash key {##1}}%
   \def\math##1{\realbackslash math {##1}}%
   \def\option##1{\realbackslash option {##1}}%
   \def\samp##1{\realbackslash samp {##1}}%
   \def\strong##1{\realbackslash strong {##1}}%
   \def\uref##1{\realbackslash uref {##1}}%
   \def\url##1{\realbackslash url {##1}}%
   \def\var##1{\realbackslash var {##1}}%
   \def\w{\realbackslash w }%
   %
   % These math commands don't seem likely to be used in index entries.
   \def\copyright{\realbackslash copyright}%
   \def\equiv{\realbackslash equiv}%
   \def\error{\realbackslash error}%
   \def\expansion{\realbackslash expansion}%
   \def\point{\realbackslash point}%
   \def\print{\realbackslash print}%
   \def\result{\realbackslash result}%
   %
   % 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
   % Turn off macro expansion
   \turnoffmacros
 }  }
   
 % If an index command is used in an @example environment, any spaces  % If an index command is used in an @example environment, any spaces
 % therein should become regular spaces in the raw index file, not the  % therein should become regular spaces in the raw index file, not the
 % expansion of \tie (\\leavevmode \penalty \@M \ ).  % expansion of \tie (\leavevmode \penalty \@M \ ).
 {\obeyspaces  {\obeyspaces
  \gdef\unsepspaces{\obeyspaces\let =\space}}   \gdef\unsepspaces{\obeyspaces\let =\space}}
   
Line 2379  width0pt\relax} \fi Line 2897  width0pt\relax} \fi
 \def\indexdummydots{...}  \def\indexdummydots{...}
   
 \def\indexnofonts{%  \def\indexnofonts{%
 % Just ignore accents.  \def\@{@}%
   % how to handle braces?
   \def\_{\normalunderscore}%
   %
 \let\,=\indexdummyfont  \let\,=\indexdummyfont
 \let\"=\indexdummyfont  \let\"=\indexdummyfont
 \let\`=\indexdummyfont  \let\`=\indexdummyfont
Line 2395  width0pt\relax} \fi Line 2916  width0pt\relax} \fi
 \let\H=\indexdummyfont  \let\H=\indexdummyfont
 \let\dotless=\indexdummyfont  \let\dotless=\indexdummyfont
 % Take care of the plain tex special European modified letters.  % Take care of the plain tex special European modified letters.
 \def\oe{oe}%  
 \def\ae{ae}%  
 \def\aa{aa}%  
 \def\OE{OE}%  
 \def\AE{AE}%  
 \def\AA{AA}%  \def\AA{AA}%
 \def\o{o}%  \def\AE{AE}%
   \def\L{L}%
   \def\OE{OE}%
 \def\O{O}%  \def\O{O}%
   \def\aa{aa}%
   \def\ae{ae}%
 \def\l{l}%  \def\l{l}%
 \def\L{L}%  \def\oe{oe}%
   \def\o{o}%
 \def\ss{ss}%  \def\ss{ss}%
 \let\w=\indexdummyfont  %
 \let\t=\indexdummyfont  % Don't no-op \tt, since it isn't a user-level command
 \let\r=\indexdummyfont  % and is used in the definitions of the active chars like <, >, |, etc.
 \let\i=\indexdummyfont  % Likewise with the other plain tex font commands.
   %\let\tt=\indexdummyfont
   %
 \let\b=\indexdummyfont  \let\b=\indexdummyfont
 \let\emph=\indexdummyfont  \let\i=\indexdummyfont
 \let\strong=\indexdummyfont  \let\r=\indexdummyfont
 \let\cite=\indexdummyfont  
 \let\sc=\indexdummyfont  \let\sc=\indexdummyfont
 %Don't no-op \tt, since it isn't a user-level command  \let\t=\indexdummyfont
 % and is used in the definitions of the active chars like <, >, |...  %
 %\let\tt=\indexdummyfont  \let\TeX=\indexdummytex
 \let\tclose=\indexdummyfont  \let\acronym=\indexdummyfont
   \let\cite=\indexdummyfont
 \let\code=\indexdummyfont  \let\code=\indexdummyfont
   \let\command=\indexdummyfont
   \let\dfn=\indexdummyfont
   \let\dots=\indexdummydots
   \let\emph=\indexdummyfont
   \let\env=\indexdummyfont
 \let\file=\indexdummyfont  \let\file=\indexdummyfont
 \let\samp=\indexdummyfont  
 \let\kbd=\indexdummyfont  \let\kbd=\indexdummyfont
 \let\key=\indexdummyfont  \let\key=\indexdummyfont
   \let\math=\indexdummyfont
   \let\option=\indexdummyfont
   \let\samp=\indexdummyfont
   \let\strong=\indexdummyfont
   \let\uref=\indexdummyfont
   \let\url=\indexdummyfont
 \let\var=\indexdummyfont  \let\var=\indexdummyfont
 \let\TeX=\indexdummytex  \let\w=\indexdummyfont
 \let\dots=\indexdummydots  
 \def\@{@}%  
 }  }
   
 % To define \realbackslash, we must make \ not be an escape.  % To define \realbackslash, we must make \ not be an escape.
Line 2435  width0pt\relax} \fi Line 2966  width0pt\relax} \fi
 % so we do not become unable to do a definition.  % so we do not become unable to do a definition.
   
 {\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}
   
   % Most index entries go through here, but \dosubind is the general case.
   %
   \def\doind#1#2{\dosubind{#1}{#2}\empty}
   
 \let\SETmarginindex=\relax %initialize!  % Workhorse for all \fooindexes.
 % workhorse for all \fooindexes  % #1 is name of index, #2 is stuff to put there, #3 is subentry --
 % #1 is name of index, #2 is stuff to put there  % \empty if called from \doind, as we usually are.  The main exception
 \def\doind #1#2{%  % 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}}%
Line 2453  width0pt\relax} \fi Line 2994  width0pt\relax} \fi
       \indexdummies % Must do this here, since \bf, etc expand at this stage        \indexdummies % Must do this here, since \bf, etc expand at this stage
       \escapechar=`\\        \escapechar=`\\
       {%        {%
         \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.
         %          %
         % First process the index-string with all font commands turned off          \def\thirdarg{#3}%
         % to get the string to sort by.          %
         {\indexnofonts \xdef\indexsorttmp{#2}}%          % 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 entry with all font commands turned
           % off to get the string to sort by.
           {\indexnofonts \xdef\indexsorttmp{#2\subentry}}%
         %          %
         % Now produce the complete index entry, with both the sort key and the          % Now the real index entry with the fonts.
         % original text, including any font commands.  
         \toks0 = {#2}%          \toks0 = {#2}%
           %
           % If the third (subentry) arg is present, add it to the index
           % line to write.
           \ifx\thirdarg\emptymacro \else
             \toks0 = \expandafter{\the\toks0{#3}}%
           \fi
           %
           % Set up the complete index entry, with both the sort key and
           % the original text, including any font commands.  We write
           % three arguments to \entry to the .?? file (four in the
           % subentry case), texindex reduces to two when writing the .??s
           % sorted result.
         \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 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
Line 2534  width0pt\relax} \fi Line 3103  width0pt\relax} \fi
 \def\doprintindex#1{\begingroup  \def\doprintindex#1{\begingroup
   \dobreak \chapheadingskip{10000}%    \dobreak \chapheadingskip{10000}%
   %    %
   \indexfonts \rm    \smallfonts \rm
   \tolerance = 9500    \tolerance = 9500
   \indexbreaks    \indexbreaks
   %    %
Line 2550  width0pt\relax} \fi Line 3119  width0pt\relax} \fi
     % and it loses the chapter title and the aux file entries for the      % and it loses the chapter title and the aux file entries for the
     % index.  The easiest way to prevent this problem is to make sure      % index.  The easiest way to prevent this problem is to make sure
     % there is some text.      % there is some text.
     (Index is nonexistent)      \putwordIndexNonexistent
   \else    \else
     %      %
     % If the index file exists but is empty, then \openin leaves \ifeof      % If the index file exists but is empty, then \openin leaves \ifeof
Line 2558  width0pt\relax} \fi Line 3127  width0pt\relax} \fi
     % it can discover if there is anything in it.      % it can discover if there is anything in it.
     \read 1 to \temp      \read 1 to \temp
     \ifeof 1      \ifeof 1
       (Index is empty)        \putwordIndexIsEmpty
     \else      \else
       % Index files are almost Texinfo source, but we use \ as the escape        % Index files are almost Texinfo source, but we use \ as the escape
       % character.  It would be better to use @, but that's too big a change        % character.  It would be better to use @, but that's too big a change
Line 2577  width0pt\relax} \fi Line 3146  width0pt\relax} \fi
 % 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.
 %  %
 \def\entry #1#2{\begingroup  \def\entry#1#2{\begingroup
   %    %
   % Start a new paragraph if necessary, so our assignments below can't    % Start a new paragraph if necessary, so our assignments below can't
   % affect previous text.    % affect previous text.
Line 2614  width0pt\relax} \fi Line 3197  width0pt\relax} \fi
   %    %
   % \hangafter is reset to 1 (which is the value we want) at the start    % \hangafter is reset to 1 (which is the value we want) at the start
   % of each paragraph, so we need not do anything with that.    % of each paragraph, so we need not do anything with that.
   \hangindent=2em    \hangindent = 2em
   %    %
   % 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
Line 2644  width0pt\relax} \fi Line 3230  width0pt\relax} \fi
     % The `\ ' here is removed by the implicit \unskip that TeX does as      % The `\ ' here is removed by the implicit \unskip that TeX does as
     % part of (the primitive) \par.  Without it, a spurious underfull      % part of (the primitive) \par.  Without it, a spurious underfull
     % \hbox ensues.      % \hbox ensues.
     \ #2% The page number ends the paragraph.      \ifpdf
         \pdfgettoks#2.\ \the\toksA % The page number ends the paragraph.
       \else
         \ #2% The page number ends the paragraph.
       \fi
   \fi%    \fi%
   \par    \par
 \endgroup}  \endgroup}
Line 2656  width0pt\relax} \fi Line 3246  width0pt\relax} \fi
 \def\primary #1{\line{#1\hfil}}  \def\primary #1{\line{#1\hfil}}
   
 \newskip\secondaryindent \secondaryindent=0.5cm  \newskip\secondaryindent \secondaryindent=0.5cm
   \def\secondary#1#2{{%
 \def\secondary #1#2{    \parfillskip=0in
 {\parfillskip=0in \parskip=0in    \parskip=0in
 \hangindent =1in \hangafter=1    \hangindent=1in
 \noindent\hskip\secondaryindent\hbox{#1}\indexdotfill #2\par    \hangafter=1
     \noindent\hskip\secondaryindent\hbox{#1}\indexdotfill
     \ifpdf
       \pdfgettoks#2.\ \the\toksA % The page number ends the paragraph.
     \else
       #2
     \fi
     \par
 }}  }}
   
 % Define two-column mode, which we use to typeset indexes.  % Define two-column mode, which we use to typeset indexes.
Line 2673  width0pt\relax} \fi Line 3270  width0pt\relax} \fi
   
 \def\begindoublecolumns{\begingroup % ended by \enddoublecolumns  \def\begindoublecolumns{\begingroup % ended by \enddoublecolumns
   % Grab any single-column material above us.    % Grab any single-column material above us.
   \output = {\global\setbox\partialpage = \vbox{%    \output = {%
     %       %
     % Here is a possibility not foreseen in manmac: if we accumulate a      % Here is a possibility not foreseen in manmac: if we accumulate a
     % whole lot of material, we might end up calling this \output      % whole lot of material, we might end up calling this \output
     % routine twice in a row (see the doublecol-lose test, which is      % routine twice in a row (see the doublecol-lose test, which is
     % essentially a couple of indexes with @setchapternewpage off).  In      % essentially a couple of indexes with @setchapternewpage off).  In
     % that case, we must prevent the second \partialpage from      % that case we just ship out what is in \partialpage with the normal
     % simply overwriting the first, causing us to lose the page.      % output routine.  Generally, \partialpage will be empty when this
     % This will preserve it until a real output routine can ship it      % runs and this will be a no-op.  See the indexspread.tex test case.
     % out.  Generally, \partialpage will be empty when this runs and      \ifvoid\partialpage \else
     % this will be a no-op.        \onepageout{\pagecontents\partialpage}%
     \unvbox\partialpage      \fi
     %      %
     % Unvbox the main output page.      \global\setbox\partialpage = \vbox{%
     \unvbox255        % Unvbox the main output page.
     \kern-\topskip \kern\baselineskip        \unvbox\PAGE
   }}%        \kern-\topskip \kern\baselineskip
   \eject      }%
     }%
     \eject % run that output routine to set \partialpage
   %    %
   % Use the double-column output routine for subsequent pages.    % Use the double-column output routine for subsequent pages.
   \output = {\doublecolumnout}%    \output = {\doublecolumnout}%
Line 2720  width0pt\relax} \fi Line 3319  width0pt\relax} \fi
   % since nobody clobbers \vsize.)    % since nobody clobbers \vsize.)
   \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
     \advance\dimen@ by -\ht\partialpage
     %
   % 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
 }  }
   %
   % Re-output the contents of the output page -- any previous material,
   % followed by the two boxes we just split, in box0 and box2.
 \def\pagesofar{%  \def\pagesofar{%
   % Re-output the contents of the output page -- any previous material,  
   % followed by the two boxes we just split.  
   \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}%
 }  }
   % 
   % All done with double columns.
 \def\enddoublecolumns{%  \def\enddoublecolumns{%
   \output = {\balancecolumns}\eject % split what we have    \output = {%
       % Split the last of the double-column material.  Leave it on the
       % current page, no automatic page break.
       \balancecolumns
       %
       % 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}}%
     }%
     \eject
   \endgroup % started in \begindoublecolumns    \endgroup % started in \begindoublecolumns
   %    %
   % Back to normal single-column typesetting, but take account of the    % \pagegoal was set to the doubled \vsize above, since we restarted
   % fact that we just accumulated some stuff on the output page.    % the current page.  We're now back to normal single-column
     % typesetting, so reset \pagegoal to the normal \vsize (after the
     % \endgroup where \vsize got restored).
   \pagegoal = \vsize    \pagegoal = \vsize
 }  }
   %
   % Called at the end of the double column material.
 \def\balancecolumns{%  \def\balancecolumns{%
   % Called at the end of the double column material.    \setbox0 = \vbox{\unvbox255}% like \box255 but more efficient, see p.120.
   \setbox0 = \vbox{\unvbox255}%  
   \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    {%
     \global\setbox3=\copy0      \vbadness = 10000
     \global\setbox1=\vsplit3 to\dimen@      \loop
     \ifdim\ht3>\dimen@ \global\advance\dimen@ by1pt        \global\setbox3 = \copy0
    \repeat}%        \global\setbox1 = \vsplit3 to \dimen@
       \ifdim\ht3>\dimen@
         \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
   
   
 \message{sectioning,}  \message{sectioning,}
 % Define chapters, sections, etc.  % Chapters, sections, etc.
   
 \newcount\chapno  \newcount\chapno
 \newcount\secno        \secno=0  \newcount\secno        \secno=0
Line 2778  width0pt\relax} \fi Line 3413  width0pt\relax} \fi
   
 % 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}
   % We do the following for the sake of pdftex, which needs the actual
 \newwrite\contentsfile  % letter in the expansion, not just typeset.
 % This is called from \setfilename.  \def\appendixletter{%
 \def\opencontents{\openout\contentsfile = \jobname.toc }    \ifnum\appendixno=`A A%
     \else\ifnum\appendixno=`B B%
     \else\ifnum\appendixno=`C C%
     \else\ifnum\appendixno=`D D%
     \else\ifnum\appendixno=`E E%
     \else\ifnum\appendixno=`F F%
     \else\ifnum\appendixno=`G G%
     \else\ifnum\appendixno=`H H%
     \else\ifnum\appendixno=`I I%
     \else\ifnum\appendixno=`J J%
     \else\ifnum\appendixno=`K K%
     \else\ifnum\appendixno=`L L%
     \else\ifnum\appendixno=`M M%
     \else\ifnum\appendixno=`N N%
     \else\ifnum\appendixno=`O O%
     \else\ifnum\appendixno=`P P%
     \else\ifnum\appendixno=`Q Q%
     \else\ifnum\appendixno=`R R%
     \else\ifnum\appendixno=`S S%
     \else\ifnum\appendixno=`T T%
     \else\ifnum\appendixno=`U U%
     \else\ifnum\appendixno=`V V%
     \else\ifnum\appendixno=`W W%
     \else\ifnum\appendixno=`X X%
     \else\ifnum\appendixno=`Y Y%
     \else\ifnum\appendixno=`Z Z%
     % The \the is necessary, despite appearances, because \appendixletter is
     % expanded while writing the .toc file.  \char\appendixno is not
     % expandable, thus it is written literally, thus all appendixes come out
     % with the same letter (or @) in the toc without it.
     \else\char\the\appendixno
     \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
     \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}
   
 % 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
Line 2901  width0pt\relax} \fi Line 3526  width0pt\relax} \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 appendixentry{\the\toks0}%
   {\putwordAppendix{} \appendixletter}{\noexpand\folio}}}%                         {\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
Line 2965  width0pt\relax} \fi Line 3590  width0pt\relax} \fi
 % 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%
 \escapechar=`\\%    {\the\toks0}{\the\chapno}}}%
 \write \contentsfile \temp %  \temp
 \unnumbnoderef %  \unnumbnoderef
 \penalty 10000 %  \nobreak
 }}  }
   
   % 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}{\the\chapno}{\the\secno}}}%
 \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}{\the\chapno}{\the\secno}{\the\subsecno}}}%
 \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.
Line 3142  width0pt\relax} \fi Line 3752  width0pt\relax} \fi
   
 % 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
Line 3190  width0pt\relax} \fi Line 3799  width0pt\relax} \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
Line 3249  width0pt\relax} \fi Line 3858  width0pt\relax} \fi
 \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
Line 3260  width0pt\relax} \fi Line 3869  width0pt\relax} \fi
 \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{
Line 3313  width0pt\relax} \fi Line 3922  width0pt\relax} \fi
 }  }
   
   
 \message{toc printing,}  \message{toc,}
 % Finish up the main text and prepare to read what we've written  % Table of contents.
 % to \contentsfile.  \newwrite\tocfile
   
   % 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
   % fixed 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
     %
     % Tell \shipout to create a page destination if we're doing pdf, which
     % will be the target of the links in the table of contents.  We can't
     % just do it on every page because the title pages are numbered 1 and
     % 2 (the page numbers aren't printed), and so are the first two pages
     % of the document.  Thus, we'd have two destinations named `1', and
     % two named `2'.
     \ifpdf \pdfmakepagedesttrue \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
Line 3338  width0pt\relax} \fi Line 3976  width0pt\relax} \fi
       %\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{\putwordTOC}%
       \input \jobname.toc       \openin 1 \jobname.toc
        \ifeof 1 \else
          \closein 1
          \input \jobname.toc
        \fi
        \vfill \eject
        \contentsalignmacro % in case @setchapternewpage odd is in effect
        \pdfmakeoutlines
    \endgroup     \endgroup
    \vfill \eject     \lastnegativepageno = \pageno
      \pageno = \savepageno
 }  }
   
 % And just the chapters.  % And just the chapters.
 \outer\def\summarycontents{%  \def\summarycontents{%
    \startcontents{\putwordShortContents}%     \startcontents{\putwordShortTOC}%
       %        %
       \let\chapentry = \shortchapentry        \let\chapentry = \shortchapentry
         \let\appendixentry = \shortappendixentry
       \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.
       \secfonts        \secfonts
Line 3362  width0pt\relax} \fi Line 4012  width0pt\relax} \fi
       \hyphenpenalty = 10000        \hyphenpenalty = 10000
       \advance\baselineskip by 1pt % Open it up a little.        \advance\baselineskip by 1pt % Open it up a little.
       \def\secentry ##1##2##3##4{}        \def\secentry ##1##2##3##4{}
       \def\unnumbsecentry ##1##2{}        \def\unnumbsecentry ##1##2##3{}
       \def\subsecentry ##1##2##3##4##5{}        \def\subsecentry ##1##2##3##4##5{}
       \def\unnumbsubsecentry ##1##2{}        \def\unnumbsubsecentry ##1##2##3##4{}
       \def\subsubsecentry ##1##2##3##4##5##6{}        \def\subsubsecentry ##1##2##3##4##5##6{}
       \def\unnumbsubsubsecentry ##1##2{}        \def\unnumbsubsubsecentry ##1##2##3##4##5{}
       \input \jobname.toc        \openin 1 \jobname.toc
         \ifeof 1 \else
           \closein 1
           \input \jobname.toc
         \fi
        \vfill \eject
        \contentsalignmacro % in case @setchapternewpage odd is in effect
    \endgroup     \endgroup
    \vfill \eject     \lastnegativepageno = \pageno
      \pageno = \savepageno
 }  }
 \let\shortcontents = \summarycontents  \let\shortcontents = \summarycontents
   
   \ifpdf
     \pdfcatalog{/PageMode /UseOutlines}%
   \fi
   
 % 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.
 % The last argument is the page number.  % The last argument is the page number.
 % The arguments in between are the chapter number, section number, ...  % The arguments in between are the chapter number, section number, ...
   
 % Chapter-level things, for both the long and short contents.  % Chapters, in the main contents.
 \def\chapentry#1#2#3{\dochapentry{#2\labelspace#1}{#3}}  \def\chapentry#1#2#3{\dochapentry{#2\labelspace#1}{#3}}
   %
 % See comments in \dochapentry re vbox and related settings  % Chapters, in the short toc.
   % See comments in \dochapentry re vbox and related settings.
 \def\shortchapentry#1#2#3{%  \def\shortchapentry#1#2#3{%
   \tocentry{\shortchaplabel{#2}\labelspace #1}{\doshortpageno{#3}}%    \tocentry{\shortchaplabel{#2}\labelspace #1}{\doshortpageno\bgroup#3\egroup}%
 }  }
   
   % Appendices, in the main contents.
   \def\appendixentry#1#2#3{\dochapentry{\putwordAppendix{} #2\labelspace#1}{#3}}
   %
   % Appendices, in the short toc.
   \let\shortappendixentry = \shortchapentry
   
 % Typeset the label for a chapter or appendix for the short contents.  % Typeset the label for a chapter or appendix for the short contents.
 % The arg is, e.g. `Appendix A' for an appendix, or `3' for a chapter.  % The arg is, e.g., `Appendix A' for an appendix, or `3' for a chapter.
 % We could simplify the code here by writing out an \appendixentry  % We could simplify the code here by writing out an \appendixentry
 % command in the toc file for appendices, instead of using \chapentry  % command in the toc file for appendices, instead of using \chapentry
 % for both, but it doesn't seem worth it.  % for both, but it doesn't seem worth it.
 \setbox0 = \hbox{\shortcontrm \putwordAppendix }  %
 \newdimen\shortappendixwidth \shortappendixwidth = \wd0  \newdimen\shortappendixwidth
   %
 \def\shortchaplabel#1{%  \def\shortchaplabel#1{%
   % We typeset #1 in a box of constant width, regardless of the text of    % This space should be enough, since a single number is .5em, and the
   % #1, so the chapter titles will come out aligned.  
   \setbox0 = \hbox{#1}%  
   \dimen0 = \ifdim\wd0 > \shortappendixwidth \shortappendixwidth \else 0pt \fi  
   %  
   % This space should be plenty, since a single number is .5em, and the  
   % widest letter (M) is 1em, at least in the Computer Modern fonts.    % widest letter (M) is 1em, at least in the Computer Modern fonts.
     % But use \hss just in case.
   % (This space doesn't include the extra space that gets added after    % (This space doesn't include the extra space that gets added after
   % the label; that gets put in by \shortchapentry above.)    % the label; that gets put in by \shortchapentry above.)
   \advance\dimen0 by 1.1em    \dimen0 = 1em
   \hbox to \dimen0{#1\hfil}%    \hbox to \dimen0{#1\hss}%
 }  }
   
   % Unnumbered chapters.
 \def\unnumbchapentry#1#2{\dochapentry{#1}{#2}}  \def\unnumbchapentry#1#2{\dochapentry{#1}{#2}}
 \def\shortunnumberedentry#1#2{\tocentry{#1}{\doshortpageno{#2}}}  \def\shortunnumberedentry#1#2{\tocentry{#1}{\doshortpageno\bgroup#2\egroup}}
   
 % Sections.  % Sections.
 \def\secentry#1#2#3#4{\dosecentry{#2.#3\labelspace#1}{#4}}  \def\secentry#1#2#3#4{\dosecentry{#2.#3\labelspace#1}{#4}}
 \def\unnumbsecentry#1#2{\dosecentry{#1}{#2}}  \def\unnumbsecentry#1#2#3{\dosecentry{#1}{#3}}
   
 % Subsections.  % Subsections.
 \def\subsecentry#1#2#3#4#5{\dosubsecentry{#2.#3.#4\labelspace#1}{#5}}  \def\subsecentry#1#2#3#4#5{\dosubsecentry{#2.#3.#4\labelspace#1}{#5}}
 \def\unnumbsubsecentry#1#2{\dosubsecentry{#1}{#2}}  \def\unnumbsubsecentry#1#2#3#4{\dosubsecentry{#1}{#4}}
   
 % And subsubsections.  % And subsubsections.
 \def\subsubsecentry#1#2#3#4#5#6{%  \def\subsubsecentry#1#2#3#4#5#6{%
   \dosubsubsecentry{#2.#3.#4.#5\labelspace#1}{#6}}    \dosubsubsecentry{#2.#3.#4.#5\labelspace#1}{#6}}
 \def\unnumbsubsubsecentry#1#2{\dosubsubsecentry{#1}{#2}}  \def\unnumbsubsubsecentry#1#2#3#4#5{\dosubsubsecentry{#1}{#5}}
   
 % This parameter controls the indentation of the various levels.  % This parameter controls the indentation of the various levels.
 \newdimen\tocindent \tocindent = 3pc  \newdimen\tocindent \tocindent = 3pc
Line 3436  width0pt\relax} \fi Line 4101  width0pt\relax} \fi
    \penalty-300 \vskip1\baselineskip plus.33\baselineskip minus.25\baselineskip     \penalty-300 \vskip1\baselineskip plus.33\baselineskip minus.25\baselineskip
    \begingroup     \begingroup
      \chapentryfonts       \chapentryfonts
      \tocentry{#1}{\dopageno{#2}}%       \tocentry{#1}{\dopageno\bgroup#2\egroup}%
    \endgroup     \endgroup
    \nobreak\vskip .25\baselineskip plus.1\baselineskip     \nobreak\vskip .25\baselineskip plus.1\baselineskip
 }  }
   
 \def\dosecentry#1#2{\begingroup  \def\dosecentry#1#2{\begingroup
   \secentryfonts \leftskip=\tocindent    \secentryfonts \leftskip=\tocindent
   \tocentry{#1}{\dopageno{#2}}%    \tocentry{#1}{\dopageno\bgroup#2\egroup}%
 \endgroup}  \endgroup}
   
 \def\dosubsecentry#1#2{\begingroup  \def\dosubsecentry#1#2{\begingroup
   \subsecentryfonts \leftskip=2\tocindent    \subsecentryfonts \leftskip=2\tocindent
   \tocentry{#1}{\dopageno{#2}}%    \tocentry{#1}{\dopageno\bgroup#2\egroup}%
 \endgroup}  \endgroup}
   
 \def\dosubsubsecentry#1#2{\begingroup  \def\dosubsubsecentry#1#2{\begingroup
   \subsubsecentryfonts \leftskip=3\tocindent    \subsubsecentryfonts \leftskip=3\tocindent
   \tocentry{#1}{\dopageno{#2}}%    \tocentry{#1}{\dopageno\bgroup#2\egroup}%
 \endgroup}  \endgroup}
   
 % Final typesetting of a toc entry; we use the same \entry macro as for  % Final typesetting of a toc entry; we use the same \entry macro as for
Line 3463  width0pt\relax} \fi Line 4128  width0pt\relax} \fi
 \def\tocentry#1#2{\begingroup  \def\tocentry#1#2{\begingroup
   \vskip 0pt plus1pt % allow a little stretch for the sake of nice page breaks    \vskip 0pt plus1pt % allow a little stretch for the sake of nice page breaks
   % Do not use \turnoffactive in these arguments.  Since the toc is    % Do not use \turnoffactive in these arguments.  Since the toc is
   % typeset in cmr, so characters such as _ would come out wrong; we    % typeset in cmr, characters such as _ would come out wrong; we
   % have to do the usual translation tricks.    % have to do the usual translation tricks.
   \entry{#1}{#2}%    \entry{#1}{#2}%
 \endgroup}  \endgroup}
Line 3481  width0pt\relax} \fi Line 4146  width0pt\relax} \fi
   
   
 \message{environments,}  \message{environments,}
   % @foo ... @end foo.
   
   % @point{}, @result{}, @expansion{}, @print{}, @equiv{}.
   % 
 % Since these characters are used in examples, it should be an even number of  % Since these characters are used in examples, it should be an even number of
 % \tt widths. Each \tt character is 1en, so two makes it 1em.  % \tt widths. Each \tt character is 1en, so two makes it 1em.
 % Furthermore, these definitions must come after we define our fonts.  %
 \newbox\dblarrowbox    \newbox\longdblarrowbox  
 \newbox\pushcharbox    \newbox\bullbox  
 \newbox\equivbox       \newbox\errorbox  
   
 %{\tentt  
 %\global\setbox\dblarrowbox = \hbox to 1em{\hfil$\Rightarrow$\hfil}  
 %\global\setbox\longdblarrowbox = \hbox to 1em{\hfil$\mapsto$\hfil}  
 %\global\setbox\pushcharbox = \hbox to 1em{\hfil$\dashv$\hfil}  
 %\global\setbox\equivbox = \hbox to 1em{\hfil$\ptexequiv$\hfil}  
 % Adapted from the manmac format (p.420 of TeXbook)  
 %\global\setbox\bullbox = \hbox to 1em{\kern.15em\vrule height .75ex width .85ex  
 %                                      depth .1ex\hfil}  
 %}  
   
 % @point{}, @result{}, @expansion{}, @print{}, @equiv{}.  
 \def\point{$\star$}  \def\point{$\star$}
 \def\result{\leavevmode\raise.15ex\hbox to 1em{\hfil$\Rightarrow$\hfil}}  \def\result{\leavevmode\raise.15ex\hbox to 1em{\hfil$\Rightarrow$\hfil}}
 \def\expansion{\leavevmode\raise.1ex\hbox to 1em{\hfil$\mapsto$\hfil}}  \def\expansion{\leavevmode\raise.1ex\hbox to 1em{\hfil$\mapsto$\hfil}}
 \def\print{\leavevmode\lower.1ex\hbox to 1em{\hfil$\dashv$\hfil}}  \def\print{\leavevmode\lower.1ex\hbox to 1em{\hfil$\dashv$\hfil}}
 \def\equiv{\leavevmode\lower.1ex\hbox to 1em{\hfil$\ptexequiv$\hfil}}  \def\equiv{\leavevmode\lower.1ex\hbox to 1em{\hfil$\ptexequiv$\hfil}}
   
   % The @error{} command.
 % Adapted from the TeXbook's \boxit.  % Adapted from the TeXbook's \boxit.
   % 
   \newbox\errorbox
   %
 {\tentt \global\dimen0 = 3em}% Width of the box.  {\tentt \global\dimen0 = 3em}% Width of the box.
 \dimen2 = .55pt % Thickness of rules  \dimen2 = .55pt % Thickness of rules
 % The text. (`r' is open on the right, `e' somewhat less so on the left.)  % The text. (`r' is open on the right, `e' somewhat less so on the left.)
 \setbox0 = \hbox{\kern-.75pt \tensf error\kern-1.5pt}  \setbox0 = \hbox{\kern-.75pt \tensf error\kern-1.5pt}
   %
 \global\setbox\errorbox=\hbox to \dimen0{\hfil  \global\setbox\errorbox=\hbox to \dimen0{\hfil
    \hsize = \dimen0 \advance\hsize by -5.8pt % Space to left+right.     \hsize = \dimen0 \advance\hsize by -5.8pt % Space to left+right.
    \advance\hsize by -2\dimen2 % Rules.     \advance\hsize by -2\dimen2 % Rules.
Line 3522  width0pt\relax} \fi Line 4179  width0pt\relax} \fi
          \kern3pt\vrule width\dimen2}% Space to right.           \kern3pt\vrule width\dimen2}% Space to right.
       \hrule height\dimen2}        \hrule height\dimen2}
     \hfil}      \hfil}
   %
 % The @error{} command.  
 \def\error{\leavevmode\lower.7ex\copy\errorbox}  \def\error{\leavevmode\lower.7ex\copy\errorbox}
   
 % @tex ... @end tex    escapes into raw Tex temporarily.  % @tex ... @end tex    escapes into raw Tex temporarily.
Line 3553  width0pt\relax} \fi Line 4209  width0pt\relax} \fi
   \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
Line 3562  width0pt\relax} \fi Line 4219  width0pt\relax} \fi
   \def\@{@}%    \def\@{@}%
 \let\Etex=\endgroup}  \let\Etex=\endgroup}
   
 % Define @lisp ... @endlisp.  % Define @lisp ... @end lisp.
 % @lisp does a \begingroup so it can rebind things,  % @lisp does a \begingroup so it can rebind things,
 % including the definition of @endlisp (which normally is erroneous).  % including the definition of @end lisp (which normally is erroneous).
   
 % Amount to narrow the margins by for @lisp.  % Amount to narrow the margins by for @lisp.
 \newskip\lispnarrowing \lispnarrowing=0.4in  \newskip\lispnarrowing \lispnarrowing=0.4in
Line 3595  width0pt\relax} \fi Line 4252  width0pt\relax} \fi
 % is reset to zero; thus the \afterenvbreak inserts no space -- but the  % is reset to zero; thus the \afterenvbreak inserts no space -- but the
 % start of the next paragraph will insert \parskip  % start of the next paragraph will insert \parskip
 %  %
 \def\aboveenvbreak{{\advance\envskipamount by \parskip  \def\aboveenvbreak{{%
 \endgraf \ifdim\lastskip<\envskipamount    \ifnum\lastpenalty < 10000
 \removelastskip \penalty-50 \vskip\envskipamount \fi}}      \advance\envskipamount by \parskip
       \endgraf
       \ifdim\lastskip<\envskipamount
         \removelastskip
         \penalty-50
         \vskip\envskipamount
       \fi
     \fi
   }}
   
 \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
Line 3632  width0pt\relax} \fi Line 4297  width0pt\relax} \fi
         \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
Line 3688  width0pt\relax} \fi Line 4353  width0pt\relax} \fi
   \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.  
 %  
 % We must call \lisp last in the definition, since it reads the  
 % return following the @example (or whatever) command.  
 %  
 \def\example{\begingroup \def\Eexample{\nonfillfinish\endgroup}\lisp}  \def\example{\begingroup \def\Eexample{\nonfillfinish\endgroup}\lisp}
 \def\smallexample{\begingroup \def\Esmallexample{\nonfillfinish\endgroup}\lisp}  
 \def\smalllisp{\begingroup \def\Esmalllisp{\nonfillfinish\endgroup}\lisp}  
   
 % @smallexample and @smalllisp.  This is not used unless the @smallbook  % @small... is usually equivalent to the non-small (@smallbook
 % command is given.  Originally contributed by Pavel@xerox.  % redefines).  We must call \example (or whatever) last in the
 %  % definition, since it reads the return following the @example (or
   % whatever) command.
   %
   % This actually allows (for example) @end display inside an
   % @smalldisplay.  Too bad, but makeinfo will catch the error anyway.
   %
   \def\smalldisplay{\begingroup\def\Esmalldisplay{\nonfillfinish\endgroup}\display}
   \def\smallexample{\begingroup\def\Esmallexample{\nonfillfinish\endgroup}\lisp}
   \def\smallformat{\begingroup\def\Esmallformat{\nonfillfinish\endgroup}\format}
   \def\smalllisp{\begingroup\def\Esmalllisp{\nonfillfinish\endgroup}\lisp}
   
   % Real @smallexample and @smalllisp (when @smallbook): use smaller fonts.
   % 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    \smallexamplefonts
   %    \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
 }  }
   %
   % @smalldisplay (when @smallbook): @display plus smaller fonts.
   %
   \def\smalldisplayx{\begingroup
     \def\Esmalldisplay{\nonfillfinish\endgroup}%
     \smallexamplefonts \rm
     \display
   }
   
 % This is @format; same as @display except don't narrow margins.  % @format: same as @display except don't narrow margins.
 %  %
 \def\format{\begingroup  \def\format{\begingroup
   \let\nonarrowing = t    \let\nonarrowing = t
Line 3746  width0pt\relax} \fi Line 4422  width0pt\relax} \fi
   \let\Eformat = \nonfillfinish    \let\Eformat = \nonfillfinish
   \gobble    \gobble
 }  }
   
 % @flushleft (same as @format) and @flushright.  
 %  %
 \def\flushleft{\begingroup  % @smallformat (when @smallbook): @format plus smaller fonts.
   \let\nonarrowing = t  %
   \nonfillstart  \def\smallformatx{\begingroup
   \let\Eflushleft = \nonfillfinish    \def\Esmallformat{\nonfillfinish\endgroup}%
   \gobble    \smallexamplefonts \rm
     \format
 }  }
   
   % @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.
Line 3783  width0pt\relax} \fi Line 4467  width0pt\relax} \fi
   \fi    \fi
 }  }
   
   
   % LaTeX-like @verbatim...@end verbatim and @verb{<char>...<char>}
   % If we want to allow any <char> as delimiter, 
   % we need the curly braces so that makeinfo sees the @verb command, eg:
   % `@verbx...x' would look like the '@verbx' command.  --janneke@gnu.org
   %
   % [Knuth]: Donald Ervin Knuth, 1996.  The TeXbook.
   %
   % [Knuth] p. 344; only we need to do '@' too
   \def\dospecials{%
     \do\ \do\\\do\@\do\{\do\}\do\$\do\&%
     \do\#\do\^\do\^^K\do\_\do\^^A\do\%\do\~}
   %
   % [Knuth] p. 380
   \def\uncatcodespecials{%
     \def\do##1{\catcode`##1=12}\dospecials}
   %
   % [Knuth] pp. 380,381,391
   % Disable Spanish ligatures ?` and !` of \tt font
   \begingroup
     \catcode`\`=\active\gdef`{\relax\lq}
   \endgroup
   %
   % Setup for the @verb command.
   %
   % Eight spaces for a tab
   \begingroup
     \catcode`\^^I=\active
     \gdef\tabeightspaces{\catcode`\^^I=\active\def^^I{\ \ \ \ \ \ \ \ }}
   \endgroup
   %
   \def\setupverb{%
     \tt  % easiest (and conventionally used) font for verbatim
     \def\par{\leavevmode\endgraf}%
     \catcode`\`=\active
     \tabeightspaces
     % Respect line breaks,
     % print special symbols as themselves, and
     % make each space count
     % must do in this order:
     \obeylines \uncatcodespecials \sepspaces
   }
   
   % Setup for the @verbatim environment
   %
   % Real tab expansion
   \newdimen\tabw \setbox0=\hbox{\tt\space} \tabw=8\wd0 % tab amount
   %
   \def\starttabbox{\setbox0=\hbox\bgroup}
   \begingroup
     \catcode`\^^I=\active
     \gdef\tabexpand{%
       \catcode`\^^I=\active
       \def^^I{\leavevmode\egroup
         \dimen0=\wd0 % the width so far, or since the previous tab
         \divide\dimen0 by\tabw
         \multiply\dimen0 by\tabw % compute previous multiple of \tabw
         \advance\dimen0 by\tabw  % advance to next multiple of \tabw
         \wd0=\dimen0 \box0 \starttabbox
       }%
     }
   \endgroup
   \def\setupverbatim{%
     % Easiest (and conventionally used) font for verbatim
     \tt
     \def\par{\leavevmode\egroup\box0\endgraf}%
     \catcode`\`=\active
     \tabexpand
     % Respect line breaks,
     % print special symbols as themselves, and
     % make each space count
     % must do in this order:
     \obeylines \uncatcodespecials \sepspaces
     \everypar{\starttabbox}%
   }
   
   % Do the @verb magic: verbatim text is quoted by unique 
   % delimiter characters.  Before first delimiter expect a 
   % right brace, after last delimiter expect closing brace:
   %
   %    \def\doverb'{'<char>#1<char>'}'{#1}
   %
   % [Knuth] p. 382; only eat outer {}
   \begingroup
     \catcode`[=1\catcode`]=2\catcode`\{=12\catcode`\}=12
     \gdef\doverb{#1[\def\next##1#1}[##1\endgroup]\next]
   \endgroup
   %
   \def\verb{\begingroup\setupverb\doverb}
   %
   %
   % Do the @verbatim magic: define the macro \doverbatim so that
   % the (first) argument ends when '@end verbatim' is reached, ie:
   %
   %     \def\doverbatim#1@end verbatim{#1}
   %
   % For Texinfo it's a lot easier than for LaTeX, 
   % because texinfo's \verbatim doesn't stop at '\end{verbatim}':
   % we need not redefine '\', '{' and '}'
   %
   % Inspired by LaTeX's verbatim command set [latex.ltx]
   %% Include LaTeX hack for completeness -- never know
   %% \begingroup
   %% \catcode`|=0 \catcode`[=1
   %% \catcode`]=2\catcode`\{=12\catcode`\}=12\catcode`\ =\active
   %% \catcode`\\=12|gdef|doverbatim#1@end verbatim[
   %% #1|endgroup|def|Everbatim[]|end[verbatim]]
   %% |endgroup
   \begingroup
     \catcode`\ =\active
     \gdef\doverbatim#1@end verbatim{#1\end{verbatim}}
   \endgroup
   %
   \def\verbatim{%
     \def\Everbatim{\nonfillfinish\endgroup}%
     \begingroup
       \nonfillstart
       \advance\leftskip by -\defbodyindent
       \begingroup\setupverbatim\doverbatim
   }
   
   % @verbatiminclude FILE - insert text of file in verbatim environment.
   %
   % Allow normal characters that we make active in the argument (a file name).
   \def\verbatiminclude{%
     \begingroup
       \catcode`\\=12
       \catcode`~=12
       \catcode`^=12
       \catcode`_=12
       \catcode`|=12
       \catcode`<=12
       \catcode`>=12
       \catcode`+=12
       \parsearg\doverbatiminclude
   }
   \def\setupverbatiminclude{%
     \begingroup
       \nonfillstart
       \advance\leftskip by -\defbodyindent
       \begingroup\setupverbatim
   }
   %
   \def\doverbatiminclude#1{%
        % Restore active chars for included file.
     \endgroup
     \begingroup
     \def\thisfile{#1}%
     \expandafter\expandafter\setupverbatiminclude\input\thisfile
     \endgroup\nonfillfinish\endgroup
   }
   
   % @copying ... @end copying.
   % Save the text away for @insertcopying later.
   % 
   \newbox\copyingbox
   %
   \def\copying{\begingroup
     \parindent = 0pt  % looks wrong on title page
     \def\Ecopying{\egroup\endgroup}%
     \global\setbox\copyingbox = \vbox\bgroup
   }
   
   % @insertcopying.
   % 
   \def\insertcopying{\unvcopy\copyingbox}
   
   
 \message{defuns,}  \message{defuns,}
 % Define formatter for defuns  % @defun etc.
 % First, allow user to change definition object font (\df) internally  
   % Allow user to change definition object font (\df) internally
 \def\setdeffont #1 {\csname DEF#1\endcsname}  \def\setdeffont #1 {\csname DEF#1\endcsname}
   
 \newskip\defbodyindent \defbodyindent=.4in  \newskip\defbodyindent \defbodyindent=.4in
Line 3839  width0pt\relax} \fi Line 4692  width0pt\relax} \fi
 %% contained text.  This is especially needed for [ and ]  %% contained text.  This is especially needed for [ and ]
 \def\opnr{{\sf\char`\(}\global\advance\parencount by 1 }  \def\opnr{{\sf\char`\(}\global\advance\parencount by 1 }
 \def\clnr{{\sf\char`\)}\global\advance\parencount by -1 }  \def\clnr{{\sf\char`\)}\global\advance\parencount by -1 }
 \def\ampnr{\&}  \let\ampnr = \&
 \def\lbrb{{\bf\char`\[}}  \def\lbrb{{\bf\char`\[}}
 \def\rbrb{{\bf\char`\]}}  \def\rbrb{{\bf\char`\]}}
   
   % Active &'s sneak into the index arguments, so make sure it's defined.
   {
     \catcode`& = 13
     \global\let& = \ampnr
   }
   
 % First, defname, which formats the header line itself.  % First, defname, which formats the header line itself.
 % #1 should be the function name.  % #1 should be the function name.
 % #2 should be the type of definition, such as "Function".  % #2 should be the type of definition, such as "Function".
Line 3852  width0pt\relax} \fi Line 4711  width0pt\relax} \fi
 % 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
Line 3886  width0pt\relax} \fi Line 4743  width0pt\relax} \fi
 \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}
   
 \def\defmethparsebody #1#2#3#4 {\begingroup\inENV %  % #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 %
 \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}}}
   
   % Used for @deftypemethod and @deftypeivar.
   % #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 a space, is the class name.
   % #5 is the method's return type.
   %
   \def\deftypemethparsebody#1#2#3#4 #5 {\begingroup\inENV
     \medbreak
     \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}}}
   
   % Used for @deftypeop.  The change from \deftypemethparsebody is an
   % extra argument at the beginning which is the `category', instead of it
   % being the hardwired string `Method' or `Instance Variable'.  We have
   % to account for this both in the \...x definition and in parsing the
   % input at hand.  Thus also need a control sequence (passed as #5) for
   % the \E... definition to assign the category name to.
   % 
   \def\deftypeopparsebody#1#2#3#4#5 #6 {\begingroup\inENV
     \medbreak
     \def#1{\endgraf\endgroup\medbreak}%
     \def#2##1 ##2 ##3 {%
       \def#4{##1}%
       \begingroup\obeylines\activeparens\spacesplit{#3{##2}{##3}}}%
     \parindent=0in
     \advance\leftskip by \defbodyindent
     \exdentamount=\defbodyindent
     \begingroup\obeylines\activeparens\spacesplit{#3{#5}{#6}}}
   
 \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
Line 3911  width0pt\relax} \fi Line 4807  width0pt\relax} \fi
 \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}}}
   
Line 3926  width0pt\relax} \fi Line 4822  width0pt\relax} \fi
 \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 %
Line 3943  width0pt\relax} \fi Line 4839  width0pt\relax} \fi
   \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
 }  }
Line 3988  width0pt\relax} \fi Line 4884  width0pt\relax} \fi
 \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}}}
   
Line 4012  width0pt\relax} \fi Line 4908  width0pt\relax} \fi
 % First, define the processing that is wanted for arguments of \defun  % First, define the processing that is wanted for arguments of \defun
 % Use this to expand the args and terminate the paragraph they make up  % Use this to expand the args and terminate the paragraph they make up
   
 \def\defunargs #1{\functionparens \sl  \def\defunargs#1{\functionparens \sl
 % 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.
 \hyphenchar\tensl=0  % Set the font temporarily and use \font in case \setfont made \tensl a macro.
   {\tensl\hyphenchar\font=0}%
 #1%  #1%
 \hyphenchar\tensl=45  {\tensl\hyphenchar\font=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{%
Line 4032  width0pt\relax} \fi Line 4929  width0pt\relax} \fi
 \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.
Line 4051  width0pt\relax} \fi Line 4948  width0pt\relax} \fi
 \def\defun{\defparsebody\Edefun\defunx\defunheader}  \def\defun{\defparsebody\Edefun\defunx\defunheader}
   
 \def\defunheader #1#2{\doind {fn}{\code{#1}}% Make entry in function index  \def\defunheader #1#2{\doind {fn}{\code{#1}}% Make entry in function index
 \begingroup\defname {#1}{Function}%  \begingroup\defname {#1}{\putwordDeffunc}%
 \defunargs {#2}\endgroup %  \defunargs {#2}\endgroup %
 \catcode 61=\other % Turn off change made in \defparsebody  \catcode 61=\other % Turn off change made in \defparsebody
 }  }
Line 4065  width0pt\relax} \fi Line 4962  width0pt\relax} \fi
 % #1 is the data type, #2 the name, #3 the args.  % #1 is the data type, #2 the name, #3 the args.
 \def\deftypefunheaderx #1#2 #3\relax{%  \def\deftypefunheaderx #1#2 #3\relax{%
 \doind {fn}{\code{#2}}% Make entry in function index  \doind {fn}{\code{#2}}% Make entry in function index
 \begingroup\defname {\defheaderxcond#1\relax$$$#2}{Function}%  \begingroup\defname {\defheaderxcond#1\relax$.$#2}{\putwordDeftypefun}%
 \deftypefunargs {#3}\endgroup %  \deftypefunargs {#3}\endgroup %
 \catcode 61=\other % Turn off change made in \defparsebody  \catcode 61=\other % Turn off change made in \defparsebody
 }  }
Line 4074  width0pt\relax} \fi Line 4971  width0pt\relax} \fi
   
 \def\deftypefn{\defmethparsebody\Edeftypefn\deftypefnx\deftypefnheader}  \def\deftypefn{\defmethparsebody\Edeftypefn\deftypefnx\deftypefnheader}
   
 % \defheaderxcond#1\relax$$$  % \defheaderxcond#1\relax$.$
 % puts #1 in @code, followed by a space, but does nothing if #1 is null.  % puts #1 in @code, followed by a space, but does nothing if #1 is null.
 \def\defheaderxcond#1#2$$${\ifx#1\relax\else\code{#1#2} \fi}  \def\defheaderxcond#1#2$.${\ifx#1\relax\else\code{#1#2} \fi}
   
 % #1 is the classification.  #2 is the data type.  #3 is the name and args.  % #1 is the classification.  #2 is the data type.  #3 is the name and args.
 \def\deftypefnheader #1#2#3{\deftypefnheaderx{#1}{#2}#3 \relax}  \def\deftypefnheader #1#2#3{\deftypefnheaderx{#1}{#2}#3 \relax}
Line 4086  width0pt\relax} \fi Line 4983  width0pt\relax} \fi
 \begingroup  \begingroup
 \normalparens % notably, turn off `&' magic, which prevents  \normalparens % notably, turn off `&' magic, which prevents
 %               at least some C++ text from working  %               at least some C++ text from working
 \defname {\defheaderxcond#2\relax$$$#3}{#1}%  \defname {\defheaderxcond#2\relax$.$#3}{#1}%
 \deftypefunargs {#4}\endgroup %  \deftypefunargs {#4}\endgroup %
 \catcode 61=\other % Turn off change made in \defparsebody  \catcode 61=\other % Turn off change made in \defparsebody
 }  }
Line 4096  width0pt\relax} \fi Line 4993  width0pt\relax} \fi
 \def\defmac{\defparsebody\Edefmac\defmacx\defmacheader}  \def\defmac{\defparsebody\Edefmac\defmacx\defmacheader}
   
 \def\defmacheader #1#2{\doind {fn}{\code{#1}}% Make entry in function index  \def\defmacheader #1#2{\doind {fn}{\code{#1}}% Make entry in function index
 \begingroup\defname {#1}{Macro}%  \begingroup\defname {#1}{\putwordDefmac}%
 \defunargs {#2}\endgroup %  \defunargs {#2}\endgroup %
 \catcode 61=\other % Turn off change made in \defparsebody  \catcode 61=\other % Turn off change made in \defparsebody
 }  }
Line 4106  width0pt\relax} \fi Line 5003  width0pt\relax} \fi
 \def\defspec{\defparsebody\Edefspec\defspecx\defspecheader}  \def\defspec{\defparsebody\Edefspec\defspecx\defspecheader}
   
 \def\defspecheader #1#2{\doind {fn}{\code{#1}}% Make entry in function index  \def\defspecheader #1#2{\doind {fn}{\code{#1}}% Make entry in function index
 \begingroup\defname {#1}{Special Form}%  \begingroup\defname {#1}{\putwordDefspec}%
 \defunargs {#2}\endgroup %  \defunargs {#2}\endgroup %
 \catcode 61=\other % Turn off change made in \defparsebody  \catcode 61=\other % Turn off change made in \defparsebody
 }  }
   
 % This definition is run if you use @defunx  % @defop CATEGORY CLASS OPERATION ARG...
 % anywhere other than immediately after a @defun or @defunx.  %
   
 \def\deffnx #1 {\errmessage{@deffnx in invalid context}}  
 \def\defunx #1 {\errmessage{@defunx in invalid context}}  
 \def\defmacx #1 {\errmessage{@defmacx in invalid context}}  
 \def\defspecx #1 {\errmessage{@defspecx in invalid context}}  
 \def\deftypefnx #1 {\errmessage{@deftypefnx in invalid context}}  
 \def\deftypemethodx #1 {\errmessage{@deftypemethodx in invalid context}}  
 \def\deftypeunx #1 {\errmessage{@deftypeunx in invalid context}}  
   
 % @defmethod, and so on  
   
 % @defop {Funny Method} foo-class frobnicate argument  
   
 \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\ \putwordon\ #1}%
 \defunargs {#3}\endgroup %  \defunargs {#3}\endgroup %
 }  }
   
 % @deftypemethod foo-class return-type foo-method args  % @deftypeop CATEGORY CLASS TYPE OPERATION ARG...
   %
   \def\deftypeop #1 {\def\deftypeopcategory{#1}%
     \deftypeopparsebody\Edeftypeop\deftypeopx\deftypeopheader
                          \deftypeopcategory}
   %
   % #1 is the class name, #2 the data type, #3 the operation name, #4 the args.
   \def\deftypeopheader#1#2#3#4{%
     \dosubind{fn}{\code{#3}}{\putwordon\ \code{#1}}% entry in function index
     \begingroup
       \defname{\defheaderxcond#2\relax$.$#3}
               {\deftypeopcategory\ \putwordon\ \code{#1}}%
       \deftypefunargs{#4}%
     \endgroup
   }
   
   % @deftypemethod CLASS 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  % @deftypeivar CLASS TYPE VARNAME
   %
   \def\deftypeivar{%
     \deftypemethparsebody\Edeftypeivar\deftypeivarx\deftypeivarheader}
   %
   % #1 is the class name, #2 the data type, #3 the variable name.
   \def\deftypeivarheader#1#2#3{%
     \dosubind{vr}{\code{#3}}{\putwordof\ \code{#1}}% entry in variable index
     \begingroup
       \defname{\defheaderxcond#2\relax$.$#3}
               {\putwordInstanceVariableof\ \code{#1}}%
       \defvarargs{#3}%
     \endgroup
   }
   
   % @defmethod == @defop Method
   %
 \def\defmethod{\defmethparsebody\Edefmethod\defmethodx\defmethodheader}  \def\defmethod{\defmethparsebody\Edefmethod\defmethodx\defmethodheader}
   %
 \def\defmethodheader #1#2#3{%  % #1 is the class name, #2 the method name, #3 the args.
 \dosubind {fn}{\code{#2}}{on #1}% entry in function index  \def\defmethodheader#1#2#3{%
 \begingroup\defname {#2}{Method on #1}%    \dosubind{fn}{\code{#2}}{\putwordon\ \code{#1}}% entry in function index
 \defunargs {#3}\endgroup %    \begingroup
       \defname{#2}{\putwordMethodon\ \code{#1}}%
       \defunargs{#3}%
     \endgroup
 }  }
   
 % @defcv {Class Option} foo-class foo-flag  % @defcv {Class Option} foo-class foo-flag
Line 4161  width0pt\relax} \fi Line 5083  width0pt\relax} \fi
 \defopvarparsebody\Edefcv\defcvx\defcvarheader\defcvtype}  \defopvarparsebody\Edefcv\defcvx\defcvarheader\defcvtype}
   
 \def\defcvarheader #1#2#3{%  \def\defcvarheader #1#2#3{%
 \dosubind {vr}{\code{#2}}{of #1}% Make entry in var index  \dosubind {vr}{\code{#2}}{\putwordof\ #1}% Make entry in var index
 \begingroup\defname {#2}{\defcvtype{} of #1}%  \begingroup\defname {#2}{\defcvtype\ \putwordof\ #1}%
 \defvarargs {#3}\endgroup %  \defvarargs {#3}\endgroup %
 }  }
   
 % @defivar == @defcv {Instance Variable}  % @defivar CLASS VARNAME == @defcv {Instance Variable} CLASS VARNAME
   %
 \def\defivar{\defvrparsebody\Edefivar\defivarx\defivarheader}  \def\defivar{\defvrparsebody\Edefivar\defivarx\defivarheader}
   %
 \def\defivarheader #1#2#3{%  \def\defivarheader#1#2#3{%
 \dosubind {vr}{\code{#2}}{of #1}% Make entry in var index    \dosubind {vr}{\code{#2}}{\putwordof\ #1}% entry in var index
 \begingroup\defname {#2}{Instance Variable of #1}%    \begingroup
 \defvarargs {#3}\endgroup %      \defname{#2}{\putwordInstanceVariableof\ #1}%
       \defvarargs{#3}%
     \endgroup
 }  }
   
 % These definitions are run if you use @defmethodx, etc.,  % @defvar
 % anywhere other than immediately after a @defmethod, etc.  
   
 \def\defopx #1 {\errmessage{@defopx in invalid context}}  
 \def\defmethodx #1 {\errmessage{@defmethodx in invalid context}}  
 \def\defcvx #1 {\errmessage{@defcvx in invalid context}}  
 \def\defivarx #1 {\errmessage{@defivarx in invalid context}}  
   
 % Now @defvar  
   
 % 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
   
Line 4205  width0pt\relax} \fi Line 5120  width0pt\relax} \fi
 \def\defvar{\defvarparsebody\Edefvar\defvarx\defvarheader}  \def\defvar{\defvarparsebody\Edefvar\defvarx\defvarheader}
   
 \def\defvarheader #1#2{\doind {vr}{\code{#1}}% Make entry in var index  \def\defvarheader #1#2{\doind {vr}{\code{#1}}% Make entry in var index
 \begingroup\defname {#1}{Variable}%  \begingroup\defname {#1}{\putwordDefvar}%
 \defvarargs {#2}\endgroup %  \defvarargs {#2}\endgroup %
 }  }
   
Line 4214  width0pt\relax} \fi Line 5129  width0pt\relax} \fi
 \def\defopt{\defvarparsebody\Edefopt\defoptx\defoptheader}  \def\defopt{\defvarparsebody\Edefopt\defoptx\defoptheader}
   
 \def\defoptheader #1#2{\doind {vr}{\code{#1}}% Make entry in var index  \def\defoptheader #1#2{\doind {vr}{\code{#1}}% Make entry in var index
 \begingroup\defname {#1}{User Option}%  \begingroup\defname {#1}{\putwordDefopt}%
 \defvarargs {#2}\endgroup %  \defvarargs {#2}\endgroup %
 }  }
   
Line 4226  width0pt\relax} \fi Line 5141  width0pt\relax} \fi
 % 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}{\putwordDeftypevar}%
 \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}}}
   
Line 4237  width0pt\relax} \fi Line 5152  width0pt\relax} \fi
 \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  
 % anywhere other than immediately after a @defvar or @defvarx.  
   
 \def\defvrx #1 {\errmessage{@defvrx in invalid context}}  
 \def\defvarx #1 {\errmessage{@defvarx in invalid context}}  
 \def\defoptx #1 {\errmessage{@defoptx in invalid context}}  
 \def\deftypevarx #1 {\errmessage{@deftypevarx in invalid context}}  
 \def\deftypevrx #1 {\errmessage{@deftypevrx in invalid context}}  
   
 % Now define @deftp  % Now define @deftp
 % Args are printed in bold, a slight difference from @defvar.  % Args are printed in bold, a slight difference from @defvar.
   
Line 4263  width0pt\relax} \fi Line 5169  width0pt\relax} \fi
 \def\deftpheader #1#2#3{\doind {tp}{\code{#2}}%  \def\deftpheader #1#2#3{\doind {tp}{\code{#2}}%
 \begingroup\defname {#2}{#1}\deftpargs{#3}\endgroup}  \begingroup\defname {#2}{#1}\deftpargs{#3}\endgroup}
   
 % This definition is run if you use @deftpx, etc  % These definitions are used if you use @defunx (etc.)
 % anywhere other than immediately after a @deftp, etc.  % anywhere other than immediately after a @defun or @defunx.
   % 
   \def\defcvx#1 {\errmessage{@defcvx in invalid context}}
   \def\deffnx#1 {\errmessage{@deffnx in invalid context}}
   \def\defivarx#1 {\errmessage{@defivarx in invalid context}}
   \def\defmacx#1 {\errmessage{@defmacx in invalid context}}
   \def\defmethodx#1 {\errmessage{@defmethodx in invalid context}}
   \def\defoptx #1 {\errmessage{@defoptx in invalid context}}
   \def\defopx#1 {\errmessage{@defopx in invalid context}}
   \def\defspecx#1 {\errmessage{@defspecx in invalid context}}
   \def\deftpx#1 {\errmessage{@deftpx in invalid context}}
   \def\deftypefnx#1 {\errmessage{@deftypefnx in invalid context}}
   \def\deftypefunx#1 {\errmessage{@deftypefunx in invalid context}}
   \def\deftypeivarx#1 {\errmessage{@deftypeivarx in invalid context}}
   \def\deftypemethodx#1 {\errmessage{@deftypemethodx in invalid context}}
   \def\deftypeopx#1 {\errmessage{@deftypeopx in invalid context}}
   \def\deftypevarx#1 {\errmessage{@deftypevarx in invalid context}}
   \def\deftypevrx#1 {\errmessage{@deftypevrx in invalid context}}
   \def\defunx#1 {\errmessage{@defunx in invalid context}}
   \def\defvarx#1 {\errmessage{@defvarx in invalid context}}
   \def\defvrx#1 {\errmessage{@defvrx in invalid context}}
   
   
   \message{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
      % Undo catcode changes of \startcontents and \doprintindex
      \catcode`\@=0 \catcode`\\=12 \escapechar=`\@
      % Append \endinput to make sure that TeX does not see the ending newline.
      \toks0={#1\endinput}%
      \immediate\openout\macscribble=\jobname.tmp
      \immediate\write\macscribble{\the\toks0}%
      \immediate\closeout\macscribble
      \let\xeatspaces\eatspaces
      \input \jobname.tmp
      \endgroup
   }
   \else
   \def\scanmacro#1{%
   \begingroup \newlinechar`\^^M
   % Undo catcode changes of \startcontents and \doprintindex
   \catcode`\@=0 \catcode`\\=12 \escapechar=`\@
   \let\xeatspaces\eatspaces\scantokens{#1\endinput}\endgroup}
   \fi
   
   \newcount\paramno   % Count of parameters
   \newtoks\macname    % Macro name
   \newif\ifrecursive  % Is it recursive?
   \def\macrolist{}    % List of all defined macros in the form
                       % \do\macro1\do\macro2...
   
   % 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}
   
   \def\macroargctxt{%
     \catcode`\~=12
     \catcode`\^=12
     \catcode`\_=12
     \catcode`\|=12
     \catcode`\<=12
     \catcode`\>=12
     \catcode`\+=12
     \catcode`\@=12
     \catcode`\\=12}
   
   % \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
     \if1\csname ismacro.\the\macname\endcsname
        \message{Warning: redefining \the\macname}%
     \else
        \expandafter\ifx\csname \the\macname\endcsname \relax
        \else \errmessage{Macro name \the\macname\space already defined}\fi
        \global\cslet{macsave.\the\macname}{\the\macname}%
        \global\expandafter\let\csname ismacro.\the\macname\endcsname=1%
        % Add the macroname to \macrolist
        \toks0 = \expandafter{\macrolist\do}%
        \xdef\macrolist{\the\toks0
          \expandafter\noexpand\csname\the\macname\endcsname}%
     \fi
     \begingroup \macrobodyctxt
     \ifrecursive \expandafter\parsermacbody
     \else \expandafter\parsemacbody
     \fi}
   
   \def\unmacro{\parsearg\unmacroxxx}
   \def\unmacroxxx#1{%
     \if1\csname ismacro.#1\endcsname
       \global\cslet{#1}{macsave.#1}%
       \global\expandafter\let \csname ismacro.#1\endcsname=0%
       % Remove the macro name from \macrolist
       \begingroup
         \edef\tempa{\expandafter\noexpand\csname#1\endcsname}%
         \def\do##1{%
           \def\tempb{##1}%
           \ifx\tempa\tempb
             % remove this
           \else
             \toks0 = \expandafter{\newmacrolist\do}%
             \edef\newmacrolist{\the\toks0\expandafter\noexpand\tempa}%
           \fi}%
         \def\newmacrolist{}%
         % Execute macro list to define \newmacrolist
         \macrolist
         \global\let\macrolist\newmacrolist
       \endgroup
     \else
       \errmessage{Macro #1 not defined}%
     \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{%
            \bgroup\noexpand\macroargctxt
            \noexpand\braceorline
            \expandafter\noexpand\csname\the\macname xxx\endcsname}%
         \expandafter\xdef\csname\the\macname xxx\endcsname##1{%
            \egroup\noexpand\scanmacro{\temp}}%
       \else % many
         \expandafter\xdef\csname\the\macname\endcsname{%
            \bgroup\noexpand\macroargctxt
            \noexpand\csname\the\macname xx\endcsname}%
         \expandafter\xdef\csname\the\macname xx\endcsname##1{%
             \expandafter\noexpand\csname\the\macname xxx\endcsname ##1,}%
         \expandafter\expandafter
         \expandafter\xdef
         \expandafter\expandafter
           \csname\the\macname xxx\endcsname
             \paramlist{\egroup\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{%
            \bgroup\noexpand\macroargctxt
            \noexpand\braceorline
            \expandafter\noexpand\csname\the\macname xxx\endcsname}%
         \expandafter\xdef\csname\the\macname xxx\endcsname##1{%
           \egroup
           \noexpand\norecurse{\the\macname}%
           \noexpand\scanmacro{\temp}\egroup}%
       \else % many
         \expandafter\xdef\csname\the\macname\endcsname{%
            \bgroup\noexpand\macroargctxt
            \expandafter\noexpand\csname\the\macname xx\endcsname}%
         \expandafter\xdef\csname\the\macname xx\endcsname##1{%
             \expandafter\noexpand\csname\the\macname xxx\endcsname ##1,}%
         \expandafter\expandafter
         \expandafter\xdef
         \expandafter\expandafter
         \csname\the\macname xxx\endcsname
         \paramlist{%
             \egroup
             \noexpand\norecurse{\the\macname}%
             \noexpand\scanmacro{\temp}\egroup}%
       \fi
     \fi}
   
   \def\norecurse#1{\bgroup\cslet{#1}{macsave.#1}}
   
 \def\deftpx #1 {\errmessage{@deftpx in invalid context}}  % \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}
   
   % We mant to disable all macros during \shipout so that they are not
   % expanded by \write.
   \def\turnoffmacros{\begingroup \def\do##1{\let\noexpand##1=\relax}%
     \edef\next{\macrolist}\expandafter\endgroup\next}
   
   
   % @alias.
   % We need some trickery to remove the optional spaces around the equal
   % sign.  Just make them active and then expand them all to nothing.
   \def\alias{\begingroup\obeyspaces\parsearg\aliasxxx}
   \def\aliasxxx #1{\aliasyyy#1\relax}
   \def\aliasyyy #1=#2\relax{\ignoreactivespaces
   \edef\next{\global\let\expandafter\noexpand\csname#1\endcsname=%
              \expandafter\noexpand\csname#2\endcsname}%
   \expandafter\endgroup\next}
   
   
 \message{cross reference,}  \message{cross references,}
 % Define cross-reference macros  % @xref etc.
 \newwrite \auxfile  
   
 \newif\ifhavexrefs  % True if xref values are known.  \newwrite\auxfile
   
   \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
   
   % The sectioning commands (@chapter, etc.) call these.
   \def\donoderef{%
     \ifx\lastnode\relax\else
       \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
   }
   
   
 \def\setref#1{%  % @anchor{NAME} -- define xref target at arbitrary point.
 \dosetq{#1-title}{Ytitle}%  %
 \dosetq{#1-pg}{Ypagenumber}%  \newcount\savesfregister
 \dosetq{#1-snt}{Ysectionnumberandtype}}  \gdef\savesf{\relax \ifhmode \savesfregister=\spacefactor \fi}
   \gdef\restoresf{\relax \ifhmode \spacefactor=\savesfregister \fi}
 \def\unnumbsetref#1{%  \gdef\anchor#1{\savesf \setref{#1}{Ynothing}\restoresf \ignorespaces}
 \dosetq{#1-title}{Ytitle}%  
 \dosetq{#1-pg}{Ypagenumber}%  % \setref{NAME}{SNT} defines a cross-reference point NAME, namely
 \dosetq{#1-snt}{Ynothing}}  % NAME-title, NAME-pg, and NAME-SNT.  Called from \foonoderef.  We have
   % to set \indexdummies so commands such as @code in a section title
 \def\appendixsetref#1{%  % aren't expanded.  It would be nicer not to expand the titles in the
 \dosetq{#1-title}{Ytitle}%  % first place, but there's so many layers that that is hard to do.
 \dosetq{#1-pg}{Ypagenumber}%  %
 \dosetq{#1-snt}{Yappendixletterandtype}}  \def\setref#1#2{{%
     \indexdummies
 % \xref, \pxref, and \ref generate cross-references to specified points.    \pdfmkdest{#1}%
 % For \xrefX, #1 is the node name, #2 the name of the Info    \dosetq{#1-title}{Ytitle}%
 % cross-reference, #3 the printed node name, #4 the name of the Info    \dosetq{#1-pg}{Ypagenumber}%
 % file, #5 the name of the printed manual.  All but the node name can be    \dosetq{#1-snt}{#2}%
 % omitted.  }}
   
   % @xref, @pxref, and @ref generate cross-references.  For \xrefX, #1 is
   % the node name, #2 the name of the Info cross-reference, #3 the printed
   % node name, #4 the name of the Info file, #5 the name of the printed
   % manual.  All but the node name can be 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
     \unsepspaces
   \def\printedmanual{\ignorespaces #5}%    \def\printedmanual{\ignorespaces #5}%
   \def\printednodename{\ignorespaces #3}%    \def\printednodename{\ignorespaces #3}%
   \setbox1=\hbox{\printedmanual}%    \setbox1=\hbox{\printedmanual}%
Line 4320  width0pt\relax} \fi Line 5569  width0pt\relax} \fi
     \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
Line 4341  width0pt\relax} \fi Line 5590  width0pt\relax} \fi
   % are best written with fairly long node names, containing hyphens, this    % are best written with fairly long node names, containing hyphens, this
   % is a loss.  Therefore, we give the text of the node name again, so it    % is a loss.  Therefore, we give the text of the node name again, so it
   % is as if TeX is seeing it for the first time.    % is as if TeX is seeing it for the first time.
     \ifpdf
       \leavevmode
       \getfilename{#4}%
       {\normalturnoffactive
        \ifnum\filenamelength>0
          \startlink attr{/Border [0 0 0]}%
            goto file{\the\filename.pdf} name{#1}%
        \else
          \startlink attr{/Border [0 0 0]}%
            goto name{#1}%
        \fi
       }%
       \linkcolor
     \fi
     %
   \ifdim \wd1 > 0pt    \ifdim \wd1 > 0pt
     \putwordsection{} ``\printednodename'' in \cite{\printedmanual}%      \putwordsection{} ``\printednodename'' \putwordin{} \cite{\printedmanual}%
   \else    \else
     % _ (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
     \endlink
 \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{%
 \edef\next{\write\auxfile{\internalsetq {#1}{#2}}}%    {\let\folio=0%
 \next}}     \normalturnoffactive
      \edef\next{\write\auxfile{\internalsetq{#1}{#2}}}%
      \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...}
Line 4413  width0pt\relax} \fi Line 5691  width0pt\relax} \fi
   \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
     \ifhavexrefs      \iflinks
       \message{\linenumber Undefined cross reference `#1'.}%        \ifhavexrefs
     \else          \message{\linenumber Undefined cross reference `#1'.}%
       \ifwarnedxrefs\else        \else
         \global\warnedxrefstrue          \ifwarnedxrefs\else
         \message{Cross reference values unknown; you must run TeX again.}%            \global\warnedxrefstrue
             \message{Cross reference values unknown; you must run TeX again.}%
           \fi
       \fi        \fi
     \fi      \fi
   \else    \else
Line 4429  width0pt\relax} \fi Line 5709  width0pt\relax} \fi
 }  }
   
 % This is the macro invoked by entries in the aux file.  % This is the macro invoked by entries in the aux file.
 %   %
 \def\xrdef#1{\begingroup  \def\xrdef#1{\begingroup
   % Reenable \ as an escape while reading the second argument.    % Reenable \ as an escape while reading the second argument.
   \catcode`\\ = 0    \catcode`\\ = 0
Line 4492  width0pt\relax} \fi Line 5772  width0pt\relax} \fi
   \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
Line 4582  width0pt\relax} \fi Line 5861  width0pt\relax} \fi
   \xspaceskip\z@skip    \xspaceskip\z@skip
   \parindent\defaultparindent    \parindent\defaultparindent
   %    %
   % Hang the footnote text off the number.    \smallfonts \rm
   \hang    %
     % Because we use hanging indentation in footnotes, a @noindent appears
     % to exdent this text, so make it be a no-op.  makeinfo does not use
     % hanging indentation so @noindent can still be needed within footnote
     % text after an @example or the like (not that this is good style).
     \let\noindent = \relax
     %
     % Hang the footnote text off the number.  Use \everypar in case the
     % footnote extends for more than one paragraph.
     \everypar = {\hang}%
   \textindent{\thisfootno}%    \textindent{\thisfootno}%
   %    %
   % Don't crash into the line above the footnote text.  Since this    % Don't crash into the line above the footnote text.  Since this
Line 4596  width0pt\relax} \fi Line 5884  width0pt\relax} \fi
   \else\let\next\f@t\fi \next}    \else\let\next\f@t\fi \next}
 \def\f@@t{\bgroup\aftergroup\@foot\let\next}  \def\f@@t{\bgroup\aftergroup\@foot\let\next}
 \def\f@t#1{#1\@foot}  \def\f@t#1{#1\@foot}
 \def\@foot{\strut\egroup}  \def\@foot{\strut\par\egroup}
   
 }%end \catcode `\@=11  }%end \catcode `\@=11
   
 % Set the baselineskip to #1, and the lineskip and strut size  
 % correspondingly.  There is no deep meaning behind these magic numbers  
 % used as factors; they just match (closely enough) what Knuth defined.  
 %  
 \def\lineskipfactor{.08333}  
 \def\strutheightpercent{.70833}  
 \def\strutdepthpercent {.29167}  
 %  
 \def\setleading#1{%  
   \normalbaselineskip = #1\relax  
   \normallineskip = \lineskipfactor\normalbaselineskip  
   \normalbaselines  
   \setbox\strutbox =\hbox{%  
     \vrule width0pt height\strutheightpercent\baselineskip  
                     depth \strutdepthpercent \baselineskip  
   }%  
 }  
   
 % @| inserts a changebar to the left of the current line.  It should  % @| inserts a changebar to the left of the current line.  It should
 % surround any changed text.  This approach does *not* work if the  % surround any changed text.  This approach does *not* work if the
 % change spans more than two lines of output.  To handle that, we would  % change spans more than two lines of output.  To handle that, we would
Line 4655  width0pt\relax} \fi Line 5925  width0pt\relax} \fi
   
 % @image.  We use the macros from epsf.tex to support this.  % @image.  We use the macros from epsf.tex to support this.
 % If epsf.tex is not installed and @image is used, we complain.  % If epsf.tex is not installed and @image is used, we complain.
 %   %
 % Check for and read epsf.tex up front.  If we read it only at @image  % Check for and read epsf.tex up front.  If we read it only at @image
 % 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
 %  %
   % We will only complain once about lack of epsf.tex.
 \newif\ifwarnednoepsf  \newif\ifwarnednoepsf
 \newhelp\noepsfhelp{epsf.tex must be installed for images to  \newhelp\noepsfhelp{epsf.tex must be installed for images to
   work.  It is also included in the Texinfo distribution, or you can get    work.  It is also included in the Texinfo distribution, or you can get
   it from ftp://ftp.tug.org/tex/epsf.tex.}    it from ftp://tug.org/tex/epsf.tex.}
 %  %
 % Only complain once about lack of epsf.tex.  
 \def\image#1{%  \def\image#1{%
   \ifx\epsfbox\undefined    \ifx\epsfbox\undefined
     \ifwarnednoepsf \else      \ifwarnednoepsf \else
Line 4680  width0pt\relax} \fi Line 5952  width0pt\relax} \fi
       \global\warnednoepsftrue        \global\warnednoepsftrue
     \fi      \fi
   \else    \else
     \imagexxx #1,,,\finish      \imagexxx #1,,,,,\finish
   \fi    \fi
 }  }
 %  %
 % Arguments to @image:  % Arguments to @image:
 % #1 is (mandatory) image filename; we tack on .eps extension.  % #1 is (mandatory) image filename; we tack on .eps extension.
 % #2 is (optional) width, #3 is (optional) height.  % #2 is (optional) width, #3 is (optional) height.
 % #4 is just the usual extra ignored arg for parsing this stuff.  % #4 is (ignored optional) html alt text.
 \def\imagexxx#1,#2,#3,#4\finish{%  % #5 is (ignored optional) extension.
   % \epsfbox itself resets \epsf?size at each figure.  % #6 is just the usual extra ignored arg for parsing this stuff.
   \setbox0 = \hbox{\ignorespaces #2}\ifdim\wd0 > 0pt \epsfxsize=#2\relax \fi  \newif\ifimagevmode
   \setbox0 = \hbox{\ignorespaces #3}\ifdim\wd0 > 0pt \epsfysize=#3\relax \fi  \def\imagexxx#1,#2,#3,#4,#5,#6\finish{\begingroup
   \epsfbox{#1.eps}%    \catcode`\^^M = 5     % in case we're inside an example
 }    \normalturnoffactive  % allow _ et al. in names
     % If the image is by itself, center it.
 % End of control word definitions.    \ifvmode
       \imagevmodetrue
       \nobreak\bigskip
       % Usually we'll have text after the image which will insert
       % \parskip glue, so insert it here too to equalize the space
       % above and below. 
       \nobreak\vskip\parskip
       \nobreak
       \line\bgroup\hss
     \fi
     %
     % Output the image.
     \ifpdf
       \dopdfimage{#1}{#2}{#3}%
     \else
       % \epsfbox itself resets \epsf?size at each figure.
       \setbox0 = \hbox{\ignorespaces #2}\ifdim\wd0 > 0pt \epsfxsize=#2\relax \fi
       \setbox0 = \hbox{\ignorespaces #3}\ifdim\wd0 > 0pt \epsfysize=#3\relax \fi
       \epsfbox{#1.eps}%
     \fi
     %
     \ifimagevmode \hss \egroup \bigbreak \fi  % space after the image
   \endgroup}
   
   
 \message{and turning on texinfo input format.}  \message{localization,}
   % and i18n.
   
 \def\openindices{%  % @documentlanguage is usually given very early, just after
    \newindex{cp}%  % @setfilename.  If done too late, it may not override everything
    \newcodeindex{fn}%  % properly.  Single argument is the language abbreviation.
    \newcodeindex{vr}%  % It would be nice if we could set up a hyphenation file here.
    \newcodeindex{tp}%  %
    \newcodeindex{ky}%  \def\documentlanguage{\parsearg\dodocumentlanguage}
    \newcodeindex{pg}%  \def\dodocumentlanguage#1{%
     \tex % read txi-??.tex file in plain TeX.
     % Read the file if it exists.
     \openin 1 txi-#1.tex
     \ifeof1
       \errhelp = \nolanghelp
       \errmessage{Cannot read language file txi-#1.tex}%
       \let\temp = \relax
     \else
       \def\temp{\input txi-#1.tex }%
     \fi
     \temp
     \endgroup
 }  }
   \newhelp\nolanghelp{The given language definition file cannot be found or
   is empty.  Maybe you need to install it?  In the current directory
   should work if nowhere else does.}
   
   
   % @documentencoding should change something in TeX eventually, most
   % likely, but for now just recognize it.
   \let\documentencoding = \comment
   
 % Set some numeric style parameters, for 8.5 x 11 format.  
   
 \hsize = 6in  % Page size parameters.
 \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
Line 4733  width0pt\relax} \fi Line 6046  width0pt\relax} \fi
 % 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.  We call this whenever the paper size is set.
 %  %
 \ifx\emergencystretch\thisisundefined  \def\setemergencystretch{%
   % Allow us to assign to \emergencystretch anyway.    \ifx\emergencystretch\thisisundefined
   \def\emergencystretch{\dimen0}%      % Allow us to assign to \emergencystretch anyway.
 \else      \def\emergencystretch{\dimen0}%
   \emergencystretch = \hsize    \else
   \divide\emergencystretch by 45      \emergencystretch = .15\hsize
 \fi    \fi
   }
   
   % Parameters in order: 1) textheight; 2) textwidth; 3) voffset;
   % 4) hoffset; 5) binding offset; 6) topskip.  We also call
   % \setleading{\textleading}, so the caller should define \textleading.
   % The caller should also set \parskip.
   %
   \def\internalpagesizes#1#2#3#4#5#6{%
     \voffset = #3\relax
     \topskip = #6\relax
     \splittopskip = \topskip
     %
     \vsize = #1\relax
     \advance\vsize by \topskip
     \outervsize = \vsize
     \advance\outervsize by 2\topandbottommargin
     \pageheight = \vsize
     %
     \hsize = #2\relax
     \outerhsize = \hsize
     \advance\outerhsize by 0.5in
     \pagewidth = \hsize
     %
     \normaloffset = #4\relax
     \bindingoffset = #5\relax
     %
     \setleading{\textleading}
     %
     \parindent = \defaultparindent
     \setemergencystretch
   }
   
 % Use @smallbook to reset parameters for 7x9.5 format  (or else 7x9.25)  % Use `small' versions.
 \def\smallbook{  % 
   \global\chapheadingskip = 15pt plus 4pt minus 2pt  \def\smallenvironments{%
   \global\secheadingskip = 12pt plus 3pt minus 2pt    \let\smalldisplay = \smalldisplayx
   \global\subsecheadingskip = 9pt plus 2pt minus 2pt    \let\smallexample = \smalllispx
   %    \let\smallformat = \smallformatx
   \global\lispnarrowing = 0.3in    \let\smalllisp = \smalllispx
   \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}  
 }  }
   
   % @letterpaper (the default).
   \def\letterpaper{{\globaldefs = 1
     \parskip = 3pt plus 2pt minus 1pt
     \textleading = 13.2pt
     %
     % If page is nothing but text, make it come out even.
     \internalpagesizes{46\baselineskip}{6in}{\voffset}{.25in}{\bindingoffset}{36pt}%
   }}
   
   % Use @smallbook to reset parameters for 7x9.5 (or so) format.
   \def\smallbook{{\globaldefs = 1
     \parskip = 2pt plus 1pt
     \textleading = 12pt
     %
     \internalpagesizes{7.5in}{5.in}{\voffset}{.25in}{\bindingoffset}{16pt}%
     %
     \lispnarrowing = 0.3in
     \tolerance = 700
     \hfuzz = 1pt
     \contentsrightmargin = 0pt
     \deftypemargin = 0pt
     \defbodyindent = .5cm
     \smallenvironments
   }}
   
 % Use @afourpaper to print on European A4 paper.  % Use @afourpaper to print on European A4 paper.
 \def\afourpaper{  \def\afourpaper{{\globaldefs = 1
 \global\tolerance=700    \parskip = 3pt plus 2pt minus 1pt
 \global\hfuzz=1pt    \textleading = 12pt
 \setleading{12pt}    %
 \global\parskip 15pt plus 1pt    \internalpagesizes{53\baselineskip}{160mm}{\voffset}{4mm}{\bindingoffset}{44pt}%
     %
 \global\vsize= 53\baselineskip    \tolerance = 700
 \advance\vsize by \topskip    \hfuzz = 1pt
 %\global\hsize=   5.85in     % A4 wide 10pt  }}
 \global\hsize=  6.5in  
 \global\outerhsize=\hsize  % Use @afivepaper to print on European A5 paper.
 \global\advance\outerhsize by 0.5in  % From romildo@urano.iceb.ufop.br, 2 July 2000.
 \global\outervsize=\vsize  % He also recommends making @example and @lisp be small.
 \global\advance\outervsize by 0.6in  \def\afivepaper{{\globaldefs = 1
     \parskip = 2pt plus 1pt minus 0.1pt
 \global\pagewidth=\hsize    \textleading = 12.5pt
 \global\pageheight=\vsize    %
 }    \internalpagesizes{166mm}{120mm}{\voffset}{-8mm}{\bindingoffset}{8pt}%
     %
 \bindingoffset=0pt    \lispnarrowing = 0.2in
 \normaloffset=\hoffset    \tolerance = 800
 \pagewidth=\hsize    \hfuzz = 1.2pt
 \pageheight=\vsize    \contentsrightmargin = 0mm
     \deftypemargin = 0pt
 % Allow control of the text dimensions.  Parameters in order: textheight;    \defbodyindent = 2mm
 % textwidth; voffset; hoffset; binding offset; topskip.    \tableindent = 12mm
 % All require a dimension;    %
 % header is additional; added length extends the bottom of the page.    \smallenvironments
   }}
 \def\changepagesizes#1#2#3#4#5#6{  
  \global\vsize= #1  
  \global\topskip= #6  
  \advance\vsize by \topskip  
  \global\voffset= #3  
  \global\hsize= #2  
  \global\outerhsize=\hsize  
  \global\advance\outerhsize by 0.5in  
  \global\outervsize=\vsize  
  \global\advance\outervsize by 0.6in  
  \global\pagewidth=\hsize  
  \global\pageheight=\vsize  
  \global\normaloffset= #4  
  \global\bindingoffset= #5}  
   
 % 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    \textleading = 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}    % Must explicitly reset to 0 because we call \afourpaper, apparently,
         }    % although this does not entirely make sense.
     \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{6.5in}{9.5in}{\hoffset}{\normaloffset}{\bindingoffset}{7mm}%
   }
   
   % @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{\textleading}%
     %
     \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
Line 4838  width0pt\relax} \fi Line 6203  width0pt\relax} \fi
 \catcode`\<=\other  \catcode`\<=\other
 \catcode`\>=\other  \catcode`\>=\other
 \catcode`\+=\other  \catcode`\+=\other
   \catcode`\$=\other
 \def\normaldoublequote{"}  \def\normaldoublequote{"}
 \def\normaltilde{~}  \def\normaltilde{~}
 \def\normalcaret{^}  \def\normalcaret{^}
Line 4846  width0pt\relax} \fi Line 6212  width0pt\relax} \fi
 \def\normalless{<}  \def\normalless{<}
 \def\normalgreater{>}  \def\normalgreater{>}
 \def\normalplus{+}  \def\normalplus{+}
   \def\normaldollar{$}%$ font-lock fix
   
 % This macro is used to make a character print one way in ttfont  % This macro is used to make a character print one way in ttfont
 % where it can probably just be output, and another way in other fonts,  % where it can probably just be output, and another way in other fonts,
Line 4856  width0pt\relax} \fi Line 6223  width0pt\relax} \fi
 % interword stretch (and shrink), and it is reasonable to expect all  % interword stretch (and shrink), and it is reasonable to expect all
 % typewriter fonts to have this, we can check that font parameter.  % typewriter fonts to have this, we can check that font parameter.
 %  %
 \def\ifusingtt#1#2{\ifdim \fontdimen3\the\font=0pt #1\else #2\fi}  \def\ifusingtt#1#2{\ifdim \fontdimen3\font=0pt #1\else #2\fi}
   
   % Same as above, but check for italic font.  Actually this also catches
   % non-italic slanted fonts since it is impossible to distinguish them from
   % italic fonts.  But since this is only used by $ and it uses \sl anyway
   % this is not a problem.
   \def\ifusingit#1#2{\ifdim \fontdimen1\font>0pt #1\else #2\fi}
   
 % Turn off all special characters except @  % Turn off all special characters except @
 % (and those which the user can use as if they were ordinary).  % (and those which the user can use as if they were ordinary).
Line 4864  width0pt\relax} \fi Line 6237  width0pt\relax} \fi
 % 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}}
Line 4878  width0pt\relax} \fi Line 6251  width0pt\relax} \fi
 \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}}
Line 4887  width0pt\relax} \fi Line 6260  width0pt\relax} \fi
 \def>{{\tt \gtr}}  \def>{{\tt \gtr}}
 \catcode`\+=\active  \catcode`\+=\active
 \def+{{\tt \char 43}}  \def+{{\tt \char 43}}
   \catcode`\$=\active
   \def${\ifusingit{{\sl\$}}\normaldollar}%$ font-lock fix
 %\catcode 27=\active  %\catcode 27=\active
 %\def^^[{$\diamondsuit$}  %\def^^[{$\diamondsuit$}
   
Line 4917  width0pt\relax} \fi Line 6292  width0pt\relax} \fi
 % \normalbackslash outputs one backslash in fixed width font.  % \normalbackslash outputs one backslash in fixed width font.
 \def\normalbackslash{{\tt\rawbackslashxx}}  \def\normalbackslash{{\tt\rawbackslashxx}}
   
 % Say @foo, not \foo, in error messages.  
 \escapechar=`\@  
   
 % \catcode 17=0   % Define control-q  % \catcode 17=0   % Define control-q
 \catcode`\\=\active  \catcode`\\=\active
   
Line 4933  width0pt\relax} \fi Line 6305  width0pt\relax} \fi
 @let|=@normalverticalbar  @let|=@normalverticalbar
 @let<=@normalless  @let<=@normalless
 @let>=@normalgreater  @let>=@normalgreater
 @let+=@normalplus}  @let+=@normalplus
   @let$=@normaldollar}%$ font-lock fix
   
 @def@normalturnoffactive{@let"=@normaldoublequote  @def@normalturnoffactive{@let"=@normaldoublequote
 @let\=@normalbackslash  @let\=@normalbackslash
Line 4943  width0pt\relax} \fi Line 6316  width0pt\relax} \fi
 @let|=@normalverticalbar  @let|=@normalverticalbar
 @let<=@normalless  @let<=@normalless
 @let>=@normalgreater  @let>=@normalgreater
 @let+=@normalplus}  @let+=@normalplus
   @let$=@normaldollar}%$ font-lock fix
   
 % Make _ and + \other characters, temporarily.  % Make _ and + \other characters, temporarily.
 % This is canceled by @fixbackslash.  % This is canceled by @fixbackslash.
Line 4962  width0pt\relax} \fi Line 6336  width0pt\relax} \fi
 % Also back turn on active characters that might appear in the input  % Also back turn on active characters that might appear in the input
 % 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{%
   @catcode`+=@active @catcode`@_=@active}    @ifx\@eatinput @let\ = @normalbackslash @fi
     @catcode`+=@active
     @catcode`@_=@active
   }
   
   % Say @foo, not \foo, in error messages.
   @escapechar = `@@
   
 %% 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.  
 %% 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
   
   @c Set initial fonts.
 @textfonts  @textfonts
 @rm  @rm
   
   
 @c Local variables:  @c Local variables:
   @c eval: (add-hook 'write-file-hooks 'time-stamp)
 @c page-delimiter: "^\\\\message"  @c page-delimiter: "^\\\\message"
   @c time-stamp-start: "def\\\\texinfoversion{"
   @c time-stamp-format: "%:y-%02m-%02d.%02H"
   @c time-stamp-end: "}"
 @c End:  @c End:

Removed from v.1.2  
changed lines
  Added in v.1.4


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>