gnulib: build-aux/texinfo.tex comparison

comparison build-aux/texinfo.tex @ 17831:db34b1b0db14

update from texinfo

author	Karl Berry <karl@freefriends.org>
date	Fri, 12 Dec 2014 15:24:21 -0800
parents	86c48fd655bc
children	c7cacca49e3b

comparison

equal deleted inserted replaced

-:06d818b9ca43
+:db34b1b0db14
 % texinfo.tex -- TeX macros to handle Texinfo files.
 %
 % Load plain if necessary, i.e., if running under initex.
 \expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi
 %
-\def\texinfoversion{2014-11-14.07}
+\def\texinfoversion{2014-12-03.16}
 %
 % Copyright 1985, 1986, 1988, 1990, 1991, 1992, 1993, 1994, 1995,
 % 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
 % 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014 Free Software Foundation, Inc.
 %
 \let\ptexnoindent=\noindent
 \let\ptexplus=+
 \let\ptexraggedright=\raggedright
 \let\ptexrbrace=\}
 \let\ptexslash=\/
+\let\ptexsp=\sp
 \let\ptexstar=\*
+\let\ptexsup=\sup
 \let\ptext=\t
 \let\ptextop=\top
 {\catcode`\'=\active \global\let\ptexquoteright'}% active in plain's math mode
 % If this character appears in an error message or help string, it
 \errmessage{@fonttextsize only supports `10' or `11', not `\textsizearg'}
 \fi\fi
 \endgroup
 }
 % 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.  We don't
-% texinfo doesn't allow for producing subscripts and superscripts except
+% bother to reset \scriptfont and \scriptscriptfont; awaiting user need.
-% in the main text, we don't bother to reset \scriptfont and
-% \scriptscriptfont (which would also require loading a lot more fonts).
 %
 \def\resetmathfonts{%
 \textfont0=\tenrm \textfont1=\teni \textfont2=\tensy
 \textfont\itfam=\tenit \textfont\slfam=\tensl \textfont\bffam=\tenbf
 \textfont\ttfam=\tentt \textfont\sffam=\tensf
 % of just \STYLE.  We do this because \STYLE needs to also set the
 % current \fam for math mode.  Our \STYLE (e.g., \rm) commands hardwire
 % \tenSTYLE to set the current font.
 %
 % Each font-changing command also sets the names \lsize (one size lower)
-% and \lllsize (three sizes lower).  These relative commands are used in
+% and \lllsize (three sizes lower).  These relative commands are used
-% the LaTeX logo and acronyms.
+% in, e.g., the LaTeX logo and acronyms.
 %
 % This all needs generalizing, badly.
 %
 \def\textfonts{%
 \let\tenrm=\textrm \let\tenit=\textit \let\tensl=\textsl
 \let\`=\grave
 \let\u=\breve
 \let\v=\check
 \let\~=\tilde
 \let\dotaccent=\dot
+% have to provide another name for sup operator
+\let\mathopsup=\sup
 $\finishmath
 }
 \def\finishmath#1{#1$\endgroup}  % Close the group opened by \tex.
 % Some active characters (such as <) are spaced differently in math.
 \let> = \ptexgtr
 \let+ = \ptexplus
 \let' = \ptexquoteright
 }
 }
+% for @sub and @sup, if in math mode, just do a normal sub/superscript.
+% If in text, use math to place as sub/superscript, but switch
+% into text mode, with smaller fonts.  This is a different font than the
+% one used for real math sub/superscripts (8pt vs. 7pt), but let's not
+% fix it (significant additions to font machinery) until someone notices.
+%
+\def\sub{\ifmmode \expandafter\sb \else \expandafter\finishsub\fi}
+\def\finishsub#1{$\sb{\hbox{\selectfonts\lllsize #1}}$}%
+%
+\def\sup{\ifmmode \expandafter\ptexsp \else \expandafter\finishsup\fi}
+\def\finishsup#1{$\ptexsp{\hbox{\selectfonts\lllsize #1}}$}%
 % ctrl is no longer a Texinfo command, but leave this definition for fun.
 \def\ctrl #1{{\tt \rawbackslash \hat}#1}
 % @inlinefmt{FMTNAME,PROCESSED-TEXT} and @inlineraw{FMTNAME,RAW-TEXT}.
 %
 % ' is active in math mode (mathcode"8000).  So reset it, and all our
 % other math active characters (just in case), to plain's definitions.
 \mathactive
 %
+% Inverse of the list at the beginning of the file.
 \let\b=\ptexb
 \let\bullet=\ptexbullet
 \let\c=\ptexc
 \let\,=\ptexcomma
 \let\.=\ptexdot
 \let\noindent=\ptexnoindent
 \let\{=\ptexlbrace
 \let\+=\tabalign
 \let\}=\ptexrbrace
 \let\/=\ptexslash
+\let\sp=\ptexsp
 \let\*=\ptexstar
+%\let\sup=\ptexsup % do not redefine, we want @sup to work in math mode
 \let\t=\ptext
 \expandafter \let\csname top\endcsname=\ptextop  % we've made it outer
 \let\frenchspacing=\plainfrenchspacing
 %
 \def\endldots{\mathinner{\ldots\ldots\ldots\ldots}}%
 % But it is not possible, because Texinfo already has a command @, for a
 % cedilla accent.  Documents must use @comma{} instead.
 %
 % \anythingelse will almost certainly be an error of some kind.
 % \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.
 % In that case, the hook is \the\toks N-1, and we simply set \toks N-1 to the
 % argument N value and then \edef  the body (nothing else will expand because of
 % the catcode regime underwhich the body was input).
 %
 % If you compile with TeX (not eTeX), and you have macros with 10 or more
-% arguments, you need that no macro has more than 256 arguments, otherwise an
+% arguments, no macro can have more than 256 arguments (else error).
-% error is produced.
 \def\parsemargdef#1;{%
 \paramno=0\def\paramlist{}%
 \let\hash\relax
 \let\xeatspaces\relax
 \parsemargdefxxx#1,;,%
 \def\UTFviiiTmp{%
 \xdef~{\noexpand\UTFviiiFourOctets\string~}}
 \UTFviiiLoop
 \endgroup
+\def\globallet{\global\let} % save some \expandafter's below
+% @U{xxxx} to produce U+xxxx, if we support it.
+\def\U#1{%
+\expandafter\ifx\csname uni:#1\endcsname \relax
+\errhelp = \EMsimple
+\errmessage{Unicode character U+#1 not supported, sorry}%
+\else
+\csname uni:#1\endcsname
+\fi
+}
 \begingroup
 \catcode`\"=12
 \catcode`\<=12
 \catcode`\.=12
 \catcode`\,=12
 \catcode`\;=12
 \catcode`\!=12
 \catcode`\~=13
 \gdef\DeclareUnicodeCharacter#1#2{%
 \countUTFz = "#1\relax
 %\wlog{\space\space defining Unicode char U+#1 (decimal \the\countUTFz)}%
 \begingroup
 \parseXMLCharref
 \def\UTFviiiFourOctets##1##2##3##4{%
 \csname u8:##1\string ##2\string ##3\string ##4\endcsname}%
 \expandafter\expandafter\expandafter\expandafter
 \expandafter\expandafter\expandafter
 \gdef\UTFviiiTmp{#2}%
+% define an additional control sequence for this code point.
+\expandafter\globallet\csname uni:#1\endcsname \UTFviiiTmp
 \endgroup}
 \gdef\parseXMLCharref{%
 \ifnum\countUTFz < "A0\relax
 \errhelp = \EMsimple

Mercurial > gnulib

comparison build-aux/texinfo.tex @ 17831:db34b1b0db14