mirror of git://sourceware.org/git/glibc.git
Update from latest upstream version.
This commit is contained in:
Ulrich Drepper
parent
852ce9bc38
commit
2f5b1124f8
|
|
@ -3,10 +3,10 @@
|
|||
% Load plain if necessary, i.e., if running under initex.
|
||||
\expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi
|
||||
%
|
||||
\def\texinfoversion{2002-06-04.06}
|
||||
\def\texinfoversion{2002-11-25.11}
|
||||
%
|
||||
% Copyright (C) 1985, 86, 88, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99,
|
||||
% 2000, 01, 02 Free Software Foundation, Inc.
|
||||
% Copyright (C) 1985, 1986, 1988, 1990, 1991, 1992, 1993, 1994, 1995,
|
||||
% 1996, 1997, 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
|
||||
%
|
||||
% 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
|
||||
|
|
@ -36,12 +36,11 @@
|
|||
% (and all CTAN mirrors, see http://www.ctan.org),
|
||||
% and /home/gd/gnu/doc/texinfo.tex on the GNU machines.
|
||||
%
|
||||
% The GNU Texinfo home page is http://www.gnu.org/software/texinfo.
|
||||
%
|
||||
% The texinfo.tex in any given Texinfo distribution could well be out
|
||||
% of date, so if that's what you're using, please check.
|
||||
%
|
||||
% Texinfo has a small home page at http://texinfo.org/ and also
|
||||
% http://www.gnu.org/software/texinfo.
|
||||
%
|
||||
% Send bug reports to bug-texinfo@gnu.org. Please include including a
|
||||
% complete document in each bug report with which we can reproduce the
|
||||
% problem. Patches are, of course, greatly appreciated.
|
||||
|
|
@ -69,6 +68,13 @@
|
|||
\everyjob{\message{[Texinfo version \texinfoversion]}%
|
||||
\catcode`+=\active \catcode`\_=\active}
|
||||
|
||||
\message{Basics,}
|
||||
\chardef\other=12
|
||||
|
||||
% We never want plain's outer \+ definition in Texinfo.
|
||||
% For @tex, we can use \tabalign.
|
||||
\let\+ = \relax
|
||||
|
||||
% Save some parts of plain tex whose names we will redefine.
|
||||
\let\ptexb=\b
|
||||
\let\ptexbullet=\bullet
|
||||
|
|
@ -79,19 +85,16 @@
|
|||
\let\ptexend=\end
|
||||
\let\ptexequiv=\equiv
|
||||
\let\ptexexclam=\!
|
||||
\let\ptexgtr=>
|
||||
\let\ptexhat=^
|
||||
\let\ptexi=\i
|
||||
\let\ptexlbrace=\{
|
||||
\let\ptexless=<
|
||||
\let\ptexplus=+
|
||||
\let\ptexrbrace=\}
|
||||
\let\ptexstar=\*
|
||||
\let\ptext=\t
|
||||
|
||||
% We never want plain's outer \+ definition in Texinfo.
|
||||
% For @tex, we can use \tabalign.
|
||||
\let\+ = \relax
|
||||
|
||||
\message{Basics,}
|
||||
\chardef\other=12
|
||||
|
||||
% If this character appears in an error message or help string, it
|
||||
% starts a new line in the output.
|
||||
\newlinechar = `^^J
|
||||
|
|
@ -142,6 +145,12 @@
|
|||
%
|
||||
\def\gobble#1{}
|
||||
|
||||
% True if #1 is the empty string, i.e., called like `\ifempty{}'.
|
||||
%
|
||||
\def\ifempty#1{\ifemptyx #1\emptymarkA\emptymarkB}%
|
||||
\def\ifemptyx#1#2\emptymarkB{\ifx #1\emptymarkA}%
|
||||
|
||||
% Hyphenation fixes.
|
||||
\hyphenation{ap-pen-dix}
|
||||
\hyphenation{mini-buf-fer mini-buf-fers}
|
||||
\hyphenation{eshell}
|
||||
|
|
@ -154,24 +163,30 @@
|
|||
|
||||
% Sometimes it is convenient to have everything in the transcript file
|
||||
% and nothing on the terminal. We don't just call \tracingall here,
|
||||
% since that produces some useless output on the terminal.
|
||||
% since that produces some useless output on the terminal. We also make
|
||||
% some effort to order the tracing commands to reduce output in the log
|
||||
% file; cf. trace.sty in LaTeX.
|
||||
%
|
||||
\def\gloggingall{\begingroup \globaldefs = 1 \loggingall \endgroup}%
|
||||
\ifx\eTeXversion\undefined
|
||||
\def\loggingall{\tracingcommands2 \tracingstats2
|
||||
\tracingpages1 \tracingoutput1 \tracinglostchars1
|
||||
\tracingmacros2 \tracingparagraphs1 \tracingrestores1
|
||||
\def\loggingall{%
|
||||
\tracingstats2
|
||||
\tracingpages1
|
||||
\tracinglostchars2 % 2 gives us more in etex
|
||||
\tracingparagraphs1
|
||||
\tracingoutput1
|
||||
\tracingmacros2
|
||||
\tracingrestores1
|
||||
\showboxbreadth\maxdimen \showboxdepth\maxdimen
|
||||
}%
|
||||
\else
|
||||
\def\loggingall{\tracingcommands3 \tracingstats2
|
||||
\tracingpages1 \tracingoutput1 \tracinglostchars1
|
||||
\tracingmacros2 \tracingparagraphs1 \tracingrestores1
|
||||
\tracingscantokens1 \tracingassigns1 \tracingifs1
|
||||
\tracinggroups1 \tracingnesting2
|
||||
\showboxbreadth\maxdimen\showboxdepth\maxdimen
|
||||
}%
|
||||
\ifx\eTeXversion\undefined\else % etex gives us more logging
|
||||
\tracingscantokens1
|
||||
\tracingifs1
|
||||
\tracinggroups1
|
||||
\tracingnesting2
|
||||
\tracingassigns1
|
||||
\fi
|
||||
\tracingcommands3 % 3 gives us more in etex
|
||||
\errorcontextlines\maxdimen
|
||||
}%
|
||||
|
||||
% 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.
|
||||
|
|
@ -436,17 +451,6 @@
|
|||
}
|
||||
|
||||
|
||||
% Single-spacing is done by various environments (specifically, in
|
||||
% \nonfillstart and \quotations).
|
||||
\newskip\singlespaceskip \singlespaceskip = 12.5pt
|
||||
\def\singlespace{%
|
||||
% Why was this kern here? It messes up equalizing space above and below
|
||||
% environments. --karl, 6may93
|
||||
%{\advance \baselineskip by -\singlespaceskip
|
||||
%\kern \baselineskip}%
|
||||
\setleading\singlespaceskip
|
||||
}
|
||||
|
||||
%% Simple single-character @ commands
|
||||
|
||||
% @@ prints an @
|
||||
|
|
@ -841,11 +845,6 @@ where each line of input produces a line of output.}
|
|||
% 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
|
||||
|
|
@ -871,9 +870,27 @@ where each line of input produces a line of output.}
|
|||
\tex
|
||||
\mathcode`\_="8000 \mathunderscore
|
||||
\let\\ = \mathbackslash
|
||||
\mathactive
|
||||
\implicitmath\finishmath}
|
||||
\def\finishmath#1{#1\implicitmath\Etex}
|
||||
|
||||
% 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 set 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{\implicitmath\ptexbullet\implicitmath}
|
||||
\def\minus{\implicitmath-\implicitmath}
|
||||
|
|
@ -987,40 +1004,39 @@ where each line of input produces a line of output.}
|
|||
\openin 1 \jobname.toc
|
||||
\ifeof 1\else\begingroup
|
||||
\closein 1
|
||||
\indexnofonts
|
||||
\def\tt{}
|
||||
\let\_ = \normalunderscore
|
||||
% Thanh's hack / proper braces in bookmarks
|
||||
\edef\mylbrace{\iftrue \string{\else}\fi}\let\{=\mylbrace
|
||||
\edef\myrbrace{\iffalse{\else\string}\fi}\let\}=\myrbrace
|
||||
%
|
||||
\def\chapentry ##1##2##3{}
|
||||
\let\appendixentry = \chapentry
|
||||
\def\unnumbchapentry ##1##2{}
|
||||
\def\secentry ##1##2##3##4{\advancenumber{chap##2}}
|
||||
\def\unnumbsecentry ##1##2##3{\advancenumber{chap##2}}
|
||||
\def\subsecentry ##1##2##3##4##5{\advancenumber{sec##2.##3}}
|
||||
\def\unnumbsubsecentry ##1##2##3##4{\advancenumber{sec##2.##3}}
|
||||
\def\subsubsecentry ##1##2##3##4##5##6{\advancenumber{subsec##2.##3.##4}}
|
||||
\def\unnumbsubsubsecentry ##1##2##3##4##5{\advancenumber{subsec##2.##3.##4}}
|
||||
\let\appendixentry = \chapentry
|
||||
\let\unnumbchapentry = \chapentry
|
||||
\let\unnumbsecentry = \secentry
|
||||
\let\unnumbsubsecentry = \subsecentry
|
||||
\let\unnumbsubsubsecentry = \subsubsecentry
|
||||
\input \jobname.toc
|
||||
\def\chapentry ##1##2##3{%
|
||||
\pdfoutline goto name{\pdfmkpgn{##3}}count-\expnumber{chap##2}{##1}}
|
||||
\let\appendixentry = \chapentry
|
||||
\def\unnumbchapentry ##1##2{%
|
||||
\pdfoutline goto name{\pdfmkpgn{##2}}{##1}}
|
||||
\def\secentry ##1##2##3##4{%
|
||||
\pdfoutline goto name{\pdfmkpgn{##4}}count-\expnumber{sec##2.##3}{##1}}
|
||||
\def\unnumbsecentry ##1##2##3{%
|
||||
\pdfoutline goto name{\pdfmkpgn{##3}}{##1}}
|
||||
\def\subsecentry ##1##2##3##4##5{%
|
||||
\pdfoutline goto name{\pdfmkpgn{##5}}count-\expnumber{subsec##2.##3.##4}{##1}}
|
||||
\def\unnumbsubsecentry ##1##2##3##4{%
|
||||
\pdfoutline goto name{\pdfmkpgn{##4}}{##1}}
|
||||
\def\subsubsecentry ##1##2##3##4##5##6{%
|
||||
\pdfoutline goto name{\pdfmkpgn{##6}}{##1}}
|
||||
\def\unnumbsubsubsecentry ##1##2##3##4##5{%
|
||||
\pdfoutline goto name{\pdfmkpgn{##5}}{##1}}
|
||||
\let\appendixentry = \chapentry
|
||||
\let\unnumbchapentry = \chapentry
|
||||
\let\unnumbsecentry = \secentry
|
||||
\let\unnumbsubsecentry = \subsecentry
|
||||
\let\unnumbsubsubsecentry = \subsubsecentry
|
||||
%
|
||||
% Make special characters normal for writing to the pdf file.
|
||||
%
|
||||
\indexnofonts
|
||||
\let\tt=\relax
|
||||
\turnoffactive
|
||||
\input \jobname.toc
|
||||
\endgroup\fi
|
||||
}}
|
||||
|
|
@ -1170,7 +1186,7 @@ where each line of input produces a line of output.}
|
|||
\newcount\mainmagstep
|
||||
\ifx\bigger\relax
|
||||
% not really supported.
|
||||
\let\mainmagstep=\magstep1
|
||||
\mainmagstep=\magstep1
|
||||
\setfont\textrm\rmshape{12}{1000}
|
||||
\setfont\texttt\ttshape{12}{1000}
|
||||
\else
|
||||
|
|
@ -1231,6 +1247,7 @@ where each line of input produces a line of output.}
|
|||
\font\titlei=cmmi12 scaled \magstep3
|
||||
\font\titlesy=cmsy10 scaled \magstep4
|
||||
\def\authorrm{\secrm}
|
||||
\def\authortt{\sectt}
|
||||
|
||||
% Chapter (and unnumbered) fonts (17.28pt).
|
||||
\setfont\chaprm\rmbshape{12}{\magstep2}
|
||||
|
|
@ -1345,6 +1362,7 @@ where each line of input produces a line of output.}
|
|||
\setfont\shortcontrm\rmshape{12}{1000}
|
||||
\setfont\shortcontbf\bxshape{12}{1000}
|
||||
\setfont\shortcontsl\slshape{12}{1000}
|
||||
\setfont\shortconttt\ttshape{12}{1000}
|
||||
|
||||
%% Add scribe-like font environments, plus @l for inline lisp (usually sans
|
||||
%% serif) and @ii for TeX italic
|
||||
|
|
@ -1352,8 +1370,8 @@ where each line of input produces a line of output.}
|
|||
% \smartitalic{ARG} outputs arg in italics, followed by an italic correction
|
||||
% 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\smartslanted#1{{\sl #1}\futurelet\next\smartitalicx}
|
||||
\def\smartitalic#1{{\it #1}\futurelet\next\smartitalicx}
|
||||
\def\smartslanted#1{{\ifusingtt\ttsl\sl #1}\futurelet\next\smartitalicx}
|
||||
\def\smartitalic#1{{\ifusingtt\ttsl\it #1}\futurelet\next\smartitalicx}
|
||||
|
||||
\let\i=\smartitalic
|
||||
\let\var=\smartslanted
|
||||
|
|
@ -1592,7 +1610,8 @@ where each line of input produces a line of output.}
|
|||
\let\subtitlerm=\tenrm
|
||||
\def\subtitlefont{\subtitlerm \normalbaselineskip = 13pt \normalbaselines}%
|
||||
%
|
||||
\def\authorfont{\authorrm \normalbaselineskip = 16pt \normalbaselines}%
|
||||
\def\authorfont{\authorrm \normalbaselineskip = 16pt \normalbaselines
|
||||
\let\tt=\authortt}%
|
||||
%
|
||||
% Leave some space at the very top of the page.
|
||||
\vglue\titlepagetopglue
|
||||
|
|
@ -1873,10 +1892,18 @@ where each line of input produces a line of output.}
|
|||
% \parskip glue -- logically it's part of the @item we just started.
|
||||
\nobreak \vskip-\parskip
|
||||
%
|
||||
% Stop a page break at the \parskip glue coming up. Unfortunately
|
||||
% Stop a page break at the \parskip glue coming up. (Unfortunately
|
||||
% we can't prevent a possible page break at the following
|
||||
% \baselineskip glue.
|
||||
\nobreak
|
||||
% \baselineskip glue.) However, if what follows is an environment
|
||||
% such as @example, there will be no \parskip glue; then
|
||||
% the negative vskip we just would cause the example and the item to
|
||||
% crash together. So we use this bizarre value of 10001 as a signal
|
||||
% to \aboveenvbreak to insert \parskip glue after all.
|
||||
% (Possibly there are other commands that could be followed by
|
||||
% @example which need the same treatment, but not section titles; or
|
||||
% maybe section titles are the only special case and they should be
|
||||
% penalty 10001...)
|
||||
\penalty 10001
|
||||
\endgroup
|
||||
\itemxneedsnegativevskipfalse
|
||||
\else
|
||||
|
|
@ -2413,19 +2440,20 @@ width0pt\relax} \fi
|
|||
\let\item = \relax
|
||||
}
|
||||
|
||||
% Ignore @ignore, @ifhtml, @ifinfo, @ifplaintext, @ifnottex, @html, @menu,
|
||||
% @direntry, and @documentdescription.
|
||||
% Ignore @ignore, @ifhtml, @ifinfo, and the like.
|
||||
%
|
||||
\def\ignore{\doignore{ignore}}
|
||||
\def\direntry{\doignore{direntry}}
|
||||
\def\documentdescriptionword{documentdescription}
|
||||
\def\documentdescription{\doignore{documentdescription}}
|
||||
\def\html{\doignore{html}}
|
||||
\def\ifhtml{\doignore{ifhtml}}
|
||||
\def\ifinfo{\doignore{ifinfo}}
|
||||
\def\ifplaintext{\doignore{ifplaintext}}
|
||||
\def\ifnottex{\doignore{ifnottex}}
|
||||
\def\html{\doignore{html}}
|
||||
\def\ifplaintext{\doignore{ifplaintext}}
|
||||
\def\ifxml{\doignore{ifxml}}
|
||||
\def\ignore{\doignore{ignore}}
|
||||
\def\menu{\doignore{menu}}
|
||||
\def\direntry{\doignore{direntry}}
|
||||
\def\documentdescription{\doignore{documentdescription}}
|
||||
\def\documentdescriptionword{documentdescription}
|
||||
\def\xml{\doignore{xml}}
|
||||
|
||||
% @dircategory CATEGORY -- specify a category of the dir file
|
||||
% which this file should belong to. Ignore this in TeX.
|
||||
|
|
@ -2507,7 +2535,7 @@ width0pt\relax} \fi
|
|||
% 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
|
||||
% the chance 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
|
||||
|
|
@ -2559,7 +2587,7 @@ width0pt\relax} \fi
|
|||
% Do minimal line-breaking.
|
||||
\pretolerance = 10000
|
||||
%
|
||||
% Do not execute instructions in @tex
|
||||
% 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.
|
||||
|
|
@ -3549,13 +3577,18 @@ width0pt\relax} \fi
|
|||
\global\let\subsubsection = \numberedsubsubsec
|
||||
}
|
||||
|
||||
% we use \chapno to avoid indenting back
|
||||
\def\appendixbox#1{%
|
||||
\setbox0 = \hbox{\putwordAppendix{} \the\chapno}%
|
||||
\hbox to \wd0{#1\hss}}
|
||||
|
||||
\outer\def\appendix{\parsearg\appendixyyy}
|
||||
\def\appendixyyy #1{\apphead0{#1}} % normally apphead0 calls appendixzzz
|
||||
\def\appendixzzz #1{%
|
||||
\secno=0 \subsecno=0 \subsubsecno=0
|
||||
\global\advance \appendixno by 1
|
||||
\message{\putwordAppendix\space \appendixletter}%
|
||||
\chapmacro {#1}{\putwordAppendix{} \appendixletter}%
|
||||
\chapmacro {#1}{\appendixbox{\putwordAppendix{} \appendixletter}}%
|
||||
\gdef\thissection{#1}%
|
||||
\gdef\thischaptername{#1}%
|
||||
\xdef\thischapter{\putwordAppendix{} \appendixletter: \noexpand\thischaptername}%
|
||||
|
|
@ -3597,7 +3630,7 @@ width0pt\relax} \fi
|
|||
\unnumbchapmacro {#1}%
|
||||
\gdef\thischapter{#1}\gdef\thissection{#1}%
|
||||
\toks0 = {#1}%
|
||||
\edef\temp{\noexpand\writetocentry{\realbackslash unnumbchapentry{\the\toks0}}}%
|
||||
\edef\temp{\noexpand\writetocentry{\realbackslash unnumbchapentry{\the\toks0}{\the\chapno}}}%
|
||||
\temp
|
||||
\unnumbnoderef
|
||||
\global\let\section = \unnumberedsec
|
||||
|
|
@ -3639,7 +3672,7 @@ width0pt\relax} \fi
|
|||
\plainsecheading {#1}\gdef\thissection{#1}%
|
||||
\toks0 = {#1}%
|
||||
\edef\temp{\noexpand\writetocentry{\realbackslash unnumbsecentry%
|
||||
{\the\toks0}{\the\chapno}}}%
|
||||
{\the\toks0}{\the\chapno}{\the\secno}}}%
|
||||
\temp
|
||||
\unnumbnoderef
|
||||
\nobreak
|
||||
|
|
@ -3678,7 +3711,7 @@ width0pt\relax} \fi
|
|||
\plainsubsecheading {#1}\gdef\thissection{#1}%
|
||||
\toks0 = {#1}%
|
||||
\edef\temp{\noexpand\writetocentry{\realbackslash unnumbsubsecentry%
|
||||
{\the\toks0}{\the\chapno}{\the\secno}}}%
|
||||
{\the\toks0}{\the\chapno}{\the\secno}{\the\subsecno}}}%
|
||||
\temp
|
||||
\unnumbnoderef
|
||||
\nobreak
|
||||
|
|
@ -3719,7 +3752,7 @@ width0pt\relax} \fi
|
|||
\plainsubsubsecheading {#1}\gdef\thissection{#1}%
|
||||
\toks0 = {#1}%
|
||||
\edef\temp{\noexpand\writetocentry{\realbackslash unnumbsubsubsecentry%
|
||||
{\the\toks0}{\the\chapno}{\the\secno}{\the\subsecno}}}%
|
||||
{\the\toks0}{\the\chapno}{\the\secno}{\the\subsecno}{\the\subsubsecno}}}%
|
||||
\temp
|
||||
\unnumbnoderef
|
||||
\nobreak
|
||||
|
|
@ -3918,7 +3951,16 @@ width0pt\relax} \fi
|
|||
\hangindent = \wd0 % zero if no section number
|
||||
\unhbox0 #3}%
|
||||
}%
|
||||
\ifdim\parskip<10pt \nobreak\kern10pt\nobreak\kern-\parskip\fi \nobreak
|
||||
% Add extra space after the heading -- either a line space or a
|
||||
% paragraph space, whichever is more. (Some people like to set
|
||||
% \parskip to large values for some reason.)
|
||||
\nobreak
|
||||
\ifdim\parskip>\normalbaselineskip
|
||||
\kern\parskip
|
||||
\else
|
||||
\kern\normalbaselineskip
|
||||
\fi
|
||||
\nobreak
|
||||
}
|
||||
|
||||
|
||||
|
|
@ -4007,16 +4049,17 @@ width0pt\relax} \fi
|
|||
\let\unnumbchapentry = \shortunnumberedentry
|
||||
% We want a true roman here for the page numbers.
|
||||
\secfonts
|
||||
\let\rm=\shortcontrm \let\bf=\shortcontbf \let\sl=\shortcontsl
|
||||
\let\rm=\shortcontrm \let\bf=\shortcontbf
|
||||
\let\sl=\shortcontsl \let\tt=\shortconttt
|
||||
\rm
|
||||
\hyphenpenalty = 10000
|
||||
\advance\baselineskip by 1pt % Open it up a little.
|
||||
\def\secentry ##1##2##3##4{}
|
||||
\def\unnumbsecentry ##1##2##3{}
|
||||
\def\subsecentry ##1##2##3##4##5{}
|
||||
\def\unnumbsubsecentry ##1##2##3##4{}
|
||||
\def\subsubsecentry ##1##2##3##4##5##6{}
|
||||
\def\unnumbsubsubsecentry ##1##2##3##4##5{}
|
||||
\let\unnumbsecentry = \secentry
|
||||
\let\unnumbsubsecentry = \subsecentry
|
||||
\let\unnumbsubsubsecentry = \subsubsecentry
|
||||
\openin 1 \jobname.toc
|
||||
\ifeof 1 \else
|
||||
\closein 1
|
||||
|
|
@ -4049,7 +4092,8 @@ width0pt\relax} \fi
|
|||
}
|
||||
|
||||
% Appendices, in the main contents.
|
||||
\def\appendixentry#1#2#3{\dochapentry{\putwordAppendix{} #2\labelspace#1}{#3}}
|
||||
\def\appendixentry#1#2#3{%
|
||||
\dochapentry{\appendixbox{\putwordAppendix{} #2}\labelspace#1}{#3}}
|
||||
%
|
||||
% Appendices, in the short toc.
|
||||
\let\shortappendixentry = \shortchapentry
|
||||
|
|
@ -4073,21 +4117,21 @@ width0pt\relax} \fi
|
|||
}
|
||||
|
||||
% Unnumbered chapters.
|
||||
\def\unnumbchapentry#1#2{\dochapentry{#1}{#2}}
|
||||
\def\shortunnumberedentry#1#2{\tocentry{#1}{\doshortpageno\bgroup#2\egroup}}
|
||||
\def\unnumbchapentry#1#2#3{\dochapentry{#1}{#3}}
|
||||
\def\shortunnumberedentry#1#2#3{\tocentry{#1}{\doshortpageno\bgroup#3\egroup}}
|
||||
|
||||
% Sections.
|
||||
\def\secentry#1#2#3#4{\dosecentry{#2.#3\labelspace#1}{#4}}
|
||||
\def\unnumbsecentry#1#2#3{\dosecentry{#1}{#3}}
|
||||
\def\unnumbsecentry#1#2#3#4{\dosecentry{#1}{#4}}
|
||||
|
||||
% Subsections.
|
||||
\def\subsecentry#1#2#3#4#5{\dosubsecentry{#2.#3.#4\labelspace#1}{#5}}
|
||||
\def\unnumbsubsecentry#1#2#3#4{\dosubsecentry{#1}{#4}}
|
||||
\def\unnumbsubsecentry#1#2#3#4#5{\dosubsecentry{#1}{#5}}
|
||||
|
||||
% And subsubsections.
|
||||
\def\subsubsecentry#1#2#3#4#5#6{%
|
||||
\dosubsubsecentry{#2.#3.#4.#5\labelspace#1}{#6}}
|
||||
\def\unnumbsubsubsecentry#1#2#3#4#5{\dosubsubsecentry{#1}{#5}}
|
||||
\def\unnumbsubsubsecentry#1#2#3#4#5#6{\dosubsubsecentry{#1}{#6}}
|
||||
|
||||
% This parameter controls the indentation of the various levels.
|
||||
\newdimen\tocindent \tocindent = 3pc
|
||||
|
|
@ -4250,15 +4294,18 @@ width0pt\relax} \fi
|
|||
% Make spacing and below environment symmetrical. We use \parskip here
|
||||
% to help in doing that, since in @example-like environments \parskip
|
||||
% 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{{%
|
||||
\ifnum\lastpenalty < 10000
|
||||
% =10000 instead of <10000 because of a special case in \itemzzz, q.v.
|
||||
\ifnum \lastpenalty=10000 \else
|
||||
\advance\envskipamount by \parskip
|
||||
\endgraf
|
||||
\ifdim\lastskip<\envskipamount
|
||||
\removelastskip
|
||||
\penalty-50
|
||||
% it's not a good place to break if the last penalty was \nobreak
|
||||
% or better ...
|
||||
\ifnum\lastpenalty>10000 \else \penalty-50 \fi
|
||||
\vskip\envskipamount
|
||||
\fi
|
||||
\fi
|
||||
|
|
@ -4337,7 +4384,6 @@ width0pt\relax} \fi
|
|||
\inENV % This group ends at the end of the body
|
||||
\hfuzz = 12pt % Don't be fussy
|
||||
\sepspaces % Make spaces be word-separators rather than space tokens.
|
||||
\singlespace
|
||||
\let\par = \lisppar % don't ignore blank lines
|
||||
\obeylines % each line of input is a line of output
|
||||
\parskip = 0pt
|
||||
|
|
@ -4452,7 +4498,6 @@ width0pt\relax} \fi
|
|||
\def\quotation{%
|
||||
\begingroup\inENV %This group ends at the end of the @quotation body
|
||||
{\parskip=0pt \aboveenvbreak}% because \aboveenvbreak inserts \parskip
|
||||
\singlespace
|
||||
\parindent=0pt
|
||||
% We have retained a nonzero parskip for the environment, since we're
|
||||
% doing normal filling. So to avoid extra space below the environment...
|
||||
|
|
@ -4475,10 +4520,14 @@ width0pt\relax} \fi
|
|||
%
|
||||
% [Knuth]: Donald Ervin Knuth, 1996. The TeXbook.
|
||||
%
|
||||
% [Knuth] p. 344; only we need to do '@' too
|
||||
% [Knuth] p.344; only we need to do the other characters Texinfo sets
|
||||
% active too. Otherwise, they get lost as the first character on a
|
||||
% verbatim line.
|
||||
\def\dospecials{%
|
||||
\do\ \do\\\do\@\do\{\do\}\do\$\do\&%
|
||||
\do\#\do\^\do\^^K\do\_\do\^^A\do\%\do\~}
|
||||
\do\ \do\\\do\{\do\}\do\$\do\&%
|
||||
\do\#\do\^\do\^^K\do\_\do\^^A\do\%\do\~%
|
||||
\do\<\do\>\do\|\do\@\do+\do\"%
|
||||
}
|
||||
%
|
||||
% [Knuth] p. 380
|
||||
\def\uncatcodespecials{%
|
||||
|
|
@ -4565,7 +4614,7 @@ width0pt\relax} \fi
|
|||
%
|
||||
% 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 '}'
|
||||
% we need not redefine '\', '{' and '}'.
|
||||
%
|
||||
% Inspired by LaTeX's verbatim command set [latex.ltx]
|
||||
%% Include LaTeX hack for completeness -- never know
|
||||
|
|
@ -4575,9 +4624,14 @@ width0pt\relax} \fi
|
|||
%% \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}}
|
||||
\obeylines %
|
||||
% ignore everything up to the first ^^M, that's the newline at the end
|
||||
% of the @verbatim input line itself. Otherwise we get an extra blank
|
||||
% line in the output.
|
||||
\gdef\doverbatim#1^^M#2@end verbatim{#2\end{verbatim}}%
|
||||
\endgroup
|
||||
%
|
||||
\def\verbatim{%
|
||||
|
|
@ -4620,20 +4674,59 @@ width0pt\relax} \fi
|
|||
}
|
||||
|
||||
% @copying ... @end copying.
|
||||
% Save the text away for @insertcopying later.
|
||||
% Save the text away for @insertcopying later. Many commands won't be
|
||||
% allowed in this context, but that's ok.
|
||||
%
|
||||
\newbox\copyingbox
|
||||
% We save the uninterpreted tokens, rather than creating a box.
|
||||
% Saving the text in a box would be much easier, but then all the
|
||||
% typesetting commands (@smallbook, font changes, etc.) have to be done
|
||||
% beforehand -- and a) we want @copying to be done first in the source
|
||||
% file; b) letting users define the frontmatter in as flexible order as
|
||||
% possible is very desirable.
|
||||
%
|
||||
\def\copying{\begingroup
|
||||
\parindent = 0pt % looks wrong on title page
|
||||
\def\Ecopying{\egroup\endgroup}%
|
||||
\global\setbox\copyingbox = \vbox\bgroup
|
||||
% Define a command to swallow text until we reach `@end copying'.
|
||||
% \ is the escape char in this texinfo.tex file, so it is the
|
||||
% delimiter for the command; @ will be the escape char when we read
|
||||
% it, but that doesn't matter.
|
||||
\long\def\docopying##1\end copying{\gdef\copyingtext{##1}\enddocopying}%
|
||||
%
|
||||
% We must preserve ^^M's in the input file; see \insertcopying below.
|
||||
\catcode`\^^M = \active
|
||||
\docopying
|
||||
}
|
||||
|
||||
% @insertcopying.
|
||||
% What we do to finish off the copying text.
|
||||
%
|
||||
\def\insertcopying{\unvcopy\copyingbox}
|
||||
\def\enddocopying{\endgroup\ignorespaces}
|
||||
|
||||
% @insertcopying. Here we must play games with ^^M's. On the one hand,
|
||||
% we need them to delimit commands such as `@end quotation', so they
|
||||
% must be active. On the other hand, we certainly don't want every
|
||||
% end-of-line to be a \par, as would happen with the normal active
|
||||
% definition of ^^M. On the third hand, two ^^M's in a row should still
|
||||
% generate a \par.
|
||||
%
|
||||
% Our approach is to make ^^M insert a space and a penalty1 normally;
|
||||
% then it can also check if \lastpenalty=1. If it does, then manually
|
||||
% do \par.
|
||||
%
|
||||
% Seems pretty fragile, but for the limited use of getting the copying
|
||||
% text (which should be quite simple) inserted, we can hope it's ok.
|
||||
% %
|
||||
{\catcode`\^^M=\active %
|
||||
\gdef\insertcopying{\begingroup %
|
||||
\parindent = 0pt % looks wrong on title page
|
||||
\def^^M{%
|
||||
\ifnum \lastpenalty=1 %
|
||||
\par %
|
||||
\else %
|
||||
\space \penalty 1 %
|
||||
\fi %
|
||||
}%
|
||||
\copyingtext %
|
||||
\endgroup}%
|
||||
}
|
||||
|
||||
\message{defuns,}
|
||||
% @defun etc.
|
||||
|
|
@ -4643,15 +4736,17 @@ width0pt\relax} \fi
|
|||
|
||||
\newskip\defbodyindent \defbodyindent=.4in
|
||||
\newskip\defargsindent \defargsindent=50pt
|
||||
\newskip\deftypemargin \deftypemargin=12pt
|
||||
\newskip\deflastargmargin \deflastargmargin=18pt
|
||||
|
||||
\newcount\parencount
|
||||
% define \functionparens, which makes ( and ) and & do special things.
|
||||
% \functionparens affects the group it is contained in.
|
||||
|
||||
% We want ()&[] to print specially on the defun line.
|
||||
%
|
||||
\def\activeparens{%
|
||||
\catcode`\(=\active \catcode`\)=\active \catcode`\&=\active
|
||||
\catcode`\[=\active \catcode`\]=\active}
|
||||
\catcode`\(=\active \catcode`\)=\active
|
||||
\catcode`\&=\active
|
||||
\catcode`\[=\active \catcode`\]=\active
|
||||
}
|
||||
|
||||
% Make control sequences which act like normal parenthesis chars.
|
||||
\let\lparen = ( \let\rparen = )
|
||||
|
|
@ -4702,32 +4797,47 @@ width0pt\relax} \fi
|
|||
\global\let& = \ampnr
|
||||
}
|
||||
|
||||
% First, defname, which formats the header line itself.
|
||||
% #1 should be the function name.
|
||||
% #2 should be the type of definition, such as "Function".
|
||||
|
||||
% \defname, which formats the name of the @def (not the args).
|
||||
% #1 is the function name.
|
||||
% #2 is the type of definition, such as "Function".
|
||||
%
|
||||
\def\defname#1#2{%
|
||||
% Get the values of \leftskip and \rightskip as they were
|
||||
% outside the @def...
|
||||
% How we'll output the type name. Putting it in brackets helps
|
||||
% distinguish it from the body text that may end up on the next line
|
||||
% just below it.
|
||||
\ifempty{#2}%
|
||||
\def\defnametype{}%
|
||||
\else
|
||||
\def\defnametype{[\rm #2]}%
|
||||
\fi
|
||||
%
|
||||
% Get the values of \leftskip and \rightskip as they were outside the @def...
|
||||
\dimen2=\leftskip
|
||||
\advance\dimen2 by -\defbodyindent
|
||||
\noindent
|
||||
\setbox0=\hbox{\hskip \deflastargmargin{\rm #2}\hskip \deftypemargin}%
|
||||
%
|
||||
% Figure out values for the paragraph shape.
|
||||
\setbox0=\hbox{\hskip \deflastargmargin{\defnametype}}%
|
||||
\dimen0=\hsize \advance \dimen0 by -\wd0 % compute size for first line
|
||||
\dimen1=\hsize \advance \dimen1 by -\defargsindent % size for continuations
|
||||
\parshape 2 0in \dimen0 \defargsindent \dimen1
|
||||
% Now output arg 2 ("Function" or some such)
|
||||
% ending at \deftypemargin from the right margin,
|
||||
% but stuck inside a box of width 0 so it does not interfere with linebreaking
|
||||
%
|
||||
% Output arg 2 ("Function" or some such) but stuck inside a box of
|
||||
% width 0 so it does not interfere with linebreaking.
|
||||
\noindent
|
||||
%
|
||||
{% Adjust \hsize to exclude the ambient margins,
|
||||
% so that \rightline will obey them.
|
||||
\advance \hsize by -\dimen2
|
||||
\rlap{\rightline{{\rm #2}\hskip -1.25pc }}}%
|
||||
% Make all lines underfull and no complaints:
|
||||
\dimen3 = 0pt % was -1.25pc
|
||||
\rlap{\rightline{\defnametype\kern\dimen3}}%
|
||||
}%
|
||||
%
|
||||
% Allow all lines to be underfull without complaint:
|
||||
\tolerance=10000 \hbadness=10000
|
||||
\advance\leftskip by -\defbodyindent
|
||||
\exdentamount=\defbodyindent
|
||||
{\df #1}\enskip % Generate function name
|
||||
{\df #1}\enskip % output function name
|
||||
% \defunargs will be called next to output the arguments, if any.
|
||||
}
|
||||
|
||||
% Common pieces to start any @def...
|
||||
|
|
@ -4753,24 +4863,38 @@ width0pt\relax} \fi
|
|||
\exdentamount=\defbodyindent
|
||||
}
|
||||
|
||||
% Common part of the \...x definitions.
|
||||
%
|
||||
\def\defxbodycommon{%
|
||||
% As with \parsebodycommon above, allow line break if we have multiple
|
||||
% x headers in a row. It's not a great place, though.
|
||||
\ifnum\lastpenalty=10000 \penalty1000 \fi
|
||||
%
|
||||
\begingroup\obeylines
|
||||
}
|
||||
|
||||
% Process body of @defun, @deffn, @defmac, etc.
|
||||
%
|
||||
\def\defparsebody#1#2#3{%
|
||||
\parsebodycommon{#1}{#2}{#3}%
|
||||
\def#2{\begingroup\obeylines\activeparens\spacesplit#3}%
|
||||
\def#2{\defxbodycommon \activeparens \spacesplit#3}%
|
||||
\catcode61=\active % 61 is `='
|
||||
\begingroup\obeylines\activeparens
|
||||
\spacesplit#3%
|
||||
}
|
||||
|
||||
% #1, #2, #3 are the common arguments (see \defparsebody).
|
||||
% #1, #2, #3 are the common arguments (see \parsebodycommon above).
|
||||
% #4, delimited by the space, is the class name.
|
||||
%
|
||||
\def\defmethparsebody#1#2#3#4 {%
|
||||
\parsebodycommon{#1}{#2}{#3}%
|
||||
\def#2##1 {\begingroup\obeylines\activeparens\spacesplit{#3{##1}}}%
|
||||
\def#2##1 {\defxbodycommon \activeparens \spacesplit{#3{##1}}}%
|
||||
\begingroup\obeylines\activeparens
|
||||
\spacesplit{#3{#4}}%
|
||||
% The \empty here prevents misinterpretation of a construct such as
|
||||
% @deffn {whatever} {Enharmonic comma}
|
||||
% See comments at \deftpparsebody, although in our case we don't have
|
||||
% to remove the \empty afterwards, since it is empty.
|
||||
\spacesplit{#3{#4}}\empty
|
||||
}
|
||||
|
||||
% Used for @deftypemethod and @deftypeivar.
|
||||
|
|
@ -4780,7 +4904,7 @@ width0pt\relax} \fi
|
|||
%
|
||||
\def\deftypemethparsebody#1#2#3#4 #5 {%
|
||||
\parsebodycommon{#1}{#2}{#3}%
|
||||
\def#2##1 ##2 {\begingroup\obeylines\activeparens\spacesplit{#3{##1}{##2}}}%
|
||||
\def#2##1 ##2 {\defxbodycommon \activeparens \spacesplit{#3{##1}{##2}}}%
|
||||
\begingroup\obeylines\activeparens
|
||||
\spacesplit{#3{#4}{#5}}%
|
||||
}
|
||||
|
|
@ -4794,9 +4918,8 @@ width0pt\relax} \fi
|
|||
%
|
||||
\def\deftypeopparsebody#1#2#3#4#5 #6 {%
|
||||
\parsebodycommon{#1}{#2}{#3}%
|
||||
\def#2##1 ##2 ##3 {%
|
||||
\def#4{##1}%
|
||||
\begingroup\obeylines\activeparens\spacesplit{#3{##2}{##3}}}%
|
||||
\def#2##1 ##2 ##3 {\def#4{##1}%
|
||||
\defxbodycommon \activeparens \spacesplit{#3{##2}{##3}}}%
|
||||
\begingroup\obeylines\activeparens
|
||||
\spacesplit{#3{#5}{#6}}%
|
||||
}
|
||||
|
|
@ -4805,7 +4928,7 @@ width0pt\relax} \fi
|
|||
\def\defopparsebody #1#2#3#4#5 {%
|
||||
\parsebodycommon{#1}{#2}{#3}%
|
||||
\def#2##1 ##2 {\def#4{##1}%
|
||||
\begingroup\obeylines\activeparens\spacesplit{#3{##2}}}%
|
||||
\defxbodycommon \activeparens \spacesplit{#3{##2}}}%
|
||||
\begingroup\obeylines\activeparens
|
||||
\spacesplit{#3{#5}}%
|
||||
}
|
||||
|
|
@ -4816,7 +4939,7 @@ width0pt\relax} \fi
|
|||
%
|
||||
\def\defvarparsebody #1#2#3{%
|
||||
\parsebodycommon{#1}{#2}{#3}%
|
||||
\def#2{\begingroup\obeylines\spacesplit#3}%
|
||||
\def#2{\defxbodycommon \spacesplit#3}%
|
||||
\catcode61=\active %
|
||||
\begingroup\obeylines
|
||||
\spacesplit#3%
|
||||
|
|
@ -4826,14 +4949,14 @@ width0pt\relax} \fi
|
|||
\def\defopvarparsebody #1#2#3#4#5 {%
|
||||
\parsebodycommon{#1}{#2}{#3}%
|
||||
\def#2##1 ##2 {\def#4{##1}%
|
||||
\begingroup\obeylines\spacesplit{#3{##2}}}%
|
||||
\defxbodycommon \spacesplit{#3{##2}}}%
|
||||
\begingroup\obeylines
|
||||
\spacesplit{#3{#5}}%
|
||||
}
|
||||
|
||||
\def\defvrparsebody#1#2#3#4 {%
|
||||
\parsebodycommon{#1}{#2}{#3}%
|
||||
\def#2##1 {\begingroup\obeylines\spacesplit{#3{##1}}}%
|
||||
\def#2##1 {\defxbodycommon \spacesplit{#3{##1}}}%
|
||||
\begingroup\obeylines
|
||||
\spacesplit{#3{#4}}%
|
||||
}
|
||||
|
|
@ -4849,7 +4972,7 @@ width0pt\relax} \fi
|
|||
%
|
||||
\def\deftpparsebody #1#2#3#4 {%
|
||||
\parsebodycommon{#1}{#2}{#3}%
|
||||
\def#2##1 {\begingroup\obeylines\spacesplit{#3{##1}}}%
|
||||
\def#2##1 {\defxbodycommon \spacesplit{#3{##1}}}%
|
||||
\begingroup\obeylines
|
||||
\spacesplit{\parsetpheaderline{#3{#4}}}\empty
|
||||
}
|
||||
|
|
@ -4867,18 +4990,22 @@ width0pt\relax} \fi
|
|||
#1{\removeemptybraces#2\relax}{#3}%
|
||||
}%
|
||||
|
||||
% Split up #2 at the first space token.
|
||||
% Split up #2 (the rest of the input line) at the first space token.
|
||||
% call #1 with two arguments:
|
||||
% the first is all of #2 before the space token,
|
||||
% the second is all of #2 after that space token.
|
||||
% If #2 contains no space token, all of it is passed as the first arg
|
||||
% and the second is passed as empty.
|
||||
%
|
||||
{\obeylines
|
||||
\gdef\spacesplit#1#2^^M{\endgroup\spacesplitfoo{#1}#2 \relax\spacesplitfoo}%
|
||||
\long\gdef\spacesplitfoo#1#2 #3#4\spacesplitfoo{%
|
||||
{\obeylines %
|
||||
\gdef\spacesplit#1#2^^M{\endgroup\spacesplitx{#1}#2 \relax\spacesplitx}%
|
||||
\long\gdef\spacesplitx#1#2 #3#4\spacesplitx{%
|
||||
\ifx\relax #3%
|
||||
#1{#2}{}\else #1{#2}{#3#4}\fi}}
|
||||
#1{#2}{}%
|
||||
\else %
|
||||
#1{#2}{#3#4}%
|
||||
\fi}%
|
||||
}
|
||||
|
||||
% Define @defun.
|
||||
|
||||
|
|
@ -6035,11 +6162,13 @@ should work if nowhere else does.}
|
|||
}
|
||||
|
||||
% 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.
|
||||
% 4) hoffset; 5) binding offset; 6) topskip; 7) physical page height; 8)
|
||||
% physical page width.
|
||||
%
|
||||
\def\internalpagesizes#1#2#3#4#5#6{%
|
||||
% 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#7#8{%
|
||||
\voffset = #3\relax
|
||||
\topskip = #6\relax
|
||||
\splittopskip = \topskip
|
||||
|
|
@ -6058,6 +6187,11 @@ should work if nowhere else does.}
|
|||
\normaloffset = #4\relax
|
||||
\bindingoffset = #5\relax
|
||||
%
|
||||
\ifpdf
|
||||
\pdfpageheight #7\relax
|
||||
\pdfpagewidth #8\relax
|
||||
\fi
|
||||
%
|
||||
\setleading{\textleading}
|
||||
%
|
||||
\parindent = \defaultparindent
|
||||
|
|
@ -6079,7 +6213,10 @@ should work if nowhere else does.}
|
|||
\textleading = 13.2pt
|
||||
%
|
||||
% If page is nothing but text, make it come out even.
|
||||
\internalpagesizes{46\baselineskip}{6in}{\voffset}{.25in}{\bindingoffset}{36pt}%
|
||||
\internalpagesizes{46\baselineskip}{6in}%
|
||||
{\voffset}{.25in}%
|
||||
{\bindingoffset}{36pt}%
|
||||
{11in}{8.5in}%
|
||||
}}
|
||||
|
||||
% Use @smallbook to reset parameters for 7x9.5 (or so) format.
|
||||
|
|
@ -6087,13 +6224,15 @@ should work if nowhere else does.}
|
|||
\parskip = 2pt plus 1pt
|
||||
\textleading = 12pt
|
||||
%
|
||||
\internalpagesizes{7.5in}{5.in}{\voffset}{.25in}{\bindingoffset}{16pt}%
|
||||
\internalpagesizes{7.5in}{5in}%
|
||||
{\voffset}{.25in}%
|
||||
{\bindingoffset}{16pt}%
|
||||
{9.25in}{7in}%
|
||||
%
|
||||
\lispnarrowing = 0.3in
|
||||
\tolerance = 700
|
||||
\hfuzz = 1pt
|
||||
\contentsrightmargin = 0pt
|
||||
\deftypemargin = 0pt
|
||||
\defbodyindent = .5cm
|
||||
\smallenvironments
|
||||
}}
|
||||
|
|
@ -6101,12 +6240,27 @@ should work if nowhere else does.}
|
|||
% Use @afourpaper to print on European A4 paper.
|
||||
\def\afourpaper{{\globaldefs = 1
|
||||
\parskip = 3pt plus 2pt minus 1pt
|
||||
\textleading = 12pt
|
||||
\textleading = 13.2pt
|
||||
%
|
||||
\internalpagesizes{53\baselineskip}{160mm}{\voffset}{4mm}{\bindingoffset}{44pt}%
|
||||
% Double-side printing via postscript on Laserjet 4050
|
||||
% prints double-sided nicely when \bindingoffset=10mm and \hoffset=-6mm.
|
||||
% To change the settings for a different printer or situation, adjust
|
||||
% \normaloffset until the front-side and back-side texts align. Then
|
||||
% do the same for \bindingoffset. You can set these for testing in
|
||||
% your texinfo source file like this:
|
||||
% @tex
|
||||
% \global\normaloffset = -6mm
|
||||
% \global\bindingoffset = 10mm
|
||||
% @end tex
|
||||
\internalpagesizes{51\baselineskip}{160mm}
|
||||
{\voffset}{\hoffset}%
|
||||
{\bindingoffset}{44pt}%
|
||||
{297mm}{210mm}%
|
||||
%
|
||||
\tolerance = 700
|
||||
\hfuzz = 1pt
|
||||
\contentsrightmargin = 0pt
|
||||
\defbodyindent = 5mm
|
||||
}}
|
||||
|
||||
% Use @afivepaper to print on European A5 paper.
|
||||
|
|
@ -6116,37 +6270,42 @@ should work if nowhere else does.}
|
|||
\parskip = 2pt plus 1pt minus 0.1pt
|
||||
\textleading = 12.5pt
|
||||
%
|
||||
\internalpagesizes{166mm}{120mm}{\voffset}{-8mm}{\bindingoffset}{8pt}%
|
||||
\internalpagesizes{160mm}{120mm}%
|
||||
{\voffset}{\hoffset}%
|
||||
{\bindingoffset}{8pt}%
|
||||
{210mm}{148mm}%
|
||||
%
|
||||
\lispnarrowing = 0.2in
|
||||
\tolerance = 800
|
||||
\hfuzz = 1.2pt
|
||||
\contentsrightmargin = 0mm
|
||||
\deftypemargin = 0pt
|
||||
\contentsrightmargin = 0pt
|
||||
\defbodyindent = 2mm
|
||||
\tableindent = 12mm
|
||||
%
|
||||
\smallenvironments
|
||||
}}
|
||||
|
||||
% A specific text layout, 24x15cm overall, intended for A4 paper. Top margin
|
||||
% 29mm, hence bottom margin 28mm, nominal side margin 3cm.
|
||||
% A specific text layout, 24x15cm overall, intended for A4 paper.
|
||||
\def\afourlatex{{\globaldefs = 1
|
||||
\textleading = 13.6pt
|
||||
%
|
||||
\afourpaper
|
||||
\internalpagesizes{237mm}{150mm}{3.6mm}{3.6mm}{3mm}{7mm}%
|
||||
\internalpagesizes{237mm}{150mm}%
|
||||
{\voffset}{4.6mm}%
|
||||
{\bindingoffset}{7mm}%
|
||||
{297mm}{210mm}%
|
||||
%
|
||||
% Must explicitly reset to 0 because we call \afourpaper, apparently,
|
||||
% although this does not entirely make sense.
|
||||
% Must explicitly reset to 0 because we call \afourpaper.
|
||||
\globaldefs = 0
|
||||
}}
|
||||
|
||||
% Use @afourwide to print on European A4 paper in wide format.
|
||||
\def\afourwide{%
|
||||
% Use @afourwide to print on A4 paper in landscape format.
|
||||
\def\afourwide{{\globaldefs = 1
|
||||
\afourpaper
|
||||
\internalpagesizes{6.5in}{9.5in}{\hoffset}{\normaloffset}{\bindingoffset}{7mm}%
|
||||
}
|
||||
\internalpagesizes{241mm}{165mm}%
|
||||
{\voffset}{-2.95mm}%
|
||||
{\bindingoffset}{7mm}%
|
||||
{297mm}{210mm}%
|
||||
\globaldefs = 0
|
||||
}}
|
||||
|
||||
% @pagesizes TEXTHEIGHT[,TEXTWIDTH]
|
||||
% Perhaps we should allow setting the margins, \topskip, \parskip,
|
||||
|
|
@ -6161,7 +6320,16 @@ should work if nowhere else does.}
|
|||
\parskip = 3pt plus 2pt minus 1pt
|
||||
\setleading{\textleading}%
|
||||
%
|
||||
\internalpagesizes{#1}{\hsize}{\voffset}{\normaloffset}{\bindingoffset}{44pt}%
|
||||
\dimen0 = #1
|
||||
\advance\dimen0 by \voffset
|
||||
%
|
||||
\dimen2 = \hsize
|
||||
\advance\dimen2 by \normaloffset
|
||||
%
|
||||
\internalpagesizes{#1}{\hsize}%
|
||||
{\voffset}{\normaloffset}%
|
||||
{\bindingoffset}{44pt}%
|
||||
{\dimen0}{\dimen2}%
|
||||
}}
|
||||
|
||||
% Set default to letter.
|
||||
|
|
@ -6285,16 +6453,8 @@ should work if nowhere else does.}
|
|||
@let+=@normalplus
|
||||
@let$=@normaldollar}%$ font-lock fix
|
||||
|
||||
@def@normalturnoffactive{@let"=@normaldoublequote
|
||||
@let\=@normalbackslash
|
||||
@let~=@normaltilde
|
||||
@let^=@normalcaret
|
||||
@let_=@normalunderscore
|
||||
@let|=@normalverticalbar
|
||||
@let<=@normalless
|
||||
@let>=@normalgreater
|
||||
@let+=@normalplus
|
||||
@let$=@normaldollar}%$ font-lock fix
|
||||
% Same as @turnoffactive except for \.
|
||||
@def@normalturnoffactive{@turnoffactive @let\=@normalbackslash}
|
||||
|
||||
% Make _ and + \other characters, temporarily.
|
||||
% This is canceled by @fixbackslash.
|
||||
|
|
|
|||
Loading…
Reference in New Issue