xemacs-beta: man/texinfo.tex comparison

comparison man/texinfo.tex @ 290:c9fe270a4101 r21-0b43

Import from CVS: tag r21-0b43

author	cvs
date	Mon, 13 Aug 2007 10:36:47 +0200
parents	bfd6434d15b3
children	74fd4e045ea6

comparison

equal deleted inserted replaced

-:6e6992ccc4b6
+:c9fe270a4101
-%% TeX macros to handle Texinfo files.
+% texinfo.tex -- TeX macros to handle Texinfo files.
-%% $Id: texinfo.tex,v 1.4 1997/08/10 04:40:34 steve Exp $
+% $Id: texinfo.tex,v 1.5 1998/06/13 04:28:12 steve Exp $
+%
-%  Copyright (C) 1985, 86, 88, 90, 91, 92, 93,
+% Copyright (C) 1985, 86, 88, 90, 91, 92, 93, 94, 95, 96, 97, 98
-%                94, 95, 96, 97 Free Software Foundation, Inc.
+% Free Software Foundation, Inc.
+%
-%This texinfo.tex file is free software; you can redistribute it and/or
+% This texinfo.tex file is free software; you can redistribute it and/or
-%modify it under the terms of the GNU General Public License as
+% modify it under the terms of the GNU General Public License as
-%published by the Free Software Foundation; either version 2, or (at
+% published by the Free Software Foundation; either version 2, or (at
-%your option) any later version.
+% your option) any later version.
+%
-%This texinfo.tex file is distributed in the hope that it will be
+% This texinfo.tex file is distributed in the hope that it will be
-%useful, but WITHOUT ANY WARRANTY; without even the implied warranty
+% useful, but WITHOUT ANY WARRANTY; without even the implied warranty
-%of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+% of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-%General Public License for more details.
+% General Public License for more details.
+%
-%You should have received a copy of the GNU General Public License
+% You should have received a copy of the GNU General Public License
-%along with this texinfo.tex file; see the file COPYING.  If not, write
+% along with this texinfo.tex file; see the file COPYING.  If not, write
-%to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+% to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-%Boston, MA 02111-1307, USA.
+% Boston, MA 02111-1307, USA.
+%
+% In other words, you are welcome to use, share and improve this program.
-%In other words, you are welcome to use, share and improve this program.
+% You are forbidden to forbid anyone else to use, share and improve
-%You are forbidden to forbid anyone else to use, share and improve
+% what you give them.   Help stamp out software-hoarding!
-%what you give them.   Help stamp out software-hoarding!
+%
+% Please try the latest version of texinfo.tex before submitting bug
+% reports; you can get the latest version from:
-% Send bug reports to bug-texinfo@prep.ai.mit.edu.
+% ftp://ftp.cs.umb.edu/pub/tex/texinfo.tex
-% Please include a *precise* test case in each bug report.
+% /home/gd/gnu/doc/texinfo.tex on the GNU machines.
+%
+% Send bug reports to bug-texinfo@gnu.org.
+% Please include a precise test case in each bug report,
+% including a complete document with which we can reproduce the problem.
+%
+% Texinfo macros (with @macro) are *not* supported by texinfo.tex.  You
+% have to run makeinfo -E to expand macros first; the texi2dvi script
+% does this.
 % Make it possible to create a .fmt file just by loading this file:
 % if the underlying format is not loaded, start by loading it now.
 % Added by gildea November 1993.
 \expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi
 % This automatically updates the version number based on RCS.
 \def\deftexinfoversion$#1: #2 ${\def\texinfoversion{#2}}
-\deftexinfoversion$Revision: 1.4 $
+\deftexinfoversion$Revision: 1.5 $
 \message{Loading texinfo package [Version \texinfoversion]:}
 % If in a .fmt file, print the version number
 % and turn on active characters that we couldn't do earlier because
 % they might have appeared in the input file name.
 \let\ptexc=\c
 \let\ptexcomma=\,
 \let\ptexdot=\.
 \let\ptexdots=\dots
 \let\ptexend=\end
-\let\ptexequiv = \equiv
+\let\ptexequiv=\equiv
+\let\ptexexclam=\!
 \let\ptexi=\i
 \let\ptexlbrace=\{
 \let\ptexrbrace=\}
 \let\ptexstar=\*
 \let\ptext=\t
 \def\*{\hfil\break\hbox{}\ignorespaces}
 % @. is an end-of-sentence period.
 \def\.{.\spacefactor=3000 }
-% @enddots{} is an end-of-sentence ellipsis.
-\gdef\enddots{$\mathinner{\ldotp\ldotp\ldotp\ldotp}$\spacefactor=3000}
 % @! is an end-of-sentence bang.
-\gdef\!{!\spacefactor=3000 }
+\def\!{!\spacefactor=3000 }
 % @? is an end-of-sentence query.
-\gdef\?{?\spacefactor=3000 }
+\def\?{?\spacefactor=3000 }
 % @w prevents a word break.  Without the \leavevmode, @w at the
 % beginning of a paragraph, when TeX is still in vertical mode, would
 % produce a whole line of output instead of starting the paragraph.
 \def\w#1{\leavevmode\hbox{#1}}
 % @br   forces paragraph break
 \let\br = \par
-% @dots{}  output some dots
+% @dots{} output an ellipsis using the current font.
+% We do .5em per period so that it has the same spacing in a typewriter
-\def\dots{$\ldots$}
+% font as three actual period characters.
+%
+\def\dots{\hbox to 1.5em{%
+\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.
+%
+\def\enddots{%
+\hbox to 2em{%
+\hskip 0pt plus 0.25fil minus 0.25fil
+.\hss.\hss.\hss.%
+\hskip 0pt plus 0.5fil minus 0.5fil
+}%
+\spacefactor=3000
+}
 % @page    forces the start of a new page
 \def\page{\par\vfill\supereject}
 \let\tenrm=\titlerm \let\tenit=\titleit \let\tensl=\titlesl
 \let\tenbf=\titlebf \let\tentt=\titlett \let\smallcaps=\titlesc
 \let\tensf=\titlesf \let\teni=\titlei \let\tensy=\titlesy
 \let\tenttsl=\titlettsl
 \resetmathfonts \setleading{25pt}}
-\def\titlefont#1{{\titlefonts #1}}
+\def\titlefont#1{{\titlefonts\rm #1}}
 \def\chapfonts{%
 \let\tenrm=\chaprm \let\tenit=\chapit \let\tensl=\chapsl
 \let\tenbf=\chapbf \let\tentt=\chaptt \let\smallcaps=\chapsc
 \let\tensf=\chapsf \let\teni=\chapi \let\tensy=\chapsy \let\tenttsl=\chapttsl
 \resetmathfonts \setleading{19pt}}
 % Set up the default fonts, so we can use them for creating boxes.
 %
 \textfonts
+% Define these so they can be easily changed for other fonts.
+\def\angleleft{$\langle$}
+\def\angleright{$\rangle$}
 % Count depth in font-changes, for error checks
 \newcount\fontdepth \fontdepth=0
 % Fonts for short table of contents.
 \setfont\shortcontrm\rmshape{12}{1000}
 \def\t#1{%
 {\tt \rawbackslash \frenchspacing #1}%
 \null
 }
 \let\ttfont=\t
-\def\samp #1{`\tclose{#1}'\null}
+\def\samp#1{`\tclose{#1}'\null}
 \setfont\smallrm\rmshape{8}{1000}
 \font\smallsy=cmsy9
 \def\key#1{{\smallrm\textfont2=\smallsy \leavevmode\hbox{%
-\raise0.4pt\hbox{$\langle$}\kern-.08em\vtop{%
+\raise0.4pt\hbox{\angleleft}\kern-.08em\vtop{%
 \vbox{\hrule\kern-0.4pt
-\hbox{\raise0.4pt\hbox{\vphantom{$\langle$}}#1}}%
+\hbox{\raise0.4pt\hbox{\vphantom{\angleleft}}#1}}%
 \kern-0.4pt\hrule}%
-\kern-.06em\raise0.4pt\hbox{$\rangle$}}}}
+\kern-.06em\raise0.4pt\hbox{\angleright}}}}
 % The old definition, with no lozenge:
 %\def\key #1{{\ttsl \nohyphenation \uppercase{#1}}\null}
 \def\ctrl #1{{\tt \rawbackslash \hat}#1}
 \let\file=\samp
 \fi
 }
 % rms does not like the angle brackets --karl, 17may97.
 % So now @email is just like @uref.
-%\def\email#1{$\langle${\tt #1}$\rangle$}
+%\def\email#1{\angleleft{\tt #1}\angleright}
 \let\email=\uref
 % Check if we are currently using a typewriter font.  Since all the
 % Computer Modern typewriter fonts have zero interword stretch (and
 % shrink), and it is reasonable to expect all typewriter fonts to have
 % @multitableparindent is paragraph indent in table.
 % @multitablecolmargin is horizontal space to be left between columns.
 % @multitablelinespace is space to leave between table items, baseline
 %                                                            to baseline.
 %   0pt means it depends on current normal line spacing.
+%
-%%%%
-% Dimensions
 \newskip\multitableparskip
 \newskip\multitableparindent
 \newdimen\multitablecolspace
 \newskip\multitablelinespace
 \multitableparskip=0pt
 \multitableparindent=6pt
 \multitablecolspace=12pt
 \multitablelinespace=0pt
-%%%%
 % Macros used to set up halign preamble:
+%
 \let\endsetuptable\relax
 \def\xendsetuptable{\endsetuptable}
 \let\columnfractions\relax
 \def\xcolumnfractions{\columnfractions}
 \newif\ifsetpercent
-%% 2/1/96, to allow fractions to be given with more than one digit.
+% 2/1/96, to allow fractions to be given with more than one digit.
 \def\pickupwholefraction#1 {\global\advance\colcount by1 %
 \expandafter\xdef\csname col\the\colcount\endcsname{.#1\hsize}%
 \setuptable}
 \newcount\colcount
 \fi%
 \fi%
 \ifx\go\pickupwholefraction\else\let\go\setuptable\fi%
 \fi\go}
-%%%%
 % multitable syntax
 \def\tab{&\hskip1sp\relax} % 2/2/96
 % tiny skip here makes sure this column space is
 % maintained, even if it is never used.
-%%%%
 % @multitable ... @end multitable definitions:
 \def\multitable{\parsearg\dotable}
 \def\dotable#1{\bgroup
-\let\item\cr
+\vskip\parskip
-\tolerance=9500
+\let\item\crcr
-\hbadness=9500
+\tolerance=9500
-\setmultitablespacing
+\hbadness=9500
-\parskip=\multitableparskip
+\setmultitablespacing
-\parindent=\multitableparindent
+\parskip=\multitableparskip
-\overfullrule=0pt
+\parindent=\multitableparindent
-\global\colcount=0\relax%
+\overfullrule=0pt
-\def\Emultitable{\global\setpercentfalse\global\everycr{}\cr\egroup\egroup}%
+\global\colcount=0
-% To parse everything between @multitable and @item :
+\def\Emultitable{\global\setpercentfalse\cr\egroup\egroup}%
-\setuptable#1 \endsetuptable
+%
-% Need to reset this to 0 after \setuptable.
+% To parse everything between @multitable and @item:
-\global\colcount=0\relax%
+\setuptable#1 \endsetuptable
 %
-% This preamble sets up a generic column definition, which will
+% \everycr will reset column counter, \colcount, at the end of
-% be used as many times as user calls for columns.
+% each line. Every column entry will cause \colcount to advance by one.
-% \vtop will set a single line and will also let text wrap and
+% The table preamble
-% continue for many paragraphs if desired.
+% looks at the current \colcount to find the correct column width.
-\halign\bgroup&\global\advance\colcount by 1\relax%
+\everycr{\noalign{%
-\multistrut\vtop{\hsize=\expandafter\csname col\the\colcount\endcsname
+%
-% In order to keep entries from bumping into each other
+% \filbreak%% keeps underfull box messages off when table breaks over pages.
-% we will add a \leftskip of \multitablecolspace to all columns after
+% Maybe so, but it also creates really weird page breaks when the table
-% the first one.
+% breaks over pages. Wouldn't \vfil be better?  Wait until the problem
-%  If a template has been used, we will add \multitablecolspace
+% manifests itself, so it can be fixed for real --karl.
-% to the width of each template entry.
+\global\colcount=0\relax}}%
-%  If user has set preamble in terms of percent of \hsize
+%
-% we will use that dimension as the width of the column, and
+% This preamble sets up a generic column definition, which will
-% the \leftskip will keep entries from bumping into each other.
+% be used as many times as user calls for columns.
-% Table will start at left margin and final column will justify at
+% \vtop will set a single line and will also let text wrap and
-% right margin.
+% continue for many paragraphs if desired.
-\ifnum\colcount=1
+\halign\bgroup&\global\advance\colcount by 1\relax
-\else
+\multistrut\vtop{\hsize=\expandafter\csname col\the\colcount\endcsname
-\ifsetpercent
+%
+% In order to keep entries from bumping into each other
+% we will add a \leftskip of \multitablecolspace to all columns after
+% the first one.
+%
+% If a template has been used, we will add \multitablecolspace
+% to the width of each template entry.
+%
+% 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
+% will keep entries from bumping into each other.  Table will start at
+% left margin and final column will justify at right margin.
+%
+% Make sure we don't inherit \rightskip from the outer environment.
+\rightskip=0pt
+\ifnum\colcount=1
+% The first column will be indented with the surrounding text.
+\advance\hsize by\leftskip
 \else
-% If user has <not> set preamble in terms of percent of \hsize
+\ifsetpercent \else
-% we will advance \hsize by \multitablecolspace
+% If user has not set preamble in terms of percent of \hsize
-\advance\hsize by \multitablecolspace
+% we will advance \hsize by \multitablecolspace.
+\advance\hsize by \multitablecolspace
+\fi
+% In either case we will make \leftskip=\multitablecolspace:
+\leftskip=\multitablecolspace
 \fi
-% In either case we will make \leftskip=\multitablecolspace:
+% Ignoring space at the beginning and end avoids an occasional spurious
-\leftskip=\multitablecolspace
+% blank line, when TeX decides to break the line at the space before the
-\fi
+% box from the multistrut, so the strut ends up on a line by itself.
-% Ignoring space at the beginning and end avoids an occasional spurious
+% For example:
-% blank line, when TeX decides to break the line at the space before the
+% @multitable @columnfractions .11 .89
-% box from the multistrut, so the strut ends up on a line by itself.
+% @item @code{#}
-% For example:
+% @tab Legal holiday which is valid in major parts of the whole country.
-% @multitable @columnfractions .11 .89
+% Is automatically provided with highlighting sequences respectively marking
-% @item @code{#}
+% characters.
-% @tab Legal holiday which is valid in major parts of the whole country.
+\noindent\ignorespaces##\unskip\multistrut}\cr
-% Is automatically provided with highlighting sequences respectively marking
-% characters.
-\noindent\ignorespaces##\unskip\multistrut}\cr
-% \everycr will reset column counter, \colcount, at the end of
-% each line. Every column  entry will cause \colcount to advance by one.
-% The table preamble
-% looks at the current \colcount to find the correct column width.
-\global\everycr{\noalign{%
-% \filbreak%% keeps underfull box messages off when table breaks over pages.
-% Maybe so, but it also creates really weird page breaks when the table
-% breaks over pages Wouldn't \vfil be better?  Wait until the problem
-% manifests itself, so it can be fixed for real --karl.
-\global\colcount=0\relax}}
 }
 \def\setmultitablespacing{% test to see if user has set \multitablelinespace.
 % If so, do nothing. If not, give it an appropriate dimension based on
 % current baselineskip.
 \indexfonts \rm
 \tolerance = 9500
 \indexbreaks
 %
 % See if the index file exists and is nonempty.
+% Change catcode of @ here so that if the index file contains
+% \initial {@}
+% as its first line, TeX doesn't complain about mismatched braces
+% (because it thinks @} is a control sequence).
+\catcode`\@ = 11
 \openin 1 \jobname.#1s
 \ifeof 1
 % \enddoublecolumns gets confused if there is no text in the index,
 % 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 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
 % to make right now.
 \def\indexbackslash{\rawbackslashxx}%
 \catcode`\\ = 0
-\catcode`\@ = 11
 \escapechar = `\\
 \begindoublecolumns
 \input \jobname.#1s
 \enddoublecolumns
 \fi
 % Final typesetting of a toc entry; we use the same \entry macro as for
 % the index entries, but we want to suppress hyphenation here.  (We
 % can't do that in the \entry macro, since index entries might consist
 % of hyphenated-identifiers-that-do-not-fit-on-a-line-and-nothing-else.)
-%
-% \turnoffactive is for the sake of @" used for umlauts.
 \def\tocentry#1#2{\begingroup
 \vskip 0pt plus1pt % allow a little stretch for the sake of nice page breaks
-\entry{\turnoffactive #1}{\turnoffactive #2}%
+% Do not use \turnoffactive in these arguments.  Since the toc is
+% typeset in cmr, so characters such as _ would come out wrong; we
+% have to do the usual translation tricks.
+\entry{#1}{#2}%
 \endgroup}
 % Space between chapter (or whatever) number and the title.
 \def\labelspace{\hskip1em \relax}
 % @tex ... @end tex    escapes into raw Tex temporarily.
 % One exception: @ is still an escape character, so that @end tex works.
 % But \@ or @@ will get a plain tex @ character.
 \def\tex{\begingroup
 \catcode `\\=0 \catcode `\{=1 \catcode `\}=2
 \catcode `\$=3 \catcode `\&=4 \catcode `\#=6
 \catcode `\^=7 \catcode `\_=8 \catcode `\~=13 \let~=\tie
 \catcode `\%=14
 \catcode 43=12 % plus
 \catcode`\"=12
 \catcode`\==12
 \catcode`\|=12
 \catcode`\<=12
 \catcode`\>=12
 \escapechar=`\\
 %
-\let\,=\ptexcomma
+\let\b=\ptexb
-\let\{=\ptexlbrace
+\let\bullet=\ptexbullet
-\let\}=\ptexrbrace
+\let\c=\ptexc
-\let\.=\ptexdot
+\let\,=\ptexcomma
-\let\*=\ptexstar
+\let\.=\ptexdot
 \let\dots=\ptexdots
-\def\endldots{\mathinner{\ldots\ldots\ldots\ldots}}%
+\let\equiv=\ptexequiv
-\def\enddots{\relax\ifmmode\endldots\else$\mathsurround=0pt \endldots\,$\fi}%
+\let\!=\ptexexclam
-\def\@{@}%
+\let\i=\ptexi
-\let\bullet=\ptexbullet
+\let\{=\ptexlbrace
-\let\b=\ptexb \let\c=\ptexc \let\i=\ptexi \let\t=\ptext
+\let\}=\ptexrbrace
-%
+\let\*=\ptexstar
+\let\t=\ptext
+%
+\def\endldots{\mathinner{\ldots\ldots\ldots\ldots}}%
+\def\enddots{\relax\ifmmode\endldots\else$\mathsurround=0pt \endldots\,$\fi}%
+\def\@{@}%
 \let\Etex=\endgroup}
 % Define @lisp ... @endlisp.
 % @lisp does a \begingroup so it can rebind things,
 % including the definition of @endlisp (which normally is erroneous).
 % If its value is nonempty, SUFFIX is output afterward.
 \def\refx#1#2{%
 \expandafter\ifx\csname X#1\endcsname\relax
 % If not defined, say something at least.
-$\langle$un\-de\-fined$\rangle$%
+\angleleft un\-de\-fined\angleright
 \ifhavexrefs
 \message{\linenumber Undefined cross reference `#1'.}%
 \else
 \ifwarnedxrefs\else
 \global\warnedxrefstrue
 \fi
 #2% Output the suffix in any case.
 }
 % This is the macro invoked by entries in the aux file.
-\def\xrdef #1#2{{%
+%
-\catcode`\'=\other
+\def\xrdef#1{\begingroup
-\expandafter\gdef\csname X#1\endcsname{#2}%
+% Reenable \ as an escape while reading the second argument.
-}}
+\catcode`\\ = 0
+\afterassignment\endgroup
+\expandafter\gdef\csname X#1\endcsname
+}
 % Read the last existing aux file, if any.  No error if none exists.
 \def\readauxfile{\begingroup
 \catcode`\^^@=\other
 \catcode`\^^A=\other
 % 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
 % time, we might be inside a group, and then its definitions would get
 % undone and the next image would fail.
-\openin 1 = xepsf.tex
+\openin 1 = epsf.tex
 \ifeof 1 \else
 \closein 1
 \def\epsfannounce{\toks0 = }% do not bother showing banner
 \input epsf.tex
 \fi

Mercurial > hg > xemacs-beta

comparison man/texinfo.tex @ 290:c9fe270a4101 r21-0b43