\fi}% @br   forces paragraph break (and is undocumented).\let\br = \par% @page forces the start of a new page.%\def\page{\par\vfill\supereject}% @exdent text....% outputs text on separate line in roman font, starting at standard page margin% This records the amount of indent in the innermost environment.% That's how much \exdent should take out.\newskip\exdentamount% This defn is used inside fill environments such as @defun.\parseargdef\exdent{\hfil\break\hbox{\kern -\exdentamount{\rm#1}}\hfil\break}% This defn is used inside nofill environments such as @example.\parseargdef\nofillexdent{{\advance \leftskip by -\exdentamount  \leftline{\hskip\leftskip{\rm#1}}}}% @inmargin{WHICH}{TEXT} puts TEXT in the WHICH margin next to the current% paragraph.  For more general purposes, use the \margin insertion% class.  WHICH is `l' or `r'.%\newskip\inmarginspacing \inmarginspacing=1cm\def\strutdepth{\dp\strutbox}%\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 -- \input text of FILE.%\def\include{\parseargusing\filenamecatcodes\includezzz}\def\includezzz#1{%  \pushthisfilestack  \def\thisfile{#1}%  {%    \makevalueexpandable  % we want to expand any @value in FILE.    \turnoffactive        % and allow special characters in the expansion    \indexnofonts         % Allow `@@' and other weird things in file names.    \edef\temp{\noexpand\input #1 }%    %    % This trickery is to read FILE outside of a group, in case it makes    % definitions, etc.    \expandafter  }\temp  \popthisfilestack}\def\filenamecatcodes{%  \catcode`\\=\other  \catcode`~=\other  \catcode`^=\other  \catcode`_=\other  \catcode`|=\other  \catcode`<=\other  \catcode`>=\other  \catcode`+=\other  \catcode`-=\other  \catcode`\`=\other  \catcode`\'=\other}\def\pushthisfilestack{%  \expandafter\pushthisfilestackX\popthisfilestack\StackTerm}\def\pushthisfilestackX{%  \expandafter\pushthisfilestackY\thisfile\StackTerm}\def\pushthisfilestackY #1\StackTerm #2\StackTerm {%  \gdef\popthisfilestack{\gdef\thisfile{#1}\gdef\popthisfilestack{#2}}%}\def\popthisfilestack{\errthisfilestackempty}\def\errthisfilestackempty{\errmessage{Internal error:  the stack of filenames is empty.}}\def\thisfile{}% @center line% outputs that line, centered.%\parseargdef\center{%  \ifhmode    \let\next\centerH  \else    \let\next\centerV  \fi  \next{\hfil \ignorespaces#1\unskip \hfil}%}\def\centerH#1{%  {%    \hfil\break    \advance\hsize by -\leftskip    \advance\hsize by -\rightskip    \line{#1}%    \break  }%}\def\centerV#1{\line{\kern\leftskip #1\kern\rightskip}}% @sp n   outputs n lines of vertical space\parseargdef\sp{\vskip #1\baselineskip}% @comment ...line which is ignored...% @c is the same as @comment% @ignore ... @end ignore  is another way to write a comment\def\comment{\begingroup \catcode`\^^M=\other%\catcode`\@=\other \catcode`\{=\other \catcode`\}=\other%\commentxxx}{\catcode`\^^M=\other \gdef\commentxxx#1^^M{\endgroup}}\let\c=\comment% @paragraphindent NCHARS% We'll use ems for NCHARS, close enough.% NCHARS can also be the word `asis' or `none'.% We cannot feasibly implement @paragraphindent asis, though.%\def\asisword{asis} % no translation, these are keywords\def\noneword{none}%\parseargdef\paragraphindent{%  \def\temp{#1}%  \ifx\temp\asisword  \else    \ifx\temp\noneword      \defaultparindent = 0pt    \else      \defaultparindent = #1em    \fi  \fi  \parindent = \defaultparindent}% @exampleindent NCHARS% We'll use ems for NCHARS like @paragraphindent.% It seems @exampleindent asis isn't necessary, but% I preserve it to make it similar to @paragraphindent.\parseargdef\exampleindent{%  \def\temp{#1}%  \ifx\temp\asisword  \else    \ifx\temp\noneword      \lispnarrowing = 0pt    \else      \lispnarrowing = #1em    \fi  \fi}% @firstparagraphindent WORD% If WORD is `none', then suppress indentation of the first paragraph% after a section heading.  If WORD is `insert', then do indent at such% paragraphs.%% The paragraph indentation is suppressed or not by calling% \suppressfirstparagraphindent, which the sectioning commands do.% We switch the definition of this back and forth according to WORD.% By default, we suppress indentation.%\def\suppressfirstparagraphindent{\dosuppressfirstparagraphindent}\def\insertword{insert}%\parseargdef\firstparagraphindent{%  \def\temp{#1}%  \ifx\temp\noneword    \let\suppressfirstparagraphindent = \dosuppressfirstparagraphindent  \else\ifx\temp\insertword    \let\suppressfirstparagraphindent = \relax  \else    \errhelp = \EMsimple    \errmessage{Unknown @firstparagraphindent option `\temp'}%  \fi\fi}% Here is how we actually suppress indentation.  Redefine \everypar to% \kern backwards by \parindent, and then reset itself to empty.%% We also make \indent itself not actually do anything until the next% paragraph.%\gdef\dosuppressfirstparagraphindent{%  \gdef\indent{%    \restorefirstparagraphindent    \indent  }%  \gdef\noindent{%    \restorefirstparagraphindent    \noindent  }%  \global\everypar = {%    \kern -\parindent    \restorefirstparagraphindent  }%}\gdef\restorefirstparagraphindent{%  \global \let \indent = \ptexindent  \global \let \noindent = \ptexnoindent  \global \everypar = {}%}% @asis just yields its argument.  Used with @table, for example.%\def\asis#1{#1}% @math outputs its argument in math mode.%% One complication: _ usually means subscripts, but it could also mean% an actual _ character, as in @math{@var{some_variable} + 1}.  So make% _ active, and distinguish by seeing if the current family is \slfam,% which is what @var uses.{  \catcode`\_ = \active  \gdef\mathunderscore{%    \catcode`\_=\active    \def_{\ifnum\fam=\slfam \_\else\sb\fi}%  }}% Another complication: we want \\ (and @\) to output a \ character.% FYI, plain.tex uses \\ as a temporary control sequence (why?), but% this is not advertised and we don't care.  Texinfo does not% otherwise define @\.%% The \mathchar is class=0=ordinary, family=7=ttfam, position=5C=\.\def\mathbackslash{\ifnum\fam=\ttfam \mathchar"075C \else\backslash \fi}%\def\math{%  \tex  \mathunderscore  \let\\ = \mathbackslash  \mathactive  % make the texinfo accent commands work in math mode  \let\"=\ddot  \let\'=\acute  \let\==\bar  \let\^=\hat  \let\`=\grave  \let\u=\breve  \let\v=\check  \let\~=\tilde  \let\dotaccent=\dot  $\finishmath}\def\finishmath#1{#1$\endgroup}  % Close the group opened by \tex.% Some active characters (such as <) are spaced differently in math.% We have to reset their definitions in case the @math was an argument% to a command which sets the catcodes (such as @item or @section).%{  \catcode`^ = \active  \catcode`< = \active  \catcode`> = \active  \catcode`+ = \active  \catcode`' = \active  \gdef\mathactive{%    \let^ = \ptexhat    \let< = \ptexless    \let> = \ptexgtr    \let+ = \ptexplus    \let' = \ptexquoteright  }}% Some math mode symbols.\def\bullet{$\ptexbullet$}\def\geq{\ifmmode \ge\else $\ge$\fi}\def\leq{\ifmmode \le\else $\le$\fi}\def\minus{\ifmmode -\else $-$\fi}% @dots{} outputs an ellipsis using the current font.% We do .5em per period so that it has the same spacing in the cm% typewriter fonts as three actual period characters; on the other hand,% in other typewriter fonts three periods are wider than 1.5em.  So do% whichever is larger.%\def\dots{%  \leavevmode  \setbox0=\hbox{...}% get width of three periods  \ifdim\wd0 > 1.5em    \dimen0 = \wd0  \else    \dimen0 = 1.5em  \fi  \hbox to \dimen0{%    \hskip 0pt plus.25fil    .\hskip 0pt plus1fil    .\hskip 0pt plus1fil    .\hskip 0pt plus.5fil  }%}% @enddots{} is an end-of-sentence ellipsis.%\def\enddots{%  \dots  \spacefactor=\endofsentencespacefactor}% @comma{} is so commas can be inserted into text without messing up% Texinfo's parsing.%\let\comma = ,% @refill is a no-op.\let\refill=\relax% If working on a large document in chapters, it is convenient to% be able to disable indexing, cross-referencing, and contents, for test runs.% This is done with @novalidate (before @setfilename).%\newif\iflinks \linkstrue % by default we want the aux files.\let\novalidate = \linksfalse% @setfilename is done at the beginning of every texinfo file.% 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{%   \fixbackslash  % Turn off hack to swallow `\input texinfo'.   \iflinks     \tryauxfile     % Open the new aux file.  TeX will close it automatically at exit.     \immediate\openout\auxfile=\jobname.aux   \fi % \openindices needs to do some work in any case.   \openindices   \let\setfilename=\comment % Ignore extra @setfilename cmds.   %   % If texinfo.cnf is present on the system, read it.   % Useful for site-wide @afourpaper, etc.   \openin 1 texinfo.cnf   \ifeof 1 \else \input texinfo.cnf \fi   \closein 1   %   \comment % Ignore the actual filename.}% Called from \setfilename.%\def\openindices{%  \newindex{cp}%  \newcodeindex{fn}%  \newcodeindex{vr}%  \newcodeindex{tp}%  \newcodeindex{ky}%  \newcodeindex{pg}%}% @bye.\outer\def\bye{\pagealignmacro\tracingstats=1\ptexend}\message{pdf,}% adobe `portable' document format\newcount\tempnum\newcount\lnkcount\newtoks\filename\newcount\filenamelength\newcount\pgn\newtoks\toksA\newtoks\toksB\newtoks\toksC\newtoks\toksD\newbox\boxA\newcount\countA\newif\ifpdf\newif\ifpdfmakepagedest% when pdftex is run in dvi mode, \pdfoutput is defined (so \pdfoutput=1% can be set).  So we test for \relax and 0 as well as \undefined,% borrowed from ifpdf.sty.\ifx\pdfoutput\undefined\else  \ifx\pdfoutput\relax  \else    \ifcase\pdfoutput    \else