%\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    insert text of that file as input.%\def\include{\parseargusing\filenamecatcodes\includezzz}\def\includezzz#1{%  \pushthisfilestack  \def\thisfile{#1}%  {%    \makevalueexpandable    \def\temp{\input #1 }%    \expandafter  }\temp  \popthisfilestack}\def\filenamecatcodes{%  \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\underChar = \active  \gdef\mathunderscore{%    \catcode\underChar=\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  $\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  \gdef\mathactive{%    \let^ = \ptexhat    \let< = \ptexless    \let> = \ptexgtr    \let+ = \ptexplus  }}% @bullet and @minus need the same treatment as @math, just above.\def\bullet{$\ptexbullet$}\def\minus{$-$}% @dots{} outputs an ellipsis using the current font.% We do .5em per period so that it has the same spacing in a typewriter% font as three actual period characters.%\def\dots{%  \leavevmode  \hbox to 1.5em{%    \hskip 0pt plus 0.25fil    .\hfil.\hfil.%    \hskip 0pt plus 0.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      \pdftrue    \fi  \fi\fi% PDF uses PostScript string constants for the names of xref targets, to% for display in the outlines, and in other places.  Thus, we have to% double any backslashes.  Otherwise, a name like "\node" will be% interpreted as a newline (\n), followed by o, d, e.  Not good.% http://www.ntg.nl/pipermail/ntg-pdftex/2004-July/000654.html% (and related messages, the final outcome is that it is up to the TeX% user to double the backslashes and otherwise make the string valid, so% that's we do).% double active backslashes.% {\catcode`\@=0 \catcode`\\=\active @gdef@activebackslash{@catcode`@\=@active @otherbackslash}