OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [binutils-2.20.1/] [texinfo/] [texinfo.tex] - Blame information for rev 818

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 205 julius
% texinfo.tex -- TeX macros to handle Texinfo files.
2
%
3
% Load plain if necessary, i.e., if running under initex.
4
\expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi
5
%
6
\def\texinfoversion{2009-03-28.05}
7
%
8
% Copyright 1985, 1986, 1988, 1990, 1991, 1992, 1993, 1994, 1995,
9
% 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
10
% 2007, 2008, 2009 Free Software Foundation, Inc.
11
%
12
% This texinfo.tex file is free software: you can redistribute it and/or
13
% modify it under the terms of the GNU General Public License as
14
% published by the Free Software Foundation, either version 3 of the
15
% License, or (at your option) any later version.
16
%
17
% This texinfo.tex file is distributed in the hope that it will be
18
% useful, but WITHOUT ANY WARRANTY; without even the implied warranty
19
% of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
20
% General Public License for more details.
21
%
22
% You should have received a copy of the GNU General Public License
23
% along with this program.  If not, see <http://www.gnu.org/licenses/>.
24
%
25
% As a special exception, when this file is read by TeX when processing
26
% a Texinfo source document, you may use the result without
27
% restriction.  (This has been our intent since Texinfo was invented.)
28
%
29
% Please try the latest version of texinfo.tex before submitting bug
30
% reports; you can get the latest version from:
31
%   http://www.gnu.org/software/texinfo/ (the Texinfo home page), or
32
%   ftp://tug.org/tex/texinfo.tex
33
%     (and all CTAN mirrors, see http://www.ctan.org).
34
% The texinfo.tex in any given distribution could well be out
35
% of date, so if that's what you're using, please check.
36
%
37
% Send bug reports to bug-texinfo@gnu.org.  Please include including a
38
% complete document in each bug report with which we can reproduce the
39
% problem.  Patches are, of course, greatly appreciated.
40
%
41
% To process a Texinfo manual with TeX, it's most reliable to use the
42
% texi2dvi shell script that comes with the distribution.  For a simple
43
% manual foo.texi, however, you can get away with this:
44
%   tex foo.texi
45
%   texindex foo.??
46
%   tex foo.texi
47
%   tex foo.texi
48
%   dvips foo.dvi -o  # or whatever; this makes foo.ps.
49
% The extra TeX runs get the cross-reference information correct.
50
% Sometimes one run after texindex suffices, and sometimes you need more
51
% than two; texi2dvi does it as many times as necessary.
52
%
53
% It is possible to adapt texinfo.tex for other languages, to some
54
% extent.  You can get the existing language-specific files from the
55
% full Texinfo distribution.
56
%
57
% The GNU Texinfo home page is http://www.gnu.org/software/texinfo.
58
 
59
 
60
\message{Loading texinfo [version \texinfoversion]:}
61
 
62
% If in a .fmt file, print the version number
63
% and turn on active characters that we couldn't do earlier because
64
% they might have appeared in the input file name.
65
\everyjob{\message{[Texinfo version \texinfoversion]}%
66
  \catcode`+=\active \catcode`\_=\active}
67
 
68
 
69
\chardef\other=12
70
 
71
% We never want plain's \outer definition of \+ in Texinfo.
72
% For @tex, we can use \tabalign.
73
\let\+ = \relax
74
 
75
% Save some plain tex macros whose names we will redefine.
76
\let\ptexb=\b
77
\let\ptexbullet=\bullet
78
\let\ptexc=\c
79
\let\ptexcomma=\,
80
\let\ptexdot=\.
81
\let\ptexdots=\dots
82
\let\ptexend=\end
83
\let\ptexequiv=\equiv
84
\let\ptexexclam=\!
85
\let\ptexfootnote=\footnote
86
\let\ptexgtr=>
87
\let\ptexhat=^
88
\let\ptexi=\i
89
\let\ptexindent=\indent
90
\let\ptexinsert=\insert
91
\let\ptexlbrace=\{
92
\let\ptexless=<
93
\let\ptexnewwrite\newwrite
94
\let\ptexnoindent=\noindent
95
\let\ptexplus=+
96
\let\ptexrbrace=\}
97
\let\ptexslash=\/
98
\let\ptexstar=\*
99
\let\ptext=\t
100
\let\ptextop=\top
101
{\catcode`\'=\active
102
\global\let\ptexquoteright'}% Math-mode def from plain.tex.
103
\let\ptexraggedright=\raggedright
104
 
105
% If this character appears in an error message or help string, it
106
% starts a new line in the output.
107
\newlinechar = `^^J
108
 
109
% Use TeX 3.0's \inputlineno to get the line number, for better error
110
% messages, but if we're using an old version of TeX, don't do anything.
111
%
112
\ifx\inputlineno\thisisundefined
113
  \let\linenumber = \empty % Pre-3.0.
114
\else
115
  \def\linenumber{l.\the\inputlineno:\space}
116
\fi
117
 
118
% Set up fixed words for English if not already set.
119
\ifx\putwordAppendix\undefined  \gdef\putwordAppendix{Appendix}\fi
120
\ifx\putwordChapter\undefined   \gdef\putwordChapter{Chapter}\fi
121
\ifx\putwordfile\undefined      \gdef\putwordfile{file}\fi
122
\ifx\putwordin\undefined        \gdef\putwordin{in}\fi
123
\ifx\putwordIndexIsEmpty\undefined     \gdef\putwordIndexIsEmpty{(Index is empty)}\fi
124
\ifx\putwordIndexNonexistent\undefined \gdef\putwordIndexNonexistent{(Index is nonexistent)}\fi
125
\ifx\putwordInfo\undefined      \gdef\putwordInfo{Info}\fi
126
\ifx\putwordInstanceVariableof\undefined \gdef\putwordInstanceVariableof{Instance Variable of}\fi
127
\ifx\putwordMethodon\undefined  \gdef\putwordMethodon{Method on}\fi
128
\ifx\putwordNoTitle\undefined   \gdef\putwordNoTitle{No Title}\fi
129
\ifx\putwordof\undefined        \gdef\putwordof{of}\fi
130
\ifx\putwordon\undefined        \gdef\putwordon{on}\fi
131
\ifx\putwordpage\undefined      \gdef\putwordpage{page}\fi
132
\ifx\putwordsection\undefined   \gdef\putwordsection{section}\fi
133
\ifx\putwordSection\undefined   \gdef\putwordSection{Section}\fi
134
\ifx\putwordsee\undefined       \gdef\putwordsee{see}\fi
135
\ifx\putwordSee\undefined       \gdef\putwordSee{See}\fi
136
\ifx\putwordShortTOC\undefined  \gdef\putwordShortTOC{Short Contents}\fi
137
\ifx\putwordTOC\undefined       \gdef\putwordTOC{Table of Contents}\fi
138
%
139
\ifx\putwordMJan\undefined \gdef\putwordMJan{January}\fi
140
\ifx\putwordMFeb\undefined \gdef\putwordMFeb{February}\fi
141
\ifx\putwordMMar\undefined \gdef\putwordMMar{March}\fi
142
\ifx\putwordMApr\undefined \gdef\putwordMApr{April}\fi
143
\ifx\putwordMMay\undefined \gdef\putwordMMay{May}\fi
144
\ifx\putwordMJun\undefined \gdef\putwordMJun{June}\fi
145
\ifx\putwordMJul\undefined \gdef\putwordMJul{July}\fi
146
\ifx\putwordMAug\undefined \gdef\putwordMAug{August}\fi
147
\ifx\putwordMSep\undefined \gdef\putwordMSep{September}\fi
148
\ifx\putwordMOct\undefined \gdef\putwordMOct{October}\fi
149
\ifx\putwordMNov\undefined \gdef\putwordMNov{November}\fi
150
\ifx\putwordMDec\undefined \gdef\putwordMDec{December}\fi
151
%
152
\ifx\putwordDefmac\undefined    \gdef\putwordDefmac{Macro}\fi
153
\ifx\putwordDefspec\undefined   \gdef\putwordDefspec{Special Form}\fi
154
\ifx\putwordDefvar\undefined    \gdef\putwordDefvar{Variable}\fi
155
\ifx\putwordDefopt\undefined    \gdef\putwordDefopt{User Option}\fi
156
\ifx\putwordDeffunc\undefined   \gdef\putwordDeffunc{Function}\fi
157
 
158
% Since the category of space is not known, we have to be careful.
159
\chardef\spacecat = 10
160
\def\spaceisspace{\catcode`\ =\spacecat}
161
 
162
% sometimes characters are active, so we need control sequences.
163
\chardef\colonChar = `\:
164
\chardef\commaChar = `\,
165
\chardef\dashChar  = `\-
166
\chardef\dotChar   = `\.
167
\chardef\exclamChar= `\!
168
\chardef\lquoteChar= `\`
169
\chardef\questChar = `\?
170
\chardef\rquoteChar= `\'
171
\chardef\semiChar  = `\;
172
\chardef\underChar = `\_
173
 
174
% Ignore a token.
175
%
176
\def\gobble#1{}
177
 
178
% The following is used inside several \edef's.
179
\def\makecsname#1{\expandafter\noexpand\csname#1\endcsname}
180
 
181
% Hyphenation fixes.
182
\hyphenation{
183
  Flor-i-da Ghost-script Ghost-view Mac-OS Post-Script
184
  ap-pen-dix bit-map bit-maps
185
  data-base data-bases eshell fall-ing half-way long-est man-u-script
186
  man-u-scripts mini-buf-fer mini-buf-fers over-view par-a-digm
187
  par-a-digms rath-er rec-tan-gu-lar ro-bot-ics se-vere-ly set-up spa-ces
188
  spell-ing spell-ings
189
  stand-alone strong-est time-stamp time-stamps which-ever white-space
190
  wide-spread wrap-around
191
}
192
 
193
% Margin to add to right of even pages, to left of odd pages.
194
\newdimen\bindingoffset
195
\newdimen\normaloffset
196
\newdimen\pagewidth \newdimen\pageheight
197
 
198
% For a final copy, take out the rectangles
199
% that mark overfull boxes (in case you have decided
200
% that the text looks ok even though it passes the margin).
201
%
202
\def\finalout{\overfullrule=0pt}
203
 
204
% @| inserts a changebar to the left of the current line.  It should
205
% surround any changed text.  This approach does *not* work if the
206
% change spans more than two lines of output.  To handle that, we would
207
% have adopt a much more difficult approach (putting marks into the main
208
% vertical list for the beginning and end of each change).
209
%
210
\def\|{%
211
  % \vadjust can only be used in horizontal mode.
212
  \leavevmode
213
  %
214
  % Append this vertical mode material after the current line in the output.
215
  \vadjust{%
216
    % We want to insert a rule with the height and depth of the current
217
    % leading; that is exactly what \strutbox is supposed to record.
218
    \vskip-\baselineskip
219
    %
220
    % \vadjust-items are inserted at the left edge of the type.  So
221
    % the \llap here moves out into the left-hand margin.
222
    \llap{%
223
      %
224
      % For a thicker or thinner bar, change the `1pt'.
225
      \vrule height\baselineskip width1pt
226
      %
227
      % This is the space between the bar and the text.
228
      \hskip 12pt
229
    }%
230
  }%
231
}
232
 
233
% Sometimes it is convenient to have everything in the transcript file
234
% and nothing on the terminal.  We don't just call \tracingall here,
235
% since that produces some useless output on the terminal.  We also make
236
% some effort to order the tracing commands to reduce output in the log
237
% file; cf. trace.sty in LaTeX.
238
%
239
\def\gloggingall{\begingroup \globaldefs = 1 \loggingall \endgroup}%
240
\def\loggingall{%
241
  \tracingstats2
242
  \tracingpages1
243
  \tracinglostchars2  % 2 gives us more in etex
244
  \tracingparagraphs1
245
  \tracingoutput1
246
  \tracingmacros2
247
  \tracingrestores1
248
  \showboxbreadth\maxdimen \showboxdepth\maxdimen
249
  \ifx\eTeXversion\undefined\else % etex gives us more logging
250
    \tracingscantokens1
251
    \tracingifs1
252
    \tracinggroups1
253
    \tracingnesting2
254
    \tracingassigns1
255
  \fi
256
  \tracingcommands3  % 3 gives us more in etex
257
  \errorcontextlines16
258
}%
259
 
260
% add check for \lastpenalty to plain's definitions.  If the last thing
261
% we did was a \nobreak, we don't want to insert more space.
262
%
263
\def\smallbreak{\ifnum\lastpenalty<10000\par\ifdim\lastskip<\smallskipamount
264
  \removelastskip\penalty-50\smallskip\fi\fi}
265
\def\medbreak{\ifnum\lastpenalty<10000\par\ifdim\lastskip<\medskipamount
266
  \removelastskip\penalty-100\medskip\fi\fi}
267
\def\bigbreak{\ifnum\lastpenalty<10000\par\ifdim\lastskip<\bigskipamount
268
  \removelastskip\penalty-200\bigskip\fi\fi}
269
 
270
% For @cropmarks command.
271
% Do @cropmarks to get crop marks.
272
%
273
\newif\ifcropmarks
274
\let\cropmarks = \cropmarkstrue
275
%
276
% Dimensions to add cropmarks at corners.
277
% Added by P. A. MacKay, 12 Nov. 1986
278
%
279
\newdimen\outerhsize \newdimen\outervsize % set by the paper size routines
280
\newdimen\cornerlong  \cornerlong=1pc
281
\newdimen\cornerthick \cornerthick=.3pt
282
\newdimen\topandbottommargin \topandbottommargin=.75in
283
 
284
% Output a mark which sets \thischapter, \thissection and \thiscolor.
285
% We dump everything together because we only have one kind of mark.
286
% This works because we only use \botmark / \topmark, not \firstmark.
287
%
288
% A mark contains a subexpression of the \ifcase ... \fi construct.
289
% \get*marks macros below extract the needed part using \ifcase.
290
%
291
% Another complication is to let the user choose whether \thischapter
292
% (\thissection) refers to the chapter (section) in effect at the top
293
% of a page, or that at the bottom of a page.  The solution is
294
% described on page 260 of The TeXbook.  It involves outputting two
295
% marks for the sectioning macros, one before the section break, and
296
% one after.  I won't pretend I can describe this better than DEK...
297
\def\domark{%
298
  \toks0=\expandafter{\lastchapterdefs}%
299
  \toks2=\expandafter{\lastsectiondefs}%
300
  \toks4=\expandafter{\prevchapterdefs}%
301
  \toks6=\expandafter{\prevsectiondefs}%
302
  \toks8=\expandafter{\lastcolordefs}%
303
  \mark{%
304
                   \the\toks0 \the\toks2
305
      \noexpand\or \the\toks4 \the\toks6
306
    \noexpand\else \the\toks8
307
  }%
308
}
309
% \topmark doesn't work for the very first chapter (after the title
310
% page or the contents), so we use \firstmark there -- this gets us
311
% the mark with the chapter defs, unless the user sneaks in, e.g.,
312
% @setcolor (or @url, or @link, etc.) between @contents and the very
313
% first @chapter.
314
\def\gettopheadingmarks{%
315
  \ifcase0\topmark\fi
316
  \ifx\thischapter\empty \ifcase0\firstmark\fi \fi
317
}
318
\def\getbottomheadingmarks{\ifcase1\botmark\fi}
319
\def\getcolormarks{\ifcase2\topmark\fi}
320
 
321
% Avoid "undefined control sequence" errors.
322
\def\lastchapterdefs{}
323
\def\lastsectiondefs{}
324
\def\prevchapterdefs{}
325
\def\prevsectiondefs{}
326
\def\lastcolordefs{}
327
 
328
% Main output routine.
329
\chardef\PAGE = 255
330
\output = {\onepageout{\pagecontents\PAGE}}
331
 
332
\newbox\headlinebox
333
\newbox\footlinebox
334
 
335
% \onepageout takes a vbox as an argument.  Note that \pagecontents
336
% does insertions, but you have to call it yourself.
337
\def\onepageout#1{%
338
  \ifcropmarks \hoffset=0pt \else \hoffset=\normaloffset \fi
339
  %
340
  \ifodd\pageno  \advance\hoffset by \bindingoffset
341
  \else \advance\hoffset by -\bindingoffset\fi
342
  %
343
  % Do this outside of the \shipout so @code etc. will be expanded in
344
  % the headline as they should be, not taken literally (outputting ''code).
345
  \ifodd\pageno \getoddheadingmarks \else \getevenheadingmarks \fi
346
  \setbox\headlinebox = \vbox{\let\hsize=\pagewidth \makeheadline}%
347
  \ifodd\pageno \getoddfootingmarks \else \getevenfootingmarks \fi
348
  \setbox\footlinebox = \vbox{\let\hsize=\pagewidth \makefootline}%
349
  %
350
  {%
351
    % Have to do this stuff outside the \shipout because we want it to
352
    % take effect in \write's, yet the group defined by the \vbox ends
353
    % before the \shipout runs.
354
    %
355
    \indexdummies         % don't expand commands in the output.
356
    \normalturnoffactive  % \ in index entries must not stay \, e.g., if
357
               % the page break happens to be in the middle of an example.
358
               % We don't want .vr (or whatever) entries like this:
359
               % \entry{{\tt \indexbackslash }acronym}{32}{\code {\acronym}}
360
               % "\acronym" won't work when it's read back in;
361
               % it needs to be
362
               % {\code {{\tt \backslashcurfont }acronym}
363
    \shipout\vbox{%
364
      % Do this early so pdf references go to the beginning of the page.
365
      \ifpdfmakepagedest \pdfdest name{\the\pageno} xyz\fi
366
      %
367
      \ifcropmarks \vbox to \outervsize\bgroup
368
        \hsize = \outerhsize
369
        \vskip-\topandbottommargin
370
        \vtop to0pt{%
371
          \line{\ewtop\hfil\ewtop}%
372
          \nointerlineskip
373
          \line{%
374
            \vbox{\moveleft\cornerthick\nstop}%
375
            \hfill
376
            \vbox{\moveright\cornerthick\nstop}%
377
          }%
378
          \vss}%
379
        \vskip\topandbottommargin
380
        \line\bgroup
381
          \hfil % center the page within the outer (page) hsize.
382
          \ifodd\pageno\hskip\bindingoffset\fi
383
          \vbox\bgroup
384
      \fi
385
      %
386
      \unvbox\headlinebox
387
      \pagebody{#1}%
388
      \ifdim\ht\footlinebox > 0pt
389
        % Only leave this space if the footline is nonempty.
390
        % (We lessened \vsize for it in \oddfootingyyy.)
391
        % The \baselineskip=24pt in plain's \makefootline has no effect.
392
        \vskip 24pt
393
        \unvbox\footlinebox
394
      \fi
395
      %
396
      \ifcropmarks
397
          \egroup % end of \vbox\bgroup
398
        \hfil\egroup % end of (centering) \line\bgroup
399
        \vskip\topandbottommargin plus1fill minus1fill
400
        \boxmaxdepth = \cornerthick
401
        \vbox to0pt{\vss
402
          \line{%
403
            \vbox{\moveleft\cornerthick\nsbot}%
404
            \hfill
405
            \vbox{\moveright\cornerthick\nsbot}%
406
          }%
407
          \nointerlineskip
408
          \line{\ewbot\hfil\ewbot}%
409
        }%
410
      \egroup % \vbox from first cropmarks clause
411
      \fi
412
    }% end of \shipout\vbox
413
  }% end of group with \indexdummies
414
  \advancepageno
415
  \ifnum\outputpenalty>-20000 \else\dosupereject\fi
416
}
417
 
418
\newinsert\margin \dimen\margin=\maxdimen
419
 
420
\def\pagebody#1{\vbox to\pageheight{\boxmaxdepth=\maxdepth #1}}
421
{\catcode`\@ =11
422
\gdef\pagecontents#1{\ifvoid\topins\else\unvbox\topins\fi
423
% marginal hacks, juha@viisa.uucp (Juha Takala)
424
\ifvoid\margin\else % marginal info is present
425
  \rlap{\kern\hsize\vbox to\z@{\kern1pt\box\margin \vss}}\fi
426
\dimen@=\dp#1\relax \unvbox#1\relax
427
\ifvoid\footins\else\vskip\skip\footins\footnoterule \unvbox\footins\fi
428
\ifr@ggedbottom \kern-\dimen@ \vfil \fi}
429
}
430
 
431
% Here are the rules for the cropmarks.  Note that they are
432
% offset so that the space between them is truly \outerhsize or \outervsize
433
% (P. A. MacKay, 12 November, 1986)
434
%
435
\def\ewtop{\vrule height\cornerthick depth0pt width\cornerlong}
436
\def\nstop{\vbox
437
  {\hrule height\cornerthick depth\cornerlong width\cornerthick}}
438
\def\ewbot{\vrule height0pt depth\cornerthick width\cornerlong}
439
\def\nsbot{\vbox
440
  {\hrule height\cornerlong depth\cornerthick width\cornerthick}}
441
 
442
% Parse an argument, then pass it to #1.  The argument is the rest of
443
% the input line (except we remove a trailing comment).  #1 should be a
444
% macro which expects an ordinary undelimited TeX argument.
445
%
446
\def\parsearg{\parseargusing{}}
447
\def\parseargusing#1#2{%
448
  \def\argtorun{#2}%
449
  \begingroup
450
    \obeylines
451
    \spaceisspace
452
    #1%
453
    \parseargline\empty% Insert the \empty token, see \finishparsearg below.
454
}
455
 
456
{\obeylines %
457
  \gdef\parseargline#1^^M{%
458
    \endgroup % End of the group started in \parsearg.
459
    \argremovecomment #1\comment\ArgTerm%
460
  }%
461
}
462
 
463
% First remove any @comment, then any @c comment.
464
\def\argremovecomment#1\comment#2\ArgTerm{\argremovec #1\c\ArgTerm}
465
\def\argremovec#1\c#2\ArgTerm{\argcheckspaces#1\^^M\ArgTerm}
466
 
467
% Each occurrence of `\^^M' or `<space>\^^M' is replaced by a single space.
468
%
469
% \argremovec might leave us with trailing space, e.g.,
470
%    @end itemize  @c foo
471
% This space token undergoes the same procedure and is eventually removed
472
% by \finishparsearg.
473
%
474
\def\argcheckspaces#1\^^M{\argcheckspacesX#1\^^M \^^M}
475
\def\argcheckspacesX#1 \^^M{\argcheckspacesY#1\^^M}
476
\def\argcheckspacesY#1\^^M#2\^^M#3\ArgTerm{%
477
  \def\temp{#3}%
478
  \ifx\temp\empty
479
    % Do not use \next, perhaps the caller of \parsearg uses it; reuse \temp:
480
    \let\temp\finishparsearg
481
  \else
482
    \let\temp\argcheckspaces
483
  \fi
484
  % Put the space token in:
485
  \temp#1 #3\ArgTerm
486
}
487
 
488
% If a _delimited_ argument is enclosed in braces, they get stripped; so
489
% to get _exactly_ the rest of the line, we had to prevent such situation.
490
% We prepended an \empty token at the very beginning and we expand it now,
491
% just before passing the control to \argtorun.
492
% (Similarly, we have to think about #3 of \argcheckspacesY above: it is
493
% either the null string, or it ends with \^^M---thus there is no danger
494
% that a pair of braces would be stripped.
495
%
496
% But first, we have to remove the trailing space token.
497
%
498
\def\finishparsearg#1 \ArgTerm{\expandafter\argtorun\expandafter{#1}}
499
 
500
% \parseargdef\foo{...}
501
%       is roughly equivalent to
502
% \def\foo{\parsearg\Xfoo}
503
% \def\Xfoo#1{...}
504
%
505
% Actually, I use \csname\string\foo\endcsname, ie. \\foo, as it is my
506
% favourite TeX trick.  --kasal, 16nov03
507
 
508
\def\parseargdef#1{%
509
  \expandafter \doparseargdef \csname\string#1\endcsname #1%
510
}
511
\def\doparseargdef#1#2{%
512
  \def#2{\parsearg#1}%
513
  \def#1##1%
514
}
515
 
516
% Several utility definitions with active space:
517
{
518
  \obeyspaces
519
  \gdef\obeyedspace{ }
520
 
521
  % Make each space character in the input produce a normal interword
522
  % space in the output.  Don't allow a line break at this space, as this
523
  % is used only in environments like @example, where each line of input
524
  % should produce a line of output anyway.
525
  %
526
  \gdef\sepspaces{\obeyspaces\let =\tie}
527
 
528
  % If an index command is used in an @example environment, any spaces
529
  % therein should become regular spaces in the raw index file, not the
530
  % expansion of \tie (\leavevmode \penalty \@M \ ).
531
  \gdef\unsepspaces{\let =\space}
532
}
533
 
534
 
535
\def\flushcr{\ifx\par\lisppar \def\next##1{}\else \let\next=\relax \fi \next}
536
 
537
% Define the framework for environments in texinfo.tex.  It's used like this:
538
%
539
%   \envdef\foo{...}
540
%   \def\Efoo{...}
541
%
542
% It's the responsibility of \envdef to insert \begingroup before the
543
% actual body; @end closes the group after calling \Efoo.  \envdef also
544
% defines \thisenv, so the current environment is known; @end checks
545
% whether the environment name matches.  The \checkenv macro can also be
546
% used to check whether the current environment is the one expected.
547
%
548
% Non-false conditionals (@iftex, @ifset) don't fit into this, so they
549
% are not treated as environments; they don't open a group.  (The
550
% implementation of @end takes care not to call \endgroup in this
551
% special case.)
552
 
553
 
554
% At run-time, environments start with this:
555
\def\startenvironment#1{\begingroup\def\thisenv{#1}}
556
% initialize
557
\let\thisenv\empty
558
 
559
% ... but they get defined via ``\envdef\foo{...}'':
560
\long\def\envdef#1#2{\def#1{\startenvironment#1#2}}
561
\def\envparseargdef#1#2{\parseargdef#1{\startenvironment#1#2}}
562
 
563
% Check whether we're in the right environment:
564
\def\checkenv#1{%
565
  \def\temp{#1}%
566
  \ifx\thisenv\temp
567
  \else
568
    \badenverr
569
  \fi
570
}
571
 
572
% Environment mismatch, #1 expected:
573
\def\badenverr{%
574
  \errhelp = \EMsimple
575
  \errmessage{This command can appear only \inenvironment\temp,
576
    not \inenvironment\thisenv}%
577
}
578
\def\inenvironment#1{%
579
  \ifx#1\empty
580
    out of any environment%
581
  \else
582
    in environment \expandafter\string#1%
583
  \fi
584
}
585
 
586
% @end foo executes the definition of \Efoo.
587
% But first, it executes a specialized version of \checkenv
588
%
589
\parseargdef\end{%
590
  \if 1\csname iscond.#1\endcsname
591
  \else
592
    % The general wording of \badenverr may not be ideal, but... --kasal, 06nov03
593
    \expandafter\checkenv\csname#1\endcsname
594
    \csname E#1\endcsname
595
    \endgroup
596
  \fi
597
}
598
 
599
\newhelp\EMsimple{Press RETURN to continue.}
600
 
601
 
602
%% Simple single-character @ commands
603
 
604
% @@ prints an @
605
% Kludge this until the fonts are right (grr).
606
\def\@{{\tt\char64}}
607
 
608
% This is turned off because it was never documented
609
% and you can use @w{...} around a quote to suppress ligatures.
610
%% Define @` and @' to be the same as ` and '
611
%% but suppressing ligatures.
612
%\def\`{{`}}
613
%\def\'{{'}}
614
 
615
% Used to generate quoted braces.
616
\def\mylbrace {{\tt\char123}}
617
\def\myrbrace {{\tt\char125}}
618
\let\{=\mylbrace
619
\let\}=\myrbrace
620
\begingroup
621
  % Definitions to produce \{ and \} commands for indices,
622
  % and @{ and @} for the aux/toc files.
623
  \catcode`\{ = \other \catcode`\} = \other
624
  \catcode`\[ = 1 \catcode`\] = 2
625
  \catcode`\! = 0 \catcode`\\ = \other
626
  !gdef!lbracecmd[\{]%
627
  !gdef!rbracecmd[\}]%
628
  !gdef!lbraceatcmd[@{]%
629
  !gdef!rbraceatcmd[@}]%
630
!endgroup
631
 
632
% @comma{} to avoid , parsing problems.
633
\let\comma = ,
634
 
635
% Accents: @, @dotaccent @ringaccent @ubaraccent @udotaccent
636
% Others are defined by plain TeX: @` @' @" @^ @~ @= @u @v @H.
637
\let\, = \c
638
\let\dotaccent = \.
639
\def\ringaccent#1{{\accent23 #1}}
640
\let\tieaccent = \t
641
\let\ubaraccent = \b
642
\let\udotaccent = \d
643
 
644
% Other special characters: @questiondown @exclamdown @ordf @ordm
645
% Plain TeX defines: @AA @AE @O @OE @L (plus lowercase versions) @ss.
646
\def\questiondown{?`}
647
\def\exclamdown{!`}
648
\def\ordf{\leavevmode\raise1ex\hbox{\selectfonts\lllsize \underbar{a}}}
649
\def\ordm{\leavevmode\raise1ex\hbox{\selectfonts\lllsize \underbar{o}}}
650
 
651
% Dotless i and dotless j, used for accents.
652
\def\imacro{i}
653
\def\jmacro{j}
654
\def\dotless#1{%
655
  \def\temp{#1}%
656
  \ifx\temp\imacro \ifmmode\imath \else\ptexi \fi
657
  \else\ifx\temp\jmacro \ifmmode\jmath \else\j \fi
658
  \else \errmessage{@dotless can be used only with i or j}%
659
  \fi\fi
660
}
661
 
662
% The \TeX{} logo, as in plain, but resetting the spacing so that a
663
% period following counts as ending a sentence.  (Idea found in latex.)
664
%
665
\edef\TeX{\TeX \spacefactor=1000 }
666
 
667
% @LaTeX{} logo.  Not quite the same results as the definition in
668
% latex.ltx, since we use a different font for the raised A; it's most
669
% convenient for us to use an explicitly smaller font, rather than using
670
% the \scriptstyle font (since we don't reset \scriptstyle and
671
% \scriptscriptstyle).
672
%
673
\def\LaTeX{%
674
  L\kern-.36em
675
  {\setbox0=\hbox{T}%
676
   \vbox to \ht0{\hbox{\selectfonts\lllsize A}\vss}}%
677
  \kern-.15em
678
  \TeX
679
}
680
 
681
% Be sure we're in horizontal mode when doing a tie, since we make space
682
% equivalent to this in @example-like environments. Otherwise, a space
683
% at the beginning of a line will start with \penalty -- and
684
% since \penalty is valid in vertical mode, we'd end up putting the
685
% penalty on the vertical list instead of in the new paragraph.
686
{\catcode`@ = 11
687
 % Avoid using \@M directly, because that causes trouble
688
 % if the definition is written into an index file.
689
 \global\let\tiepenalty = \@M
690
 \gdef\tie{\leavevmode\penalty\tiepenalty\ }
691
}
692
 
693
% @: forces normal size whitespace following.
694
\def\:{\spacefactor=1000 }
695
 
696
% @* forces a line break.
697
\def\*{\hfil\break\hbox{}\ignorespaces}
698
 
699
% @/ allows a line break.
700
\let\/=\allowbreak
701
 
702
% @. is an end-of-sentence period.
703
\def\.{.\spacefactor=\endofsentencespacefactor\space}
704
 
705
% @! is an end-of-sentence bang.
706
\def\!{!\spacefactor=\endofsentencespacefactor\space}
707
 
708
% @? is an end-of-sentence query.
709
\def\?{?\spacefactor=\endofsentencespacefactor\space}
710
 
711
% @frenchspacing on|off  says whether to put extra space after punctuation.
712
%
713
\def\onword{on}
714
\def\offword{off}
715
%
716
\parseargdef\frenchspacing{%
717
  \def\temp{#1}%
718
  \ifx\temp\onword \plainfrenchspacing
719
  \else\ifx\temp\offword \plainnonfrenchspacing
720
  \else
721
    \errhelp = \EMsimple
722
    \errmessage{Unknown @frenchspacing option `\temp', must be on/off}%
723
  \fi\fi
724
}
725
 
726
% @w prevents a word break.  Without the \leavevmode, @w at the
727
% beginning of a paragraph, when TeX is still in vertical mode, would
728
% produce a whole line of output instead of starting the paragraph.
729
\def\w#1{\leavevmode\hbox{#1}}
730
 
731
% @group ... @end group forces ... to be all on one page, by enclosing
732
% it in a TeX vbox.  We use \vtop instead of \vbox to construct the box
733
% to keep its height that of a normal line.  According to the rules for
734
% \topskip (p.114 of the TeXbook), the glue inserted is
735
% max (\topskip - \ht (first item), 0).  If that height is large,
736
% therefore, no glue is inserted, and the space between the headline and
737
% the text is small, which looks bad.
738
%
739
% Another complication is that the group might be very large.  This can
740
% cause the glue on the previous page to be unduly stretched, because it
741
% does not have much material.  In this case, it's better to add an
742
% explicit \vfill so that the extra space is at the bottom.  The
743
% threshold for doing this is if the group is more than \vfilllimit
744
% percent of a page (\vfilllimit can be changed inside of @tex).
745
%
746
\newbox\groupbox
747
\def\vfilllimit{0.7}
748
%
749
\envdef\group{%
750
  \ifnum\catcode`\^^M=\active \else
751
    \errhelp = \groupinvalidhelp
752
    \errmessage{@group invalid in context where filling is enabled}%
753
  \fi
754
  \startsavinginserts
755
  %
756
  \setbox\groupbox = \vtop\bgroup
757
    % Do @comment since we are called inside an environment such as
758
    % @example, where each end-of-line in the input causes an
759
    % end-of-line in the output.  We don't want the end-of-line after
760
    % the `@group' to put extra space in the output.  Since @group
761
    % should appear on a line by itself (according to the Texinfo
762
    % manual), we don't worry about eating any user text.
763
    \comment
764
}
765
%
766
% The \vtop produces a box with normal height and large depth; thus, TeX puts
767
% \baselineskip glue before it, and (when the next line of text is done)
768
% \lineskip glue after it.  Thus, space below is not quite equal to space
769
% above.  But it's pretty close.
770
\def\Egroup{%
771
    % To get correct interline space between the last line of the group
772
    % and the first line afterwards, we have to propagate \prevdepth.
773
    \endgraf % Not \par, as it may have been set to \lisppar.
774
    \global\dimen1 = \prevdepth
775
  \egroup           % End the \vtop.
776
  % \dimen0 is the vertical size of the group's box.
777
  \dimen0 = \ht\groupbox  \advance\dimen0 by \dp\groupbox
778
  % \dimen2 is how much space is left on the page (more or less).
779
  \dimen2 = \pageheight   \advance\dimen2 by -\pagetotal
780
  % if the group doesn't fit on the current page, and it's a big big
781
  % group, force a page break.
782
  \ifdim \dimen0 > \dimen2
783
    \ifdim \pagetotal < \vfilllimit\pageheight
784
      \page
785
    \fi
786
  \fi
787
  \box\groupbox
788
  \prevdepth = \dimen1
789
  \checkinserts
790
}
791
%
792
% TeX puts in an \escapechar (i.e., `@') at the beginning of the help
793
% message, so this ends up printing `@group can only ...'.
794
%
795
\newhelp\groupinvalidhelp{%
796
group can only be used in environments such as @example,^^J%
797
where each line of input produces a line of output.}
798
 
799
% @need space-in-mils
800
% forces a page break if there is not space-in-mils remaining.
801
 
802
\newdimen\mil  \mil=0.001in
803
 
804
% Old definition--didn't work.
805
%\parseargdef\need{\par %
806
%% This method tries to make TeX break the page naturally
807
%% if the depth of the box does not fit.
808
%{\baselineskip=0pt%
809
%\vtop to #1\mil{\vfil}\kern -#1\mil\nobreak
810
%\prevdepth=-1000pt
811
%}}
812
 
813
\parseargdef\need{%
814
  % Ensure vertical mode, so we don't make a big box in the middle of a
815
  % paragraph.
816
  \par
817
  %
818
  % If the @need value is less than one line space, it's useless.
819
  \dimen0 = #1\mil
820
  \dimen2 = \ht\strutbox
821
  \advance\dimen2 by \dp\strutbox
822
  \ifdim\dimen0 > \dimen2
823
    %
824
    % Do a \strut just to make the height of this box be normal, so the
825
    % normal leading is inserted relative to the preceding line.
826
    % And a page break here is fine.
827
    \vtop to #1\mil{\strut\vfil}%
828
    %
829
    % TeX does not even consider page breaks if a penalty added to the
830
    % main vertical list is 10000 or more.  But in order to see if the
831
    % empty box we just added fits on the page, we must make it consider
832
    % page breaks.  On the other hand, we don't want to actually break the
833
    % page after the empty box.  So we use a penalty of 9999.
834
    %
835
    % There is an extremely small chance that TeX will actually break the
836
    % page at this \penalty, if there are no other feasible breakpoints in
837
    % sight.  (If the user is using lots of big @group commands, which
838
    % almost-but-not-quite fill up a page, TeX will have a hard time doing
839
    % good page breaking, for example.)  However, I could not construct an
840
    % example where a page broke at this \penalty; if it happens in a real
841
    % document, then we can reconsider our strategy.
842
    \penalty9999
843
    %
844
    % Back up by the size of the box, whether we did a page break or not.
845
    \kern -#1\mil
846
    %
847
    % Do not allow a page break right after this kern.
848
    \nobreak
849
  \fi
850
}
851
 
852
% @br   forces paragraph break (and is undocumented).
853
 
854
\let\br = \par
855
 
856
% @page forces the start of a new page.
857
%
858
\def\page{\par\vfill\supereject}
859
 
860
% @exdent text....
861
% outputs text on separate line in roman font, starting at standard page margin
862
 
863
% This records the amount of indent in the innermost environment.
864
% That's how much \exdent should take out.
865
\newskip\exdentamount
866
 
867
% This defn is used inside fill environments such as @defun.
868
\parseargdef\exdent{\hfil\break\hbox{\kern -\exdentamount{\rm#1}}\hfil\break}
869
 
870
% This defn is used inside nofill environments such as @example.
871
\parseargdef\nofillexdent{{\advance \leftskip by -\exdentamount
872
  \leftline{\hskip\leftskip{\rm#1}}}}
873
 
874
% @inmargin{WHICH}{TEXT} puts TEXT in the WHICH margin next to the current
875
% paragraph.  For more general purposes, use the \margin insertion
876
% class.  WHICH is `l' or `r'.
877
%
878
\newskip\inmarginspacing \inmarginspacing=1cm
879
\def\strutdepth{\dp\strutbox}
880
%
881
\def\doinmargin#1#2{\strut\vadjust{%
882
  \nobreak
883
  \kern-\strutdepth
884
  \vtop to \strutdepth{%
885
    \baselineskip=\strutdepth
886
    \vss
887
    % if you have multiple lines of stuff to put here, you'll need to
888
    % make the vbox yourself of the appropriate size.
889
    \ifx#1l%
890
      \llap{\ignorespaces #2\hskip\inmarginspacing}%
891
    \else
892
      \rlap{\hskip\hsize \hskip\inmarginspacing \ignorespaces #2}%
893
    \fi
894
    \null
895
  }%
896
}}
897
\def\inleftmargin{\doinmargin l}
898
\def\inrightmargin{\doinmargin r}
899
%
900
% @inmargin{TEXT [, RIGHT-TEXT]}
901
% (if RIGHT-TEXT is given, use TEXT for left page, RIGHT-TEXT for right;
902
% else use TEXT for both).
903
%
904
\def\inmargin#1{\parseinmargin #1,,\finish}
905
\def\parseinmargin#1,#2,#3\finish{% not perfect, but better than nothing.
906
  \setbox0 = \hbox{\ignorespaces #2}%
907
  \ifdim\wd0 > 0pt
908
    \def\lefttext{#1}%  have both texts
909
    \def\righttext{#2}%
910
  \else
911
    \def\lefttext{#1}%  have only one text
912
    \def\righttext{#1}%
913
  \fi
914
  %
915
  \ifodd\pageno
916
    \def\temp{\inrightmargin\righttext}% odd page -> outside is right margin
917
  \else
918
    \def\temp{\inleftmargin\lefttext}%
919
  \fi
920
  \temp
921
}
922
 
923
% @include FILE -- \input text of FILE.
924
%
925
\def\include{\parseargusing\filenamecatcodes\includezzz}
926
\def\includezzz#1{%
927
  \pushthisfilestack
928
  \def\thisfile{#1}%
929
  {%
930
    \makevalueexpandable  % we want to expand any @value in FILE.
931
    \turnoffactive        % and allow special characters in the expansion
932
    \indexnofonts         % Allow `@@' and other weird things in file names.
933
    \edef\temp{\noexpand\input #1 }%
934
    %
935
    % This trickery is to read FILE outside of a group, in case it makes
936
    % definitions, etc.
937
    \expandafter
938
  }\temp
939
  \popthisfilestack
940
}
941
\def\filenamecatcodes{%
942
  \catcode`\\=\other
943
  \catcode`~=\other
944
  \catcode`^=\other
945
  \catcode`_=\other
946
  \catcode`|=\other
947
  \catcode`<=\other
948
  \catcode`>=\other
949
  \catcode`+=\other
950
  \catcode`-=\other
951
  \catcode`\`=\other
952
  \catcode`\'=\other
953
}
954
 
955
\def\pushthisfilestack{%
956
  \expandafter\pushthisfilestackX\popthisfilestack\StackTerm
957
}
958
\def\pushthisfilestackX{%
959
  \expandafter\pushthisfilestackY\thisfile\StackTerm
960
}
961
\def\pushthisfilestackY #1\StackTerm #2\StackTerm {%
962
  \gdef\popthisfilestack{\gdef\thisfile{#1}\gdef\popthisfilestack{#2}}%
963
}
964
 
965
\def\popthisfilestack{\errthisfilestackempty}
966
\def\errthisfilestackempty{\errmessage{Internal error:
967
  the stack of filenames is empty.}}
968
 
969
\def\thisfile{}
970
 
971
% @center line
972
% outputs that line, centered.
973
%
974
\parseargdef\center{%
975
  \ifhmode
976
    \let\next\centerH
977
  \else
978
    \let\next\centerV
979
  \fi
980
  \next{\hfil \ignorespaces#1\unskip \hfil}%
981
}
982
\def\centerH#1{%
983
  {%
984
    \hfil\break
985
    \advance\hsize by -\leftskip
986
    \advance\hsize by -\rightskip
987
    \line{#1}%
988
    \break
989
  }%
990
}
991
\def\centerV#1{\line{\kern\leftskip #1\kern\rightskip}}
992
 
993
% @sp n   outputs n lines of vertical space
994
 
995
\parseargdef\sp{\vskip #1\baselineskip}
996
 
997
% @comment ...line which is ignored...
998
% @c is the same as @comment
999
% @ignore ... @end ignore  is another way to write a comment
1000
 
1001
\def\comment{\begingroup \catcode`\^^M=\other%
1002
\catcode`\@=\other \catcode`\{=\other \catcode`\}=\other%
1003
\commentxxx}
1004
{\catcode`\^^M=\other \gdef\commentxxx#1^^M{\endgroup}}
1005
 
1006
\let\c=\comment
1007
 
1008
% @paragraphindent NCHARS
1009
% We'll use ems for NCHARS, close enough.
1010
% NCHARS can also be the word `asis' or `none'.
1011
% We cannot feasibly implement @paragraphindent asis, though.
1012
%
1013
\def\asisword{asis} % no translation, these are keywords
1014
\def\noneword{none}
1015
%
1016
\parseargdef\paragraphindent{%
1017
  \def\temp{#1}%
1018
  \ifx\temp\asisword
1019
  \else
1020
    \ifx\temp\noneword
1021
      \defaultparindent = 0pt
1022
    \else
1023
      \defaultparindent = #1em
1024
    \fi
1025
  \fi
1026
  \parindent = \defaultparindent
1027
}
1028
 
1029
% @exampleindent NCHARS
1030
% We'll use ems for NCHARS like @paragraphindent.
1031
% It seems @exampleindent asis isn't necessary, but
1032
% I preserve it to make it similar to @paragraphindent.
1033
\parseargdef\exampleindent{%
1034
  \def\temp{#1}%
1035
  \ifx\temp\asisword
1036
  \else
1037
    \ifx\temp\noneword
1038
      \lispnarrowing = 0pt
1039
    \else
1040
      \lispnarrowing = #1em
1041
    \fi
1042
  \fi
1043
}
1044
 
1045
% @firstparagraphindent WORD
1046
% If WORD is `none', then suppress indentation of the first paragraph
1047
% after a section heading.  If WORD is `insert', then do indent at such
1048
% paragraphs.
1049
%
1050
% The paragraph indentation is suppressed or not by calling
1051
% \suppressfirstparagraphindent, which the sectioning commands do.
1052
% We switch the definition of this back and forth according to WORD.
1053
% By default, we suppress indentation.
1054
%
1055
\def\suppressfirstparagraphindent{\dosuppressfirstparagraphindent}
1056
\def\insertword{insert}
1057
%
1058
\parseargdef\firstparagraphindent{%
1059
  \def\temp{#1}%
1060
  \ifx\temp\noneword
1061
    \let\suppressfirstparagraphindent = \dosuppressfirstparagraphindent
1062
  \else\ifx\temp\insertword
1063
    \let\suppressfirstparagraphindent = \relax
1064
  \else
1065
    \errhelp = \EMsimple
1066
    \errmessage{Unknown @firstparagraphindent option `\temp'}%
1067
  \fi\fi
1068
}
1069
 
1070
% Here is how we actually suppress indentation.  Redefine \everypar to
1071
% \kern backwards by \parindent, and then reset itself to empty.
1072
%
1073
% We also make \indent itself not actually do anything until the next
1074
% paragraph.
1075
%
1076
\gdef\dosuppressfirstparagraphindent{%
1077
  \gdef\indent{%
1078
    \restorefirstparagraphindent
1079
    \indent
1080
  }%
1081
  \gdef\noindent{%
1082
    \restorefirstparagraphindent
1083
    \noindent
1084
  }%
1085
  \global\everypar = {%
1086
    \kern -\parindent
1087
    \restorefirstparagraphindent
1088
  }%
1089
}
1090
 
1091
\gdef\restorefirstparagraphindent{%
1092
  \global \let \indent = \ptexindent
1093
  \global \let \noindent = \ptexnoindent
1094
  \global \everypar = {}%
1095
}
1096
 
1097
 
1098
% @asis just yields its argument.  Used with @table, for example.
1099
%
1100
\def\asis#1{#1}
1101
 
1102
% @math outputs its argument in math mode.
1103
%
1104
% One complication: _ usually means subscripts, but it could also mean
1105
% an actual _ character, as in @math{@var{some_variable} + 1}.  So make
1106
% _ active, and distinguish by seeing if the current family is \slfam,
1107
% which is what @var uses.
1108
{
1109
  \catcode`\_ = \active
1110
  \gdef\mathunderscore{%
1111
    \catcode`\_=\active
1112
    \def_{\ifnum\fam=\slfam \_\else\sb\fi}%
1113
  }
1114
}
1115
% Another complication: we want \\ (and @\) to output a \ character.
1116
% FYI, plain.tex uses \\ as a temporary control sequence (why?), but
1117
% this is not advertised and we don't care.  Texinfo does not
1118
% otherwise define @\.
1119
%
1120
% The \mathchar is class=0=ordinary, family=7=ttfam, position=5C=\.
1121
\def\mathbackslash{\ifnum\fam=\ttfam \mathchar"075C \else\backslash \fi}
1122
%
1123
\def\math{%
1124
  \tex
1125
  \mathunderscore
1126
  \let\\ = \mathbackslash
1127
  \mathactive
1128
  % make the texinfo accent commands work in math mode
1129
  \let\"=\ddot
1130
  \let\'=\acute
1131
  \let\==\bar
1132
  \let\^=\hat
1133
  \let\`=\grave
1134
  \let\u=\breve
1135
  \let\v=\check
1136
  \let\~=\tilde
1137
  \let\dotaccent=\dot
1138
  $\finishmath
1139
}
1140
\def\finishmath#1{#1$\endgroup}  % Close the group opened by \tex.
1141
 
1142
% Some active characters (such as <) are spaced differently in math.
1143
% We have to reset their definitions in case the @math was an argument
1144
% to a command which sets the catcodes (such as @item or @section).
1145
%
1146
{
1147
  \catcode`^ = \active
1148
  \catcode`< = \active
1149
  \catcode`> = \active
1150
  \catcode`+ = \active
1151
  \catcode`' = \active
1152
  \gdef\mathactive{%
1153
    \let^ = \ptexhat
1154
    \let< = \ptexless
1155
    \let> = \ptexgtr
1156
    \let+ = \ptexplus
1157
    \let' = \ptexquoteright
1158
  }
1159
}
1160
 
1161
% Some math mode symbols.
1162
\def\bullet{$\ptexbullet$}
1163
\def\geq{\ifmmode \ge\else $\ge$\fi}
1164
\def\leq{\ifmmode \le\else $\le$\fi}
1165
\def\minus{\ifmmode -\else $-$\fi}
1166
 
1167
% @dots{} outputs an ellipsis using the current font.
1168
% We do .5em per period so that it has the same spacing in the cm
1169
% typewriter fonts as three actual period characters; on the other hand,
1170
% in other typewriter fonts three periods are wider than 1.5em.  So do
1171
% whichever is larger.
1172
%
1173
\def\dots{%
1174
  \leavevmode
1175
  \setbox0=\hbox{...}% get width of three periods
1176
  \ifdim\wd0 > 1.5em
1177
    \dimen0 = \wd0
1178
  \else
1179
    \dimen0 = 1.5em
1180
  \fi
1181
  \hbox to \dimen0{%
1182
    \hskip 0pt plus.25fil
1183
    .\hskip 0pt plus1fil
1184
    .\hskip 0pt plus1fil
1185
    .\hskip 0pt plus.5fil
1186
  }%
1187
}
1188
 
1189
% @enddots{} is an end-of-sentence ellipsis.
1190
%
1191
\def\enddots{%
1192
  \dots
1193
  \spacefactor=\endofsentencespacefactor
1194
}
1195
 
1196
% @comma{} is so commas can be inserted into text without messing up
1197
% Texinfo's parsing.
1198
%
1199
\let\comma = ,
1200
 
1201
% @refill is a no-op.
1202
\let\refill=\relax
1203
 
1204
% If working on a large document in chapters, it is convenient to
1205
% be able to disable indexing, cross-referencing, and contents, for test runs.
1206
% This is done with @novalidate (before @setfilename).
1207
%
1208
\newif\iflinks \linkstrue % by default we want the aux files.
1209
\let\novalidate = \linksfalse
1210
 
1211
% @setfilename is done at the beginning of every texinfo file.
1212
% So open here the files we need to have open while reading the input.
1213
% This makes it possible to make a .fmt file for texinfo.
1214
\def\setfilename{%
1215
   \fixbackslash  % Turn off hack to swallow `\input texinfo'.
1216
   \iflinks
1217
     \tryauxfile
1218
     % Open the new aux file.  TeX will close it automatically at exit.
1219
     \immediate\openout\auxfile=\jobname.aux
1220
   \fi % \openindices needs to do some work in any case.
1221
   \openindices
1222
   \let\setfilename=\comment % Ignore extra @setfilename cmds.
1223
   %
1224
   % If texinfo.cnf is present on the system, read it.
1225
   % Useful for site-wide @afourpaper, etc.
1226
   \openin 1 texinfo.cnf
1227
   \ifeof 1 \else \input texinfo.cnf \fi
1228
   \closein 1
1229
   %
1230
   \comment % Ignore the actual filename.
1231
}
1232
 
1233
% Called from \setfilename.
1234
%
1235
\def\openindices{%
1236
  \newindex{cp}%
1237
  \newcodeindex{fn}%
1238
  \newcodeindex{vr}%
1239
  \newcodeindex{tp}%
1240
  \newcodeindex{ky}%
1241
  \newcodeindex{pg}%
1242
}
1243
 
1244
% @bye.
1245
\outer\def\bye{\pagealignmacro\tracingstats=1\ptexend}
1246
 
1247
 
1248
\message{pdf,}
1249
% adobe `portable' document format
1250
\newcount\tempnum
1251
\newcount\lnkcount
1252
\newtoks\filename
1253
\newcount\filenamelength
1254
\newcount\pgn
1255
\newtoks\toksA
1256
\newtoks\toksB
1257
\newtoks\toksC
1258
\newtoks\toksD
1259
\newbox\boxA
1260
\newcount\countA
1261
\newif\ifpdf
1262
\newif\ifpdfmakepagedest
1263
 
1264
% when pdftex is run in dvi mode, \pdfoutput is defined (so \pdfoutput=1
1265
% can be set).  So we test for \relax and 0 as well as \undefined,
1266
% borrowed from ifpdf.sty.
1267
\ifx\pdfoutput\undefined
1268
\else
1269
  \ifx\pdfoutput\relax
1270
  \else
1271
    \ifcase\pdfoutput
1272
    \else
1273
      \pdftrue
1274
    \fi
1275
  \fi
1276
\fi
1277
 
1278
% PDF uses PostScript string constants for the names of xref targets,
1279
% for display in the outlines, and in other places.  Thus, we have to
1280
% double any backslashes.  Otherwise, a name like "\node" will be
1281
% interpreted as a newline (\n), followed by o, d, e.  Not good.
1282
% http://www.ntg.nl/pipermail/ntg-pdftex/2004-July/000654.html
1283
% (and related messages, the final outcome is that it is up to the TeX
1284
% user to double the backslashes and otherwise make the string valid, so
1285
% that's what we do).
1286
 
1287
% double active backslashes.
1288
%
1289
{\catcode`\@=0 \catcode`\\=\active
1290
 @gdef@activebackslashdouble{%
1291
   @catcode`@\=@active
1292
   @let\=@doublebackslash}
1293
}
1294
 
1295
% To handle parens, we must adopt a different approach, since parens are
1296
% not active characters.  hyperref.dtx (which has the same problem as
1297
% us) handles it with this amazing macro to replace tokens, with minor
1298
% changes for Texinfo.  It is included here under the GPL by permission
1299
% from the author, Heiko Oberdiek.
1300
%
1301
% #1 is the tokens to replace.
1302
% #2 is the replacement.
1303
% #3 is the control sequence with the string.
1304
%
1305
\def\HyPsdSubst#1#2#3{%
1306
  \def\HyPsdReplace##1#1##2\END{%
1307
    ##1%
1308
    \ifx\\##2\\%
1309
    \else
1310
      #2%
1311
      \HyReturnAfterFi{%
1312
        \HyPsdReplace##2\END
1313
      }%
1314
    \fi
1315
  }%
1316
  \xdef#3{\expandafter\HyPsdReplace#3#1\END}%
1317
}
1318
\long\def\HyReturnAfterFi#1\fi{\fi#1}
1319
 
1320
% #1 is a control sequence in which to do the replacements.
1321
\def\backslashparens#1{%
1322
  \xdef#1{#1}% redefine it as its expansion; the definition is simply
1323
             % \lastnode when called from \setref -> \pdfmkdest.
1324
  \HyPsdSubst{(}{\realbackslash(}{#1}%
1325
  \HyPsdSubst{)}{\realbackslash)}{#1}%
1326
}
1327
 
1328
\newhelp\nopdfimagehelp{Texinfo supports .png, .jpg, .jpeg, and .pdf images
1329
with PDF output, and none of those formats could be found.  (.eps cannot
1330
be supported due to the design of the PDF format; use regular TeX (DVI
1331
output) for that.)}
1332
 
1333
\ifpdf
1334
  %
1335
  % Color manipulation macros based on pdfcolor.tex.
1336
  \def\cmykDarkRed{0.28 1 1 0.35}
1337
  \def\cmykBlack{0 0 0 1}
1338
  %
1339
  % k sets the color for filling (usual text, etc.);
1340
  % K sets the color for stroking (thin rules, e.g., normal _'s).
1341
  \def\pdfsetcolor#1{\pdfliteral{#1 k  #1 K}}
1342
  %
1343
  % Set color, and create a mark which defines \thiscolor accordingly,
1344
  % so that \makeheadline knows which color to restore.
1345
  \def\setcolor#1{%
1346
    \xdef\lastcolordefs{\gdef\noexpand\thiscolor{#1}}%
1347
    \domark
1348
    \pdfsetcolor{#1}%
1349
  }
1350
  %
1351
  \def\maincolor{\cmykBlack}
1352
  \pdfsetcolor{\maincolor}
1353
  \edef\thiscolor{\maincolor}
1354
  \def\lastcolordefs{}
1355
  %
1356
  \def\makefootline{%
1357
    \baselineskip24pt
1358
    \line{\pdfsetcolor{\maincolor}\the\footline}%
1359
  }
1360
  %
1361
  \def\makeheadline{%
1362
    \vbox to 0pt{%
1363
      \vskip-22.5pt
1364
      \line{%
1365
        \vbox to8.5pt{}%
1366
        % Extract \thiscolor definition from the marks.
1367
        \getcolormarks
1368
        % Typeset the headline with \maincolor, then restore the color.
1369
        \pdfsetcolor{\maincolor}\the\headline\pdfsetcolor{\thiscolor}%
1370
      }%
1371
      \vss
1372
    }%
1373
    \nointerlineskip
1374
  }
1375
  %
1376
  %
1377
  \pdfcatalog{/PageMode /UseOutlines}
1378
  %
1379
  % #1 is image name, #2 width (might be empty/whitespace), #3 height (ditto).
1380
  \def\dopdfimage#1#2#3{%
1381
    \def\imagewidth{#2}\setbox0 = \hbox{\ignorespaces #2}%
1382
    \def\imageheight{#3}\setbox2 = \hbox{\ignorespaces #3}%
1383
    %
1384
    % pdftex (and the PDF format) support .png, .jpg, .pdf (among
1385
    % others).  Let's try in that order.
1386
    \let\pdfimgext=\empty
1387
    \begingroup
1388
      \openin 1 #1.png \ifeof 1
1389
        \openin 1 #1.jpg \ifeof 1
1390
          \openin 1 #1.jpeg \ifeof 1
1391
            \openin 1 #1.JPG \ifeof 1
1392
              \openin 1 #1.pdf \ifeof 1
1393
                \openin 1 #1.PDF \ifeof 1
1394
                  \errhelp = \nopdfimagehelp
1395
                  \errmessage{Could not find image file #1 for pdf}%
1396
                \else \gdef\pdfimgext{PDF}%
1397
                \fi
1398
              \else \gdef\pdfimgext{pdf}%
1399
              \fi
1400
            \else \gdef\pdfimgext{JPG}%
1401
            \fi
1402
          \else \gdef\pdfimgext{jpeg}%
1403
          \fi
1404
        \else \gdef\pdfimgext{jpg}%
1405
        \fi
1406
      \else \gdef\pdfimgext{png}%
1407
      \fi
1408
      \closein 1
1409
    \endgroup
1410
    %
1411
    % without \immediate, ancient pdftex seg faults when the same image is
1412
    % included twice.  (Version 3.14159-pre-1.0-unofficial-20010704.)
1413
    \ifnum\pdftexversion < 14
1414
      \immediate\pdfimage
1415
    \else
1416
      \immediate\pdfximage
1417
    \fi
1418
      \ifdim \wd0 >0pt width \imagewidth \fi
1419
      \ifdim \wd2 >0pt height \imageheight \fi
1420
      \ifnum\pdftexversion<13
1421
         #1.\pdfimgext
1422
       \else
1423
         {#1.\pdfimgext}%
1424
       \fi
1425
    \ifnum\pdftexversion < 14 \else
1426
      \pdfrefximage \pdflastximage
1427
    \fi}
1428
  %
1429
  \def\pdfmkdest#1{{%
1430
    % We have to set dummies so commands such as @code, and characters
1431
    % such as \, aren't expanded when present in a section title.
1432
    \indexnofonts
1433
    \turnoffactive
1434
    \activebackslashdouble
1435
    \makevalueexpandable
1436
    \def\pdfdestname{#1}%
1437
    \backslashparens\pdfdestname
1438
    \safewhatsit{\pdfdest name{\pdfdestname} xyz}%
1439
  }}
1440
  %
1441
  % used to mark target names; must be expandable.
1442
  \def\pdfmkpgn#1{#1}
1443
  %
1444
  % by default, use a color that is dark enough to print on paper as
1445
  % nearly black, but still distinguishable for online viewing.
1446
  \def\urlcolor{\cmykDarkRed}
1447
  \def\linkcolor{\cmykDarkRed}
1448
  \def\endlink{\setcolor{\maincolor}\pdfendlink}
1449
  %
1450
  % Adding outlines to PDF; macros for calculating structure of outlines
1451
  % come from Petr Olsak
1452
  \def\expnumber#1{\expandafter\ifx\csname#1\endcsname\relax 0%
1453
    \else \csname#1\endcsname \fi}
1454
  \def\advancenumber#1{\tempnum=\expnumber{#1}\relax
1455
    \advance\tempnum by 1
1456
    \expandafter\xdef\csname#1\endcsname{\the\tempnum}}
1457
  %
1458
  % #1 is the section text, which is what will be displayed in the
1459
  % outline by the pdf viewer.  #2 is the pdf expression for the number
1460
  % of subentries (or empty, for subsubsections).  #3 is the node text,
1461
  % which might be empty if this toc entry had no corresponding node.
1462
  % #4 is the page number
1463
  %
1464
  \def\dopdfoutline#1#2#3#4{%
1465
    % Generate a link to the node text if that exists; else, use the
1466
    % page number.  We could generate a destination for the section
1467
    % text in the case where a section has no node, but it doesn't
1468
    % seem worth the trouble, since most documents are normally structured.
1469
    \def\pdfoutlinedest{#3}%
1470
    \ifx\pdfoutlinedest\empty
1471
      \def\pdfoutlinedest{#4}%
1472
    \else
1473
      % Doubled backslashes in the name.
1474
      {\activebackslashdouble \xdef\pdfoutlinedest{#3}%
1475
       \backslashparens\pdfoutlinedest}%
1476
    \fi
1477
    %
1478
    % Also double the backslashes in the display string.
1479
    {\activebackslashdouble \xdef\pdfoutlinetext{#1}%
1480
     \backslashparens\pdfoutlinetext}%
1481
    %
1482
    \pdfoutline goto name{\pdfmkpgn{\pdfoutlinedest}}#2{\pdfoutlinetext}%
1483
  }
1484
  %
1485
  \def\pdfmakeoutlines{%
1486
    \begingroup
1487
      % Thanh's hack / proper braces in bookmarks
1488
      \edef\mylbrace{\iftrue \string{\else}\fi}\let\{=\mylbrace
1489
      \edef\myrbrace{\iffalse{\else\string}\fi}\let\}=\myrbrace
1490
      %
1491
      % Read toc silently, to get counts of subentries for \pdfoutline.
1492
      \def\numchapentry##1##2##3##4{%
1493
        \def\thischapnum{##2}%
1494
        \def\thissecnum{0}%
1495
        \def\thissubsecnum{0}%
1496
      }%
1497
      \def\numsecentry##1##2##3##4{%
1498
        \advancenumber{chap\thischapnum}%
1499
        \def\thissecnum{##2}%
1500
        \def\thissubsecnum{0}%
1501
      }%
1502
      \def\numsubsecentry##1##2##3##4{%
1503
        \advancenumber{sec\thissecnum}%
1504
        \def\thissubsecnum{##2}%
1505
      }%
1506
      \def\numsubsubsecentry##1##2##3##4{%
1507
        \advancenumber{subsec\thissubsecnum}%
1508
      }%
1509
      \def\thischapnum{0}%
1510
      \def\thissecnum{0}%
1511
      \def\thissubsecnum{0}%
1512
      %
1513
      % use \def rather than \let here because we redefine \chapentry et
1514
      % al. a second time, below.
1515
      \def\appentry{\numchapentry}%
1516
      \def\appsecentry{\numsecentry}%
1517
      \def\appsubsecentry{\numsubsecentry}%
1518
      \def\appsubsubsecentry{\numsubsubsecentry}%
1519
      \def\unnchapentry{\numchapentry}%
1520
      \def\unnsecentry{\numsecentry}%
1521
      \def\unnsubsecentry{\numsubsecentry}%
1522
      \def\unnsubsubsecentry{\numsubsubsecentry}%
1523
      \readdatafile{toc}%
1524
      %
1525
      % Read toc second time, this time actually producing the outlines.
1526
      % The `-' means take the \expnumber as the absolute number of
1527
      % subentries, which we calculated on our first read of the .toc above.
1528
      %
1529
      % We use the node names as the destinations.
1530
      \def\numchapentry##1##2##3##4{%
1531
        \dopdfoutline{##1}{count-\expnumber{chap##2}}{##3}{##4}}%
1532
      \def\numsecentry##1##2##3##4{%
1533
        \dopdfoutline{##1}{count-\expnumber{sec##2}}{##3}{##4}}%
1534
      \def\numsubsecentry##1##2##3##4{%
1535
        \dopdfoutline{##1}{count-\expnumber{subsec##2}}{##3}{##4}}%
1536
      \def\numsubsubsecentry##1##2##3##4{% count is always zero
1537
        \dopdfoutline{##1}{}{##3}{##4}}%
1538
      %
1539
      % PDF outlines are displayed using system fonts, instead of
1540
      % document fonts.  Therefore we cannot use special characters,
1541
      % since the encoding is unknown.  For example, the eogonek from
1542
      % Latin 2 (0xea) gets translated to a | character.  Info from
1543
      % Staszek Wawrykiewicz, 19 Jan 2004 04:09:24 +0100.
1544
      %
1545
      % xx to do this right, we have to translate 8-bit characters to
1546
      % their "best" equivalent, based on the @documentencoding.  Right
1547
      % now, I guess we'll just let the pdf reader have its way.
1548
      \indexnofonts
1549
      \setupdatafile
1550
      \catcode`\\=\active \otherbackslash
1551
      \input \tocreadfilename
1552
    \endgroup
1553
  }
1554
  %
1555
  \def\skipspaces#1{\def\PP{#1}\def\D{|}%
1556
    \ifx\PP\D\let\nextsp\relax
1557
    \else\let\nextsp\skipspaces
1558
      \ifx\p\space\else\addtokens{\filename}{\PP}%
1559
        \advance\filenamelength by 1
1560
      \fi
1561
    \fi
1562
    \nextsp}
1563
  \def\getfilename#1{\filenamelength=0\expandafter\skipspaces#1|\relax}
1564
  \ifnum\pdftexversion < 14
1565
    \let \startlink \pdfannotlink
1566
  \else
1567
    \let \startlink \pdfstartlink
1568
  \fi
1569
  % make a live url in pdf output.
1570
  \def\pdfurl#1{%
1571
    \begingroup
1572
      % it seems we really need yet another set of dummies; have not
1573
      % tried to figure out what each command should do in the context
1574
      % of @url.  for now, just make @/ a no-op, that's the only one
1575
      % people have actually reported a problem with.
1576
      %
1577
      \normalturnoffactive
1578
      \def\@{@}%
1579
      \let\/=\empty
1580
      \makevalueexpandable
1581
      % do we want to go so far as to use \indexnofonts instead of just
1582
      % special-casing \var here?
1583
      \def\var##1{##1}%
1584
      %
1585
      \leavevmode\setcolor{\urlcolor}%
1586
      \startlink attr{/Border [0 0 0]}%
1587
        user{/Subtype /Link /A << /S /URI /URI (#1) >>}%
1588
    \endgroup}
1589
  \def\pdfgettoks#1.{\setbox\boxA=\hbox{\toksA={#1.}\toksB={}\maketoks}}
1590
  \def\addtokens#1#2{\edef\addtoks{\noexpand#1={\the#1#2}}\addtoks}
1591
  \def\adn#1{\addtokens{\toksC}{#1}\global\countA=1\let\next=\maketoks}
1592
  \def\poptoks#1#2|ENDTOKS|{\let\first=#1\toksD={#1}\toksA={#2}}
1593
  \def\maketoks{%
1594
    \expandafter\poptoks\the\toksA|ENDTOKS|\relax
1595
    \ifx\first0\adn0
1596
    \else\ifx\first1\adn1 \else\ifx\first2\adn2 \else\ifx\first3\adn3
1597
    \else\ifx\first4\adn4 \else\ifx\first5\adn5 \else\ifx\first6\adn6
1598
    \else\ifx\first7\adn7 \else\ifx\first8\adn8 \else\ifx\first9\adn9
1599
    \else
1600
      \ifnum0=\countA\else\makelink\fi
1601
      \ifx\first.\let\next=\done\else
1602
        \let\next=\maketoks
1603
        \addtokens{\toksB}{\the\toksD}
1604
        \ifx\first,\addtokens{\toksB}{\space}\fi
1605
      \fi
1606
    \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
1607
    \next}
1608
  \def\makelink{\addtokens{\toksB}%
1609
    {\noexpand\pdflink{\the\toksC}}\toksC={}\global\countA=0}
1610
  \def\pdflink#1{%
1611
    \startlink attr{/Border [0 0 0]} goto name{\pdfmkpgn{#1}}
1612
    \setcolor{\linkcolor}#1\endlink}
1613
  \def\done{\edef\st{\global\noexpand\toksA={\the\toksB}}\st}
1614
\else
1615
  % non-pdf mode
1616
  \let\pdfmkdest = \gobble
1617
  \let\pdfurl = \gobble
1618
  \let\endlink = \relax
1619
  \let\setcolor = \gobble
1620
  \let\pdfsetcolor = \gobble
1621
  \let\pdfmakeoutlines = \relax
1622
\fi  % \ifx\pdfoutput
1623
 
1624
 
1625
\message{fonts,}
1626
 
1627
% Change the current font style to #1, remembering it in \curfontstyle.
1628
% For now, we do not accumulate font styles: @b{@i{foo}} prints foo in
1629
% italics, not bold italics.
1630
%
1631
\def\setfontstyle#1{%
1632
  \def\curfontstyle{#1}% not as a control sequence, because we are \edef'd.
1633
  \csname ten#1\endcsname  % change the current font
1634
}
1635
 
1636
% Select #1 fonts with the current style.
1637
%
1638
\def\selectfonts#1{\csname #1fonts\endcsname \csname\curfontstyle\endcsname}
1639
 
1640
\def\rm{\fam=0 \setfontstyle{rm}}
1641
\def\it{\fam=\itfam \setfontstyle{it}}
1642
\def\sl{\fam=\slfam \setfontstyle{sl}}
1643
\def\bf{\fam=\bffam \setfontstyle{bf}}\def\bfstylename{bf}
1644
\def\tt{\fam=\ttfam \setfontstyle{tt}}
1645
 
1646
% Unfortunately, we have to override this for titles and the like, since
1647
% in those cases "rm" is bold.  Sigh.
1648
\def\rmisbold{\rm\def\curfontstyle{bf}}
1649
 
1650
% Texinfo sort of supports the sans serif font style, which plain TeX does not.
1651
% So we set up a \sf.
1652
\newfam\sffam
1653
\def\sf{\fam=\sffam \setfontstyle{sf}}
1654
\let\li = \sf % Sometimes we call it \li, not \sf.
1655
 
1656
% We don't need math for this font style.
1657
\def\ttsl{\setfontstyle{ttsl}}
1658
 
1659
 
1660
% Default leading.
1661
\newdimen\textleading  \textleading = 13.2pt
1662
 
1663
% Set the baselineskip to #1, and the lineskip and strut size
1664
% correspondingly.  There is no deep meaning behind these magic numbers
1665
% used as factors; they just match (closely enough) what Knuth defined.
1666
%
1667
\def\lineskipfactor{.08333}
1668
\def\strutheightpercent{.70833}
1669
\def\strutdepthpercent {.29167}
1670
%
1671
% can get a sort of poor man's double spacing by redefining this.
1672
\def\baselinefactor{1}
1673
%
1674
\def\setleading#1{%
1675
  \dimen0 = #1\relax
1676
  \normalbaselineskip = \baselinefactor\dimen0
1677
  \normallineskip = \lineskipfactor\normalbaselineskip
1678
  \normalbaselines
1679
  \setbox\strutbox =\hbox{%
1680
    \vrule width0pt height\strutheightpercent\baselineskip
1681
                    depth \strutdepthpercent \baselineskip
1682
  }%
1683
}
1684
 
1685
% PDF CMaps.  See also LaTeX's t1.cmap.
1686
%
1687
% do nothing with this by default.
1688
\expandafter\let\csname cmapOT1\endcsname\gobble
1689
\expandafter\let\csname cmapOT1IT\endcsname\gobble
1690
\expandafter\let\csname cmapOT1TT\endcsname\gobble
1691
 
1692
% if we are producing pdf, and we have \pdffontattr, then define cmaps.
1693
% (\pdffontattr was introduced many years ago, but people still run
1694
% older pdftex's; it's easy to conditionalize, so we do.)
1695
\ifpdf \ifx\pdffontattr\undefined \else
1696
  \begingroup
1697
    \catcode`\^^M=\active \def^^M{^^J}% Output line endings as the ^^J char.
1698
    \catcode`\%=12 \immediate\pdfobj stream {%!PS-Adobe-3.0 Resource-CMap
1699
%%DocumentNeededResources: ProcSet (CIDInit)
1700
%%IncludeResource: ProcSet (CIDInit)
1701
%%BeginResource: CMap (TeX-OT1-0)
1702
%%Title: (TeX-OT1-0 TeX OT1 0)
1703
%%Version: 1.000
1704
%%EndComments
1705
/CIDInit /ProcSet findresource begin
1706
12 dict begin
1707
begincmap
1708
/CIDSystemInfo
1709
<< /Registry (TeX)
1710
/Ordering (OT1)
1711
/Supplement 0
1712
>> def
1713
/CMapName /TeX-OT1-0 def
1714
/CMapType 2 def
1715
1 begincodespacerange
1716
<00> <7F>
1717
endcodespacerange
1718
8 beginbfrange
1719
<00> <01> <0393>
1720
<09> <0A> <03A8>
1721
<23> <26> <0023>
1722
<28> <3B> <0028>
1723
<3F> <5B> <003F>
1724
<5D> <5E> <005D>
1725
<61> <7A> <0061>
1726
<7B> <7C> <2013>
1727
endbfrange
1728
40 beginbfchar
1729
<02> <0398>
1730
<03> <039B>
1731
<04> <039E>
1732
<05> <03A0>
1733
<06> <03A3>
1734
<07> <03D2>
1735
<08> <03A6>
1736
<0B> <00660066>
1737
<0C> <00660069>
1738
<0D> <0066006C>
1739
<0E> <006600660069>
1740
<0F> <00660066006C>
1741
<10> <0131>
1742
<11> <0237>
1743
<12> <0060>
1744
<13> <00B4>
1745
<14> <02C7>
1746
<15> <02D8>
1747
<16> <00AF>
1748
<17> <02DA>
1749
<18> <00B8>
1750
<19> <00DF>
1751
<1A> <00E6>
1752
<1B> <0153>
1753
<1C> <00F8>
1754
<1D> <00C6>
1755
<1E> <0152>
1756
<1F> <00D8>
1757
<21> <0021>
1758
<22> <201D>
1759
<27> <2019>
1760
<3C> <00A1>
1761
<3D> <003D>
1762
<3E> <00BF>
1763
<5C> <201C>
1764
<5F> <02D9>
1765
<60> <2018>
1766
<7D> <02DD>
1767
<7E> <007E>
1768
<7F> <00A8>
1769
endbfchar
1770
endcmap
1771
CMapName currentdict /CMap defineresource pop
1772
end
1773
end
1774
%%EndResource
1775
%%EOF
1776
    }\endgroup
1777
  \expandafter\edef\csname cmapOT1\endcsname#1{%
1778
    \pdffontattr#1{/ToUnicode \the\pdflastobj\space 0 R}%
1779
  }%
1780
%
1781
% \cmapOT1IT
1782
  \begingroup
1783
    \catcode`\^^M=\active \def^^M{^^J}% Output line endings as the ^^J char.
1784
    \catcode`\%=12 \immediate\pdfobj stream {%!PS-Adobe-3.0 Resource-CMap
1785
%%DocumentNeededResources: ProcSet (CIDInit)
1786
%%IncludeResource: ProcSet (CIDInit)
1787
%%BeginResource: CMap (TeX-OT1IT-0)
1788
%%Title: (TeX-OT1IT-0 TeX OT1IT 0)
1789
%%Version: 1.000
1790
%%EndComments
1791
/CIDInit /ProcSet findresource begin
1792
12 dict begin
1793
begincmap
1794
/CIDSystemInfo
1795
<< /Registry (TeX)
1796
/Ordering (OT1IT)
1797
/Supplement 0
1798
>> def
1799
/CMapName /TeX-OT1IT-0 def
1800
/CMapType 2 def
1801
1 begincodespacerange
1802
<00> <7F>
1803
endcodespacerange
1804
8 beginbfrange
1805
<00> <01> <0393>
1806
<09> <0A> <03A8>
1807
<25> <26> <0025>
1808
<28> <3B> <0028>
1809
<3F> <5B> <003F>
1810
<5D> <5E> <005D>
1811
<61> <7A> <0061>
1812
<7B> <7C> <2013>
1813
endbfrange
1814
42 beginbfchar
1815
<02> <0398>
1816
<03> <039B>
1817
<04> <039E>
1818
<05> <03A0>
1819
<06> <03A3>
1820
<07> <03D2>
1821
<08> <03A6>
1822
<0B> <00660066>
1823
<0C> <00660069>
1824
<0D> <0066006C>
1825
<0E> <006600660069>
1826
<0F> <00660066006C>
1827
<10> <0131>
1828
<11> <0237>
1829
<12> <0060>
1830
<13> <00B4>
1831
<14> <02C7>
1832
<15> <02D8>
1833
<16> <00AF>
1834
<17> <02DA>
1835
<18> <00B8>
1836
<19> <00DF>
1837
<1A> <00E6>
1838
<1B> <0153>
1839
<1C> <00F8>
1840
<1D> <00C6>
1841
<1E> <0152>
1842
<1F> <00D8>
1843
<21> <0021>
1844
<22> <201D>
1845
<23> <0023>
1846
<24> <00A3>
1847
<27> <2019>
1848
<3C> <00A1>
1849
<3D> <003D>
1850
<3E> <00BF>
1851
<5C> <201C>
1852
<5F> <02D9>
1853
<60> <2018>
1854
<7D> <02DD>
1855
<7E> <007E>
1856
<7F> <00A8>
1857
endbfchar
1858
endcmap
1859
CMapName currentdict /CMap defineresource pop
1860
end
1861
end
1862
%%EndResource
1863
%%EOF
1864
    }\endgroup
1865
  \expandafter\edef\csname cmapOT1IT\endcsname#1{%
1866
    \pdffontattr#1{/ToUnicode \the\pdflastobj\space 0 R}%
1867
  }%
1868
%
1869
% \cmapOT1TT
1870
  \begingroup
1871
    \catcode`\^^M=\active \def^^M{^^J}% Output line endings as the ^^J char.
1872
    \catcode`\%=12 \immediate\pdfobj stream {%!PS-Adobe-3.0 Resource-CMap
1873
%%DocumentNeededResources: ProcSet (CIDInit)
1874
%%IncludeResource: ProcSet (CIDInit)
1875
%%BeginResource: CMap (TeX-OT1TT-0)
1876
%%Title: (TeX-OT1TT-0 TeX OT1TT 0)
1877
%%Version: 1.000
1878
%%EndComments
1879
/CIDInit /ProcSet findresource begin
1880
12 dict begin
1881
begincmap
1882
/CIDSystemInfo
1883
<< /Registry (TeX)
1884
/Ordering (OT1TT)
1885
/Supplement 0
1886
>> def
1887
/CMapName /TeX-OT1TT-0 def
1888
/CMapType 2 def
1889
1 begincodespacerange
1890
<00> <7F>
1891
endcodespacerange
1892
5 beginbfrange
1893
<00> <01> <0393>
1894
<09> <0A> <03A8>
1895
<21> <26> <0021>
1896
<28> <5F> <0028>
1897
<61> <7E> <0061>
1898
endbfrange
1899
32 beginbfchar
1900
<02> <0398>
1901
<03> <039B>
1902
<04> <039E>
1903
<05> <03A0>
1904
<06> <03A3>
1905
<07> <03D2>
1906
<08> <03A6>
1907
<0B> <2191>
1908
<0C> <2193>
1909
<0D> <0027>
1910
<0E> <00A1>
1911
<0F> <00BF>
1912
<10> <0131>
1913
<11> <0237>
1914
<12> <0060>
1915
<13> <00B4>
1916
<14> <02C7>
1917
<15> <02D8>
1918
<16> <00AF>
1919
<17> <02DA>
1920
<18> <00B8>
1921
<19> <00DF>
1922
<1A> <00E6>
1923
<1B> <0153>
1924
<1C> <00F8>
1925
<1D> <00C6>
1926
<1E> <0152>
1927
<1F> <00D8>
1928
<20> <2423>
1929
<27> <2019>
1930
<60> <2018>
1931
<7F> <00A8>
1932
endbfchar
1933
endcmap
1934
CMapName currentdict /CMap defineresource pop
1935
end
1936
end
1937
%%EndResource
1938
%%EOF
1939
    }\endgroup
1940
  \expandafter\edef\csname cmapOT1TT\endcsname#1{%
1941
    \pdffontattr#1{/ToUnicode \the\pdflastobj\space 0 R}%
1942
  }%
1943
\fi\fi
1944
 
1945
 
1946
% Set the font macro #1 to the font named #2, adding on the
1947
% specified font prefix (normally `cm').
1948
% #3 is the font's design size, #4 is a scale factor, #5 is the CMap
1949
% encoding (currently only OT1, OT1IT and OT1TT are allowed, pass
1950
% empty to omit).
1951
\def\setfont#1#2#3#4#5{%
1952
  \font#1=\fontprefix#2#3 scaled #4
1953
  \csname cmap#5\endcsname#1%
1954
}
1955
% This is what gets called when #5 of \setfont is empty.
1956
\let\cmap\gobble
1957
% emacs-page end of cmaps
1958
 
1959
% Use cm as the default font prefix.
1960
% To specify the font prefix, you must define \fontprefix
1961
% before you read in texinfo.tex.
1962
\ifx\fontprefix\undefined
1963
\def\fontprefix{cm}
1964
\fi
1965
% Support font families that don't use the same naming scheme as CM.
1966
\def\rmshape{r}
1967
\def\rmbshape{bx}               %where the normal face is bold
1968
\def\bfshape{b}
1969
\def\bxshape{bx}
1970
\def\ttshape{tt}
1971
\def\ttbshape{tt}
1972
\def\ttslshape{sltt}
1973
\def\itshape{ti}
1974
\def\itbshape{bxti}
1975
\def\slshape{sl}
1976
\def\slbshape{bxsl}
1977
\def\sfshape{ss}
1978
\def\sfbshape{ss}
1979
\def\scshape{csc}
1980
\def\scbshape{csc}
1981
 
1982
% Definitions for a main text size of 11pt.  This is the default in
1983
% Texinfo.
1984
%
1985
\def\definetextfontsizexi{%
1986
% Text fonts (11.2pt, magstep1).
1987
\def\textnominalsize{11pt}
1988
\edef\mainmagstep{\magstephalf}
1989
\setfont\textrm\rmshape{10}{\mainmagstep}{OT1}
1990
\setfont\texttt\ttshape{10}{\mainmagstep}{OT1TT}
1991
\setfont\textbf\bfshape{10}{\mainmagstep}{OT1}
1992
\setfont\textit\itshape{10}{\mainmagstep}{OT1IT}
1993
\setfont\textsl\slshape{10}{\mainmagstep}{OT1}
1994
\setfont\textsf\sfshape{10}{\mainmagstep}{OT1}
1995
\setfont\textsc\scshape{10}{\mainmagstep}{OT1}
1996
\setfont\textttsl\ttslshape{10}{\mainmagstep}{OT1TT}
1997
\font\texti=cmmi10 scaled \mainmagstep
1998
\font\textsy=cmsy10 scaled \mainmagstep
1999
\def\textecsize{1095}
2000
 
2001
% A few fonts for @defun names and args.
2002
\setfont\defbf\bfshape{10}{\magstep1}{OT1}
2003
\setfont\deftt\ttshape{10}{\magstep1}{OT1TT}
2004
\setfont\defttsl\ttslshape{10}{\magstep1}{OT1TT}
2005
\def\df{\let\tentt=\deftt \let\tenbf = \defbf \let\tenttsl=\defttsl \bf}
2006
 
2007
% Fonts for indices, footnotes, small examples (9pt).
2008
\def\smallnominalsize{9pt}
2009
\setfont\smallrm\rmshape{9}{1000}{OT1}
2010
\setfont\smalltt\ttshape{9}{1000}{OT1TT}
2011
\setfont\smallbf\bfshape{10}{900}{OT1}
2012
\setfont\smallit\itshape{9}{1000}{OT1IT}
2013
\setfont\smallsl\slshape{9}{1000}{OT1}
2014
\setfont\smallsf\sfshape{9}{1000}{OT1}
2015
\setfont\smallsc\scshape{10}{900}{OT1}
2016
\setfont\smallttsl\ttslshape{10}{900}{OT1TT}
2017
\font\smalli=cmmi9
2018
\font\smallsy=cmsy9
2019
\def\smallecsize{0900}
2020
 
2021
% Fonts for small examples (8pt).
2022
\def\smallernominalsize{8pt}
2023
\setfont\smallerrm\rmshape{8}{1000}{OT1}
2024
\setfont\smallertt\ttshape{8}{1000}{OT1TT}
2025
\setfont\smallerbf\bfshape{10}{800}{OT1}
2026
\setfont\smallerit\itshape{8}{1000}{OT1IT}
2027
\setfont\smallersl\slshape{8}{1000}{OT1}
2028
\setfont\smallersf\sfshape{8}{1000}{OT1}
2029
\setfont\smallersc\scshape{10}{800}{OT1}
2030
\setfont\smallerttsl\ttslshape{10}{800}{OT1TT}
2031
\font\smalleri=cmmi8
2032
\font\smallersy=cmsy8
2033
\def\smallerecsize{0800}
2034
 
2035
% Fonts for title page (20.4pt):
2036
\def\titlenominalsize{20pt}
2037
\setfont\titlerm\rmbshape{12}{\magstep3}{OT1}
2038
\setfont\titleit\itbshape{10}{\magstep4}{OT1IT}
2039
\setfont\titlesl\slbshape{10}{\magstep4}{OT1}
2040
\setfont\titlett\ttbshape{12}{\magstep3}{OT1TT}
2041
\setfont\titlettsl\ttslshape{10}{\magstep4}{OT1TT}
2042
\setfont\titlesf\sfbshape{17}{\magstep1}{OT1}
2043
\let\titlebf=\titlerm
2044
\setfont\titlesc\scbshape{10}{\magstep4}{OT1}
2045
\font\titlei=cmmi12 scaled \magstep3
2046
\font\titlesy=cmsy10 scaled \magstep4
2047
\def\titleecsize{2074}
2048
 
2049
% Chapter (and unnumbered) fonts (17.28pt).
2050
\def\chapnominalsize{17pt}
2051
\setfont\chaprm\rmbshape{12}{\magstep2}{OT1}
2052
\setfont\chapit\itbshape{10}{\magstep3}{OT1IT}
2053
\setfont\chapsl\slbshape{10}{\magstep3}{OT1}
2054
\setfont\chaptt\ttbshape{12}{\magstep2}{OT1TT}
2055
\setfont\chapttsl\ttslshape{10}{\magstep3}{OT1TT}
2056
\setfont\chapsf\sfbshape{17}{1000}{OT1}
2057
\let\chapbf=\chaprm
2058
\setfont\chapsc\scbshape{10}{\magstep3}{OT1}
2059
\font\chapi=cmmi12 scaled \magstep2
2060
\font\chapsy=cmsy10 scaled \magstep3
2061
\def\chapecsize{1728}
2062
 
2063
% Section fonts (14.4pt).
2064
\def\secnominalsize{14pt}
2065
\setfont\secrm\rmbshape{12}{\magstep1}{OT1}
2066
\setfont\secit\itbshape{10}{\magstep2}{OT1IT}
2067
\setfont\secsl\slbshape{10}{\magstep2}{OT1}
2068
\setfont\sectt\ttbshape{12}{\magstep1}{OT1TT}
2069
\setfont\secttsl\ttslshape{10}{\magstep2}{OT1TT}
2070
\setfont\secsf\sfbshape{12}{\magstep1}{OT1}
2071
\let\secbf\secrm
2072
\setfont\secsc\scbshape{10}{\magstep2}{OT1}
2073
\font\seci=cmmi12 scaled \magstep1
2074
\font\secsy=cmsy10 scaled \magstep2
2075
\def\sececsize{1440}
2076
 
2077
% Subsection fonts (13.15pt).
2078
\def\ssecnominalsize{13pt}
2079
\setfont\ssecrm\rmbshape{12}{\magstephalf}{OT1}
2080
\setfont\ssecit\itbshape{10}{1315}{OT1IT}
2081
\setfont\ssecsl\slbshape{10}{1315}{OT1}
2082
\setfont\ssectt\ttbshape{12}{\magstephalf}{OT1TT}
2083
\setfont\ssecttsl\ttslshape{10}{1315}{OT1TT}
2084
\setfont\ssecsf\sfbshape{12}{\magstephalf}{OT1}
2085
\let\ssecbf\ssecrm
2086
\setfont\ssecsc\scbshape{10}{1315}{OT1}
2087
\font\sseci=cmmi12 scaled \magstephalf
2088
\font\ssecsy=cmsy10 scaled 1315
2089
\def\ssececsize{1200}
2090
 
2091
% Reduced fonts for @acro in text (10pt).
2092
\def\reducednominalsize{10pt}
2093
\setfont\reducedrm\rmshape{10}{1000}{OT1}
2094
\setfont\reducedtt\ttshape{10}{1000}{OT1TT}
2095
\setfont\reducedbf\bfshape{10}{1000}{OT1}
2096
\setfont\reducedit\itshape{10}{1000}{OT1IT}
2097
\setfont\reducedsl\slshape{10}{1000}{OT1}
2098
\setfont\reducedsf\sfshape{10}{1000}{OT1}
2099
\setfont\reducedsc\scshape{10}{1000}{OT1}
2100
\setfont\reducedttsl\ttslshape{10}{1000}{OT1TT}
2101
\font\reducedi=cmmi10
2102
\font\reducedsy=cmsy10
2103
\def\reducedecsize{1000}
2104
 
2105
% reset the current fonts
2106
\textfonts
2107
\rm
2108
} % end of 11pt text font size definitions
2109
 
2110
 
2111
% Definitions to make the main text be 10pt Computer Modern, with
2112
% section, chapter, etc., sizes following suit.  This is for the GNU
2113
% Press printing of the Emacs 22 manual.  Maybe other manuals in the
2114
% future.  Used with @smallbook, which sets the leading to 12pt.
2115
%
2116
\def\definetextfontsizex{%
2117
% Text fonts (10pt).
2118
\def\textnominalsize{10pt}
2119
\edef\mainmagstep{1000}
2120
\setfont\textrm\rmshape{10}{\mainmagstep}{OT1}
2121
\setfont\texttt\ttshape{10}{\mainmagstep}{OT1TT}
2122
\setfont\textbf\bfshape{10}{\mainmagstep}{OT1}
2123
\setfont\textit\itshape{10}{\mainmagstep}{OT1IT}
2124
\setfont\textsl\slshape{10}{\mainmagstep}{OT1}
2125
\setfont\textsf\sfshape{10}{\mainmagstep}{OT1}
2126
\setfont\textsc\scshape{10}{\mainmagstep}{OT1}
2127
\setfont\textttsl\ttslshape{10}{\mainmagstep}{OT1TT}
2128
\font\texti=cmmi10 scaled \mainmagstep
2129
\font\textsy=cmsy10 scaled \mainmagstep
2130
\def\textecsize{1000}
2131
 
2132
% A few fonts for @defun names and args.
2133
\setfont\defbf\bfshape{10}{\magstephalf}{OT1}
2134
\setfont\deftt\ttshape{10}{\magstephalf}{OT1TT}
2135
\setfont\defttsl\ttslshape{10}{\magstephalf}{OT1TT}
2136
\def\df{\let\tentt=\deftt \let\tenbf = \defbf \let\tenttsl=\defttsl \bf}
2137
 
2138
% Fonts for indices, footnotes, small examples (9pt).
2139
\def\smallnominalsize{9pt}
2140
\setfont\smallrm\rmshape{9}{1000}{OT1}
2141
\setfont\smalltt\ttshape{9}{1000}{OT1TT}
2142
\setfont\smallbf\bfshape{10}{900}{OT1}
2143
\setfont\smallit\itshape{9}{1000}{OT1IT}
2144
\setfont\smallsl\slshape{9}{1000}{OT1}
2145
\setfont\smallsf\sfshape{9}{1000}{OT1}
2146
\setfont\smallsc\scshape{10}{900}{OT1}
2147
\setfont\smallttsl\ttslshape{10}{900}{OT1TT}
2148
\font\smalli=cmmi9
2149
\font\smallsy=cmsy9
2150
\def\smallecsize{0900}
2151
 
2152
% Fonts for small examples (8pt).
2153
\def\smallernominalsize{8pt}
2154
\setfont\smallerrm\rmshape{8}{1000}{OT1}
2155
\setfont\smallertt\ttshape{8}{1000}{OT1TT}
2156
\setfont\smallerbf\bfshape{10}{800}{OT1}
2157
\setfont\smallerit\itshape{8}{1000}{OT1IT}
2158
\setfont\smallersl\slshape{8}{1000}{OT1}
2159
\setfont\smallersf\sfshape{8}{1000}{OT1}
2160
\setfont\smallersc\scshape{10}{800}{OT1}
2161
\setfont\smallerttsl\ttslshape{10}{800}{OT1TT}
2162
\font\smalleri=cmmi8
2163
\font\smallersy=cmsy8
2164
\def\smallerecsize{0800}
2165
 
2166
% Fonts for title page (20.4pt):
2167
\def\titlenominalsize{20pt}
2168
\setfont\titlerm\rmbshape{12}{\magstep3}{OT1}
2169
\setfont\titleit\itbshape{10}{\magstep4}{OT1IT}
2170
\setfont\titlesl\slbshape{10}{\magstep4}{OT1}
2171
\setfont\titlett\ttbshape{12}{\magstep3}{OT1TT}
2172
\setfont\titlettsl\ttslshape{10}{\magstep4}{OT1TT}
2173
\setfont\titlesf\sfbshape{17}{\magstep1}{OT1}
2174
\let\titlebf=\titlerm
2175
\setfont\titlesc\scbshape{10}{\magstep4}{OT1}
2176
\font\titlei=cmmi12 scaled \magstep3
2177
\font\titlesy=cmsy10 scaled \magstep4
2178
\def\titleecsize{2074}
2179
 
2180
% Chapter fonts (14.4pt).
2181
\def\chapnominalsize{14pt}
2182
\setfont\chaprm\rmbshape{12}{\magstep1}{OT1}
2183
\setfont\chapit\itbshape{10}{\magstep2}{OT1IT}
2184
\setfont\chapsl\slbshape{10}{\magstep2}{OT1}
2185
\setfont\chaptt\ttbshape{12}{\magstep1}{OT1TT}
2186
\setfont\chapttsl\ttslshape{10}{\magstep2}{OT1TT}
2187
\setfont\chapsf\sfbshape{12}{\magstep1}{OT1}
2188
\let\chapbf\chaprm
2189
\setfont\chapsc\scbshape{10}{\magstep2}{OT1}
2190
\font\chapi=cmmi12 scaled \magstep1
2191
\font\chapsy=cmsy10 scaled \magstep2
2192
\def\chapecsize{1440}
2193
 
2194
% Section fonts (12pt).
2195
\def\secnominalsize{12pt}
2196
\setfont\secrm\rmbshape{12}{1000}{OT1}
2197
\setfont\secit\itbshape{10}{\magstep1}{OT1IT}
2198
\setfont\secsl\slbshape{10}{\magstep1}{OT1}
2199
\setfont\sectt\ttbshape{12}{1000}{OT1TT}
2200
\setfont\secttsl\ttslshape{10}{\magstep1}{OT1TT}
2201
\setfont\secsf\sfbshape{12}{1000}{OT1}
2202
\let\secbf\secrm
2203
\setfont\secsc\scbshape{10}{\magstep1}{OT1}
2204
\font\seci=cmmi12
2205
\font\secsy=cmsy10 scaled \magstep1
2206
\def\sececsize{1200}
2207
 
2208
% Subsection fonts (10pt).
2209
\def\ssecnominalsize{10pt}
2210
\setfont\ssecrm\rmbshape{10}{1000}{OT1}
2211
\setfont\ssecit\itbshape{10}{1000}{OT1IT}
2212
\setfont\ssecsl\slbshape{10}{1000}{OT1}
2213
\setfont\ssectt\ttbshape{10}{1000}{OT1TT}
2214
\setfont\ssecttsl\ttslshape{10}{1000}{OT1TT}
2215
\setfont\ssecsf\sfbshape{10}{1000}{OT1}
2216
\let\ssecbf\ssecrm
2217
\setfont\ssecsc\scbshape{10}{1000}{OT1}
2218
\font\sseci=cmmi10
2219
\font\ssecsy=cmsy10
2220
\def\ssececsize{1000}
2221
 
2222
% Reduced fonts for @acro in text (9pt).
2223
\def\reducednominalsize{9pt}
2224
\setfont\reducedrm\rmshape{9}{1000}{OT1}
2225
\setfont\reducedtt\ttshape{9}{1000}{OT1TT}
2226
\setfont\reducedbf\bfshape{10}{900}{OT1}
2227
\setfont\reducedit\itshape{9}{1000}{OT1IT}
2228
\setfont\reducedsl\slshape{9}{1000}{OT1}
2229
\setfont\reducedsf\sfshape{9}{1000}{OT1}
2230
\setfont\reducedsc\scshape{10}{900}{OT1}
2231
\setfont\reducedttsl\ttslshape{10}{900}{OT1TT}
2232
\font\reducedi=cmmi9
2233
\font\reducedsy=cmsy9
2234
\def\reducedecsize{0900}
2235
 
2236
% reduce space between paragraphs
2237
\divide\parskip by 2
2238
 
2239
% reset the current fonts
2240
\textfonts
2241
\rm
2242
} % end of 10pt text font size definitions
2243
 
2244
 
2245
% We provide the user-level command
2246
%   @fonttextsize 10
2247
% (or 11) to redefine the text font size.  pt is assumed.
2248
%
2249
\def\xword{10}
2250
\def\xiword{11}
2251
%
2252
\parseargdef\fonttextsize{%
2253
  \def\textsizearg{#1}%
2254
  \wlog{doing @fonttextsize \textsizearg}%
2255
  %
2256
  % Set \globaldefs so that documents can use this inside @tex, since
2257
  % makeinfo 4.8 does not support it, but we need it nonetheless.
2258
  %
2259
 \begingroup \globaldefs=1
2260
  \ifx\textsizearg\xword \definetextfontsizex
2261
  \else \ifx\textsizearg\xiword \definetextfontsizexi
2262
  \else
2263
    \errhelp=\EMsimple
2264
    \errmessage{@fonttextsize only supports `10' or `11', not `\textsizearg'}
2265
  \fi\fi
2266
 \endgroup
2267
}
2268
 
2269
 
2270
% In order for the font changes to affect most math symbols and letters,
2271
% we have to define the \textfont of the standard families.  Since
2272
% texinfo doesn't allow for producing subscripts and superscripts except
2273
% in the main text, we don't bother to reset \scriptfont and
2274
% \scriptscriptfont (which would also require loading a lot more fonts).
2275
%
2276
\def\resetmathfonts{%
2277
  \textfont0=\tenrm \textfont1=\teni \textfont2=\tensy
2278
  \textfont\itfam=\tenit \textfont\slfam=\tensl \textfont\bffam=\tenbf
2279
  \textfont\ttfam=\tentt \textfont\sffam=\tensf
2280
}
2281
 
2282
% The font-changing commands redefine the meanings of \tenSTYLE, instead
2283
% of just \STYLE.  We do this because \STYLE needs to also set the
2284
% current \fam for math mode.  Our \STYLE (e.g., \rm) commands hardwire
2285
% \tenSTYLE to set the current font.
2286
%
2287
% Each font-changing command also sets the names \lsize (one size lower)
2288
% and \lllsize (three sizes lower).  These relative commands are used in
2289
% the LaTeX logo and acronyms.
2290
%
2291
% This all needs generalizing, badly.
2292
%
2293
\def\textfonts{%
2294
  \let\tenrm=\textrm \let\tenit=\textit \let\tensl=\textsl
2295
  \let\tenbf=\textbf \let\tentt=\texttt \let\smallcaps=\textsc
2296
  \let\tensf=\textsf \let\teni=\texti \let\tensy=\textsy
2297
  \let\tenttsl=\textttsl
2298
  \def\curfontsize{text}%
2299
  \def\lsize{reduced}\def\lllsize{smaller}%
2300
  \resetmathfonts \setleading{\textleading}}
2301
\def\titlefonts{%
2302
  \let\tenrm=\titlerm \let\tenit=\titleit \let\tensl=\titlesl
2303
  \let\tenbf=\titlebf \let\tentt=\titlett \let\smallcaps=\titlesc
2304
  \let\tensf=\titlesf \let\teni=\titlei \let\tensy=\titlesy
2305
  \let\tenttsl=\titlettsl
2306
  \def\curfontsize{title}%
2307
  \def\lsize{chap}\def\lllsize{subsec}%
2308
  \resetmathfonts \setleading{25pt}}
2309
\def\titlefont#1{{\titlefonts\rmisbold #1}}
2310
\def\chapfonts{%
2311
  \let\tenrm=\chaprm \let\tenit=\chapit \let\tensl=\chapsl
2312
  \let\tenbf=\chapbf \let\tentt=\chaptt \let\smallcaps=\chapsc
2313
  \let\tensf=\chapsf \let\teni=\chapi \let\tensy=\chapsy
2314
  \let\tenttsl=\chapttsl
2315
  \def\curfontsize{chap}%
2316
  \def\lsize{sec}\def\lllsize{text}%
2317
  \resetmathfonts \setleading{19pt}}
2318
\def\secfonts{%
2319
  \let\tenrm=\secrm \let\tenit=\secit \let\tensl=\secsl
2320
  \let\tenbf=\secbf \let\tentt=\sectt \let\smallcaps=\secsc
2321
  \let\tensf=\secsf \let\teni=\seci \let\tensy=\secsy
2322
  \let\tenttsl=\secttsl
2323
  \def\curfontsize{sec}%
2324
  \def\lsize{subsec}\def\lllsize{reduced}%
2325
  \resetmathfonts \setleading{16pt}}
2326
\def\subsecfonts{%
2327
  \let\tenrm=\ssecrm \let\tenit=\ssecit \let\tensl=\ssecsl
2328
  \let\tenbf=\ssecbf \let\tentt=\ssectt \let\smallcaps=\ssecsc
2329
  \let\tensf=\ssecsf \let\teni=\sseci \let\tensy=\ssecsy
2330
  \let\tenttsl=\ssecttsl
2331
  \def\curfontsize{ssec}%
2332
  \def\lsize{text}\def\lllsize{small}%
2333
  \resetmathfonts \setleading{15pt}}
2334
\let\subsubsecfonts = \subsecfonts
2335
\def\reducedfonts{%
2336
  \let\tenrm=\reducedrm \let\tenit=\reducedit \let\tensl=\reducedsl
2337
  \let\tenbf=\reducedbf \let\tentt=\reducedtt \let\reducedcaps=\reducedsc
2338
  \let\tensf=\reducedsf \let\teni=\reducedi \let\tensy=\reducedsy
2339
  \let\tenttsl=\reducedttsl
2340
  \def\curfontsize{reduced}%
2341
  \def\lsize{small}\def\lllsize{smaller}%
2342
  \resetmathfonts \setleading{10.5pt}}
2343
\def\smallfonts{%
2344
  \let\tenrm=\smallrm \let\tenit=\smallit \let\tensl=\smallsl
2345
  \let\tenbf=\smallbf \let\tentt=\smalltt \let\smallcaps=\smallsc
2346
  \let\tensf=\smallsf \let\teni=\smalli \let\tensy=\smallsy
2347
  \let\tenttsl=\smallttsl
2348
  \def\curfontsize{small}%
2349
  \def\lsize{smaller}\def\lllsize{smaller}%
2350
  \resetmathfonts \setleading{10.5pt}}
2351
\def\smallerfonts{%
2352
  \let\tenrm=\smallerrm \let\tenit=\smallerit \let\tensl=\smallersl
2353
  \let\tenbf=\smallerbf \let\tentt=\smallertt \let\smallcaps=\smallersc
2354
  \let\tensf=\smallersf \let\teni=\smalleri \let\tensy=\smallersy
2355
  \let\tenttsl=\smallerttsl
2356
  \def\curfontsize{smaller}%
2357
  \def\lsize{smaller}\def\lllsize{smaller}%
2358
  \resetmathfonts \setleading{9.5pt}}
2359
 
2360
% Fonts for short table of contents.
2361
\setfont\shortcontrm\rmshape{12}{1000}{OT1}
2362
\setfont\shortcontbf\bfshape{10}{\magstep1}{OT1}  % no cmb12
2363
\setfont\shortcontsl\slshape{12}{1000}{OT1}
2364
\setfont\shortconttt\ttshape{12}{1000}{OT1TT}
2365
 
2366
% Define these just so they can be easily changed for other fonts.
2367
\def\angleleft{$\langle$}
2368
\def\angleright{$\rangle$}
2369
 
2370
% Set the fonts to use with the @small... environments.
2371
\let\smallexamplefonts = \smallfonts
2372
 
2373
% About \smallexamplefonts.  If we use \smallfonts (9pt), @smallexample
2374
% can fit this many characters:
2375
%   8.5x11=86   smallbook=72  a4=90  a5=69
2376
% If we use \scriptfonts (8pt), then we can fit this many characters:
2377
%   8.5x11=90+  smallbook=80  a4=90+  a5=77
2378
% For me, subjectively, the few extra characters that fit aren't worth
2379
% the additional smallness of 8pt.  So I'm making the default 9pt.
2380
%
2381
% By the way, for comparison, here's what fits with @example (10pt):
2382
%   8.5x11=71  smallbook=60  a4=75  a5=58
2383
% --karl, 24jan03.
2384
 
2385
% Set up the default fonts, so we can use them for creating boxes.
2386
%
2387
\definetextfontsizexi
2388
 
2389
 
2390
\message{markup,}
2391
 
2392
% Check if we are currently using a typewriter font.  Since all the
2393
% Computer Modern typewriter fonts have zero interword stretch (and
2394
% shrink), and it is reasonable to expect all typewriter fonts to have
2395
% this property, we can check that font parameter.
2396
%
2397
\def\ifmonospace{\ifdim\fontdimen3\font=0pt }
2398
 
2399
% Markup style infrastructure.  \defmarkupstylesetup\INITMACRO will
2400
% define and register \INITMACRO to be called on markup style changes.
2401
% \INITMACRO can check \currentmarkupstyle for the innermost
2402
% style and the set of \ifmarkupSTYLE switches for all styles
2403
% currently in effect.
2404
\newif\ifmarkupvar
2405
\newif\ifmarkupsamp
2406
\newif\ifmarkupkey
2407
%\newif\ifmarkupfile % @file == @samp.
2408
%\newif\ifmarkupoption % @option == @samp.
2409
\newif\ifmarkupcode
2410
\newif\ifmarkupkbd
2411
%\newif\ifmarkupenv % @env == @code.
2412
%\newif\ifmarkupcommand % @command == @code.
2413
\newif\ifmarkuptex % @tex (and part of @math, for now).
2414
\newif\ifmarkupexample
2415
\newif\ifmarkupverb
2416
\newif\ifmarkupverbatim
2417
 
2418
\let\currentmarkupstyle\empty
2419
 
2420
\def\setupmarkupstyle#1{%
2421
  \csname markup#1true\endcsname
2422
  \def\currentmarkupstyle{#1}%
2423
  \markupstylesetup
2424
}
2425
 
2426
\let\markupstylesetup\empty
2427
 
2428
\def\defmarkupstylesetup#1{%
2429
  \expandafter\def\expandafter\markupstylesetup
2430
    \expandafter{\markupstylesetup #1}%
2431
  \def#1%
2432
}
2433
 
2434
% Markup style setup for left and right quotes.
2435
\defmarkupstylesetup\markupsetuplq{%
2436
  \expandafter\let\expandafter \temp \csname markupsetuplq\currentmarkupstyle\endcsname
2437
  \ifx\temp\relax \markupsetuplqdefault \else \temp \fi
2438
}
2439
 
2440
\defmarkupstylesetup\markupsetuprq{%
2441
  \expandafter\let\expandafter \temp \csname markupsetuprq\currentmarkupstyle\endcsname
2442
  \ifx\temp\relax \markupsetuprqdefault \else \temp \fi
2443
}
2444
 
2445
{
2446
\catcode`\'=\active
2447
\catcode`\`=\active
2448
 
2449
\gdef\markupsetuplqdefault{\let`\lq}
2450
\gdef\markupsetuprqdefault{\let'\rq}
2451
 
2452
\gdef\markupsetcodequoteleft{\let`\codequoteleft}
2453
\gdef\markupsetcodequoteright{\let'\codequoteright}
2454
 
2455
\gdef\markupsetnoligaturesquoteleft{\let`\noligaturesquoteleft}
2456
}
2457
 
2458
\let\markupsetuplqcode \markupsetcodequoteleft
2459
\let\markupsetuprqcode \markupsetcodequoteright
2460
\let\markupsetuplqexample \markupsetcodequoteleft
2461
\let\markupsetuprqexample \markupsetcodequoteright
2462
\let\markupsetuplqverb \markupsetcodequoteleft
2463
\let\markupsetuprqverb \markupsetcodequoteright
2464
\let\markupsetuplqverbatim \markupsetcodequoteleft
2465
\let\markupsetuprqverbatim \markupsetcodequoteright
2466
 
2467
\let\markupsetuplqsamp \markupsetnoligaturesquoteleft
2468
\let\markupsetuplqkbd \markupsetnoligaturesquoteleft
2469
 
2470
% Allow an option to not replace quotes with a regular directed right
2471
% quote/apostrophe (char 0x27), but instead use the undirected quote
2472
% from cmtt (char 0x0d).  The undirected quote is ugly, so don't make it
2473
% the default, but it works for pasting with more pdf viewers (at least
2474
% evince), the lilypond developers report.  xpdf does work with the
2475
% regular 0x27.
2476
%
2477
\def\codequoteright{%
2478
  \expandafter\ifx\csname SETtxicodequoteundirected\endcsname\relax
2479
    \expandafter\ifx\csname SETcodequoteundirected\endcsname\relax
2480
      '%
2481
    \else \char'15 \fi
2482
  \else \char'15 \fi
2483
}
2484
%
2485
% and a similar option for the left quote char vs. a grave accent.
2486
% Modern fonts display ASCII 0x60 as a grave accent, so some people like
2487
% the code environments to do likewise.
2488
%
2489
\def\codequoteleft{%
2490
  \expandafter\ifx\csname SETtxicodequotebacktick\endcsname\relax
2491
    \expandafter\ifx\csname SETcodequotebacktick\endcsname\relax
2492
      % [Knuth] pp. 380,381,391
2493
      % \relax disables Spanish ligatures ?` and !` of \tt font.
2494
      \relax`%
2495
    \else \char'22 \fi
2496
  \else \char'22 \fi
2497
}
2498
 
2499
% [Knuth] pp. 380,381,391, disable Spanish ligatures ?` and !` of \tt font.
2500
\def\noligaturesquoteleft{\relax\lq}
2501
 
2502
% Count depth in font-changes, for error checks
2503
\newcount\fontdepth \fontdepth=0
2504
 
2505
%% Add scribe-like font environments, plus @l for inline lisp (usually sans
2506
%% serif) and @ii for TeX italic
2507
 
2508
% \smartitalic{ARG} outputs arg in italics, followed by an italic correction
2509
% unless the following character is such as not to need one.
2510
\def\smartitalicx{\ifx\next,\else\ifx\next-\else\ifx\next.\else
2511
                    \ptexslash\fi\fi\fi}
2512
\def\smartslanted#1{{\ifusingtt\ttsl\sl #1}\futurelet\next\smartitalicx}
2513
\def\smartitalic#1{{\ifusingtt\ttsl\it #1}\futurelet\next\smartitalicx}
2514
 
2515
% like \smartslanted except unconditionally uses \ttsl.
2516
% @var is set to this for defun arguments.
2517
\def\ttslanted#1{{\ttsl #1}\futurelet\next\smartitalicx}
2518
 
2519
% @cite is like \smartslanted except unconditionally use \sl.  We never want
2520
% ttsl for book titles, do we?
2521
\def\cite#1{{\sl #1}\futurelet\next\smartitalicx}
2522
 
2523
\let\i=\smartitalic
2524
\let\slanted=\smartslanted
2525
\def\var#1{{\setupmarkupstyle{var}\smartslanted{#1}}}
2526
\let\dfn=\smartslanted
2527
\let\emph=\smartitalic
2528
 
2529
% Explicit font changes: @r, @sc, undocumented @ii.
2530
\def\r#1{{\rm #1}}              % roman font
2531
\def\sc#1{{\smallcaps#1}}       % smallcaps font
2532
\def\ii#1{{\it #1}}             % italic font
2533
 
2534
% @b, explicit bold.  Also @strong.
2535
\def\b#1{{\bf #1}}
2536
\let\strong=\b
2537
 
2538
% @sansserif, explicit sans.
2539
\def\sansserif#1{{\sf #1}}
2540
 
2541
% We can't just use \exhyphenpenalty, because that only has effect at
2542
% the end of a paragraph.  Restore normal hyphenation at the end of the
2543
% group within which \nohyphenation is presumably called.
2544
%
2545
\def\nohyphenation{\hyphenchar\font = -1  \aftergroup\restorehyphenation}
2546
\def\restorehyphenation{\hyphenchar\font = `- }
2547
 
2548
% Set sfcode to normal for the chars that usually have another value.
2549
% Can't use plain's \frenchspacing because it uses the `\x notation, and
2550
% sometimes \x has an active definition that messes things up.
2551
%
2552
\catcode`@=11
2553
  \def\plainfrenchspacing{%
2554
    \sfcode\dotChar  =\@m \sfcode\questChar=\@m \sfcode\exclamChar=\@m
2555
    \sfcode\colonChar=\@m \sfcode\semiChar =\@m \sfcode\commaChar =\@m
2556
    \def\endofsentencespacefactor{1000}% for @. and friends
2557
  }
2558
  \def\plainnonfrenchspacing{%
2559
    \sfcode`\.3000\sfcode`\?3000\sfcode`\!3000
2560
    \sfcode`\:2000\sfcode`\;1500\sfcode`\,1250
2561
    \def\endofsentencespacefactor{3000}% for @. and friends
2562
  }
2563
\catcode`@=\other
2564
\def\endofsentencespacefactor{3000}% default
2565
 
2566
% @t, explicit typewriter.
2567
\def\t#1{%
2568
  {\tt \rawbackslash \plainfrenchspacing #1}%
2569
  \null
2570
}
2571
 
2572
% @samp.
2573
\def\samp#1{{\setupmarkupstyle{samp}\lq\tclose{#1}\rq\null}}
2574
 
2575
% definition of @key that produces a lozenge.  Doesn't adjust to text size.
2576
%\setfont\keyrm\rmshape{8}{1000}{OT1}
2577
%\font\keysy=cmsy9
2578
%\def\key#1{{\keyrm\textfont2=\keysy \leavevmode\hbox{%
2579
%  \raise0.4pt\hbox{\angleleft}\kern-.08em\vtop{%
2580
%    \vbox{\hrule\kern-0.4pt
2581
%     \hbox{\raise0.4pt\hbox{\vphantom{\angleleft}}#1}}%
2582
%    \kern-0.4pt\hrule}%
2583
%  \kern-.06em\raise0.4pt\hbox{\angleright}}}}
2584
 
2585
% definition of @key with no lozenge.  If the current font is already
2586
% monospace, don't change it; that way, we respect @kbdinputstyle.  But
2587
% if it isn't monospace, then use \tt.
2588
%
2589
\def\key#1{{\setupmarkupstyle{key}%
2590
  \nohyphenation
2591
  \ifmonospace\else\tt\fi
2592
  #1}\null}
2593
 
2594
% ctrl is no longer a Texinfo command.
2595
\def\ctrl #1{{\tt \rawbackslash \hat}#1}
2596
 
2597
% @file, @option are the same as @samp.
2598
\let\file=\samp
2599
\let\option=\samp
2600
 
2601
% @code is a modification of @t,
2602
% which makes spaces the same size as normal in the surrounding text.
2603
\def\tclose#1{%
2604
  {%
2605
    % Change normal interword space to be same as for the current font.
2606
    \spaceskip = \fontdimen2\font
2607
    %
2608
    % Switch to typewriter.
2609
    \tt
2610
    %
2611
    % But `\ ' produces the large typewriter interword space.
2612
    \def\ {{\spaceskip = 0pt{} }}%
2613
    %
2614
    % Turn off hyphenation.
2615
    \nohyphenation
2616
    %
2617
    \rawbackslash
2618
    \plainfrenchspacing
2619
    #1%
2620
  }%
2621
  \null
2622
}
2623
 
2624
% We *must* turn on hyphenation at `-' and `_' in @code.
2625
% Otherwise, it is too hard to avoid overfull hboxes
2626
% in the Emacs manual, the Library manual, etc.
2627
 
2628
% Unfortunately, TeX uses one parameter (\hyphenchar) to control
2629
% both hyphenation at - and hyphenation within words.
2630
% We must therefore turn them both off (\tclose does that)
2631
% and arrange explicitly to hyphenate at a dash.
2632
%  -- rms.
2633
{
2634
  \catcode`\-=\active \catcode`\_=\active
2635
  \catcode`\'=\active \catcode`\`=\active
2636
  \global\let'=\rq \global\let`=\lq  % default definitions
2637
  %
2638
  \global\def\code{\begingroup
2639
    \setupmarkupstyle{code}%
2640
    % The following should really be moved into \setupmarkupstyle handlers.
2641
    \catcode\dashChar=\active  \catcode\underChar=\active
2642
    \ifallowcodebreaks
2643
     \let-\codedash
2644
     \let_\codeunder
2645
    \else
2646
     \let-\realdash
2647
     \let_\realunder
2648
    \fi
2649
    \codex
2650
  }
2651
}
2652
 
2653
\def\realdash{-}
2654
\def\codedash{-\discretionary{}{}{}}
2655
\def\codeunder{%
2656
  % this is all so @math{@code{var_name}+1} can work.  In math mode, _
2657
  % is "active" (mathcode"8000) and \normalunderscore (or \char95, etc.)
2658
  % will therefore expand the active definition of _, which is us
2659
  % (inside @code that is), therefore an endless loop.
2660
  \ifusingtt{\ifmmode
2661
               \mathchar"075F % class 0=ordinary, family 7=ttfam, pos 0x5F=_.
2662
             \else\normalunderscore \fi
2663
             \discretionary{}{}{}}%
2664
            {\_}%
2665
}
2666
\def\codex #1{\tclose{#1}\endgroup}
2667
 
2668
% An additional complication: the above will allow breaks after, e.g.,
2669
% each of the four underscores in __typeof__.  This is undesirable in
2670
% some manuals, especially if they don't have long identifiers in
2671
% general.  @allowcodebreaks provides a way to control this.
2672
%
2673
\newif\ifallowcodebreaks  \allowcodebreakstrue
2674
 
2675
\def\keywordtrue{true}
2676
\def\keywordfalse{false}
2677
 
2678
\parseargdef\allowcodebreaks{%
2679
  \def\txiarg{#1}%
2680
  \ifx\txiarg\keywordtrue
2681
    \allowcodebreakstrue
2682
  \else\ifx\txiarg\keywordfalse
2683
    \allowcodebreaksfalse
2684
  \else
2685
    \errhelp = \EMsimple
2686
    \errmessage{Unknown @allowcodebreaks option `\txiarg'}%
2687
  \fi\fi
2688
}
2689
 
2690
% @kbd is like @code, except that if the argument is just one @key command,
2691
% then @kbd has no effect.
2692
\def\kbd#1{{\setupmarkupstyle{kbd}\def\look{#1}\expandafter\kbdfoo\look??\par}}
2693
 
2694
% @kbdinputstyle -- arg is `distinct' (@kbd uses slanted tty font always),
2695
%   `example' (@kbd uses ttsl only inside of @example and friends),
2696
%   or `code' (@kbd uses normal tty font always).
2697
\parseargdef\kbdinputstyle{%
2698
  \def\txiarg{#1}%
2699
  \ifx\txiarg\worddistinct
2700
    \gdef\kbdexamplefont{\ttsl}\gdef\kbdfont{\ttsl}%
2701
  \else\ifx\txiarg\wordexample
2702
    \gdef\kbdexamplefont{\ttsl}\gdef\kbdfont{\tt}%
2703
  \else\ifx\txiarg\wordcode
2704
    \gdef\kbdexamplefont{\tt}\gdef\kbdfont{\tt}%
2705
  \else
2706
    \errhelp = \EMsimple
2707
    \errmessage{Unknown @kbdinputstyle option `\txiarg'}%
2708
  \fi\fi\fi
2709
}
2710
\def\worddistinct{distinct}
2711
\def\wordexample{example}
2712
\def\wordcode{code}
2713
 
2714
% Default is `distinct'.
2715
\kbdinputstyle distinct
2716
 
2717
\def\xkey{\key}
2718
\def\kbdfoo#1#2#3\par{\def\one{#1}\def\three{#3}\def\threex{??}%
2719
\ifx\one\xkey\ifx\threex\three \key{#2}%
2720
\else{\tclose{\kbdfont\setupmarkupstyle{kbd}\look}}\fi
2721
\else{\tclose{\kbdfont\setupmarkupstyle{kbd}\look}}\fi}
2722
 
2723
% For @indicateurl, @env, @command quotes seem unnecessary, so use \code.
2724
\let\indicateurl=\code
2725
\let\env=\code
2726
\let\command=\code
2727
 
2728
% @clicksequence{File @click{} Open ...}
2729
\def\clicksequence#1{\begingroup #1\endgroup}
2730
 
2731
% @clickstyle @arrow   (by default)
2732
\parseargdef\clickstyle{\def\click{#1}}
2733
\def\click{\arrow}
2734
 
2735
% @uref (abbreviation for `urlref') takes an optional (comma-separated)
2736
% second argument specifying the text to display and an optional third
2737
% arg as text to display instead of (rather than in addition to) the url
2738
% itself.  First (mandatory) arg is the url.  Perhaps eventually put in
2739
% a hypertex \special here.
2740
%
2741
\def\uref#1{\douref #1,,,\finish}
2742
\def\douref#1,#2,#3,#4\finish{\begingroup
2743
  \unsepspaces
2744
  \pdfurl{#1}%
2745
  \setbox0 = \hbox{\ignorespaces #3}%
2746
  \ifdim\wd0 > 0pt
2747
    \unhbox0 % third arg given, show only that
2748
  \else
2749
    \setbox0 = \hbox{\ignorespaces #2}%
2750
    \ifdim\wd0 > 0pt
2751
      \ifpdf
2752
        \unhbox0             % PDF: 2nd arg given, show only it
2753
      \else
2754
        \unhbox0\ (\code{#1})% DVI: 2nd arg given, show both it and url
2755
      \fi
2756
    \else
2757
      \code{#1}% only url given, so show it
2758
    \fi
2759
  \fi
2760
  \endlink
2761
\endgroup}
2762
 
2763
% @url synonym for @uref, since that's how everyone uses it.
2764
%
2765
\let\url=\uref
2766
 
2767
% rms does not like angle brackets --karl, 17may97.
2768
% So now @email is just like @uref, unless we are pdf.
2769
%
2770
%\def\email#1{\angleleft{\tt #1}\angleright}
2771
\ifpdf
2772
  \def\email#1{\doemail#1,,\finish}
2773
  \def\doemail#1,#2,#3\finish{\begingroup
2774
    \unsepspaces
2775
    \pdfurl{mailto:#1}%
2776
    \setbox0 = \hbox{\ignorespaces #2}%
2777
    \ifdim\wd0>0pt\unhbox0\else\code{#1}\fi
2778
    \endlink
2779
  \endgroup}
2780
\else
2781
  \let\email=\uref
2782
\fi
2783
 
2784
% Typeset a dimension, e.g., `in' or `pt'.  The only reason for the
2785
% argument is to make the input look right: @dmn{pt} instead of @dmn{}pt.
2786
%
2787
\def\dmn#1{\thinspace #1}
2788
 
2789
% @l was never documented to mean ``switch to the Lisp font'',
2790
% and it is not used as such in any manual I can find.  We need it for
2791
% Polish suppressed-l.  --karl, 22sep96.
2792
%\def\l#1{{\li #1}\null}
2793
 
2794
% @acronym for "FBI", "NATO", and the like.
2795
% We print this one point size smaller, since it's intended for
2796
% all-uppercase.
2797
%
2798
\def\acronym#1{\doacronym #1,,\finish}
2799
\def\doacronym#1,#2,#3\finish{%
2800
  {\selectfonts\lsize #1}%
2801
  \def\temp{#2}%
2802
  \ifx\temp\empty \else
2803
    \space ({\unsepspaces \ignorespaces \temp \unskip})%
2804
  \fi
2805
}
2806
 
2807
% @abbr for "Comput. J." and the like.
2808
% No font change, but don't do end-of-sentence spacing.
2809
%
2810
\def\abbr#1{\doabbr #1,,\finish}
2811
\def\doabbr#1,#2,#3\finish{%
2812
  {\plainfrenchspacing #1}%
2813
  \def\temp{#2}%
2814
  \ifx\temp\empty \else
2815
    \space ({\unsepspaces \ignorespaces \temp \unskip})%
2816
  \fi
2817
}
2818
 
2819
 
2820
\message{glyphs,}
2821
 
2822
% @point{}, @result{}, @expansion{}, @print{}, @equiv{}.
2823
%
2824
% Since these characters are used in examples, they should be an even number of
2825
% \tt widths. Each \tt character is 1en, so two makes it 1em.
2826
%
2827
\def\point{$\star$}
2828
\def\arrow{\leavevmode\raise.05ex\hbox to 1em{\hfil$\rightarrow$\hfil}}
2829
\def\result{\leavevmode\raise.05ex\hbox to 1em{\hfil$\Rightarrow$\hfil}}
2830
\def\expansion{\leavevmode\hbox to 1em{\hfil$\mapsto$\hfil}}
2831
\def\print{\leavevmode\lower.1ex\hbox to 1em{\hfil$\dashv$\hfil}}
2832
\def\equiv{\leavevmode\hbox to 1em{\hfil$\ptexequiv$\hfil}}
2833
 
2834
% The @error{} command.
2835
% Adapted from the TeXbook's \boxit.
2836
%
2837
\newbox\errorbox
2838
%
2839
{\tentt \global\dimen0 = 3em}% Width of the box.
2840
\dimen2 = .55pt % Thickness of rules
2841
% The text. (`r' is open on the right, `e' somewhat less so on the left.)
2842
\setbox0 = \hbox{\kern-.75pt \reducedsf error\kern-1.5pt}
2843
%
2844
\setbox\errorbox=\hbox to \dimen0{\hfil
2845
   \hsize = \dimen0 \advance\hsize by -5.8pt % Space to left+right.
2846
   \advance\hsize by -2\dimen2 % Rules.
2847
   \vbox{%
2848
      \hrule height\dimen2
2849
      \hbox{\vrule width\dimen2 \kern3pt          % Space to left of text.
2850
         \vtop{\kern2.4pt \box0 \kern2.4pt}% Space above/below.
2851
         \kern3pt\vrule width\dimen2}% Space to right.
2852
      \hrule height\dimen2}
2853
    \hfil}
2854
%
2855
\def\error{\leavevmode\lower.7ex\copy\errorbox}
2856
 
2857
% @pounds{} is a sterling sign, which Knuth put in the CM italic font.
2858
%
2859
\def\pounds{{\it\$}}
2860
 
2861
% @euro{} comes from a separate font, depending on the current style.
2862
% We use the free feym* fonts from the eurosym package by Henrik
2863
% Theiling, which support regular, slanted, bold and bold slanted (and
2864
% "outlined" (blackboard board, sort of) versions, which we don't need).
2865
% It is available from http://www.ctan.org/tex-archive/fonts/eurosym.
2866
%
2867
% Although only regular is the truly official Euro symbol, we ignore
2868
% that.  The Euro is designed to be slightly taller than the regular
2869
% font height.
2870
%
2871
% feymr - regular
2872
% feymo - slanted
2873
% feybr - bold
2874
% feybo - bold slanted
2875
%
2876
% There is no good (free) typewriter version, to my knowledge.
2877
% A feymr10 euro is ~7.3pt wide, while a normal cmtt10 char is ~5.25pt wide.
2878
% Hmm.
2879
%
2880
% Also doesn't work in math.  Do we need to do math with euro symbols?
2881
% Hope not.
2882
%
2883
%
2884
\def\euro{{\eurofont e}}
2885
\def\eurofont{%
2886
  % We set the font at each command, rather than predefining it in
2887
  % \textfonts and the other font-switching commands, so that
2888
  % installations which never need the symbol don't have to have the
2889
  % font installed.
2890
  %
2891
  % There is only one designed size (nominal 10pt), so we always scale
2892
  % that to the current nominal size.
2893
  %
2894
  % By the way, simply using "at 1em" works for cmr10 and the like, but
2895
  % does not work for cmbx10 and other extended/shrunken fonts.
2896
  %
2897
  \def\eurosize{\csname\curfontsize nominalsize\endcsname}%
2898
  %
2899
  \ifx\curfontstyle\bfstylename
2900
    % bold:
2901
    \font\thiseurofont = \ifusingit{feybo10}{feybr10} at \eurosize
2902
  \else
2903
    % regular:
2904
    \font\thiseurofont = \ifusingit{feymo10}{feymr10} at \eurosize
2905
  \fi
2906
  \thiseurofont
2907
}
2908
 
2909
% Glyphs from the EC fonts.  We don't use \let for the aliases, because
2910
% sometimes we redefine the original macro, and the alias should reflect
2911
% the redefinition.
2912
%
2913
% Use LaTeX names for the Icelandic letters.
2914
\def\DH{{\ecfont \char"D0}} % Eth
2915
\def\dh{{\ecfont \char"F0}} % eth
2916
\def\TH{{\ecfont \char"DE}} % Thorn
2917
\def\th{{\ecfont \char"FE}} % thorn
2918
%
2919
\def\guillemetleft{{\ecfont \char"13}}
2920
\def\guillemotleft{\guillemetleft}
2921
\def\guillemetright{{\ecfont \char"14}}
2922
\def\guillemotright{\guillemetright}
2923
\def\guilsinglleft{{\ecfont \char"0E}}
2924
\def\guilsinglright{{\ecfont \char"0F}}
2925
\def\quotedblbase{{\ecfont \char"12}}
2926
\def\quotesinglbase{{\ecfont \char"0D}}
2927
%
2928
% This positioning is not perfect (see the ogonek LaTeX package), but
2929
% we have the precomposed glyphs for the most common cases.  We put the
2930
% tests to use those glyphs in the single \ogonek macro so we have fewer
2931
% dummy definitions to worry about for index entries, etc.
2932
%
2933
% ogonek is also used with other letters in Lithuanian (IOU), but using
2934
% the precomposed glyphs for those is not so easy since they aren't in
2935
% the same EC font.
2936
\def\ogonek#1{{%
2937
  \def\temp{#1}%
2938
  \ifx\temp\macrocharA\Aogonek
2939
  \else\ifx\temp\macrochara\aogonek
2940
  \else\ifx\temp\macrocharE\Eogonek
2941
  \else\ifx\temp\macrochare\eogonek
2942
  \else
2943
    \ecfont \setbox0=\hbox{#1}%
2944
    \ifdim\ht0=1ex\accent"0C #1%
2945
    \else\ooalign{\unhbox0\crcr\hidewidth\char"0C \hidewidth}%
2946
    \fi
2947
  \fi\fi\fi\fi
2948
  }%
2949
}
2950
\def\Aogonek{{\ecfont \char"81}}\def\macrocharA{A}
2951
\def\aogonek{{\ecfont \char"A1}}\def\macrochara{a}
2952
\def\Eogonek{{\ecfont \char"86}}\def\macrocharE{E}
2953
\def\eogonek{{\ecfont \char"A6}}\def\macrochare{e}
2954
%
2955
% Use the ec* fonts (cm-super in outline format) for non-CM glyphs.
2956
\def\ecfont{%
2957
  % We can't distinguish serif/sans and italic/slanted, but this
2958
  % is used for crude hacks anyway (like adding French and German
2959
  % quotes to documents typeset with CM, where we lose kerning), so
2960
  % hopefully nobody will notice/care.
2961
  \edef\ecsize{\csname\curfontsize ecsize\endcsname}%
2962
  \edef\nominalsize{\csname\curfontsize nominalsize\endcsname}%
2963
  \ifx\curfontstyle\bfstylename
2964
    % bold:
2965
    \font\thisecfont = ecb\ifusingit{i}{x}\ecsize \space at \nominalsize
2966
  \else
2967
    % regular:
2968
    \font\thisecfont = ec\ifusingit{ti}{rm}\ecsize \space at \nominalsize
2969
  \fi
2970
  \thisecfont
2971
}
2972
 
2973
% @registeredsymbol - R in a circle.  The font for the R should really
2974
% be smaller yet, but lllsize is the best we can do for now.
2975
% Adapted from the plain.tex definition of \copyright.
2976
%
2977
\def\registeredsymbol{%
2978
  $^{{\ooalign{\hfil\raise.07ex\hbox{\selectfonts\lllsize R}%
2979
               \hfil\crcr\Orb}}%
2980
    }$%
2981
}
2982
 
2983
% @textdegree - the normal degrees sign.
2984
%
2985
\def\textdegree{$^\circ$}
2986
 
2987
% Laurent Siebenmann reports \Orb undefined with:
2988
%  Textures 1.7.7 (preloaded format=plain 93.10.14)  (68K)  16 APR 2004 02:38
2989
% so we'll define it if necessary.
2990
%
2991
\ifx\Orb\undefined
2992
\def\Orb{\mathhexbox20D}
2993
\fi
2994
 
2995
% Quotes.
2996
\chardef\quotedblleft="5C
2997
\chardef\quotedblright=`\"
2998
\chardef\quoteleft=`\`
2999
\chardef\quoteright=`\'
3000
 
3001
 
3002
\message{page headings,}
3003
 
3004
\newskip\titlepagetopglue \titlepagetopglue = 1.5in
3005
\newskip\titlepagebottomglue \titlepagebottomglue = 2pc
3006
 
3007
% First the title page.  Must do @settitle before @titlepage.
3008
\newif\ifseenauthor
3009
\newif\iffinishedtitlepage
3010
 
3011
% Do an implicit @contents or @shortcontents after @end titlepage if the
3012
% user says @setcontentsaftertitlepage or @setshortcontentsaftertitlepage.
3013
%
3014
\newif\ifsetcontentsaftertitlepage
3015
 \let\setcontentsaftertitlepage = \setcontentsaftertitlepagetrue
3016
\newif\ifsetshortcontentsaftertitlepage
3017
 \let\setshortcontentsaftertitlepage = \setshortcontentsaftertitlepagetrue
3018
 
3019
\parseargdef\shorttitlepage{\begingroup\hbox{}\vskip 1.5in \chaprm \centerline{#1}%
3020
        \endgroup\page\hbox{}\page}
3021
 
3022
\envdef\titlepage{%
3023
  % Open one extra group, as we want to close it in the middle of \Etitlepage.
3024
  \begingroup
3025
    \parindent=0pt \textfonts
3026
    % Leave some space at the very top of the page.
3027
    \vglue\titlepagetopglue
3028
    % No rule at page bottom unless we print one at the top with @title.
3029
    \finishedtitlepagetrue
3030
    %
3031
    % Most title ``pages'' are actually two pages long, with space
3032
    % at the top of the second.  We don't want the ragged left on the second.
3033
    \let\oldpage = \page
3034
    \def\page{%
3035
      \iffinishedtitlepage\else
3036
         \finishtitlepage
3037
      \fi
3038
      \let\page = \oldpage
3039
      \page
3040
      \null
3041
    }%
3042
}
3043
 
3044
\def\Etitlepage{%
3045
    \iffinishedtitlepage\else
3046
        \finishtitlepage
3047
    \fi
3048
    % It is important to do the page break before ending the group,
3049
    % because the headline and footline are only empty inside the group.
3050
    % If we use the new definition of \page, we always get a blank page
3051
    % after the title page, which we certainly don't want.
3052
    \oldpage
3053
  \endgroup
3054
  %
3055
  % Need this before the \...aftertitlepage checks so that if they are
3056
  % in effect the toc pages will come out with page numbers.
3057
  \HEADINGSon
3058
  %
3059
  % If they want short, they certainly want long too.
3060
  \ifsetshortcontentsaftertitlepage
3061
    \shortcontents
3062
    \contents
3063
    \global\let\shortcontents = \relax
3064
    \global\let\contents = \relax
3065
  \fi
3066
  %
3067
  \ifsetcontentsaftertitlepage
3068
    \contents
3069
    \global\let\contents = \relax
3070
    \global\let\shortcontents = \relax
3071
  \fi
3072
}
3073
 
3074
\def\finishtitlepage{%
3075
  \vskip4pt \hrule height 2pt width \hsize
3076
  \vskip\titlepagebottomglue
3077
  \finishedtitlepagetrue
3078
}
3079
 
3080
%%% Macros to be used within @titlepage:
3081
 
3082
\let\subtitlerm=\tenrm
3083
\def\subtitlefont{\subtitlerm \normalbaselineskip = 13pt \normalbaselines}
3084
 
3085
\parseargdef\title{%
3086
  \checkenv\titlepage
3087
  \leftline{\titlefonts\rmisbold #1}
3088
  % print a rule at the page bottom also.
3089
  \finishedtitlepagefalse
3090
  \vskip4pt \hrule height 4pt width \hsize \vskip4pt
3091
}
3092
 
3093
\parseargdef\subtitle{%
3094
  \checkenv\titlepage
3095
  {\subtitlefont \rightline{#1}}%
3096
}
3097
 
3098
% @author should come last, but may come many times.
3099
% It can also be used inside @quotation.
3100
%
3101
\parseargdef\author{%
3102
  \def\temp{\quotation}%
3103
  \ifx\thisenv\temp
3104
    \def\quotationauthor{#1}% printed in \Equotation.
3105
  \else
3106
    \checkenv\titlepage
3107
    \ifseenauthor\else \vskip 0pt plus 1filll \seenauthortrue \fi
3108
    {\secfonts\rmisbold \leftline{#1}}%
3109
  \fi
3110
}
3111
 
3112
 
3113
%%% Set up page headings and footings.
3114
 
3115
\let\thispage=\folio
3116
 
3117
\newtoks\evenheadline    % headline on even pages
3118
\newtoks\oddheadline     % headline on odd pages
3119
\newtoks\evenfootline    % footline on even pages
3120
\newtoks\oddfootline     % footline on odd pages
3121
 
3122
% Now make TeX use those variables
3123
\headline={{\textfonts\rm \ifodd\pageno \the\oddheadline
3124
                            \else \the\evenheadline \fi}}
3125
\footline={{\textfonts\rm \ifodd\pageno \the\oddfootline
3126
                            \else \the\evenfootline \fi}\HEADINGShook}
3127
\let\HEADINGShook=\relax
3128
 
3129
% Commands to set those variables.
3130
% For example, this is what  @headings on  does
3131
% @evenheading @thistitle|@thispage|@thischapter
3132
% @oddheading @thischapter|@thispage|@thistitle
3133
% @evenfooting @thisfile||
3134
% @oddfooting ||@thisfile
3135
 
3136
 
3137
\def\evenheading{\parsearg\evenheadingxxx}
3138
\def\evenheadingxxx #1{\evenheadingyyy #1\|\|\|\|\finish}
3139
\def\evenheadingyyy #1\|#2\|#3\|#4\finish{%
3140
\global\evenheadline={\rlap{\centerline{#2}}\line{#1\hfil#3}}}
3141
 
3142
\def\oddheading{\parsearg\oddheadingxxx}
3143
\def\oddheadingxxx #1{\oddheadingyyy #1\|\|\|\|\finish}
3144
\def\oddheadingyyy #1\|#2\|#3\|#4\finish{%
3145
\global\oddheadline={\rlap{\centerline{#2}}\line{#1\hfil#3}}}
3146
 
3147
\parseargdef\everyheading{\oddheadingxxx{#1}\evenheadingxxx{#1}}%
3148
 
3149
\def\evenfooting{\parsearg\evenfootingxxx}
3150
\def\evenfootingxxx #1{\evenfootingyyy #1\|\|\|\|\finish}
3151
\def\evenfootingyyy #1\|#2\|#3\|#4\finish{%
3152
\global\evenfootline={\rlap{\centerline{#2}}\line{#1\hfil#3}}}
3153
 
3154
\def\oddfooting{\parsearg\oddfootingxxx}
3155
\def\oddfootingxxx #1{\oddfootingyyy #1\|\|\|\|\finish}
3156
\def\oddfootingyyy #1\|#2\|#3\|#4\finish{%
3157
  \global\oddfootline = {\rlap{\centerline{#2}}\line{#1\hfil#3}}%
3158
  %
3159
  % Leave some space for the footline.  Hopefully ok to assume
3160
  % @evenfooting will not be used by itself.
3161
  \global\advance\pageheight by -12pt
3162
  \global\advance\vsize by -12pt
3163
}
3164
 
3165
\parseargdef\everyfooting{\oddfootingxxx{#1}\evenfootingxxx{#1}}
3166
 
3167
% @evenheadingmarks top     \thischapter <- chapter at the top of a page
3168
% @evenheadingmarks bottom  \thischapter <- chapter at the bottom of a page
3169
%
3170
% The same set of arguments for:
3171
%
3172
% @oddheadingmarks
3173
% @evenfootingmarks
3174
% @oddfootingmarks
3175
% @everyheadingmarks
3176
% @everyfootingmarks
3177
 
3178
\def\evenheadingmarks{\headingmarks{even}{heading}}
3179
\def\oddheadingmarks{\headingmarks{odd}{heading}}
3180
\def\evenfootingmarks{\headingmarks{even}{footing}}
3181
\def\oddfootingmarks{\headingmarks{odd}{footing}}
3182
\def\everyheadingmarks#1 {\headingmarks{even}{heading}{#1}
3183
                          \headingmarks{odd}{heading}{#1} }
3184
\def\everyfootingmarks#1 {\headingmarks{even}{footing}{#1}
3185
                          \headingmarks{odd}{footing}{#1} }
3186
% #1 = even/odd, #2 = heading/footing, #3 = top/bottom.
3187
\def\headingmarks#1#2#3 {%
3188
  \expandafter\let\expandafter\temp \csname get#3headingmarks\endcsname
3189
  \global\expandafter\let\csname get#1#2marks\endcsname \temp
3190
}
3191
 
3192
\everyheadingmarks bottom
3193
\everyfootingmarks bottom
3194
 
3195
% @headings double      turns headings on for double-sided printing.
3196
% @headings single      turns headings on for single-sided printing.
3197
% @headings off         turns them off.
3198
% @headings on          same as @headings double, retained for compatibility.
3199
% @headings after       turns on double-sided headings after this page.
3200
% @headings doubleafter turns on double-sided headings after this page.
3201
% @headings singleafter turns on single-sided headings after this page.
3202
% By default, they are off at the start of a document,
3203
% and turned `on' after @end titlepage.
3204
 
3205
\def\headings #1 {\csname HEADINGS#1\endcsname}
3206
 
3207
\def\HEADINGSoff{%
3208
\global\evenheadline={\hfil} \global\evenfootline={\hfil}
3209
\global\oddheadline={\hfil} \global\oddfootline={\hfil}}
3210
\HEADINGSoff
3211
% When we turn headings on, set the page number to 1.
3212
% For double-sided printing, put current file name in lower left corner,
3213
% chapter name on inside top of right hand pages, document
3214
% title on inside top of left hand pages, and page numbers on outside top
3215
% edge of all pages.
3216
\def\HEADINGSdouble{%
3217
\global\pageno=1
3218
\global\evenfootline={\hfil}
3219
\global\oddfootline={\hfil}
3220
\global\evenheadline={\line{\folio\hfil\thistitle}}
3221
\global\oddheadline={\line{\thischapter\hfil\folio}}
3222
\global\let\contentsalignmacro = \chapoddpage
3223
}
3224
\let\contentsalignmacro = \chappager
3225
 
3226
% For single-sided printing, chapter title goes across top left of page,
3227
% page number on top right.
3228
\def\HEADINGSsingle{%
3229
\global\pageno=1
3230
\global\evenfootline={\hfil}
3231
\global\oddfootline={\hfil}
3232
\global\evenheadline={\line{\thischapter\hfil\folio}}
3233
\global\oddheadline={\line{\thischapter\hfil\folio}}
3234
\global\let\contentsalignmacro = \chappager
3235
}
3236
\def\HEADINGSon{\HEADINGSdouble}
3237
 
3238
\def\HEADINGSafter{\let\HEADINGShook=\HEADINGSdoublex}
3239
\let\HEADINGSdoubleafter=\HEADINGSafter
3240
\def\HEADINGSdoublex{%
3241
\global\evenfootline={\hfil}
3242
\global\oddfootline={\hfil}
3243
\global\evenheadline={\line{\folio\hfil\thistitle}}
3244
\global\oddheadline={\line{\thischapter\hfil\folio}}
3245
\global\let\contentsalignmacro = \chapoddpage
3246
}
3247
 
3248
\def\HEADINGSsingleafter{\let\HEADINGShook=\HEADINGSsinglex}
3249
\def\HEADINGSsinglex{%
3250
\global\evenfootline={\hfil}
3251
\global\oddfootline={\hfil}
3252
\global\evenheadline={\line{\thischapter\hfil\folio}}
3253
\global\oddheadline={\line{\thischapter\hfil\folio}}
3254
\global\let\contentsalignmacro = \chappager
3255
}
3256
 
3257
% Subroutines used in generating headings
3258
% This produces Day Month Year style of output.
3259
% Only define if not already defined, in case a txi-??.tex file has set
3260
% up a different format (e.g., txi-cs.tex does this).
3261
\ifx\today\undefined
3262
\def\today{%
3263
  \number\day\space
3264
  \ifcase\month
3265
  \or\putwordMJan\or\putwordMFeb\or\putwordMMar\or\putwordMApr
3266
  \or\putwordMMay\or\putwordMJun\or\putwordMJul\or\putwordMAug
3267
  \or\putwordMSep\or\putwordMOct\or\putwordMNov\or\putwordMDec
3268
  \fi
3269
  \space\number\year}
3270
\fi
3271
 
3272
% @settitle line...  specifies the title of the document, for headings.
3273
% It generates no output of its own.
3274
\def\thistitle{\putwordNoTitle}
3275
\def\settitle{\parsearg{\gdef\thistitle}}
3276
 
3277
 
3278
\message{tables,}
3279
% Tables -- @table, @ftable, @vtable, @item(x).
3280
 
3281
% default indentation of table text
3282
\newdimen\tableindent \tableindent=.8in
3283
% default indentation of @itemize and @enumerate text
3284
\newdimen\itemindent  \itemindent=.3in
3285
% margin between end of table item and start of table text.
3286
\newdimen\itemmargin  \itemmargin=.1in
3287
 
3288
% used internally for \itemindent minus \itemmargin
3289
\newdimen\itemmax
3290
 
3291
% Note @table, @ftable, and @vtable define @item, @itemx, etc., with
3292
% these defs.
3293
% They also define \itemindex
3294
% to index the item name in whatever manner is desired (perhaps none).
3295
 
3296
\newif\ifitemxneedsnegativevskip
3297
 
3298
\def\itemxpar{\par\ifitemxneedsnegativevskip\nobreak\vskip-\parskip\nobreak\fi}
3299
 
3300
\def\internalBitem{\smallbreak \parsearg\itemzzz}
3301
\def\internalBitemx{\itemxpar \parsearg\itemzzz}
3302
 
3303
\def\itemzzz #1{\begingroup %
3304
  \advance\hsize by -\rightskip
3305
  \advance\hsize by -\tableindent
3306
  \setbox0=\hbox{\itemindicate{#1}}%
3307
  \itemindex{#1}%
3308
  \nobreak % This prevents a break before @itemx.
3309
  %
3310
  % If the item text does not fit in the space we have, put it on a line
3311
  % by itself, and do not allow a page break either before or after that
3312
  % line.  We do not start a paragraph here because then if the next
3313
  % command is, e.g., @kindex, the whatsit would get put into the
3314
  % horizontal list on a line by itself, resulting in extra blank space.
3315
  \ifdim \wd0>\itemmax
3316
    %
3317
    % Make this a paragraph so we get the \parskip glue and wrapping,
3318
    % but leave it ragged-right.
3319
    \begingroup
3320
      \advance\leftskip by-\tableindent
3321
      \advance\hsize by\tableindent
3322
      \advance\rightskip by0pt plus1fil
3323
      \leavevmode\unhbox0\par
3324
    \endgroup
3325
    %
3326
    % We're going to be starting a paragraph, but we don't want the
3327
    % \parskip glue -- logically it's part of the @item we just started.
3328
    \nobreak \vskip-\parskip
3329
    %
3330
    % Stop a page break at the \parskip glue coming up.  However, if
3331
    % what follows is an environment such as @example, there will be no
3332
    % \parskip glue; then the negative vskip we just inserted would
3333
    % cause the example and the item to crash together.  So we use this
3334
    % bizarre value of 10001 as a signal to \aboveenvbreak to insert
3335
    % \parskip glue after all.  Section titles are handled this way also.
3336
    %
3337
    \penalty 10001
3338
    \endgroup
3339
    \itemxneedsnegativevskipfalse
3340
  \else
3341
    % The item text fits into the space.  Start a paragraph, so that the
3342
    % following text (if any) will end up on the same line.
3343
    \noindent
3344
    % Do this with kerns and \unhbox so that if there is a footnote in
3345
    % the item text, it can migrate to the main vertical list and
3346
    % eventually be printed.
3347
    \nobreak\kern-\tableindent
3348
    \dimen0 = \itemmax  \advance\dimen0 by \itemmargin \advance\dimen0 by -\wd0
3349
    \unhbox0
3350
    \nobreak\kern\dimen0
3351
    \endgroup
3352
    \itemxneedsnegativevskiptrue
3353
  \fi
3354
}
3355
 
3356
\def\item{\errmessage{@item while not in a list environment}}
3357
\def\itemx{\errmessage{@itemx while not in a list environment}}
3358
 
3359
% @table, @ftable, @vtable.
3360
\envdef\table{%
3361
  \let\itemindex\gobble
3362
  \tablecheck{table}%
3363
}
3364
\envdef\ftable{%
3365
  \def\itemindex ##1{\doind {fn}{\code{##1}}}%
3366
  \tablecheck{ftable}%
3367
}
3368
\envdef\vtable{%
3369
  \def\itemindex ##1{\doind {vr}{\code{##1}}}%
3370
  \tablecheck{vtable}%
3371
}
3372
\def\tablecheck#1{%
3373
  \ifnum \the\catcode`\^^M=\active
3374
    \endgroup
3375
    \errmessage{This command won't work in this context; perhaps the problem is
3376
      that we are \inenvironment\thisenv}%
3377
    \def\next{\doignore{#1}}%
3378
  \else
3379
    \let\next\tablex
3380
  \fi
3381
  \next
3382
}
3383
\def\tablex#1{%
3384
  \def\itemindicate{#1}%
3385
  \parsearg\tabley
3386
}
3387
\def\tabley#1{%
3388
  {%
3389
    \makevalueexpandable
3390
    \edef\temp{\noexpand\tablez #1\space\space\space}%
3391
    \expandafter
3392
  }\temp \endtablez
3393
}
3394
\def\tablez #1 #2 #3 #4\endtablez{%
3395
  \aboveenvbreak
3396
  \ifnum 0#1>0 \advance \leftskip by #1\mil \fi
3397
  \ifnum 0#2>0 \tableindent=#2\mil \fi
3398
  \ifnum 0#3>0 \advance \rightskip by #3\mil \fi
3399
  \itemmax=\tableindent
3400
  \advance \itemmax by -\itemmargin
3401
  \advance \leftskip by \tableindent
3402
  \exdentamount=\tableindent
3403
  \parindent = 0pt
3404
  \parskip = \smallskipamount
3405
  \ifdim \parskip=0pt \parskip=2pt \fi
3406
  \let\item = \internalBitem
3407
  \let\itemx = \internalBitemx
3408
}
3409
\def\Etable{\endgraf\afterenvbreak}
3410
\let\Eftable\Etable
3411
\let\Evtable\Etable
3412
\let\Eitemize\Etable
3413
\let\Eenumerate\Etable
3414
 
3415
% This is the counter used by @enumerate, which is really @itemize
3416
 
3417
\newcount \itemno
3418
 
3419
\envdef\itemize{\parsearg\doitemize}
3420
 
3421
\def\doitemize#1{%
3422
  \aboveenvbreak
3423
  \itemmax=\itemindent
3424
  \advance\itemmax by -\itemmargin
3425
  \advance\leftskip by \itemindent
3426
  \exdentamount=\itemindent
3427
  \parindent=0pt
3428
  \parskip=\smallskipamount
3429
  \ifdim\parskip=0pt \parskip=2pt \fi
3430
  %
3431
  % Try typesetting the item mark that if the document erroneously says
3432
  % something like @itemize @samp (intending @table), there's an error
3433
  % right away at the @itemize.  It's not the best error message in the
3434
  % world, but it's better than leaving it to the @item.  This means if
3435
  % the user wants an empty mark, they have to say @w{} not just @w.
3436
  \def\itemcontents{#1}%
3437
  \setbox0 = \hbox{\itemcontents}%
3438
  %
3439
  % @itemize with no arg is equivalent to @itemize @bullet.
3440
  \ifx\itemcontents\empty\def\itemcontents{\bullet}\fi
3441
  %
3442
  \let\item=\itemizeitem
3443
}
3444
 
3445
% Definition of @item while inside @itemize and @enumerate.
3446
%
3447
\def\itemizeitem{%
3448
  \advance\itemno by 1  % for enumerations
3449
  {\let\par=\endgraf \smallbreak}% reasonable place to break
3450
  {%
3451
   % If the document has an @itemize directly after a section title, a
3452
   % \nobreak will be last on the list, and \sectionheading will have
3453
   % done a \vskip-\parskip.  In that case, we don't want to zero
3454
   % parskip, or the item text will crash with the heading.  On the
3455
   % other hand, when there is normal text preceding the item (as there
3456
   % usually is), we do want to zero parskip, or there would be too much
3457
   % space.  In that case, we won't have a \nobreak before.  At least
3458
   % that's the theory.
3459
   \ifnum\lastpenalty<10000 \parskip=0in \fi
3460
   \noindent
3461
   \hbox to 0pt{\hss \itemcontents \kern\itemmargin}%
3462
   %
3463
   \vadjust{\penalty 1200}}% not good to break after first line of item.
3464
  \flushcr
3465
}
3466
 
3467
% \splitoff TOKENS\endmark defines \first to be the first token in
3468
% TOKENS, and \rest to be the remainder.
3469
%
3470
\def\splitoff#1#2\endmark{\def\first{#1}\def\rest{#2}}%
3471
 
3472
% Allow an optional argument of an uppercase letter, lowercase letter,
3473
% or number, to specify the first label in the enumerated list.  No
3474
% argument is the same as `1'.
3475
%
3476
\envparseargdef\enumerate{\enumeratey #1  \endenumeratey}
3477
\def\enumeratey #1 #2\endenumeratey{%
3478
  % If we were given no argument, pretend we were given `1'.
3479
  \def\thearg{#1}%
3480
  \ifx\thearg\empty \def\thearg{1}\fi
3481
  %
3482
  % Detect if the argument is a single token.  If so, it might be a
3483
  % letter.  Otherwise, the only valid thing it can be is a number.
3484
  % (We will always have one token, because of the test we just made.
3485
  % This is a good thing, since \splitoff doesn't work given nothing at
3486
  % all -- the first parameter is undelimited.)
3487
  \expandafter\splitoff\thearg\endmark
3488
  \ifx\rest\empty
3489
    % Only one token in the argument.  It could still be anything.
3490
    % A ``lowercase letter'' is one whose \lccode is nonzero.
3491
    % An ``uppercase letter'' is one whose \lccode is both nonzero, and
3492
    %   not equal to itself.
3493
    % Otherwise, we assume it's a number.
3494
    %
3495
    % We need the \relax at the end of the \ifnum lines to stop TeX from
3496
    % continuing to look for a <number>.
3497
    %
3498
    \ifnum\lccode\expandafter`\thearg=0\relax
3499
      \numericenumerate % a number (we hope)
3500
    \else
3501
      % It's a letter.
3502
      \ifnum\lccode\expandafter`\thearg=\expandafter`\thearg\relax
3503
        \lowercaseenumerate % lowercase letter
3504
      \else
3505
        \uppercaseenumerate % uppercase letter
3506
      \fi
3507
    \fi
3508
  \else
3509
    % Multiple tokens in the argument.  We hope it's a number.
3510
    \numericenumerate
3511
  \fi
3512
}
3513
 
3514
% An @enumerate whose labels are integers.  The starting integer is
3515
% given in \thearg.
3516
%
3517
\def\numericenumerate{%
3518
  \itemno = \thearg
3519
  \startenumeration{\the\itemno}%
3520
}
3521
 
3522
% The starting (lowercase) letter is in \thearg.
3523
\def\lowercaseenumerate{%
3524
  \itemno = \expandafter`\thearg
3525
  \startenumeration{%
3526
    % Be sure we're not beyond the end of the alphabet.
3527
    \ifnum\itemno=0
3528
      \errmessage{No more lowercase letters in @enumerate; get a bigger
3529
                  alphabet}%
3530
    \fi
3531
    \char\lccode\itemno
3532
  }%
3533
}
3534
 
3535
% The starting (uppercase) letter is in \thearg.
3536
\def\uppercaseenumerate{%
3537
  \itemno = \expandafter`\thearg
3538
  \startenumeration{%
3539
    % Be sure we're not beyond the end of the alphabet.
3540
    \ifnum\itemno=0
3541
      \errmessage{No more uppercase letters in @enumerate; get a bigger
3542
                  alphabet}
3543
    \fi
3544
    \char\uccode\itemno
3545
  }%
3546
}
3547
 
3548
% Call \doitemize, adding a period to the first argument and supplying the
3549
% common last two arguments.  Also subtract one from the initial value in
3550
% \itemno, since @item increments \itemno.
3551
%
3552
\def\startenumeration#1{%
3553
  \advance\itemno by -1
3554
  \doitemize{#1.}\flushcr
3555
}
3556
 
3557
% @alphaenumerate and @capsenumerate are abbreviations for giving an arg
3558
% to @enumerate.
3559
%
3560
\def\alphaenumerate{\enumerate{a}}
3561
\def\capsenumerate{\enumerate{A}}
3562
\def\Ealphaenumerate{\Eenumerate}
3563
\def\Ecapsenumerate{\Eenumerate}
3564
 
3565
 
3566
% @multitable macros
3567
% Amy Hendrickson, 8/18/94, 3/6/96
3568
%
3569
% @multitable ... @end multitable will make as many columns as desired.
3570
% Contents of each column will wrap at width given in preamble.  Width
3571
% can be specified either with sample text given in a template line,
3572
% or in percent of \hsize, the current width of text on page.
3573
 
3574
% Table can continue over pages but will only break between lines.
3575
 
3576
% To make preamble:
3577
%
3578
% Either define widths of columns in terms of percent of \hsize:
3579
%   @multitable @columnfractions .25 .3 .45
3580
%   @item ...
3581
%
3582
%   Numbers following @columnfractions are the percent of the total
3583
%   current hsize to be used for each column. You may use as many
3584
%   columns as desired.
3585
 
3586
 
3587
% Or use a template:
3588
%   @multitable {Column 1 template} {Column 2 template} {Column 3 template}
3589
%   @item ...
3590
%   using the widest term desired in each column.
3591
 
3592
% Each new table line starts with @item, each subsequent new column
3593
% starts with @tab. Empty columns may be produced by supplying @tab's
3594
% with nothing between them for as many times as empty columns are needed,
3595
% ie, @tab@tab@tab will produce two empty columns.
3596
 
3597
% @item, @tab do not need to be on their own lines, but it will not hurt
3598
% if they are.
3599
 
3600
% Sample multitable:
3601
 
3602
%   @multitable {Column 1 template} {Column 2 template} {Column 3 template}
3603
%   @item first col stuff @tab second col stuff @tab third col
3604
%   @item
3605
%   first col stuff
3606
%   @tab
3607
%   second col stuff
3608
%   @tab
3609
%   third col
3610
%   @item first col stuff @tab second col stuff
3611
%   @tab Many paragraphs of text may be used in any column.
3612
%
3613
%         They will wrap at the width determined by the template.
3614
%   @item@tab@tab This will be in third column.
3615
%   @end multitable
3616
 
3617
% Default dimensions may be reset by user.
3618
% @multitableparskip is vertical space between paragraphs in table.
3619
% @multitableparindent is paragraph indent in table.
3620
% @multitablecolmargin is horizontal space to be left between columns.
3621
% @multitablelinespace is space to leave between table items, baseline
3622
%                                                            to baseline.
3623
%   0pt means it depends on current normal line spacing.
3624
%
3625
\newskip\multitableparskip
3626
\newskip\multitableparindent
3627
\newdimen\multitablecolspace
3628
\newskip\multitablelinespace
3629
\multitableparskip=0pt
3630
\multitableparindent=6pt
3631
\multitablecolspace=12pt
3632
\multitablelinespace=0pt
3633
 
3634
% Macros used to set up halign preamble:
3635
%
3636
\let\endsetuptable\relax
3637
\def\xendsetuptable{\endsetuptable}
3638
\let\columnfractions\relax
3639
\def\xcolumnfractions{\columnfractions}
3640
\newif\ifsetpercent
3641
 
3642
% #1 is the @columnfraction, usually a decimal number like .5, but might
3643
% be just 1.  We just use it, whatever it is.
3644
%
3645
\def\pickupwholefraction#1 {%
3646
  \global\advance\colcount by 1
3647
  \expandafter\xdef\csname col\the\colcount\endcsname{#1\hsize}%
3648
  \setuptable
3649
}
3650
 
3651
\newcount\colcount
3652
\def\setuptable#1{%
3653
  \def\firstarg{#1}%
3654
  \ifx\firstarg\xendsetuptable
3655
    \let\go = \relax
3656
  \else
3657
    \ifx\firstarg\xcolumnfractions
3658
      \global\setpercenttrue
3659
    \else
3660
      \ifsetpercent
3661
         \let\go\pickupwholefraction
3662
      \else
3663
         \global\advance\colcount by 1
3664
         \setbox0=\hbox{#1\unskip\space}% Add a normal word space as a
3665
                   % separator; typically that is always in the input, anyway.
3666
         \expandafter\xdef\csname col\the\colcount\endcsname{\the\wd0}%
3667
      \fi
3668
    \fi
3669
    \ifx\go\pickupwholefraction
3670
      % Put the argument back for the \pickupwholefraction call, so
3671
      % we'll always have a period there to be parsed.
3672
      \def\go{\pickupwholefraction#1}%
3673
    \else
3674
      \let\go = \setuptable
3675
    \fi%
3676
  \fi
3677
  \go
3678
}
3679
 
3680
% multitable-only commands.
3681
%
3682
% @headitem starts a heading row, which we typeset in bold.
3683
% Assignments have to be global since we are inside the implicit group
3684
% of an alignment entry.  \everycr resets \everytab so we don't have to
3685
% undo it ourselves.
3686
\def\headitemfont{\b}% for people to use in the template row; not changeable
3687
\def\headitem{%
3688
  \checkenv\multitable
3689
  \crcr
3690
  \global\everytab={\bf}% can't use \headitemfont since the parsing differs
3691
  \the\everytab % for the first item
3692
}%
3693
%
3694
% A \tab used to include \hskip1sp.  But then the space in a template
3695
% line is not enough.  That is bad.  So let's go back to just `&' until
3696
% we again encounter the problem the 1sp was intended to solve.
3697
%                                       --karl, nathan@acm.org, 20apr99.
3698
\def\tab{\checkenv\multitable &\the\everytab}%
3699
 
3700
% @multitable ... @end multitable definitions:
3701
%
3702
\newtoks\everytab  % insert after every tab.
3703
%
3704
\envdef\multitable{%
3705
  \vskip\parskip
3706
  \startsavinginserts
3707
  %
3708
  % @item within a multitable starts a normal row.
3709
  % We use \def instead of \let so that if one of the multitable entries
3710
  % contains an @itemize, we don't choke on the \item (seen as \crcr aka
3711
  % \endtemplate) expanding \doitemize.
3712
  \def\item{\crcr}%
3713
  %
3714
  \tolerance=9500
3715
  \hbadness=9500
3716
  \setmultitablespacing
3717
  \parskip=\multitableparskip
3718
  \parindent=\multitableparindent
3719
  \overfullrule=0pt
3720
  \global\colcount=0
3721
  %
3722
  \everycr = {%
3723
    \noalign{%
3724
      \global\everytab={}%
3725
      \global\colcount=0 % Reset the column counter.
3726
      % Check for saved footnotes, etc.
3727
      \checkinserts
3728
      % Keeps underfull box messages off when table breaks over pages.
3729
      %\filbreak
3730
        % Maybe so, but it also creates really weird page breaks when the
3731
        % table breaks over pages. Wouldn't \vfil be better?  Wait until the
3732
        % problem manifests itself, so it can be fixed for real --karl.
3733
    }%
3734
  }%
3735
  %
3736
  \parsearg\domultitable
3737
}
3738
\def\domultitable#1{%
3739
  % To parse everything between @multitable and @item:
3740
  \setuptable#1 \endsetuptable
3741
  %
3742
  % This preamble sets up a generic column definition, which will
3743
  % be used as many times as user calls for columns.
3744
  % \vtop will set a single line and will also let text wrap and
3745
  % continue for many paragraphs if desired.
3746
  \halign\bgroup &%
3747
    \global\advance\colcount by 1
3748
    \multistrut
3749
    \vtop{%
3750
      % Use the current \colcount to find the correct column width:
3751
      \hsize=\expandafter\csname col\the\colcount\endcsname
3752
      %
3753
      % In order to keep entries from bumping into each other
3754
      % we will add a \leftskip of \multitablecolspace to all columns after
3755
      % the first one.
3756
      %
3757
      % If a template has been used, we will add \multitablecolspace
3758
      % to the width of each template entry.
3759
      %
3760
      % If the user has set preamble in terms of percent of \hsize we will
3761
      % use that dimension as the width of the column, and the \leftskip
3762
      % will keep entries from bumping into each other.  Table will start at
3763
      % left margin and final column will justify at right margin.
3764
      %
3765
      % Make sure we don't inherit \rightskip from the outer environment.
3766
      \rightskip=0pt
3767
      \ifnum\colcount=1
3768
        % The first column will be indented with the surrounding text.
3769
        \advance\hsize by\leftskip
3770
      \else
3771
        \ifsetpercent \else
3772
          % If user has not set preamble in terms of percent of \hsize
3773
          % we will advance \hsize by \multitablecolspace.
3774
          \advance\hsize by \multitablecolspace
3775
        \fi
3776
       % In either case we will make \leftskip=\multitablecolspace:
3777
      \leftskip=\multitablecolspace
3778
      \fi
3779
      % Ignoring space at the beginning and end avoids an occasional spurious
3780
      % blank line, when TeX decides to break the line at the space before the
3781
      % box from the multistrut, so the strut ends up on a line by itself.
3782
      % For example:
3783
      % @multitable @columnfractions .11 .89
3784
      % @item @code{#}
3785
      % @tab Legal holiday which is valid in major parts of the whole country.
3786
      % Is automatically provided with highlighting sequences respectively
3787
      % marking characters.
3788
      \noindent\ignorespaces##\unskip\multistrut
3789
    }\cr
3790
}
3791
\def\Emultitable{%
3792
  \crcr
3793
  \egroup % end the \halign
3794
  \global\setpercentfalse
3795
}
3796
 
3797
\def\setmultitablespacing{%
3798
  \def\multistrut{\strut}% just use the standard line spacing
3799
  %
3800
  % Compute \multitablelinespace (if not defined by user) for use in
3801
  % \multitableparskip calculation.  We used define \multistrut based on
3802
  % this, but (ironically) that caused the spacing to be off.
3803
  % See bug-texinfo report from Werner Lemberg, 31 Oct 2004 12:52:20 +0100.
3804
\ifdim\multitablelinespace=0pt
3805
\setbox0=\vbox{X}\global\multitablelinespace=\the\baselineskip
3806
\global\advance\multitablelinespace by-\ht0
3807
\fi
3808
%% Test to see if parskip is larger than space between lines of
3809
%% table. If not, do nothing.
3810
%%        If so, set to same dimension as multitablelinespace.
3811
\ifdim\multitableparskip>\multitablelinespace
3812
\global\multitableparskip=\multitablelinespace
3813
\global\advance\multitableparskip-7pt %% to keep parskip somewhat smaller
3814
                                      %% than skip between lines in the table.
3815
\fi%
3816
\ifdim\multitableparskip=0pt
3817
\global\multitableparskip=\multitablelinespace
3818
\global\advance\multitableparskip-7pt %% to keep parskip somewhat smaller
3819
                                      %% than skip between lines in the table.
3820
\fi}
3821
 
3822
 
3823
\message{conditionals,}
3824
 
3825
% @iftex, @ifnotdocbook, @ifnothtml, @ifnotinfo, @ifnotplaintext,
3826
% @ifnotxml always succeed.  They currently do nothing; we don't
3827
% attempt to check whether the conditionals are properly nested.  But we
3828
% have to remember that they are conditionals, so that @end doesn't
3829
% attempt to close an environment group.
3830
%
3831
\def\makecond#1{%
3832
  \expandafter\let\csname #1\endcsname = \relax
3833
  \expandafter\let\csname iscond.#1\endcsname = 1
3834
}
3835
\makecond{iftex}
3836
\makecond{ifnotdocbook}
3837
\makecond{ifnothtml}
3838
\makecond{ifnotinfo}
3839
\makecond{ifnotplaintext}
3840
\makecond{ifnotxml}
3841
 
3842
% Ignore @ignore, @ifhtml, @ifinfo, and the like.
3843
%
3844
\def\direntry{\doignore{direntry}}
3845
\def\documentdescription{\doignore{documentdescription}}
3846
\def\docbook{\doignore{docbook}}
3847
\def\html{\doignore{html}}
3848
\def\ifdocbook{\doignore{ifdocbook}}
3849
\def\ifhtml{\doignore{ifhtml}}
3850
\def\ifinfo{\doignore{ifinfo}}
3851
\def\ifnottex{\doignore{ifnottex}}
3852
\def\ifplaintext{\doignore{ifplaintext}}
3853
\def\ifxml{\doignore{ifxml}}
3854
\def\ignore{\doignore{ignore}}
3855
\def\menu{\doignore{menu}}
3856
\def\xml{\doignore{xml}}
3857
 
3858
% Ignore text until a line `@end #1', keeping track of nested conditionals.
3859
%
3860
% A count to remember the depth of nesting.
3861
\newcount\doignorecount
3862
 
3863
\def\doignore#1{\begingroup
3864
  % Scan in ``verbatim'' mode:
3865
  \obeylines
3866
  \catcode`\@ = \other
3867
  \catcode`\{ = \other
3868
  \catcode`\} = \other
3869
  %
3870
  % Make sure that spaces turn into tokens that match what \doignoretext wants.
3871
  \spaceisspace
3872
  %
3873
  % Count number of #1's that we've seen.
3874
  \doignorecount = 0
3875
  %
3876
  % Swallow text until we reach the matching `@end #1'.
3877
  \dodoignore{#1}%
3878
}
3879
 
3880
{ \catcode`_=11 % We want to use \_STOP_ which cannot appear in texinfo source.
3881
  \obeylines %
3882
  %
3883
  \gdef\dodoignore#1{%
3884
    % #1 contains the command name as a string, e.g., `ifinfo'.
3885
    %
3886
    % Define a command to find the next `@end #1'.
3887
    \long\def\doignoretext##1^^M@end #1{%
3888
      \doignoretextyyy##1^^M@#1\_STOP_}%
3889
    %
3890
    % And this command to find another #1 command, at the beginning of a
3891
    % line.  (Otherwise, we would consider a line `@c @ifset', for
3892
    % example, to count as an @ifset for nesting.)
3893
    \long\def\doignoretextyyy##1^^M@#1##2\_STOP_{\doignoreyyy{##2}\_STOP_}%
3894
    %
3895
    % And now expand that command.
3896
    \doignoretext ^^M%
3897
  }%
3898
}
3899
 
3900
\def\doignoreyyy#1{%
3901
  \def\temp{#1}%
3902
  \ifx\temp\empty                       % Nothing found.
3903
    \let\next\doignoretextzzz
3904
  \else                                 % Found a nested condition, ...
3905
    \advance\doignorecount by 1
3906
    \let\next\doignoretextyyy           % ..., look for another.
3907
    % If we're here, #1 ends with ^^M\ifinfo (for example).
3908
  \fi
3909
  \next #1% the token \_STOP_ is present just after this macro.
3910
}
3911
 
3912
% We have to swallow the remaining "\_STOP_".
3913
%
3914
\def\doignoretextzzz#1{%
3915
  \ifnum\doignorecount = 0      % We have just found the outermost @end.
3916
    \let\next\enddoignore
3917
  \else                         % Still inside a nested condition.
3918
    \advance\doignorecount by -1
3919
    \let\next\doignoretext      % Look for the next @end.
3920
  \fi
3921
  \next
3922
}
3923
 
3924
% Finish off ignored text.
3925
{ \obeylines%
3926
  % Ignore anything after the last `@end #1'; this matters in verbatim
3927
  % environments, where otherwise the newline after an ignored conditional
3928
  % would result in a blank line in the output.
3929
  \gdef\enddoignore#1^^M{\endgroup\ignorespaces}%
3930
}
3931
 
3932
 
3933
% @set VAR sets the variable VAR to an empty value.
3934
% @set VAR REST-OF-LINE sets VAR to the value REST-OF-LINE.
3935
%
3936
% Since we want to separate VAR from REST-OF-LINE (which might be
3937
% empty), we can't just use \parsearg; we have to insert a space of our
3938
% own to delimit the rest of the line, and then take it out again if we
3939
% didn't need it.
3940
% We rely on the fact that \parsearg sets \catcode`\ =10.
3941
%
3942
\parseargdef\set{\setyyy#1 \endsetyyy}
3943
\def\setyyy#1 #2\endsetyyy{%
3944
  {%
3945
    \makevalueexpandable
3946
    \def\temp{#2}%
3947
    \edef\next{\gdef\makecsname{SET#1}}%
3948
    \ifx\temp\empty
3949
      \next{}%
3950
    \else
3951
      \setzzz#2\endsetzzz
3952
    \fi
3953
  }%
3954
}
3955
% Remove the trailing space \setxxx inserted.
3956
\def\setzzz#1 \endsetzzz{\next{#1}}
3957
 
3958
% @clear VAR clears (i.e., unsets) the variable VAR.
3959
%
3960
\parseargdef\clear{%
3961
  {%
3962
    \makevalueexpandable
3963
    \global\expandafter\let\csname SET#1\endcsname=\relax
3964
  }%
3965
}
3966
 
3967
% @value{foo} gets the text saved in variable foo.
3968
\def\value{\begingroup\makevalueexpandable\valuexxx}
3969
\def\valuexxx#1{\expandablevalue{#1}\endgroup}
3970
{
3971
  \catcode`\- = \active \catcode`\_ = \active
3972
  %
3973
  \gdef\makevalueexpandable{%
3974
    \let\value = \expandablevalue
3975
    % We don't want these characters active, ...
3976
    \catcode`\-=\other \catcode`\_=\other
3977
    % ..., but we might end up with active ones in the argument if
3978
    % we're called from @code, as @code{@value{foo-bar_}}, though.
3979
    % So \let them to their normal equivalents.
3980
    \let-\realdash \let_\normalunderscore
3981
  }
3982
}
3983
 
3984
% We have this subroutine so that we can handle at least some @value's
3985
% properly in indexes (we call \makevalueexpandable in \indexdummies).
3986
% The command has to be fully expandable (if the variable is set), since
3987
% the result winds up in the index file.  This means that if the
3988
% variable's value contains other Texinfo commands, it's almost certain
3989
% it will fail (although perhaps we could fix that with sufficient work
3990
% to do a one-level expansion on the result, instead of complete).
3991
%
3992
\def\expandablevalue#1{%
3993
  \expandafter\ifx\csname SET#1\endcsname\relax
3994
    {[No value for ``#1'']}%
3995
    \message{Variable `#1', used in @value, is not set.}%
3996
  \else
3997
    \csname SET#1\endcsname
3998
  \fi
3999
}
4000
 
4001
% @ifset VAR ... @end ifset reads the `...' iff VAR has been defined
4002
% with @set.
4003
%
4004
% To get special treatment of `@end ifset,' call \makeond and the redefine.
4005
%
4006
\makecond{ifset}
4007
\def\ifset{\parsearg{\doifset{\let\next=\ifsetfail}}}
4008
\def\doifset#1#2{%
4009
  {%
4010
    \makevalueexpandable
4011
    \let\next=\empty
4012
    \expandafter\ifx\csname SET#2\endcsname\relax
4013
      #1% If not set, redefine \next.
4014
    \fi
4015
    \expandafter
4016
  }\next
4017
}
4018
\def\ifsetfail{\doignore{ifset}}
4019
 
4020
% @ifclear VAR ... @end ifclear reads the `...' iff VAR has never been
4021
% defined with @set, or has been undefined with @clear.
4022
%
4023
% The `\else' inside the `\doifset' parameter is a trick to reuse the
4024
% above code: if the variable is not set, do nothing, if it is set,
4025
% then redefine \next to \ifclearfail.
4026
%
4027
\makecond{ifclear}
4028
\def\ifclear{\parsearg{\doifset{\else \let\next=\ifclearfail}}}
4029
\def\ifclearfail{\doignore{ifclear}}
4030
 
4031
% @dircategory CATEGORY  -- specify a category of the dir file
4032
% which this file should belong to.  Ignore this in TeX.
4033
\let\dircategory=\comment
4034
 
4035
% @defininfoenclose.
4036
\let\definfoenclose=\comment
4037
 
4038
 
4039
\message{indexing,}
4040
% Index generation facilities
4041
 
4042
% Define \newwrite to be identical to plain tex's \newwrite
4043
% except not \outer, so it can be used within macros and \if's.
4044
\edef\newwrite{\makecsname{ptexnewwrite}}
4045
 
4046
% \newindex {foo} defines an index named foo.
4047
% It automatically defines \fooindex such that
4048
% \fooindex ...rest of line... puts an entry in the index foo.
4049
% It also defines \fooindfile to be the number of the output channel for
4050
% the file that accumulates this index.  The file's extension is foo.
4051
% The name of an index should be no more than 2 characters long
4052
% for the sake of vms.
4053
%
4054
\def\newindex#1{%
4055
  \iflinks
4056
    \expandafter\newwrite \csname#1indfile\endcsname
4057
    \openout \csname#1indfile\endcsname \jobname.#1 % Open the file
4058
  \fi
4059
  \expandafter\xdef\csname#1index\endcsname{%     % Define @#1index
4060
    \noexpand\doindex{#1}}
4061
}
4062
 
4063
% @defindex foo  ==  \newindex{foo}
4064
%
4065
\def\defindex{\parsearg\newindex}
4066
 
4067
% Define @defcodeindex, like @defindex except put all entries in @code.
4068
%
4069
\def\defcodeindex{\parsearg\newcodeindex}
4070
%
4071
\def\newcodeindex#1{%
4072
  \iflinks
4073
    \expandafter\newwrite \csname#1indfile\endcsname
4074
    \openout \csname#1indfile\endcsname \jobname.#1
4075
  \fi
4076
  \expandafter\xdef\csname#1index\endcsname{%
4077
    \noexpand\docodeindex{#1}}%
4078
}
4079
 
4080
 
4081
% @synindex foo bar    makes index foo feed into index bar.
4082
% Do this instead of @defindex foo if you don't want it as a separate index.
4083
%
4084
% @syncodeindex foo bar   similar, but put all entries made for index foo
4085
% inside @code.
4086
%
4087
\def\synindex#1 #2 {\dosynindex\doindex{#1}{#2}}
4088
\def\syncodeindex#1 #2 {\dosynindex\docodeindex{#1}{#2}}
4089
 
4090
% #1 is \doindex or \docodeindex, #2 the index getting redefined (foo),
4091
% #3 the target index (bar).
4092
\def\dosynindex#1#2#3{%
4093
  % Only do \closeout if we haven't already done it, else we'll end up
4094
  % closing the target index.
4095
  \expandafter \ifx\csname donesynindex#2\endcsname \relax
4096
    % The \closeout helps reduce unnecessary open files; the limit on the
4097
    % Acorn RISC OS is a mere 16 files.
4098
    \expandafter\closeout\csname#2indfile\endcsname
4099
    \expandafter\let\csname donesynindex#2\endcsname = 1
4100
  \fi
4101
  % redefine \fooindfile:
4102
  \expandafter\let\expandafter\temp\expandafter=\csname#3indfile\endcsname
4103
  \expandafter\let\csname#2indfile\endcsname=\temp
4104
  % redefine \fooindex:
4105
  \expandafter\xdef\csname#2index\endcsname{\noexpand#1{#3}}%
4106
}
4107
 
4108
% Define \doindex, the driver for all \fooindex macros.
4109
% Argument #1 is generated by the calling \fooindex macro,
4110
%  and it is "foo", the name of the index.
4111
 
4112
% \doindex just uses \parsearg; it calls \doind for the actual work.
4113
% This is because \doind is more useful to call from other macros.
4114
 
4115
% There is also \dosubind {index}{topic}{subtopic}
4116
% which makes an entry in a two-level index such as the operation index.
4117
 
4118
\def\doindex#1{\edef\indexname{#1}\parsearg\singleindexer}
4119
\def\singleindexer #1{\doind{\indexname}{#1}}
4120
 
4121
% like the previous two, but they put @code around the argument.
4122
\def\docodeindex#1{\edef\indexname{#1}\parsearg\singlecodeindexer}
4123
\def\singlecodeindexer #1{\doind{\indexname}{\code{#1}}}
4124
 
4125
% Take care of Texinfo commands that can appear in an index entry.
4126
% Since there are some commands we want to expand, and others we don't,
4127
% we have to laboriously prevent expansion for those that we don't.
4128
%
4129
\def\indexdummies{%
4130
  \escapechar = `\\     % use backslash in output files.
4131
  \def\@{@}% change to @@ when we switch to @ as escape char in index files.
4132
  \def\ {\realbackslash\space }%
4133
  %
4134
  % Need these in case \tex is in effect and \{ is a \delimiter again.
4135
  % But can't use \lbracecmd and \rbracecmd because texindex assumes
4136
  % braces and backslashes are used only as delimiters.
4137
  \let\{ = \mylbrace
4138
  \let\} = \myrbrace
4139
  %
4140
  % I don't entirely understand this, but when an index entry is
4141
  % generated from a macro call, the \endinput which \scanmacro inserts
4142
  % causes processing to be prematurely terminated.  This is,
4143
  % apparently, because \indexsorttmp is fully expanded, and \endinput
4144
  % is an expandable command.  The redefinition below makes \endinput
4145
  % disappear altogether for that purpose -- although logging shows that
4146
  % processing continues to some further point.  On the other hand, it
4147
  % seems \endinput does not hurt in the printed index arg, since that
4148
  % is still getting written without apparent harm.
4149
  %
4150
  % Sample source (mac-idx3.tex, reported by Graham Percival to
4151
  % help-texinfo, 22may06):
4152
  % @macro funindex {WORD}
4153
  % @findex xyz
4154
  % @end macro
4155
  % ...
4156
  % @funindex commtest
4157
  %
4158
  % The above is not enough to reproduce the bug, but it gives the flavor.
4159
  %
4160
  % Sample whatsit resulting:
4161
  % .@write3{\entry{xyz}{@folio }{@code {xyz@endinput }}}
4162
  %
4163
  % So:
4164
  \let\endinput = \empty
4165
  %
4166
  % Do the redefinitions.
4167
  \commondummies
4168
}
4169
 
4170
% For the aux and toc files, @ is the escape character.  So we want to
4171
% redefine everything using @ as the escape character (instead of
4172
% \realbackslash, still used for index files).  When everything uses @,
4173
% this will be simpler.
4174
%
4175
\def\atdummies{%
4176
  \def\@{@@}%
4177
  \def\ {@ }%
4178
  \let\{ = \lbraceatcmd
4179
  \let\} = \rbraceatcmd
4180
  %
4181
  % Do the redefinitions.
4182
  \commondummies
4183
  \otherbackslash
4184
}
4185
 
4186
% Called from \indexdummies and \atdummies.
4187
%
4188
\def\commondummies{%
4189
  %
4190
  % \definedummyword defines \#1 as \string\#1\space, thus effectively
4191
  % preventing its expansion.  This is used only for control% words,
4192
  % not control letters, because the \space would be incorrect for
4193
  % control characters, but is needed to separate the control word
4194
  % from whatever follows.
4195
  %
4196
  % For control letters, we have \definedummyletter, which omits the
4197
  % space.
4198
  %
4199
  % These can be used both for control words that take an argument and
4200
  % those that do not.  If it is followed by {arg} in the input, then
4201
  % that will dutifully get written to the index (or wherever).
4202
  %
4203
  \def\definedummyword  ##1{\def##1{\string##1\space}}%
4204
  \def\definedummyletter##1{\def##1{\string##1}}%
4205
  \let\definedummyaccent\definedummyletter
4206
  %
4207
  \commondummiesnofonts
4208
  %
4209
  \definedummyletter\_%
4210
  %
4211
  % Non-English letters.
4212
  \definedummyword\AA
4213
  \definedummyword\AE
4214
  \definedummyword\DH
4215
  \definedummyword\L
4216
  \definedummyword\O
4217
  \definedummyword\OE
4218
  \definedummyword\TH
4219
  \definedummyword\aa
4220
  \definedummyword\ae
4221
  \definedummyword\dh
4222
  \definedummyword\exclamdown
4223
  \definedummyword\l
4224
  \definedummyword\o
4225
  \definedummyword\oe
4226
  \definedummyword\ordf
4227
  \definedummyword\ordm
4228
  \definedummyword\questiondown
4229
  \definedummyword\ss
4230
  \definedummyword\th
4231
  %
4232
  % Although these internal commands shouldn't show up, sometimes they do.
4233
  \definedummyword\bf
4234
  \definedummyword\gtr
4235
  \definedummyword\hat
4236
  \definedummyword\less
4237
  \definedummyword\sf
4238
  \definedummyword\sl
4239
  \definedummyword\tclose
4240
  \definedummyword\tt
4241
  %
4242
  \definedummyword\LaTeX
4243
  \definedummyword\TeX
4244
  %
4245
  % Assorted special characters.
4246
  \definedummyword\bullet
4247
  \definedummyword\comma
4248
  \definedummyword\copyright
4249
  \definedummyword\registeredsymbol
4250
  \definedummyword\dots
4251
  \definedummyword\enddots
4252
  \definedummyword\equiv
4253
  \definedummyword\error
4254
  \definedummyword\euro
4255
  \definedummyword\guillemetleft
4256
  \definedummyword\guillemetright
4257
  \definedummyword\guilsinglleft
4258
  \definedummyword\guilsinglright
4259
  \definedummyword\expansion
4260
  \definedummyword\minus
4261
  \definedummyword\ogonek
4262
  \definedummyword\pounds
4263
  \definedummyword\point
4264
  \definedummyword\print
4265
  \definedummyword\quotedblbase
4266
  \definedummyword\quotedblleft
4267
  \definedummyword\quotedblright
4268
  \definedummyword\quoteleft
4269
  \definedummyword\quoteright
4270
  \definedummyword\quotesinglbase
4271
  \definedummyword\result
4272
  \definedummyword\textdegree
4273
  %
4274
  % We want to disable all macros so that they are not expanded by \write.
4275
  \macrolist
4276
  %
4277
  \normalturnoffactive
4278
  %
4279
  % Handle some cases of @value -- where it does not contain any
4280
  % (non-fully-expandable) commands.
4281
  \makevalueexpandable
4282
}
4283
 
4284
% \commondummiesnofonts: common to \commondummies and \indexnofonts.
4285
%
4286
\def\commondummiesnofonts{%
4287
  % Control letters and accents.
4288
  \definedummyletter\!%
4289
  \definedummyaccent\"%
4290
  \definedummyaccent\'%
4291
  \definedummyletter\*%
4292
  \definedummyaccent\,%
4293
  \definedummyletter\.%
4294
  \definedummyletter\/%
4295
  \definedummyletter\:%
4296
  \definedummyaccent\=%
4297
  \definedummyletter\?%
4298
  \definedummyaccent\^%
4299
  \definedummyaccent\`%
4300
  \definedummyaccent\~%
4301
  \definedummyword\u
4302
  \definedummyword\v
4303
  \definedummyword\H
4304
  \definedummyword\dotaccent
4305
  \definedummyword\ogonek
4306
  \definedummyword\ringaccent
4307
  \definedummyword\tieaccent
4308
  \definedummyword\ubaraccent
4309
  \definedummyword\udotaccent
4310
  \definedummyword\dotless
4311
  %
4312
  % Texinfo font commands.
4313
  \definedummyword\b
4314
  \definedummyword\i
4315
  \definedummyword\r
4316
  \definedummyword\sc
4317
  \definedummyword\t
4318
  %
4319
  % Commands that take arguments.
4320
  \definedummyword\acronym
4321
  \definedummyword\cite
4322
  \definedummyword\code
4323
  \definedummyword\command
4324
  \definedummyword\dfn
4325
  \definedummyword\emph
4326
  \definedummyword\env
4327
  \definedummyword\file
4328
  \definedummyword\kbd
4329
  \definedummyword\key
4330
  \definedummyword\math
4331
  \definedummyword\option
4332
  \definedummyword\pxref
4333
  \definedummyword\ref
4334
  \definedummyword\samp
4335
  \definedummyword\strong
4336
  \definedummyword\tie
4337
  \definedummyword\uref
4338
  \definedummyword\url
4339
  \definedummyword\var
4340
  \definedummyword\verb
4341
  \definedummyword\w
4342
  \definedummyword\xref
4343
}
4344
 
4345
% \indexnofonts is used when outputting the strings to sort the index
4346
% by, and when constructing control sequence names.  It eliminates all
4347
% control sequences and just writes whatever the best ASCII sort string
4348
% would be for a given command (usually its argument).
4349
%
4350
\def\indexnofonts{%
4351
  % Accent commands should become @asis.
4352
  \def\definedummyaccent##1{\let##1\asis}%
4353
  % We can just ignore other control letters.
4354
  \def\definedummyletter##1{\let##1\empty}%
4355
  % Hopefully, all control words can become @asis.
4356
  \let\definedummyword\definedummyaccent
4357
  %
4358
  \commondummiesnofonts
4359
  %
4360
  % Don't no-op \tt, since it isn't a user-level command
4361
  % and is used in the definitions of the active chars like <, >, |, etc.
4362
  % Likewise with the other plain tex font commands.
4363
  %\let\tt=\asis
4364
  %
4365
  \def\ { }%
4366
  \def\@{@}%
4367
  % how to handle braces?
4368
  \def\_{\normalunderscore}%
4369
  %
4370
  % Non-English letters.
4371
  \def\AA{AA}%
4372
  \def\AE{AE}%
4373
  \def\DH{DZZ}%
4374
  \def\L{L}%
4375
  \def\OE{OE}%
4376
  \def\O{O}%
4377
  \def\TH{ZZZ}%
4378
  \def\aa{aa}%
4379
  \def\ae{ae}%
4380
  \def\dh{dzz}%
4381
  \def\exclamdown{!}%
4382
  \def\l{l}%
4383
  \def\oe{oe}%
4384
  \def\ordf{a}%
4385
  \def\ordm{o}%
4386
  \def\o{o}%
4387
  \def\questiondown{?}%
4388
  \def\ss{ss}%
4389
  \def\th{zzz}%
4390
  %
4391
  \def\LaTeX{LaTeX}%
4392
  \def\TeX{TeX}%
4393
  %
4394
  % Assorted special characters.
4395
  % (The following {} will end up in the sort string, but that's ok.)
4396
  \def\bullet{bullet}%
4397
  \def\comma{,}%
4398
  \def\copyright{copyright}%
4399
  \def\registeredsymbol{R}%
4400
  \def\dots{...}%
4401
  \def\enddots{...}%
4402
  \def\equiv{==}%
4403
  \def\error{error}%
4404
  \def\euro{euro}%
4405
  \def\guillemetleft{<<}%
4406
  \def\guillemetright{>>}%
4407
  \def\guilsinglleft{<}%
4408
  \def\guilsinglright{>}%
4409
  \def\expansion{==>}%
4410
  \def\minus{-}%
4411
  \def\pounds{pounds}%
4412
  \def\point{.}%
4413
  \def\print{-|}%
4414
  \def\quotedblbase{"}%
4415
  \def\quotedblleft{"}%
4416
  \def\quotedblright{"}%
4417
  \def\quoteleft{`}%
4418
  \def\quoteright{'}%
4419
  \def\quotesinglbase{,}%
4420
  \def\result{=>}%
4421
  \def\textdegree{degrees}%
4422
  %
4423
  % We need to get rid of all macros, leaving only the arguments (if present).
4424
  % Of course this is not nearly correct, but it is the best we can do for now.
4425
  % makeinfo does not expand macros in the argument to @deffn, which ends up
4426
  % writing an index entry, and texindex isn't prepared for an index sort entry
4427
  % that starts with \.
4428
  %
4429
  % Since macro invocations are followed by braces, we can just redefine them
4430
  % to take a single TeX argument.  The case of a macro invocation that
4431
  % goes to end-of-line is not handled.
4432
  %
4433
  \macrolist
4434
}
4435
 
4436
\let\indexbackslash=0  %overridden during \printindex.
4437
\let\SETmarginindex=\relax % put index entries in margin (undocumented)?
4438
 
4439
% Most index entries go through here, but \dosubind is the general case.
4440
% #1 is the index name, #2 is the entry text.
4441
\def\doind#1#2{\dosubind{#1}{#2}{}}
4442
 
4443
% Workhorse for all \fooindexes.
4444
% #1 is name of index, #2 is stuff to put there, #3 is subentry --
4445
% empty if called from \doind, as we usually are (the main exception
4446
% is with most defuns, which call us directly).
4447
%
4448
\def\dosubind#1#2#3{%
4449
  \iflinks
4450
  {%
4451
    % Store the main index entry text (including the third arg).
4452
    \toks0 = {#2}%
4453
    % If third arg is present, precede it with a space.
4454
    \def\thirdarg{#3}%
4455
    \ifx\thirdarg\empty \else
4456
      \toks0 = \expandafter{\the\toks0 \space #3}%
4457
    \fi
4458
    %
4459
    \edef\writeto{\csname#1indfile\endcsname}%
4460
    %
4461
    \safewhatsit\dosubindwrite
4462
  }%
4463
  \fi
4464
}
4465
 
4466
% Write the entry in \toks0 to the index file:
4467
%
4468
\def\dosubindwrite{%
4469
  % Put the index entry in the margin if desired.
4470
  \ifx\SETmarginindex\relax\else
4471
    \insert\margin{\hbox{\vrule height8pt depth3pt width0pt \the\toks0}}%
4472
  \fi
4473
  %
4474
  % Remember, we are within a group.
4475
  \indexdummies % Must do this here, since \bf, etc expand at this stage
4476
  \def\backslashcurfont{\indexbackslash}% \indexbackslash isn't defined now
4477
      % so it will be output as is; and it will print as backslash.
4478
  %
4479
  % Process the index entry with all font commands turned off, to
4480
  % get the string to sort by.
4481
  {\indexnofonts
4482
   \edef\temp{\the\toks0}% need full expansion
4483
   \xdef\indexsorttmp{\temp}%
4484
  }%
4485
  %
4486
  % Set up the complete index entry, with both the sort key and
4487
  % the original text, including any font commands.  We write
4488
  % three arguments to \entry to the .?? file (four in the
4489
  % subentry case), texindex reduces to two when writing the .??s
4490
  % sorted result.
4491
  \edef\temp{%
4492
    \write\writeto{%
4493
      \string\entry{\indexsorttmp}{\noexpand\folio}{\the\toks0}}%
4494
  }%
4495
  \temp
4496
}
4497
 
4498
% Take care of unwanted page breaks/skips around a whatsit:
4499
%
4500
% If a skip is the last thing on the list now, preserve it
4501
% by backing up by \lastskip, doing the \write, then inserting
4502
% the skip again.  Otherwise, the whatsit generated by the
4503
% \write or \pdfdest will make \lastskip zero.  The result is that
4504
% sequences like this:
4505
% @end defun
4506
% @tindex whatever
4507
% @defun ...
4508
% will have extra space inserted, because the \medbreak in the
4509
% start of the @defun won't see the skip inserted by the @end of
4510
% the previous defun.
4511
%
4512
% But don't do any of this if we're not in vertical mode.  We
4513
% don't want to do a \vskip and prematurely end a paragraph.
4514
%
4515
% Avoid page breaks due to these extra skips, too.
4516
%
4517
% But wait, there is a catch there:
4518
% We'll have to check whether \lastskip is zero skip.  \ifdim is not
4519
% sufficient for this purpose, as it ignores stretch and shrink parts
4520
% of the skip.  The only way seems to be to check the textual
4521
% representation of the skip.
4522
%
4523
% The following is almost like \def\zeroskipmacro{0.0pt} except that
4524
% the ``p'' and ``t'' characters have catcode \other, not 11 (letter).
4525
%
4526
\edef\zeroskipmacro{\expandafter\the\csname z@skip\endcsname}
4527
%
4528
\newskip\whatsitskip
4529
\newcount\whatsitpenalty
4530
%
4531
% ..., ready, GO:
4532
%
4533
\def\safewhatsit#1{%
4534
\ifhmode
4535
  #1%
4536
\else
4537
  % \lastskip and \lastpenalty cannot both be nonzero simultaneously.
4538
  \whatsitskip = \lastskip
4539
  \edef\lastskipmacro{\the\lastskip}%
4540
  \whatsitpenalty = \lastpenalty
4541
  %
4542
  % If \lastskip is nonzero, that means the last item was a
4543
  % skip.  And since a skip is discardable, that means this
4544
  % -\whatsitskip glue we're inserting is preceded by a
4545
  % non-discardable item, therefore it is not a potential
4546
  % breakpoint, therefore no \nobreak needed.
4547
  \ifx\lastskipmacro\zeroskipmacro
4548
  \else
4549
    \vskip-\whatsitskip
4550
  \fi
4551
  %
4552
  #1%
4553
  %
4554
  \ifx\lastskipmacro\zeroskipmacro
4555
    % If \lastskip was zero, perhaps the last item was a penalty, and
4556
    % perhaps it was >=10000, e.g., a \nobreak.  In that case, we want
4557
    % to re-insert the same penalty (values >10000 are used for various
4558
    % signals); since we just inserted a non-discardable item, any
4559
    % following glue (such as a \parskip) would be a breakpoint.  For example:
4560
    %
4561
    %   @deffn deffn-whatever
4562
    %   @vindex index-whatever
4563
    %   Description.
4564
    % would allow a break between the index-whatever whatsit
4565
    % and the "Description." paragraph.
4566
    \ifnum\whatsitpenalty>9999 \penalty\whatsitpenalty \fi
4567
  \else
4568
    % On the other hand, if we had a nonzero \lastskip,
4569
    % this make-up glue would be preceded by a non-discardable item
4570
    % (the whatsit from the \write), so we must insert a \nobreak.
4571
    \nobreak\vskip\whatsitskip
4572
  \fi
4573
\fi
4574
}
4575
 
4576
% The index entry written in the file actually looks like
4577
%  \entry {sortstring}{page}{topic}
4578
% or
4579
%  \entry {sortstring}{page}{topic}{subtopic}
4580
% The texindex program reads in these files and writes files
4581
% containing these kinds of lines:
4582
%  \initial {c}
4583
%     before the first topic whose initial is c
4584
%  \entry {topic}{pagelist}
4585
%     for a topic that is used without subtopics
4586
%  \primary {topic}
4587
%     for the beginning of a topic that is used with subtopics
4588
%  \secondary {subtopic}{pagelist}
4589
%     for each subtopic.
4590
 
4591
% Define the user-accessible indexing commands
4592
% @findex, @vindex, @kindex, @cindex.
4593
 
4594
\def\findex {\fnindex}
4595
\def\kindex {\kyindex}
4596
\def\cindex {\cpindex}
4597
\def\vindex {\vrindex}
4598
\def\tindex {\tpindex}
4599
\def\pindex {\pgindex}
4600
 
4601
\def\cindexsub {\begingroup\obeylines\cindexsub}
4602
{\obeylines %
4603
\gdef\cindexsub "#1" #2^^M{\endgroup %
4604
\dosubind{cp}{#2}{#1}}}
4605
 
4606
% Define the macros used in formatting output of the sorted index material.
4607
 
4608
% @printindex causes a particular index (the ??s file) to get printed.
4609
% It does not print any chapter heading (usually an @unnumbered).
4610
%
4611
\parseargdef\printindex{\begingroup
4612
  \dobreak \chapheadingskip{10000}%
4613
  %
4614
  \smallfonts \rm
4615
  \tolerance = 9500
4616
  \plainfrenchspacing
4617
  \everypar = {}% don't want the \kern\-parindent from indentation suppression.
4618
  %
4619
  % See if the index file exists and is nonempty.
4620
  % Change catcode of @ here so that if the index file contains
4621
  % \initial {@}
4622
  % as its first line, TeX doesn't complain about mismatched braces
4623
  % (because it thinks @} is a control sequence).
4624
  \catcode`\@ = 11
4625
  \openin 1 \jobname.#1s
4626
  \ifeof 1
4627
    % \enddoublecolumns gets confused if there is no text in the index,
4628
    % and it loses the chapter title and the aux file entries for the
4629
    % index.  The easiest way to prevent this problem is to make sure
4630
    % there is some text.
4631
    \putwordIndexNonexistent
4632
  \else
4633
    %
4634
    % If the index file exists but is empty, then \openin leaves \ifeof
4635
    % false.  We have to make TeX try to read something from the file, so
4636
    % it can discover if there is anything in it.
4637
    \read 1 to \temp
4638
    \ifeof 1
4639
      \putwordIndexIsEmpty
4640
    \else
4641
      % Index files are almost Texinfo source, but we use \ as the escape
4642
      % character.  It would be better to use @, but that's too big a change
4643
      % to make right now.
4644
      \def\indexbackslash{\backslashcurfont}%
4645
      \catcode`\\ = 0
4646
      \escapechar = `\\
4647
      \begindoublecolumns
4648
      \input \jobname.#1s
4649
      \enddoublecolumns
4650
    \fi
4651
  \fi
4652
  \closein 1
4653
\endgroup}
4654
 
4655
% These macros are used by the sorted index file itself.
4656
% Change them to control the appearance of the index.
4657
 
4658
\def\initial#1{{%
4659
  % Some minor font changes for the special characters.
4660
  \let\tentt=\sectt \let\tt=\sectt \let\sf=\sectt
4661
  %
4662
  % Remove any glue we may have, we'll be inserting our own.
4663
  \removelastskip
4664
  %
4665
  % We like breaks before the index initials, so insert a bonus.
4666
  \nobreak
4667
  \vskip 0pt plus 3\baselineskip
4668
  \penalty 0
4669
  \vskip 0pt plus -3\baselineskip
4670
  %
4671
  % Typeset the initial.  Making this add up to a whole number of
4672
  % baselineskips increases the chance of the dots lining up from column
4673
  % to column.  It still won't often be perfect, because of the stretch
4674
  % we need before each entry, but it's better.
4675
  %
4676
  % No shrink because it confuses \balancecolumns.
4677
  \vskip 1.67\baselineskip plus .5\baselineskip
4678
  \leftline{\secbf #1}%
4679
  % Do our best not to break after the initial.
4680
  \nobreak
4681
  \vskip .33\baselineskip plus .1\baselineskip
4682
}}
4683
 
4684
% \entry typesets a paragraph consisting of the text (#1), dot leaders, and
4685
% then page number (#2) flushed to the right margin.  It is used for index
4686
% and table of contents entries.  The paragraph is indented by \leftskip.
4687
%
4688
% A straightforward implementation would start like this:
4689
%       \def\entry#1#2{...
4690
% But this freezes the catcodes in the argument, and can cause problems to
4691
% @code, which sets - active.  This problem was fixed by a kludge---
4692
% ``-'' was active throughout whole index, but this isn't really right.
4693
%
4694
% The right solution is to prevent \entry from swallowing the whole text.
4695
%                                 --kasal, 21nov03
4696
\def\entry{%
4697
  \begingroup
4698
    %
4699
    % Start a new paragraph if necessary, so our assignments below can't
4700
    % affect previous text.
4701
    \par
4702
    %
4703
    % Do not fill out the last line with white space.
4704
    \parfillskip = 0in
4705
    %
4706
    % No extra space above this paragraph.
4707
    \parskip = 0in
4708
    %
4709
    % Do not prefer a separate line ending with a hyphen to fewer lines.
4710
    \finalhyphendemerits = 0
4711
    %
4712
    % \hangindent is only relevant when the entry text and page number
4713
    % don't both fit on one line.  In that case, bob suggests starting the
4714
    % dots pretty far over on the line.  Unfortunately, a large
4715
    % indentation looks wrong when the entry text itself is broken across
4716
    % lines.  So we use a small indentation and put up with long leaders.
4717
    %
4718
    % \hangafter is reset to 1 (which is the value we want) at the start
4719
    % of each paragraph, so we need not do anything with that.
4720
    \hangindent = 2em
4721
    %
4722
    % When the entry text needs to be broken, just fill out the first line
4723
    % with blank space.
4724
    \rightskip = 0pt plus1fil
4725
    %
4726
    % A bit of stretch before each entry for the benefit of balancing
4727
    % columns.
4728
    \vskip 0pt plus1pt
4729
    %
4730
    % Swallow the left brace of the text (first parameter):
4731
    \afterassignment\doentry
4732
    \let\temp =
4733
}
4734
\def\doentry{%
4735
    \bgroup % Instead of the swallowed brace.
4736
      \noindent
4737
      \aftergroup\finishentry
4738
      % And now comes the text of the entry.
4739
}
4740
\def\finishentry#1{%
4741
    % #1 is the page number.
4742
    %
4743
    % The following is kludged to not output a line of dots in the index if
4744
    % there are no page numbers.  The next person who breaks this will be
4745
    % cursed by a Unix daemon.
4746
    \setbox\boxA = \hbox{#1}%
4747
    \ifdim\wd\boxA = 0pt
4748
      \ %
4749
    \else
4750
      %
4751
      % If we must, put the page number on a line of its own, and fill out
4752
      % this line with blank space.  (The \hfil is overwhelmed with the
4753
      % fill leaders glue in \indexdotfill if the page number does fit.)
4754
      \hfil\penalty50
4755
      \null\nobreak\indexdotfill % Have leaders before the page number.
4756
      %
4757
      % The `\ ' here is removed by the implicit \unskip that TeX does as
4758
      % part of (the primitive) \par.  Without it, a spurious underfull
4759
      % \hbox ensues.
4760
      \ifpdf
4761
        \pdfgettoks#1.%
4762
        \ \the\toksA
4763
      \else
4764
        \ #1%
4765
      \fi
4766
    \fi
4767
    \par
4768
  \endgroup
4769
}
4770
 
4771
% Like plain.tex's \dotfill, except uses up at least 1 em.
4772
\def\indexdotfill{\cleaders
4773
  \hbox{$\mathsurround=0pt \mkern1.5mu.\mkern1.5mu$}\hskip 1em plus 1fill}
4774
 
4775
\def\primary #1{\line{#1\hfil}}
4776
 
4777
\newskip\secondaryindent \secondaryindent=0.5cm
4778
\def\secondary#1#2{{%
4779
  \parfillskip=0in
4780
  \parskip=0in
4781
  \hangindent=1in
4782
  \hangafter=1
4783
  \noindent\hskip\secondaryindent\hbox{#1}\indexdotfill
4784
  \ifpdf
4785
    \pdfgettoks#2.\ \the\toksA % The page number ends the paragraph.
4786
  \else
4787
    #2
4788
  \fi
4789
  \par
4790
}}
4791
 
4792
% Define two-column mode, which we use to typeset indexes.
4793
% Adapted from the TeXbook, page 416, which is to say,
4794
% the manmac.tex format used to print the TeXbook itself.
4795
\catcode`\@=11
4796
 
4797
\newbox\partialpage
4798
\newdimen\doublecolumnhsize
4799
 
4800
\def\begindoublecolumns{\begingroup % ended by \enddoublecolumns
4801
  % Grab any single-column material above us.
4802
  \output = {%
4803
    %
4804
    % Here is a possibility not foreseen in manmac: if we accumulate a
4805
    % whole lot of material, we might end up calling this \output
4806
    % routine twice in a row (see the doublecol-lose test, which is
4807
    % essentially a couple of indexes with @setchapternewpage off).  In
4808
    % that case we just ship out what is in \partialpage with the normal
4809
    % output routine.  Generally, \partialpage will be empty when this
4810
    % runs and this will be a no-op.  See the indexspread.tex test case.
4811
    \ifvoid\partialpage \else
4812
      \onepageout{\pagecontents\partialpage}%
4813
    \fi
4814
    %
4815
    \global\setbox\partialpage = \vbox{%
4816
      % Unvbox the main output page.
4817
      \unvbox\PAGE
4818
      \kern-\topskip \kern\baselineskip
4819
    }%
4820
  }%
4821
  \eject % run that output routine to set \partialpage
4822
  %
4823
  % Use the double-column output routine for subsequent pages.
4824
  \output = {\doublecolumnout}%
4825
  %
4826
  % Change the page size parameters.  We could do this once outside this
4827
  % routine, in each of @smallbook, @afourpaper, and the default 8.5x11
4828
  % format, but then we repeat the same computation.  Repeating a couple
4829
  % of assignments once per index is clearly meaningless for the
4830
  % execution time, so we may as well do it in one place.
4831
  %
4832
  % First we halve the line length, less a little for the gutter between
4833
  % the columns.  We compute the gutter based on the line length, so it
4834
  % changes automatically with the paper format.  The magic constant
4835
  % below is chosen so that the gutter has the same value (well, +-<1pt)
4836
  % as it did when we hard-coded it.
4837
  %
4838
  % We put the result in a separate register, \doublecolumhsize, so we
4839
  % can restore it in \pagesofar, after \hsize itself has (potentially)
4840
  % been clobbered.
4841
  %
4842
  \doublecolumnhsize = \hsize
4843
    \advance\doublecolumnhsize by -.04154\hsize
4844
    \divide\doublecolumnhsize by 2
4845
  \hsize = \doublecolumnhsize
4846
  %
4847
  % Double the \vsize as well.  (We don't need a separate register here,
4848
  % since nobody clobbers \vsize.)
4849
  \vsize = 2\vsize
4850
}
4851
 
4852
% The double-column output routine for all double-column pages except
4853
% the last.
4854
%
4855
\def\doublecolumnout{%
4856
  \splittopskip=\topskip \splitmaxdepth=\maxdepth
4857
  % Get the available space for the double columns -- the normal
4858
  % (undoubled) page height minus any material left over from the
4859
  % previous page.
4860
  \dimen@ = \vsize
4861
  \divide\dimen@ by 2
4862
  \advance\dimen@ by -\ht\partialpage
4863
  %
4864
  % box0 will be the left-hand column, box2 the right.
4865
  \setbox0=\vsplit255 to\dimen@ \setbox2=\vsplit255 to\dimen@
4866
  \onepageout\pagesofar
4867
  \unvbox255
4868
  \penalty\outputpenalty
4869
}
4870
%
4871
% Re-output the contents of the output page -- any previous material,
4872
% followed by the two boxes we just split, in box0 and box2.
4873
\def\pagesofar{%
4874
  \unvbox\partialpage
4875
  %
4876
  \hsize = \doublecolumnhsize
4877
  \wd0=\hsize \wd2=\hsize
4878
  \hbox to\pagewidth{\box0\hfil\box2}%
4879
}
4880
%
4881
% All done with double columns.
4882
\def\enddoublecolumns{%
4883
  % The following penalty ensures that the page builder is exercised
4884
  % _before_ we change the output routine.  This is necessary in the
4885
  % following situation:
4886
  %
4887
  % The last section of the index consists only of a single entry.
4888
  % Before this section, \pagetotal is less than \pagegoal, so no
4889
  % break occurs before the last section starts.  However, the last
4890
  % section, consisting of \initial and the single \entry, does not
4891
  % fit on the page and has to be broken off.  Without the following
4892
  % penalty the page builder will not be exercised until \eject
4893
  % below, and by that time we'll already have changed the output
4894
  % routine to the \balancecolumns version, so the next-to-last
4895
  % double-column page will be processed with \balancecolumns, which
4896
  % is wrong:  The two columns will go to the main vertical list, with
4897
  % the broken-off section in the recent contributions.  As soon as
4898
  % the output routine finishes, TeX starts reconsidering the page
4899
  % break.  The two columns and the broken-off section both fit on the
4900
  % page, because the two columns now take up only half of the page
4901
  % goal.  When TeX sees \eject from below which follows the final
4902
  % section, it invokes the new output routine that we've set after
4903
  % \balancecolumns below; \onepageout will try to fit the two columns
4904
  % and the final section into the vbox of \pageheight (see
4905
  % \pagebody), causing an overfull box.
4906
  %
4907
  % Note that glue won't work here, because glue does not exercise the
4908
  % page builder, unlike penalties (see The TeXbook, pp. 280-281).
4909
  \penalty0
4910
  %
4911
  \output = {%
4912
    % Split the last of the double-column material.  Leave it on the
4913
    % current page, no automatic page break.
4914
    \balancecolumns
4915
    %
4916
    % If we end up splitting too much material for the current page,
4917
    % though, there will be another page break right after this \output
4918
    % invocation ends.  Having called \balancecolumns once, we do not
4919
    % want to call it again.  Therefore, reset \output to its normal
4920
    % definition right away.  (We hope \balancecolumns will never be
4921
    % called on to balance too much material, but if it is, this makes
4922
    % the output somewhat more palatable.)
4923
    \global\output = {\onepageout{\pagecontents\PAGE}}%
4924
  }%
4925
  \eject
4926
  \endgroup % started in \begindoublecolumns
4927
  %
4928
  % \pagegoal was set to the doubled \vsize above, since we restarted
4929
  % the current page.  We're now back to normal single-column
4930
  % typesetting, so reset \pagegoal to the normal \vsize (after the
4931
  % \endgroup where \vsize got restored).
4932
  \pagegoal = \vsize
4933
}
4934
%
4935
% Called at the end of the double column material.
4936
\def\balancecolumns{%
4937
  \setbox0 = \vbox{\unvbox255}% like \box255 but more efficient, see p.120.
4938
  \dimen@ = \ht0
4939
  \advance\dimen@ by \topskip
4940
  \advance\dimen@ by-\baselineskip
4941
  \divide\dimen@ by 2 % target to split to
4942
  %debug\message{final 2-column material height=\the\ht0, target=\the\dimen@.}%
4943
  \splittopskip = \topskip
4944
  % Loop until we get a decent breakpoint.
4945
  {%
4946
    \vbadness = 10000
4947
    \loop
4948
      \global\setbox3 = \copy0
4949
      \global\setbox1 = \vsplit3 to \dimen@
4950
    \ifdim\ht3>\dimen@
4951
      \global\advance\dimen@ by 1pt
4952
    \repeat
4953
  }%
4954
  %debug\message{split to \the\dimen@, column heights: \the\ht1, \the\ht3.}%
4955
  \setbox0=\vbox to\dimen@{\unvbox1}%
4956
  \setbox2=\vbox to\dimen@{\unvbox3}%
4957
  %
4958
  \pagesofar
4959
}
4960
\catcode`\@ = \other
4961
 
4962
 
4963
\message{sectioning,}
4964
% Chapters, sections, etc.
4965
 
4966
% \unnumberedno is an oxymoron, of course.  But we count the unnumbered
4967
% sections so that we can refer to them unambiguously in the pdf
4968
% outlines by their "section number".  We avoid collisions with chapter
4969
% numbers by starting them at 10000.  (If a document ever has 10000
4970
% chapters, we're in trouble anyway, I'm sure.)
4971
\newcount\unnumberedno \unnumberedno = 10000
4972
\newcount\chapno
4973
\newcount\secno        \secno=0
4974
\newcount\subsecno     \subsecno=0
4975
\newcount\subsubsecno  \subsubsecno=0
4976
 
4977
% This counter is funny since it counts through charcodes of letters A, B, ...
4978
\newcount\appendixno  \appendixno = `\@
4979
%
4980
% \def\appendixletter{\char\the\appendixno}
4981
% We do the following ugly conditional instead of the above simple
4982
% construct for the sake of pdftex, which needs the actual
4983
% letter in the expansion, not just typeset.
4984
%
4985
\def\appendixletter{%
4986
  \ifnum\appendixno=`A A%
4987
  \else\ifnum\appendixno=`B B%
4988
  \else\ifnum\appendixno=`C C%
4989
  \else\ifnum\appendixno=`D D%
4990
  \else\ifnum\appendixno=`E E%
4991
  \else\ifnum\appendixno=`F F%
4992
  \else\ifnum\appendixno=`G G%
4993
  \else\ifnum\appendixno=`H H%
4994
  \else\ifnum\appendixno=`I I%
4995
  \else\ifnum\appendixno=`J J%
4996
  \else\ifnum\appendixno=`K K%
4997
  \else\ifnum\appendixno=`L L%
4998
  \else\ifnum\appendixno=`M M%
4999
  \else\ifnum\appendixno=`N N%
5000
  \else\ifnum\appendixno=`O O%
5001
  \else\ifnum\appendixno=`P P%
5002
  \else\ifnum\appendixno=`Q Q%
5003
  \else\ifnum\appendixno=`R R%
5004
  \else\ifnum\appendixno=`S S%
5005
  \else\ifnum\appendixno=`T T%
5006
  \else\ifnum\appendixno=`U U%
5007
  \else\ifnum\appendixno=`V V%
5008
  \else\ifnum\appendixno=`W W%
5009
  \else\ifnum\appendixno=`X X%
5010
  \else\ifnum\appendixno=`Y Y%
5011
  \else\ifnum\appendixno=`Z Z%
5012
  % The \the is necessary, despite appearances, because \appendixletter is
5013
  % expanded while writing the .toc file.  \char\appendixno is not
5014
  % expandable, thus it is written literally, thus all appendixes come out
5015
  % with the same letter (or @) in the toc without it.
5016
  \else\char\the\appendixno
5017
  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
5018
  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}
5019
 
5020
% Each @chapter defines these (using marks) as the number+name, number
5021
% and name of the chapter.  Page headings and footings can use
5022
% these.  @section does likewise.
5023
\def\thischapter{}
5024
\def\thischapternum{}
5025
\def\thischaptername{}
5026
\def\thissection{}
5027
\def\thissectionnum{}
5028
\def\thissectionname{}
5029
 
5030
\newcount\absseclevel % used to calculate proper heading level
5031
\newcount\secbase\secbase=0 % @raisesections/@lowersections modify this count
5032
 
5033
% @raisesections: treat @section as chapter, @subsection as section, etc.
5034
\def\raisesections{\global\advance\secbase by -1}
5035
\let\up=\raisesections % original BFox name
5036
 
5037
% @lowersections: treat @chapter as section, @section as subsection, etc.
5038
\def\lowersections{\global\advance\secbase by 1}
5039
\let\down=\lowersections % original BFox name
5040
 
5041
% we only have subsub.
5042
\chardef\maxseclevel = 3
5043
%
5044
% A numbered section within an unnumbered changes to unnumbered too.
5045
% To achive this, remember the "biggest" unnum. sec. we are currently in:
5046
\chardef\unmlevel = \maxseclevel
5047
%
5048
% Trace whether the current chapter is an appendix or not:
5049
% \chapheadtype is "N" or "A", unnumbered chapters are ignored.
5050
\def\chapheadtype{N}
5051
 
5052
% Choose a heading macro
5053
% #1 is heading type
5054
% #2 is heading level
5055
% #3 is text for heading
5056
\def\genhead#1#2#3{%
5057
  % Compute the abs. sec. level:
5058
  \absseclevel=#2
5059
  \advance\absseclevel by \secbase
5060
  % Make sure \absseclevel doesn't fall outside the range:
5061
  \ifnum \absseclevel < 0
5062
    \absseclevel = 0
5063
  \else
5064
    \ifnum \absseclevel > 3
5065
      \absseclevel = 3
5066
    \fi
5067
  \fi
5068
  % The heading type:
5069
  \def\headtype{#1}%
5070
  \if \headtype U%
5071
    \ifnum \absseclevel < \unmlevel
5072
      \chardef\unmlevel = \absseclevel
5073
    \fi
5074
  \else
5075
    % Check for appendix sections:
5076
    \ifnum \absseclevel = 0
5077
      \edef\chapheadtype{\headtype}%
5078
    \else
5079
      \if \headtype A\if \chapheadtype N%
5080
        \errmessage{@appendix... within a non-appendix chapter}%
5081
      \fi\fi
5082
    \fi
5083
    % Check for numbered within unnumbered:
5084
    \ifnum \absseclevel > \unmlevel
5085
      \def\headtype{U}%
5086
    \else
5087
      \chardef\unmlevel = 3
5088
    \fi
5089
  \fi
5090
  % Now print the heading:
5091
  \if \headtype U%
5092
    \ifcase\absseclevel
5093
        \unnumberedzzz{#3}%
5094
    \or \unnumberedseczzz{#3}%
5095
    \or \unnumberedsubseczzz{#3}%
5096
    \or \unnumberedsubsubseczzz{#3}%
5097
    \fi
5098
  \else
5099
    \if \headtype A%
5100
      \ifcase\absseclevel
5101
          \appendixzzz{#3}%
5102
      \or \appendixsectionzzz{#3}%
5103
      \or \appendixsubseczzz{#3}%
5104
      \or \appendixsubsubseczzz{#3}%
5105
      \fi
5106
    \else
5107
      \ifcase\absseclevel
5108
          \chapterzzz{#3}%
5109
      \or \seczzz{#3}%
5110
      \or \numberedsubseczzz{#3}%
5111
      \or \numberedsubsubseczzz{#3}%
5112
      \fi
5113
    \fi
5114
  \fi
5115
  \suppressfirstparagraphindent
5116
}
5117
 
5118
% an interface:
5119
\def\numhead{\genhead N}
5120
\def\apphead{\genhead A}
5121
\def\unnmhead{\genhead U}
5122
 
5123
% @chapter, @appendix, @unnumbered.  Increment top-level counter, reset
5124
% all lower-level sectioning counters to zero.
5125
%
5126
% Also set \chaplevelprefix, which we prepend to @float sequence numbers
5127
% (e.g., figures), q.v.  By default (before any chapter), that is empty.
5128
\let\chaplevelprefix = \empty
5129
%
5130
\outer\parseargdef\chapter{\numhead0{#1}} % normally numhead0 calls chapterzzz
5131
\def\chapterzzz#1{%
5132
  % section resetting is \global in case the chapter is in a group, such
5133
  % as an @include file.
5134
  \global\secno=0 \global\subsecno=0 \global\subsubsecno=0
5135
    \global\advance\chapno by 1
5136
  %
5137
  % Used for \float.
5138
  \gdef\chaplevelprefix{\the\chapno.}%
5139
  \resetallfloatnos
5140
  %
5141
  % \putwordChapter can contain complex things in translations.
5142
  \toks0=\expandafter{\putwordChapter}%
5143
  \message{\the\toks0 \space \the\chapno}%
5144
  %
5145
  % Write the actual heading.
5146
  \chapmacro{#1}{Ynumbered}{\the\chapno}%
5147
  %
5148
  % So @section and the like are numbered underneath this chapter.
5149
  \global\let\section = \numberedsec
5150
  \global\let\subsection = \numberedsubsec
5151
  \global\let\subsubsection = \numberedsubsubsec
5152
}
5153
 
5154
\outer\parseargdef\appendix{\apphead0{#1}} % normally calls appendixzzz
5155
%
5156
\def\appendixzzz#1{%
5157
  \global\secno=0 \global\subsecno=0 \global\subsubsecno=0
5158
    \global\advance\appendixno by 1
5159
  \gdef\chaplevelprefix{\appendixletter.}%
5160
  \resetallfloatnos
5161
  %
5162
  % \putwordAppendix can contain complex things in translations.
5163
  \toks0=\expandafter{\putwordAppendix}%
5164
  \message{\the\toks0 \space \appendixletter}%
5165
  %
5166
  \chapmacro{#1}{Yappendix}{\appendixletter}%
5167
  %
5168
  \global\let\section = \appendixsec
5169
  \global\let\subsection = \appendixsubsec
5170
  \global\let\subsubsection = \appendixsubsubsec
5171
}
5172
 
5173
\outer\parseargdef\unnumbered{\unnmhead0{#1}} % normally unnmhead0 calls unnumberedzzz
5174
\def\unnumberedzzz#1{%
5175
  \global\secno=0 \global\subsecno=0 \global\subsubsecno=0
5176
    \global\advance\unnumberedno by 1
5177
  %
5178
  % Since an unnumbered has no number, no prefix for figures.
5179
  \global\let\chaplevelprefix = \empty
5180
  \resetallfloatnos
5181
  %
5182
  % This used to be simply \message{#1}, but TeX fully expands the
5183
  % argument to \message.  Therefore, if #1 contained @-commands, TeX
5184
  % expanded them.  For example, in `@unnumbered The @cite{Book}', TeX
5185
  % expanded @cite (which turns out to cause errors because \cite is meant
5186
  % to be executed, not expanded).
5187
  %
5188
  % Anyway, we don't want the fully-expanded definition of @cite to appear
5189
  % as a result of the \message, we just want `@cite' itself.  We use
5190
  % \the<toks register> to achieve this: TeX expands \the<toks> only once,
5191
  % simply yielding the contents of <toks register>.  (We also do this for
5192
  % the toc entries.)
5193
  \toks0 = {#1}%
5194
  \message{(\the\toks0)}%
5195
  %
5196
  \chapmacro{#1}{Ynothing}{\the\unnumberedno}%
5197
  %
5198
  \global\let\section = \unnumberedsec
5199
  \global\let\subsection = \unnumberedsubsec
5200
  \global\let\subsubsection = \unnumberedsubsubsec
5201
}
5202
 
5203
% @centerchap is like @unnumbered, but the heading is centered.
5204
\outer\parseargdef\centerchap{%
5205
  % Well, we could do the following in a group, but that would break
5206
  % an assumption that \chapmacro is called at the outermost level.
5207
  % Thus we are safer this way:         --kasal, 24feb04
5208
  \let\centerparametersmaybe = \centerparameters
5209
  \unnmhead0{#1}%
5210
  \let\centerparametersmaybe = \relax
5211
}
5212
 
5213
% @top is like @unnumbered.
5214
\let\top\unnumbered
5215
 
5216
% Sections.
5217
\outer\parseargdef\numberedsec{\numhead1{#1}} % normally calls seczzz
5218
\def\seczzz#1{%
5219
  \global\subsecno=0 \global\subsubsecno=0  \global\advance\secno by 1
5220
  \sectionheading{#1}{sec}{Ynumbered}{\the\chapno.\the\secno}%
5221
}
5222
 
5223
\outer\parseargdef\appendixsection{\apphead1{#1}} % normally calls appendixsectionzzz
5224
\def\appendixsectionzzz#1{%
5225
  \global\subsecno=0 \global\subsubsecno=0  \global\advance\secno by 1
5226
  \sectionheading{#1}{sec}{Yappendix}{\appendixletter.\the\secno}%
5227
}
5228
\let\appendixsec\appendixsection
5229
 
5230
\outer\parseargdef\unnumberedsec{\unnmhead1{#1}} % normally calls unnumberedseczzz
5231
\def\unnumberedseczzz#1{%
5232
  \global\subsecno=0 \global\subsubsecno=0  \global\advance\secno by 1
5233
  \sectionheading{#1}{sec}{Ynothing}{\the\unnumberedno.\the\secno}%
5234
}
5235
 
5236
% Subsections.
5237
\outer\parseargdef\numberedsubsec{\numhead2{#1}} % normally calls numberedsubseczzz
5238
\def\numberedsubseczzz#1{%
5239
  \global\subsubsecno=0  \global\advance\subsecno by 1
5240
  \sectionheading{#1}{subsec}{Ynumbered}{\the\chapno.\the\secno.\the\subsecno}%
5241
}
5242
 
5243
\outer\parseargdef\appendixsubsec{\apphead2{#1}} % normally calls appendixsubseczzz
5244
\def\appendixsubseczzz#1{%
5245
  \global\subsubsecno=0  \global\advance\subsecno by 1
5246
  \sectionheading{#1}{subsec}{Yappendix}%
5247
                 {\appendixletter.\the\secno.\the\subsecno}%
5248
}
5249
 
5250
\outer\parseargdef\unnumberedsubsec{\unnmhead2{#1}} %normally calls unnumberedsubseczzz
5251
\def\unnumberedsubseczzz#1{%
5252
  \global\subsubsecno=0  \global\advance\subsecno by 1
5253
  \sectionheading{#1}{subsec}{Ynothing}%
5254
                 {\the\unnumberedno.\the\secno.\the\subsecno}%
5255
}
5256
 
5257
% Subsubsections.
5258
\outer\parseargdef\numberedsubsubsec{\numhead3{#1}} % normally numberedsubsubseczzz
5259
\def\numberedsubsubseczzz#1{%
5260
  \global\advance\subsubsecno by 1
5261
  \sectionheading{#1}{subsubsec}{Ynumbered}%
5262
                 {\the\chapno.\the\secno.\the\subsecno.\the\subsubsecno}%
5263
}
5264
 
5265
\outer\parseargdef\appendixsubsubsec{\apphead3{#1}} % normally appendixsubsubseczzz
5266
\def\appendixsubsubseczzz#1{%
5267
  \global\advance\subsubsecno by 1
5268
  \sectionheading{#1}{subsubsec}{Yappendix}%
5269
                 {\appendixletter.\the\secno.\the\subsecno.\the\subsubsecno}%
5270
}
5271
 
5272
\outer\parseargdef\unnumberedsubsubsec{\unnmhead3{#1}} %normally unnumberedsubsubseczzz
5273
\def\unnumberedsubsubseczzz#1{%
5274
  \global\advance\subsubsecno by 1
5275
  \sectionheading{#1}{subsubsec}{Ynothing}%
5276
                 {\the\unnumberedno.\the\secno.\the\subsecno.\the\subsubsecno}%
5277
}
5278
 
5279
% These macros control what the section commands do, according
5280
% to what kind of chapter we are in (ordinary, appendix, or unnumbered).
5281
% Define them by default for a numbered chapter.
5282
\let\section = \numberedsec
5283
\let\subsection = \numberedsubsec
5284
\let\subsubsection = \numberedsubsubsec
5285
 
5286
% Define @majorheading, @heading and @subheading
5287
 
5288
% NOTE on use of \vbox for chapter headings, section headings, and such:
5289
%       1) We use \vbox rather than the earlier \line to permit
5290
%          overlong headings to fold.
5291
%       2) \hyphenpenalty is set to 10000 because hyphenation in a
5292
%          heading is obnoxious; this forbids it.
5293
%       3) Likewise, headings look best if no \parindent is used, and
5294
%          if justification is not attempted.  Hence \raggedright.
5295
 
5296
\def\majorheading{%
5297
  {\advance\chapheadingskip by 10pt \chapbreak }%
5298
  \parsearg\chapheadingzzz
5299
}
5300
 
5301
\def\chapheading{\chapbreak \parsearg\chapheadingzzz}
5302
\def\chapheadingzzz#1{%
5303
  {\chapfonts \vbox{\hyphenpenalty=10000\tolerance=5000
5304
                    \parindent=0pt\ptexraggedright
5305
                    \rmisbold #1\hfill}}%
5306
  \bigskip \par\penalty 200\relax
5307
  \suppressfirstparagraphindent
5308
}
5309
 
5310
% @heading, @subheading, @subsubheading.
5311
\parseargdef\heading{\sectionheading{#1}{sec}{Yomitfromtoc}{}
5312
  \suppressfirstparagraphindent}
5313
\parseargdef\subheading{\sectionheading{#1}{subsec}{Yomitfromtoc}{}
5314
  \suppressfirstparagraphindent}
5315
\parseargdef\subsubheading{\sectionheading{#1}{subsubsec}{Yomitfromtoc}{}
5316
  \suppressfirstparagraphindent}
5317
 
5318
% These macros generate a chapter, section, etc. heading only
5319
% (including whitespace, linebreaking, etc. around it),
5320
% given all the information in convenient, parsed form.
5321
 
5322
%%% Args are the skip and penalty (usually negative)
5323
\def\dobreak#1#2{\par\ifdim\lastskip<#1\removelastskip\penalty#2\vskip#1\fi}
5324
 
5325
%%% Define plain chapter starts, and page on/off switching for it
5326
% Parameter controlling skip before chapter headings (if needed)
5327
 
5328
\newskip\chapheadingskip
5329
 
5330
\def\chapbreak{\dobreak \chapheadingskip {-4000}}
5331
\def\chappager{\par\vfill\supereject}
5332
% Because \domark is called before \chapoddpage, the filler page will
5333
% get the headings for the next chapter, which is wrong.  But we don't
5334
% care -- we just disable all headings on the filler page.
5335
\def\chapoddpage{%
5336
  \chappager
5337
  \ifodd\pageno \else
5338
    \begingroup
5339
      \evenheadline={\hfil}\evenfootline={\hfil}%
5340
      \oddheadline={\hfil}\oddfootline={\hfil}%
5341
      \hbox to 0pt{}%
5342
      \chappager
5343
    \endgroup
5344
  \fi
5345
}
5346
 
5347
\def\setchapternewpage #1 {\csname CHAPPAG#1\endcsname}
5348
 
5349
\def\CHAPPAGoff{%
5350
\global\let\contentsalignmacro = \chappager
5351
\global\let\pchapsepmacro=\chapbreak
5352
\global\let\pagealignmacro=\chappager}
5353
 
5354
\def\CHAPPAGon{%
5355
\global\let\contentsalignmacro = \chappager
5356
\global\let\pchapsepmacro=\chappager
5357
\global\let\pagealignmacro=\chappager
5358
\global\def\HEADINGSon{\HEADINGSsingle}}
5359
 
5360
\def\CHAPPAGodd{%
5361
\global\let\contentsalignmacro = \chapoddpage
5362
\global\let\pchapsepmacro=\chapoddpage
5363
\global\let\pagealignmacro=\chapoddpage
5364
\global\def\HEADINGSon{\HEADINGSdouble}}
5365
 
5366
\CHAPPAGon
5367
 
5368
% Chapter opening.
5369
%
5370
% #1 is the text, #2 is the section type (Ynumbered, Ynothing,
5371
% Yappendix, Yomitfromtoc), #3 the chapter number.
5372
%
5373
% To test against our argument.
5374
\def\Ynothingkeyword{Ynothing}
5375
\def\Yomitfromtockeyword{Yomitfromtoc}
5376
\def\Yappendixkeyword{Yappendix}
5377
%
5378
\def\chapmacro#1#2#3{%
5379
  % Insert the first mark before the heading break (see notes for \domark).
5380
  \let\prevchapterdefs=\lastchapterdefs
5381
  \let\prevsectiondefs=\lastsectiondefs
5382
  \gdef\lastsectiondefs{\gdef\thissectionname{}\gdef\thissectionnum{}%
5383
                        \gdef\thissection{}}%
5384
  %
5385
  \def\temptype{#2}%
5386
  \ifx\temptype\Ynothingkeyword
5387
    \gdef\lastchapterdefs{\gdef\thischaptername{#1}\gdef\thischapternum{}%
5388
                          \gdef\thischapter{\thischaptername}}%
5389
  \else\ifx\temptype\Yomitfromtockeyword
5390
    \gdef\lastchapterdefs{\gdef\thischaptername{#1}\gdef\thischapternum{}%
5391
                          \gdef\thischapter{}}%
5392
  \else\ifx\temptype\Yappendixkeyword
5393
    \toks0={#1}%
5394
    \xdef\lastchapterdefs{%
5395
      \gdef\noexpand\thischaptername{\the\toks0}%
5396
      \gdef\noexpand\thischapternum{\appendixletter}%
5397
      % \noexpand\putwordAppendix avoids expanding indigestible
5398
      % commands in some of the translations.
5399
      \gdef\noexpand\thischapter{\noexpand\putwordAppendix{}
5400
                                 \noexpand\thischapternum:
5401
                                 \noexpand\thischaptername}%
5402
    }%
5403
  \else
5404
    \toks0={#1}%
5405
    \xdef\lastchapterdefs{%
5406
      \gdef\noexpand\thischaptername{\the\toks0}%
5407
      \gdef\noexpand\thischapternum{\the\chapno}%
5408
      % \noexpand\putwordChapter avoids expanding indigestible
5409
      % commands in some of the translations.
5410
      \gdef\noexpand\thischapter{\noexpand\putwordChapter{}
5411
                                 \noexpand\thischapternum:
5412
                                 \noexpand\thischaptername}%
5413
    }%
5414
  \fi\fi\fi
5415
  %
5416
  % Output the mark.  Pass it through \safewhatsit, to take care of
5417
  % the preceding space.
5418
  \safewhatsit\domark
5419
  %
5420
  % Insert the chapter heading break.
5421
  \pchapsepmacro
5422
  %
5423
  % Now the second mark, after the heading break.  No break points
5424
  % between here and the heading.
5425
  \let\prevchapterdefs=\lastchapterdefs
5426
  \let\prevsectiondefs=\lastsectiondefs
5427
  \domark
5428
  %
5429
  {%
5430
    \chapfonts \rmisbold
5431
    %
5432
    % Have to define \lastsection before calling \donoderef, because the
5433
    % xref code eventually uses it.  On the other hand, it has to be called
5434
    % after \pchapsepmacro, or the headline will change too soon.
5435
    \gdef\lastsection{#1}%
5436
    %
5437
    % Only insert the separating space if we have a chapter/appendix
5438
    % number, and don't print the unnumbered ``number''.
5439
    \ifx\temptype\Ynothingkeyword
5440
      \setbox0 = \hbox{}%
5441
      \def\toctype{unnchap}%
5442
    \else\ifx\temptype\Yomitfromtockeyword
5443
      \setbox0 = \hbox{}% contents like unnumbered, but no toc entry
5444
      \def\toctype{omit}%
5445
    \else\ifx\temptype\Yappendixkeyword
5446
      \setbox0 = \hbox{\putwordAppendix{} #3\enspace}%
5447
      \def\toctype{app}%
5448
    \else
5449
      \setbox0 = \hbox{#3\enspace}%
5450
      \def\toctype{numchap}%
5451
    \fi\fi\fi
5452
    %
5453
    % Write the toc entry for this chapter.  Must come before the
5454
    % \donoderef, because we include the current node name in the toc
5455
    % entry, and \donoderef resets it to empty.
5456
    \writetocentry{\toctype}{#1}{#3}%
5457
    %
5458
    % For pdftex, we have to write out the node definition (aka, make
5459
    % the pdfdest) after any page break, but before the actual text has
5460
    % been typeset.  If the destination for the pdf outline is after the
5461
    % text, then jumping from the outline may wind up with the text not
5462
    % being visible, for instance under high magnification.
5463
    \donoderef{#2}%
5464
    %
5465
    % Typeset the actual heading.
5466
    \nobreak % Avoid page breaks at the interline glue.
5467
    \vbox{\hyphenpenalty=10000 \tolerance=5000 \parindent=0pt \ptexraggedright
5468
          \hangindent=\wd0 \centerparametersmaybe
5469
          \unhbox0 #1\par}%
5470
  }%
5471
  \nobreak\bigskip % no page break after a chapter title
5472
  \nobreak
5473
}
5474
 
5475
% @centerchap -- centered and unnumbered.
5476
\let\centerparametersmaybe = \relax
5477
\def\centerparameters{%
5478
  \advance\rightskip by 3\rightskip
5479
  \leftskip = \rightskip
5480
  \parfillskip = 0pt
5481
}
5482
 
5483
 
5484
% I don't think this chapter style is supported any more, so I'm not
5485
% updating it with the new noderef stuff.  We'll see.  --karl, 11aug03.
5486
%
5487
\def\setchapterstyle #1 {\csname CHAPF#1\endcsname}
5488
%
5489
\def\unnchfopen #1{%
5490
\chapoddpage {\chapfonts \vbox{\hyphenpenalty=10000\tolerance=5000
5491
                       \parindent=0pt\ptexraggedright
5492
                       \rmisbold #1\hfill}}\bigskip \par\nobreak
5493
}
5494
\def\chfopen #1#2{\chapoddpage {\chapfonts
5495
\vbox to 3in{\vfil \hbox to\hsize{\hfil #2} \hbox to\hsize{\hfil #1} \vfil}}%
5496
\par\penalty 5000 %
5497
}
5498
\def\centerchfopen #1{%
5499
\chapoddpage {\chapfonts \vbox{\hyphenpenalty=10000\tolerance=5000
5500
                       \parindent=0pt
5501
                       \hfill {\rmisbold #1}\hfill}}\bigskip \par\nobreak
5502
}
5503
\def\CHAPFopen{%
5504
  \global\let\chapmacro=\chfopen
5505
  \global\let\centerchapmacro=\centerchfopen}
5506
 
5507
 
5508
% Section titles.  These macros combine the section number parts and
5509
% call the generic \sectionheading to do the printing.
5510
%
5511
\newskip\secheadingskip
5512
\def\secheadingbreak{\dobreak \secheadingskip{-1000}}
5513
 
5514
% Subsection titles.
5515
\newskip\subsecheadingskip
5516
\def\subsecheadingbreak{\dobreak \subsecheadingskip{-500}}
5517
 
5518
% Subsubsection titles.
5519
\def\subsubsecheadingskip{\subsecheadingskip}
5520
\def\subsubsecheadingbreak{\subsecheadingbreak}
5521
 
5522
 
5523
% Print any size, any type, section title.
5524
%
5525
% #1 is the text, #2 is the section level (sec/subsec/subsubsec), #3 is
5526
% the section type for xrefs (Ynumbered, Ynothing, Yappendix), #4 is the
5527
% section number.
5528
%
5529
\def\seckeyword{sec}
5530
%
5531
\def\sectionheading#1#2#3#4{%
5532
  {%
5533
    % Switch to the right set of fonts.
5534
    \csname #2fonts\endcsname \rmisbold
5535
    %
5536
    \def\sectionlevel{#2}%
5537
    \def\temptype{#3}%
5538
    %
5539
    % Insert first mark before the heading break (see notes for \domark).
5540
    \let\prevsectiondefs=\lastsectiondefs
5541
    \ifx\temptype\Ynothingkeyword
5542
      \ifx\sectionlevel\seckeyword
5543
        \gdef\lastsectiondefs{\gdef\thissectionname{#1}\gdef\thissectionnum{}%
5544
                              \gdef\thissection{\thissectionname}}%
5545
      \fi
5546
    \else\ifx\temptype\Yomitfromtockeyword
5547
      % Don't redefine \thissection.
5548
    \else\ifx\temptype\Yappendixkeyword
5549
      \ifx\sectionlevel\seckeyword
5550
        \toks0={#1}%
5551
        \xdef\lastsectiondefs{%
5552
          \gdef\noexpand\thissectionname{\the\toks0}%
5553
          \gdef\noexpand\thissectionnum{#4}%
5554
          % \noexpand\putwordSection avoids expanding indigestible
5555
          % commands in some of the translations.
5556
          \gdef\noexpand\thissection{\noexpand\putwordSection{}
5557
                                     \noexpand\thissectionnum:
5558
                                     \noexpand\thissectionname}%
5559
        }%
5560
      \fi
5561
    \else
5562
      \ifx\sectionlevel\seckeyword
5563
        \toks0={#1}%
5564
        \xdef\lastsectiondefs{%
5565
          \gdef\noexpand\thissectionname{\the\toks0}%
5566
          \gdef\noexpand\thissectionnum{#4}%
5567
          % \noexpand\putwordSection avoids expanding indigestible
5568
          % commands in some of the translations.
5569
          \gdef\noexpand\thissection{\noexpand\putwordSection{}
5570
                                     \noexpand\thissectionnum:
5571
                                     \noexpand\thissectionname}%
5572
        }%
5573
      \fi
5574
    \fi\fi\fi
5575
    %
5576
    % Go into vertical mode.  Usually we'll already be there, but we
5577
    % don't want the following whatsit to end up in a preceding paragraph
5578
    % if the document didn't happen to have a blank line.
5579
    \par
5580
    %
5581
    % Output the mark.  Pass it through \safewhatsit, to take care of
5582
    % the preceding space.
5583
    \safewhatsit\domark
5584
    %
5585
    % Insert space above the heading.
5586
    \csname #2headingbreak\endcsname
5587
    %
5588
    % Now the second mark, after the heading break.  No break points
5589
    % between here and the heading.
5590
    \let\prevsectiondefs=\lastsectiondefs
5591
    \domark
5592
    %
5593
    % Only insert the space after the number if we have a section number.
5594
    \ifx\temptype\Ynothingkeyword
5595
      \setbox0 = \hbox{}%
5596
      \def\toctype{unn}%
5597
      \gdef\lastsection{#1}%
5598
    \else\ifx\temptype\Yomitfromtockeyword
5599
      % for @headings -- no section number, don't include in toc,
5600
      % and don't redefine \lastsection.
5601
      \setbox0 = \hbox{}%
5602
      \def\toctype{omit}%
5603
      \let\sectionlevel=\empty
5604
    \else\ifx\temptype\Yappendixkeyword
5605
      \setbox0 = \hbox{#4\enspace}%
5606
      \def\toctype{app}%
5607
      \gdef\lastsection{#1}%
5608
    \else
5609
      \setbox0 = \hbox{#4\enspace}%
5610
      \def\toctype{num}%
5611
      \gdef\lastsection{#1}%
5612
    \fi\fi\fi
5613
    %
5614
    % Write the toc entry (before \donoderef).  See comments in \chapmacro.
5615
    \writetocentry{\toctype\sectionlevel}{#1}{#4}%
5616
    %
5617
    % Write the node reference (= pdf destination for pdftex).
5618
    % Again, see comments in \chapmacro.
5619
    \donoderef{#3}%
5620
    %
5621
    % Interline glue will be inserted when the vbox is completed.
5622
    % That glue will be a valid breakpoint for the page, since it'll be
5623
    % preceded by a whatsit (usually from the \donoderef, or from the
5624
    % \writetocentry if there was no node).  We don't want to allow that
5625
    % break, since then the whatsits could end up on page n while the
5626
    % section is on page n+1, thus toc/etc. are wrong.  Debian bug 276000.
5627
    \nobreak
5628
    %
5629
    % Output the actual section heading.
5630
    \vbox{\hyphenpenalty=10000 \tolerance=5000 \parindent=0pt \ptexraggedright
5631
          \hangindent=\wd0  % zero if no section number
5632
          \unhbox0 #1}%
5633
  }%
5634
  % Add extra space after the heading -- half of whatever came above it.
5635
  % Don't allow stretch, though.
5636
  \kern .5 \csname #2headingskip\endcsname
5637
  %
5638
  % Do not let the kern be a potential breakpoint, as it would be if it
5639
  % was followed by glue.
5640
  \nobreak
5641
  %
5642
  % We'll almost certainly start a paragraph next, so don't let that
5643
  % glue accumulate.  (Not a breakpoint because it's preceded by a
5644
  % discardable item.)
5645
  \vskip-\parskip
5646
  %
5647
  % This is purely so the last item on the list is a known \penalty >
5648
  % 10000.  This is so \startdefun can avoid allowing breakpoints after
5649
  % section headings.  Otherwise, it would insert a valid breakpoint between:
5650
  %
5651
  %   @section sec-whatever
5652
  %   @deffn def-whatever
5653
  \penalty 10001
5654
}
5655
 
5656
 
5657
\message{toc,}
5658
% Table of contents.
5659
\newwrite\tocfile
5660
 
5661
% Write an entry to the toc file, opening it if necessary.
5662
% Called from @chapter, etc.
5663
%
5664
% Example usage: \writetocentry{sec}{Section Name}{\the\chapno.\the\secno}
5665
% We append the current node name (if any) and page number as additional
5666
% arguments for the \{chap,sec,...}entry macros which will eventually
5667
% read this.  The node name is used in the pdf outlines as the
5668
% destination to jump to.
5669
%
5670
% We open the .toc file for writing here instead of at @setfilename (or
5671
% any other fixed time) so that @contents can be anywhere in the document.
5672
% But if #1 is `omit', then we don't do anything.  This is used for the
5673
% table of contents chapter openings themselves.
5674
%
5675
\newif\iftocfileopened
5676
\def\omitkeyword{omit}%
5677
%
5678
\def\writetocentry#1#2#3{%
5679
  \edef\writetoctype{#1}%
5680
  \ifx\writetoctype\omitkeyword \else
5681
    \iftocfileopened\else
5682
      \immediate\openout\tocfile = \jobname.toc
5683
      \global\tocfileopenedtrue
5684
    \fi
5685
    %
5686
    \iflinks
5687
      {\atdummies
5688
       \edef\temp{%
5689
         \write\tocfile{@#1entry{#2}{#3}{\lastnode}{\noexpand\folio}}}%
5690
       \temp
5691
      }%
5692
    \fi
5693
  \fi
5694
  %
5695
  % Tell \shipout to create a pdf destination on each page, if we're
5696
  % writing pdf.  These are used in the table of contents.  We can't
5697
  % just write one on every page because the title pages are numbered
5698
  % 1 and 2 (the page numbers aren't printed), and so are the first
5699
  % two pages of the document.  Thus, we'd have two destinations named
5700
  % `1', and two named `2'.
5701
  \ifpdf \global\pdfmakepagedesttrue \fi
5702
}
5703
 
5704
 
5705
% These characters do not print properly in the Computer Modern roman
5706
% fonts, so we must take special care.  This is more or less redundant
5707
% with the Texinfo input format setup at the end of this file.
5708
%
5709
\def\activecatcodes{%
5710
  \catcode`\"=\active
5711
  \catcode`\$=\active
5712
  \catcode`\<=\active
5713
  \catcode`\>=\active
5714
  \catcode`\\=\active
5715
  \catcode`\^=\active
5716
  \catcode`\_=\active
5717
  \catcode`\|=\active
5718
  \catcode`\~=\active
5719
}
5720
 
5721
 
5722
% Read the toc file, which is essentially Texinfo input.
5723
\def\readtocfile{%
5724
  \setupdatafile
5725
  \activecatcodes
5726
  \input \tocreadfilename
5727
}
5728
 
5729
\newskip\contentsrightmargin \contentsrightmargin=1in
5730
\newcount\savepageno
5731
\newcount\lastnegativepageno \lastnegativepageno = -1
5732
 
5733
% Prepare to read what we've written to \tocfile.
5734
%
5735
\def\startcontents#1{%
5736
  % If @setchapternewpage on, and @headings double, the contents should
5737
  % start on an odd page, unlike chapters.  Thus, we maintain
5738
  % \contentsalignmacro in parallel with \pagealignmacro.
5739
  % From: Torbjorn Granlund <tege@matematik.su.se>
5740
  \contentsalignmacro
5741
  \immediate\closeout\tocfile
5742
  %
5743
  % Don't need to put `Contents' or `Short Contents' in the headline.
5744
  % It is abundantly clear what they are.
5745
  \chapmacro{#1}{Yomitfromtoc}{}%
5746
  %
5747
  \savepageno = \pageno
5748
  \begingroup                  % Set up to handle contents files properly.
5749
    \raggedbottom              % Worry more about breakpoints than the bottom.
5750
    \advance\hsize by -\contentsrightmargin % Don't use the full line length.
5751
    %
5752
    % Roman numerals for page numbers.
5753
    \ifnum \pageno>0 \global\pageno = \lastnegativepageno \fi
5754
}
5755
 
5756
% redefined for the two-volume lispref.  We always output on
5757
% \jobname.toc even if this is redefined.
5758
%
5759
\def\tocreadfilename{\jobname.toc}
5760
 
5761
% Normal (long) toc.
5762
%
5763
\def\contents{%
5764
  \startcontents{\putwordTOC}%
5765
    \openin 1 \tocreadfilename\space
5766
    \ifeof 1 \else
5767
      \readtocfile
5768
    \fi
5769
    \vfill \eject
5770
    \contentsalignmacro % in case @setchapternewpage odd is in effect
5771
    \ifeof 1 \else
5772
      \pdfmakeoutlines
5773
    \fi
5774
    \closein 1
5775
  \endgroup
5776
  \lastnegativepageno = \pageno
5777
  \global\pageno = \savepageno
5778
}
5779
 
5780
% And just the chapters.
5781
\def\summarycontents{%
5782
  \startcontents{\putwordShortTOC}%
5783
    %
5784
    \let\numchapentry = \shortchapentry
5785
    \let\appentry = \shortchapentry
5786
    \let\unnchapentry = \shortunnchapentry
5787
    % We want a true roman here for the page numbers.
5788
    \secfonts
5789
    \let\rm=\shortcontrm \let\bf=\shortcontbf
5790
    \let\sl=\shortcontsl \let\tt=\shortconttt
5791
    \rm
5792
    \hyphenpenalty = 10000
5793
    \advance\baselineskip by 1pt % Open it up a little.
5794
    \def\numsecentry##1##2##3##4{}
5795
    \let\appsecentry = \numsecentry
5796
    \let\unnsecentry = \numsecentry
5797
    \let\numsubsecentry = \numsecentry
5798
    \let\appsubsecentry = \numsecentry
5799
    \let\unnsubsecentry = \numsecentry
5800
    \let\numsubsubsecentry = \numsecentry
5801
    \let\appsubsubsecentry = \numsecentry
5802
    \let\unnsubsubsecentry = \numsecentry
5803
    \openin 1 \tocreadfilename\space
5804
    \ifeof 1 \else
5805
      \readtocfile
5806
    \fi
5807
    \closein 1
5808
    \vfill \eject
5809
    \contentsalignmacro % in case @setchapternewpage odd is in effect
5810
  \endgroup
5811
  \lastnegativepageno = \pageno
5812
  \global\pageno = \savepageno
5813
}
5814
\let\shortcontents = \summarycontents
5815
 
5816
% Typeset the label for a chapter or appendix for the short contents.
5817
% The arg is, e.g., `A' for an appendix, or `3' for a chapter.
5818
%
5819
\def\shortchaplabel#1{%
5820
  % This space should be enough, since a single number is .5em, and the
5821
  % widest letter (M) is 1em, at least in the Computer Modern fonts.
5822
  % But use \hss just in case.
5823
  % (This space doesn't include the extra space that gets added after
5824
  % the label; that gets put in by \shortchapentry above.)
5825
  %
5826
  % We'd like to right-justify chapter numbers, but that looks strange
5827
  % with appendix letters.  And right-justifying numbers and
5828
  % left-justifying letters looks strange when there is less than 10
5829
  % chapters.  Have to read the whole toc once to know how many chapters
5830
  % there are before deciding ...
5831
  \hbox to 1em{#1\hss}%
5832
}
5833
 
5834
% These macros generate individual entries in the table of contents.
5835
% The first argument is the chapter or section name.
5836
% The last argument is the page number.
5837
% The arguments in between are the chapter number, section number, ...
5838
 
5839
% Chapters, in the main contents.
5840
\def\numchapentry#1#2#3#4{\dochapentry{#2\labelspace#1}{#4}}
5841
%
5842
% Chapters, in the short toc.
5843
% See comments in \dochapentry re vbox and related settings.
5844
\def\shortchapentry#1#2#3#4{%
5845
  \tocentry{\shortchaplabel{#2}\labelspace #1}{\doshortpageno\bgroup#4\egroup}%
5846
}
5847
 
5848
% Appendices, in the main contents.
5849
% Need the word Appendix, and a fixed-size box.
5850
%
5851
\def\appendixbox#1{%
5852
  % We use M since it's probably the widest letter.
5853
  \setbox0 = \hbox{\putwordAppendix{} M}%
5854
  \hbox to \wd0{\putwordAppendix{} #1\hss}}
5855
%
5856
\def\appentry#1#2#3#4{\dochapentry{\appendixbox{#2}\labelspace#1}{#4}}
5857
 
5858
% Unnumbered chapters.
5859
\def\unnchapentry#1#2#3#4{\dochapentry{#1}{#4}}
5860
\def\shortunnchapentry#1#2#3#4{\tocentry{#1}{\doshortpageno\bgroup#4\egroup}}
5861
 
5862
% Sections.
5863
\def\numsecentry#1#2#3#4{\dosecentry{#2\labelspace#1}{#4}}
5864
\let\appsecentry=\numsecentry
5865
\def\unnsecentry#1#2#3#4{\dosecentry{#1}{#4}}
5866
 
5867
% Subsections.
5868
\def\numsubsecentry#1#2#3#4{\dosubsecentry{#2\labelspace#1}{#4}}
5869
\let\appsubsecentry=\numsubsecentry
5870
\def\unnsubsecentry#1#2#3#4{\dosubsecentry{#1}{#4}}
5871
 
5872
% And subsubsections.
5873
\def\numsubsubsecentry#1#2#3#4{\dosubsubsecentry{#2\labelspace#1}{#4}}
5874
\let\appsubsubsecentry=\numsubsubsecentry
5875
\def\unnsubsubsecentry#1#2#3#4{\dosubsubsecentry{#1}{#4}}
5876
 
5877
% This parameter controls the indentation of the various levels.
5878
% Same as \defaultparindent.
5879
\newdimen\tocindent \tocindent = 15pt
5880
 
5881
% Now for the actual typesetting. In all these, #1 is the text and #2 is the
5882
% page number.
5883
%
5884
% If the toc has to be broken over pages, we want it to be at chapters
5885
% if at all possible; hence the \penalty.
5886
\def\dochapentry#1#2{%
5887
   \penalty-300 \vskip1\baselineskip plus.33\baselineskip minus.25\baselineskip
5888
   \begingroup
5889
     \chapentryfonts
5890
     \tocentry{#1}{\dopageno\bgroup#2\egroup}%
5891
   \endgroup
5892
   \nobreak\vskip .25\baselineskip plus.1\baselineskip
5893
}
5894
 
5895
\def\dosecentry#1#2{\begingroup
5896
  \secentryfonts \leftskip=\tocindent
5897
  \tocentry{#1}{\dopageno\bgroup#2\egroup}%
5898
\endgroup}
5899
 
5900
\def\dosubsecentry#1#2{\begingroup
5901
  \subsecentryfonts \leftskip=2\tocindent
5902
  \tocentry{#1}{\dopageno\bgroup#2\egroup}%
5903
\endgroup}
5904
 
5905
\def\dosubsubsecentry#1#2{\begingroup
5906
  \subsubsecentryfonts \leftskip=3\tocindent
5907
  \tocentry{#1}{\dopageno\bgroup#2\egroup}%
5908
\endgroup}
5909
 
5910
% We use the same \entry macro as for the index entries.
5911
\let\tocentry = \entry
5912
 
5913
% Space between chapter (or whatever) number and the title.
5914
\def\labelspace{\hskip1em \relax}
5915
 
5916
\def\dopageno#1{{\rm #1}}
5917
\def\doshortpageno#1{{\rm #1}}
5918
 
5919
\def\chapentryfonts{\secfonts \rm}
5920
\def\secentryfonts{\textfonts}
5921
\def\subsecentryfonts{\textfonts}
5922
\def\subsubsecentryfonts{\textfonts}
5923
 
5924
 
5925
\message{environments,}
5926
% @foo ... @end foo.
5927
 
5928
% @tex ... @end tex    escapes into raw Tex temporarily.
5929
% One exception: @ is still an escape character, so that @end tex works.
5930
% But \@ or @@ will get a plain tex @ character.
5931
 
5932
\envdef\tex{%
5933
  \setupmarkupstyle{tex}%
5934
  \catcode `\\=0 \catcode `\{=1 \catcode `\}=2
5935
  \catcode `\$=3 \catcode `\&=4 \catcode `\#=6
5936
  \catcode `\^=7 \catcode `\_=8 \catcode `\~=\active \let~=\tie
5937
  \catcode `\%=14
5938
  \catcode `\+=\other
5939
  \catcode `\"=\other
5940
  \catcode `\|=\other
5941
  \catcode `\<=\other
5942
  \catcode `\>=\other
5943
  \catcode`\`=\other
5944
  \catcode`\'=\other
5945
  \escapechar=`\\
5946
  %
5947
  \let\b=\ptexb
5948
  \let\bullet=\ptexbullet
5949
  \let\c=\ptexc
5950
  \let\,=\ptexcomma
5951
  \let\.=\ptexdot
5952
  \let\dots=\ptexdots
5953
  \let\equiv=\ptexequiv
5954
  \let\!=\ptexexclam
5955
  \let\i=\ptexi
5956
  \let\indent=\ptexindent
5957
  \let\noindent=\ptexnoindent
5958
  \let\{=\ptexlbrace
5959
  \let\+=\tabalign
5960
  \let\}=\ptexrbrace
5961
  \let\/=\ptexslash
5962
  \let\*=\ptexstar
5963
  \let\t=\ptext
5964
  \expandafter \let\csname top\endcsname=\ptextop  % outer
5965
  \let\frenchspacing=\plainfrenchspacing
5966
  %
5967
  \def\endldots{\mathinner{\ldots\ldots\ldots\ldots}}%
5968
  \def\enddots{\relax\ifmmode\endldots\else$\mathsurround=0pt \endldots\,$\fi}%
5969
  \def\@{@}%
5970
}
5971
% There is no need to define \Etex.
5972
 
5973
% Define @lisp ... @end lisp.
5974
% @lisp environment forms a group so it can rebind things,
5975
% including the definition of @end lisp (which normally is erroneous).
5976
 
5977
% Amount to narrow the margins by for @lisp.
5978
\newskip\lispnarrowing \lispnarrowing=0.4in
5979
 
5980
% This is the definition that ^^M gets inside @lisp, @example, and other
5981
% such environments.  \null is better than a space, since it doesn't
5982
% have any width.
5983
\def\lisppar{\null\endgraf}
5984
 
5985
% This space is always present above and below environments.
5986
\newskip\envskipamount \envskipamount = 0pt
5987
 
5988
% Make spacing and below environment symmetrical.  We use \parskip here
5989
% to help in doing that, since in @example-like environments \parskip
5990
% is reset to zero; thus the \afterenvbreak inserts no space -- but the
5991
% start of the next paragraph will insert \parskip.
5992
%
5993
\def\aboveenvbreak{{%
5994
  % =10000 instead of <10000 because of a special case in \itemzzz and
5995
  % \sectionheading, q.v.
5996
  \ifnum \lastpenalty=10000 \else
5997
    \advance\envskipamount by \parskip
5998
    \endgraf
5999
    \ifdim\lastskip<\envskipamount
6000
      \removelastskip
6001
      % it's not a good place to break if the last penalty was \nobreak
6002
      % or better ...
6003
      \ifnum\lastpenalty<10000 \penalty-50 \fi
6004
      \vskip\envskipamount
6005
    \fi
6006
  \fi
6007
}}
6008
 
6009
\let\afterenvbreak = \aboveenvbreak
6010
 
6011
% \nonarrowing is a flag.  If "set", @lisp etc don't narrow margins; it will
6012
% also clear it, so that its embedded environments do the narrowing again.
6013
\let\nonarrowing=\relax
6014
 
6015
% @cartouche ... @end cartouche: draw rectangle w/rounded corners around
6016
% environment contents.
6017
\font\circle=lcircle10
6018
\newdimen\circthick
6019
\newdimen\cartouter\newdimen\cartinner
6020
\newskip\normbskip\newskip\normpskip\newskip\normlskip
6021
\circthick=\fontdimen8\circle
6022
%
6023
\def\ctl{{\circle\char'013\hskip -6pt}}% 6pt from pl file: 1/2charwidth
6024
\def\ctr{{\hskip 6pt\circle\char'010}}
6025
\def\cbl{{\circle\char'012\hskip -6pt}}
6026
\def\cbr{{\hskip 6pt\circle\char'011}}
6027
\def\carttop{\hbox to \cartouter{\hskip\lskip
6028
        \ctl\leaders\hrule height\circthick\hfil\ctr
6029
        \hskip\rskip}}
6030
\def\cartbot{\hbox to \cartouter{\hskip\lskip
6031
        \cbl\leaders\hrule height\circthick\hfil\cbr
6032
        \hskip\rskip}}
6033
%
6034
\newskip\lskip\newskip\rskip
6035
 
6036
\envdef\cartouche{%
6037
  \ifhmode\par\fi  % can't be in the midst of a paragraph.
6038
  \startsavinginserts
6039
  \lskip=\leftskip \rskip=\rightskip
6040
  \leftskip=0pt\rightskip=0pt % we want these *outside*.
6041
  \cartinner=\hsize \advance\cartinner by-\lskip
6042
  \advance\cartinner by-\rskip
6043
  \cartouter=\hsize
6044
  \advance\cartouter by 18.4pt  % allow for 3pt kerns on either
6045
                                % side, and for 6pt waste from
6046
                                % each corner char, and rule thickness
6047
  \normbskip=\baselineskip \normpskip=\parskip \normlskip=\lineskip
6048
  % Flag to tell @lisp, etc., not to narrow margin.
6049
  \let\nonarrowing = t%
6050
  \vbox\bgroup
6051
      \baselineskip=0pt\parskip=0pt\lineskip=0pt
6052
      \carttop
6053
      \hbox\bgroup
6054
          \hskip\lskip
6055
          \vrule\kern3pt
6056
          \vbox\bgroup
6057
              \kern3pt
6058
              \hsize=\cartinner
6059
              \baselineskip=\normbskip
6060
              \lineskip=\normlskip
6061
              \parskip=\normpskip
6062
              \vskip -\parskip
6063
              \comment % For explanation, see the end of \def\group.
6064
}
6065
\def\Ecartouche{%
6066
              \ifhmode\par\fi
6067
              \kern3pt
6068
          \egroup
6069
          \kern3pt\vrule
6070
          \hskip\rskip
6071
      \egroup
6072
      \cartbot
6073
  \egroup
6074
  \checkinserts
6075
}
6076
 
6077
 
6078
% This macro is called at the beginning of all the @example variants,
6079
% inside a group.
6080
\newdimen\nonfillparindent
6081
\def\nonfillstart{%
6082
  \aboveenvbreak
6083
  \hfuzz = 12pt % Don't be fussy
6084
  \sepspaces % Make spaces be word-separators rather than space tokens.
6085
  \let\par = \lisppar % don't ignore blank lines
6086
  \obeylines % each line of input is a line of output
6087
  \parskip = 0pt
6088
  % Turn off paragraph indentation but redefine \indent to emulate
6089
  % the normal \indent.
6090
  \nonfillparindent=\parindent
6091
  \parindent = 0pt
6092
  \let\indent\nonfillindent
6093
  %
6094
  \emergencystretch = 0pt % don't try to avoid overfull boxes
6095
  \ifx\nonarrowing\relax
6096
    \advance \leftskip by \lispnarrowing
6097
    \exdentamount=\lispnarrowing
6098
  \else
6099
    \let\nonarrowing = \relax
6100
  \fi
6101
  \let\exdent=\nofillexdent
6102
}
6103
 
6104
\begingroup
6105
\obeyspaces
6106
% We want to swallow spaces (but not other tokens) after the fake
6107
% @indent in our nonfill-environments, where spaces are normally
6108
% active and set to @tie, resulting in them not being ignored after
6109
% @indent.
6110
\gdef\nonfillindent{\futurelet\temp\nonfillindentcheck}%
6111
\gdef\nonfillindentcheck{%
6112
\ifx\temp %
6113
\expandafter\nonfillindentgobble%
6114
\else%
6115
\leavevmode\nonfillindentbox%
6116
\fi%
6117
}%
6118
\endgroup
6119
\def\nonfillindentgobble#1{\nonfillindent}
6120
\def\nonfillindentbox{\hbox to \nonfillparindent{\hss}}
6121
 
6122
% If you want all examples etc. small: @set dispenvsize small.
6123
% If you want even small examples the full size: @set dispenvsize nosmall.
6124
% This affects the following displayed environments:
6125
%    @example, @display, @format, @lisp
6126
%
6127
\def\smallword{small}
6128
\def\nosmallword{nosmall}
6129
\let\SETdispenvsize\relax
6130
\def\setnormaldispenv{%
6131
  \ifx\SETdispenvsize\smallword
6132
    % end paragraph for sake of leading, in case document has no blank
6133
    % line.  This is redundant with what happens in \aboveenvbreak, but
6134
    % we need to do it before changing the fonts, and it's inconvenient
6135
    % to change the fonts afterward.
6136
    \ifnum \lastpenalty=10000 \else \endgraf \fi
6137
    \smallexamplefonts \rm
6138
  \fi
6139
}
6140
\def\setsmalldispenv{%
6141
  \ifx\SETdispenvsize\nosmallword
6142
  \else
6143
    \ifnum \lastpenalty=10000 \else \endgraf \fi
6144
    \smallexamplefonts \rm
6145
  \fi
6146
}
6147
 
6148
% We often define two environments, @foo and @smallfoo.
6149
% Let's do it by one command:
6150
\def\makedispenv #1#2{
6151
  \expandafter\envdef\csname#1\endcsname {\setnormaldispenv #2}
6152
  \expandafter\envdef\csname small#1\endcsname {\setsmalldispenv #2}
6153
  \expandafter\let\csname E#1\endcsname \afterenvbreak
6154
  \expandafter\let\csname Esmall#1\endcsname \afterenvbreak
6155
}
6156
 
6157
% Define two synonyms:
6158
\def\maketwodispenvs #1#2#3{
6159
  \makedispenv{#1}{#3}
6160
  \makedispenv{#2}{#3}
6161
}
6162
 
6163
% @lisp: indented, narrowed, typewriter font; @example: same as @lisp.
6164
%
6165
% @smallexample and @smalllisp: use smaller fonts.
6166
% Originally contributed by Pavel@xerox.
6167
%
6168
\maketwodispenvs {lisp}{example}{%
6169
  \nonfillstart
6170
  \tt\setupmarkupstyle{example}%
6171
  \let\kbdfont = \kbdexamplefont % Allow @kbd to do something special.
6172
  \gobble       % eat return
6173
}
6174
% @display/@smalldisplay: same as @lisp except keep current font.
6175
%
6176
\makedispenv {display}{%
6177
  \nonfillstart
6178
  \gobble
6179
}
6180
 
6181
% @format/@smallformat: same as @display except don't narrow margins.
6182
%
6183
\makedispenv{format}{%
6184
  \let\nonarrowing = t%
6185
  \nonfillstart
6186
  \gobble
6187
}
6188
 
6189
% @flushleft: same as @format, but doesn't obey \SETdispenvsize.
6190
\envdef\flushleft{%
6191
  \let\nonarrowing = t%
6192
  \nonfillstart
6193
  \gobble
6194
}
6195
\let\Eflushleft = \afterenvbreak
6196
 
6197
% @flushright.
6198
%
6199
\envdef\flushright{%
6200
  \let\nonarrowing = t%
6201
  \nonfillstart
6202
  \advance\leftskip by 0pt plus 1fill
6203
  \gobble
6204
}
6205
\let\Eflushright = \afterenvbreak
6206
 
6207
 
6208
% @raggedright does more-or-less normal line breaking but no right
6209
% justification.  From plain.tex.
6210
\envdef\raggedright{%
6211
  \rightskip0pt plus2em \spaceskip.3333em \xspaceskip.5em\relax
6212
}
6213
\let\Eraggedright\par
6214
 
6215
\envdef\raggedleft{%
6216
  \parindent=0pt \leftskip0pt plus2em
6217
  \spaceskip.3333em \xspaceskip.5em \parfillskip=0pt
6218
  \hbadness=10000 % Last line will usually be underfull, so turn off
6219
                  % badness reporting.
6220
}
6221
\let\Eraggedleft\par
6222
 
6223
\envdef\raggedcenter{%
6224
  \parindent=0pt \rightskip0pt plus1em \leftskip0pt plus1em
6225
  \spaceskip.3333em \xspaceskip.5em \parfillskip=0pt
6226
  \hbadness=10000 % Last line will usually be underfull, so turn off
6227
                  % badness reporting.
6228
}
6229
\let\Eraggedcenter\par
6230
 
6231
 
6232
% @quotation does normal linebreaking (hence we can't use \nonfillstart)
6233
% and narrows the margins.  We keep \parskip nonzero in general, since
6234
% we're doing normal filling.  So, when using \aboveenvbreak and
6235
% \afterenvbreak, temporarily make \parskip 0.
6236
%
6237
\def\quotationstart{%
6238
  {\parskip=0pt \aboveenvbreak}% because \aboveenvbreak inserts \parskip
6239
  \parindent=0pt
6240
  %
6241
  % @cartouche defines \nonarrowing to inhibit narrowing at next level down.
6242
  \ifx\nonarrowing\relax
6243
    \advance\leftskip by \lispnarrowing
6244
    \advance\rightskip by \lispnarrowing
6245
    \exdentamount = \lispnarrowing
6246
  \else
6247
    \let\nonarrowing = \relax
6248
  \fi
6249
  \parsearg\quotationlabel
6250
}
6251
 
6252
\envdef\quotation{%
6253
  \setnormaldispenv
6254
  \quotationstart
6255
}
6256
 
6257
\envdef\smallquotation{%
6258
  \setsmalldispenv
6259
  \quotationstart
6260
}
6261
\let\Esmallquotation = \Equotation
6262
 
6263
% We have retained a nonzero parskip for the environment, since we're
6264
% doing normal filling.
6265
%
6266
\def\Equotation{%
6267
  \par
6268
  \ifx\quotationauthor\undefined\else
6269
    % indent a bit.
6270
    \leftline{\kern 2\leftskip \sl ---\quotationauthor}%
6271
  \fi
6272
  {\parskip=0pt \afterenvbreak}%
6273
}
6274
 
6275
% If we're given an argument, typeset it in bold with a colon after.
6276
\def\quotationlabel#1{%
6277
  \def\temp{#1}%
6278
  \ifx\temp\empty \else
6279
    {\bf #1: }%
6280
  \fi
6281
}
6282
 
6283
 
6284
% LaTeX-like @verbatim...@end verbatim and @verb{<char>...<char>}
6285
% If we want to allow any <char> as delimiter,
6286
% we need the curly braces so that makeinfo sees the @verb command, eg:
6287
% `@verbx...x' would look like the '@verbx' command.  --janneke@gnu.org
6288
%
6289
% [Knuth]: Donald Ervin Knuth, 1996.  The TeXbook.
6290
%
6291
% [Knuth] p.344; only we need to do the other characters Texinfo sets
6292
% active too.  Otherwise, they get lost as the first character on a
6293
% verbatim line.
6294
\def\dospecials{%
6295
  \do\ \do\\\do\{\do\}\do\$\do\&%
6296
  \do\#\do\^\do\^^K\do\_\do\^^A\do\%\do\~%
6297
  \do\<\do\>\do\|\do\@\do+\do\"%
6298
  % Don't do the quotes -- if we do, @set txicodequoteundirected and
6299
  % @set txicodequotebacktick will not have effect on @verb and
6300
  % @verbatim, and ?` and !` ligatures won't get disabled.
6301
  %\do\`\do\'%
6302
}
6303
%
6304
% [Knuth] p. 380
6305
\def\uncatcodespecials{%
6306
  \def\do##1{\catcode`##1=\other}\dospecials}
6307
%
6308
% Setup for the @verb command.
6309
%
6310
% Eight spaces for a tab
6311
\begingroup
6312
  \catcode`\^^I=\active
6313
  \gdef\tabeightspaces{\catcode`\^^I=\active\def^^I{\ \ \ \ \ \ \ \ }}
6314
\endgroup
6315
%
6316
\def\setupverb{%
6317
  \tt  % easiest (and conventionally used) font for verbatim
6318
  \def\par{\leavevmode\endgraf}%
6319
  \setupmarkupstyle{verb}%
6320
  \tabeightspaces
6321
  % Respect line breaks,
6322
  % print special symbols as themselves, and
6323
  % make each space count
6324
  % must do in this order:
6325
  \obeylines \uncatcodespecials \sepspaces
6326
}
6327
 
6328
% Setup for the @verbatim environment
6329
%
6330
% Real tab expansion
6331
\newdimen\tabw \setbox0=\hbox{\tt\space} \tabw=8\wd0 % tab amount
6332
%
6333
\def\starttabbox{\setbox0=\hbox\bgroup}
6334
%
6335
\begingroup
6336
  \catcode`\^^I=\active
6337
  \gdef\tabexpand{%
6338
    \catcode`\^^I=\active
6339
    \def^^I{\leavevmode\egroup
6340
      \dimen0=\wd0 % the width so far, or since the previous tab
6341
      \divide\dimen0 by\tabw
6342
      \multiply\dimen0 by\tabw % compute previous multiple of \tabw
6343
      \advance\dimen0 by\tabw  % advance to next multiple of \tabw
6344
      \wd0=\dimen0 \box0 \starttabbox
6345
    }%
6346
  }
6347
\endgroup
6348
 
6349
% start the verbatim environment.
6350
\def\setupverbatim{%
6351
  \let\nonarrowing = t%
6352
  \nonfillstart
6353
  % Easiest (and conventionally used) font for verbatim
6354
  \tt
6355
  \def\par{\leavevmode\egroup\box0\endgraf}%
6356
  \tabexpand
6357
  \setupmarkupstyle{verbatim}%
6358
  % Respect line breaks,
6359
  % print special symbols as themselves, and
6360
  % make each space count
6361
  % must do in this order:
6362
  \obeylines \uncatcodespecials \sepspaces
6363
  \everypar{\starttabbox}%
6364
}
6365
 
6366
% Do the @verb magic: verbatim text is quoted by unique
6367
% delimiter characters.  Before first delimiter expect a
6368
% right brace, after last delimiter expect closing brace:
6369
%
6370
%    \def\doverb'{'<char>#1<char>'}'{#1}
6371
%
6372
% [Knuth] p. 382; only eat outer {}
6373
\begingroup
6374
  \catcode`[=1\catcode`]=2\catcode`\{=\other\catcode`\}=\other
6375
  \gdef\doverb{#1[\def\next##1#1}[##1\endgroup]\next]
6376
\endgroup
6377
%
6378
\def\verb{\begingroup\setupverb\doverb}
6379
%
6380
%
6381
% Do the @verbatim magic: define the macro \doverbatim so that
6382
% the (first) argument ends when '@end verbatim' is reached, ie:
6383
%
6384
%     \def\doverbatim#1@end verbatim{#1}
6385
%
6386
% For Texinfo it's a lot easier than for LaTeX,
6387
% because texinfo's \verbatim doesn't stop at '\end{verbatim}':
6388
% we need not redefine '\', '{' and '}'.
6389
%
6390
% Inspired by LaTeX's verbatim command set [latex.ltx]
6391
%
6392
\begingroup
6393
  \catcode`\ =\active
6394
  \obeylines %
6395
  % ignore everything up to the first ^^M, that's the newline at the end
6396
  % of the @verbatim input line itself.  Otherwise we get an extra blank
6397
  % line in the output.
6398
  \xdef\doverbatim#1^^M#2@end verbatim{#2\noexpand\end\gobble verbatim}%
6399
  % We really want {...\end verbatim} in the body of the macro, but
6400
  % without the active space; thus we have to use \xdef and \gobble.
6401
\endgroup
6402
%
6403
\envdef\verbatim{%
6404
    \setupverbatim\doverbatim
6405
}
6406
\let\Everbatim = \afterenvbreak
6407
 
6408
 
6409
% @verbatiminclude FILE - insert text of file in verbatim environment.
6410
%
6411
\def\verbatiminclude{\parseargusing\filenamecatcodes\doverbatiminclude}
6412
%
6413
\def\doverbatiminclude#1{%
6414
  {%
6415
    \makevalueexpandable
6416
    \setupverbatim
6417
    \indexnofonts       % Allow `@@' and other weird things in file names.
6418
    \input #1
6419
    \afterenvbreak
6420
  }%
6421
}
6422
 
6423
% @copying ... @end copying.
6424
% Save the text away for @insertcopying later.
6425
%
6426
% We save the uninterpreted tokens, rather than creating a box.
6427
% Saving the text in a box would be much easier, but then all the
6428
% typesetting commands (@smallbook, font changes, etc.) have to be done
6429
% beforehand -- and a) we want @copying to be done first in the source
6430
% file; b) letting users define the frontmatter in as flexible order as
6431
% possible is very desirable.
6432
%
6433
\def\copying{\checkenv{}\begingroup\scanargctxt\docopying}
6434
\def\docopying#1@end copying{\endgroup\def\copyingtext{#1}}
6435
%
6436
\def\insertcopying{%
6437
  \begingroup
6438
    \parindent = 0pt  % paragraph indentation looks wrong on title page
6439
    \scanexp\copyingtext
6440
  \endgroup
6441
}
6442
 
6443
 
6444
\message{defuns,}
6445
% @defun etc.
6446
 
6447
\newskip\defbodyindent \defbodyindent=.4in
6448
\newskip\defargsindent \defargsindent=50pt
6449
\newskip\deflastargmargin \deflastargmargin=18pt
6450
\newcount\defunpenalty
6451
 
6452
% Start the processing of @deffn:
6453
\def\startdefun{%
6454
  \ifnum\lastpenalty<10000
6455
    \medbreak
6456
    \defunpenalty=10003 % Will keep this @deffn together with the
6457
                        % following @def command, see below.
6458
  \else
6459
    % If there are two @def commands in a row, we'll have a \nobreak,
6460
    % which is there to keep the function description together with its
6461
    % header.  But if there's nothing but headers, we need to allow a
6462
    % break somewhere.  Check specifically for penalty 10002, inserted
6463
    % by \printdefunline, instead of 10000, since the sectioning
6464
    % commands also insert a nobreak penalty, and we don't want to allow
6465
    % a break between a section heading and a defun.
6466
    %
6467
    % As a minor refinement, we avoid "club" headers by signalling
6468
    % with penalty of 10003 after the very first @deffn in the
6469
    % sequence (see above), and penalty of 10002 after any following
6470
    % @def command.
6471
    \ifnum\lastpenalty=10002 \penalty2000 \else \defunpenalty=10002 \fi
6472
    %
6473
    % Similarly, after a section heading, do not allow a break.
6474
    % But do insert the glue.
6475
    \medskip  % preceded by discardable penalty, so not a breakpoint
6476
  \fi
6477
  %
6478
  \parindent=0in
6479
  \advance\leftskip by \defbodyindent
6480
  \exdentamount=\defbodyindent
6481
}
6482
 
6483
\def\dodefunx#1{%
6484
  % First, check whether we are in the right environment:
6485
  \checkenv#1%
6486
  %
6487
  % As above, allow line break if we have multiple x headers in a row.
6488
  % It's not a great place, though.
6489
  \ifnum\lastpenalty=10002 \penalty3000 \else \defunpenalty=10002 \fi
6490
  %
6491
  % And now, it's time to reuse the body of the original defun:
6492
  \expandafter\gobbledefun#1%
6493
}
6494
\def\gobbledefun#1\startdefun{}
6495
 
6496
% \printdefunline \deffnheader{text}
6497
%
6498
\def\printdefunline#1#2{%
6499
  \begingroup
6500
    % call \deffnheader:
6501
    #1#2 \endheader
6502
    % common ending:
6503
    \interlinepenalty = 10000
6504
    \advance\rightskip by 0pt plus 1fil
6505
    \endgraf
6506
    \nobreak\vskip -\parskip
6507
    \penalty\defunpenalty  % signal to \startdefun and \dodefunx
6508
    % Some of the @defun-type tags do not enable magic parentheses,
6509
    % rendering the following check redundant.  But we don't optimize.
6510
    \checkparencounts
6511
  \endgroup
6512
}
6513
 
6514
\def\Edefun{\endgraf\medbreak}
6515
 
6516
% \makedefun{deffn} creates \deffn, \deffnx and \Edeffn;
6517
% the only thing remaining is to define \deffnheader.
6518
%
6519
\def\makedefun#1{%
6520
  \expandafter\let\csname E#1\endcsname = \Edefun
6521
  \edef\temp{\noexpand\domakedefun
6522
    \makecsname{#1}\makecsname{#1x}\makecsname{#1header}}%
6523
  \temp
6524
}
6525
 
6526
% \domakedefun \deffn \deffnx \deffnheader
6527
%
6528
% Define \deffn and \deffnx, without parameters.
6529
% \deffnheader has to be defined explicitly.
6530
%
6531
\def\domakedefun#1#2#3{%
6532
  \envdef#1{%
6533
    \startdefun
6534
    \parseargusing\activeparens{\printdefunline#3}%
6535
  }%
6536
  \def#2{\dodefunx#1}%
6537
  \def#3%
6538
}
6539
 
6540
%%% Untyped functions:
6541
 
6542
% @deffn category name args
6543
\makedefun{deffn}{\deffngeneral{}}
6544
 
6545
% @deffn category class name args
6546
\makedefun{defop}#1 {\defopon{#1\ \putwordon}}
6547
 
6548
% \defopon {category on}class name args
6549
\def\defopon#1#2 {\deffngeneral{\putwordon\ \code{#2}}{#1\ \code{#2}} }
6550
 
6551
% \deffngeneral {subind}category name args
6552
%
6553
\def\deffngeneral#1#2 #3 #4\endheader{%
6554
  % Remember that \dosubind{fn}{foo}{} is equivalent to \doind{fn}{foo}.
6555
  \dosubind{fn}{\code{#3}}{#1}%
6556
  \defname{#2}{}{#3}\magicamp\defunargs{#4\unskip}%
6557
}
6558
 
6559
%%% Typed functions:
6560
 
6561
% @deftypefn category type name args
6562
\makedefun{deftypefn}{\deftypefngeneral{}}
6563
 
6564
% @deftypeop category class type name args
6565
\makedefun{deftypeop}#1 {\deftypeopon{#1\ \putwordon}}
6566
 
6567
% \deftypeopon {category on}class type name args
6568
\def\deftypeopon#1#2 {\deftypefngeneral{\putwordon\ \code{#2}}{#1\ \code{#2}} }
6569
 
6570
% \deftypefngeneral {subind}category type name args
6571
%
6572
\def\deftypefngeneral#1#2 #3 #4 #5\endheader{%
6573
  \dosubind{fn}{\code{#4}}{#1}%
6574
  \defname{#2}{#3}{#4}\defunargs{#5\unskip}%
6575
}
6576
 
6577
%%% Typed variables:
6578
 
6579
% @deftypevr category type var args
6580
\makedefun{deftypevr}{\deftypecvgeneral{}}
6581
 
6582
% @deftypecv category class type var args
6583
\makedefun{deftypecv}#1 {\deftypecvof{#1\ \putwordof}}
6584
 
6585
% \deftypecvof {category of}class type var args
6586
\def\deftypecvof#1#2 {\deftypecvgeneral{\putwordof\ \code{#2}}{#1\ \code{#2}} }
6587
 
6588
% \deftypecvgeneral {subind}category type var args
6589
%
6590
\def\deftypecvgeneral#1#2 #3 #4 #5\endheader{%
6591
  \dosubind{vr}{\code{#4}}{#1}%
6592
  \defname{#2}{#3}{#4}\defunargs{#5\unskip}%
6593
}
6594
 
6595
%%% Untyped variables:
6596
 
6597
% @defvr category var args
6598
\makedefun{defvr}#1 {\deftypevrheader{#1} {} }
6599
 
6600
% @defcv category class var args
6601
\makedefun{defcv}#1 {\defcvof{#1\ \putwordof}}
6602
 
6603
% \defcvof {category of}class var args
6604
\def\defcvof#1#2 {\deftypecvof{#1}#2 {} }
6605
 
6606
%%% Type:
6607
% @deftp category name args
6608
\makedefun{deftp}#1 #2 #3\endheader{%
6609
  \doind{tp}{\code{#2}}%
6610
  \defname{#1}{}{#2}\defunargs{#3\unskip}%
6611
}
6612
 
6613
% Remaining @defun-like shortcuts:
6614
\makedefun{defun}{\deffnheader{\putwordDeffunc} }
6615
\makedefun{defmac}{\deffnheader{\putwordDefmac} }
6616
\makedefun{defspec}{\deffnheader{\putwordDefspec} }
6617
\makedefun{deftypefun}{\deftypefnheader{\putwordDeffunc} }
6618
\makedefun{defvar}{\defvrheader{\putwordDefvar} }
6619
\makedefun{defopt}{\defvrheader{\putwordDefopt} }
6620
\makedefun{deftypevar}{\deftypevrheader{\putwordDefvar} }
6621
\makedefun{defmethod}{\defopon\putwordMethodon}
6622
\makedefun{deftypemethod}{\deftypeopon\putwordMethodon}
6623
\makedefun{defivar}{\defcvof\putwordInstanceVariableof}
6624
\makedefun{deftypeivar}{\deftypecvof\putwordInstanceVariableof}
6625
 
6626
% \defname, which formats the name of the @def (not the args).
6627
% #1 is the category, such as "Function".
6628
% #2 is the return type, if any.
6629
% #3 is the function name.
6630
%
6631
% We are followed by (but not passed) the arguments, if any.
6632
%
6633
\def\defname#1#2#3{%
6634
  % Get the values of \leftskip and \rightskip as they were outside the @def...
6635
  \advance\leftskip by -\defbodyindent
6636
  %
6637
  % How we'll format the type name.  Putting it in brackets helps
6638
  % distinguish it from the body text that may end up on the next line
6639
  % just below it.
6640
  \def\temp{#1}%
6641
  \setbox0=\hbox{\kern\deflastargmargin \ifx\temp\empty\else [\rm\temp]\fi}
6642
  %
6643
  % Figure out line sizes for the paragraph shape.
6644
  % The first line needs space for \box0; but if \rightskip is nonzero,
6645
  % we need only space for the part of \box0 which exceeds it:
6646
  \dimen0=\hsize  \advance\dimen0 by -\wd0  \advance\dimen0 by \rightskip
6647
  % The continuations:
6648
  \dimen2=\hsize  \advance\dimen2 by -\defargsindent
6649
  % (plain.tex says that \dimen1 should be used only as global.)
6650
  \parshape 2 0in \dimen0 \defargsindent \dimen2
6651
  %
6652
  % Put the type name to the right margin.
6653
  \noindent
6654
  \hbox to 0pt{%
6655
    \hfil\box0 \kern-\hsize
6656
    % \hsize has to be shortened this way:
6657
    \kern\leftskip
6658
    % Intentionally do not respect \rightskip, since we need the space.
6659
  }%
6660
  %
6661
  % Allow all lines to be underfull without complaint:
6662
  \tolerance=10000 \hbadness=10000
6663
  \exdentamount=\defbodyindent
6664
  {%
6665
    % defun fonts. We use typewriter by default (used to be bold) because:
6666
    % . we're printing identifiers, they should be in tt in principle.
6667
    % . in languages with many accents, such as Czech or French, it's
6668
    %   common to leave accents off identifiers.  The result looks ok in
6669
    %   tt, but exceedingly strange in rm.
6670
    % . we don't want -- and --- to be treated as ligatures.
6671
    % . this still does not fix the ?` and !` ligatures, but so far no
6672
    %   one has made identifiers using them :).
6673
    \df \tt
6674
    \def\temp{#2}% return value type
6675
    \ifx\temp\empty\else \tclose{\temp} \fi
6676
    #3% output function name
6677
  }%
6678
  {\rm\enskip}% hskip 0.5 em of \tenrm
6679
  %
6680
  \boldbrax
6681
  % arguments will be output next, if any.
6682
}
6683
 
6684
% Print arguments in slanted roman (not ttsl), inconsistently with using
6685
% tt for the name.  This is because literal text is sometimes needed in
6686
% the argument list (groff manual), and ttsl and tt are not very
6687
% distinguishable.  Prevent hyphenation at `-' chars.
6688
%
6689
\def\defunargs#1{%
6690
  % use sl by default (not ttsl),
6691
  % tt for the names.
6692
  \df \sl \hyphenchar\font=0
6693
  %
6694
  % On the other hand, if an argument has two dashes (for instance), we
6695
  % want a way to get ttsl.  Let's try @var for that.
6696
  \def\var##1{{\setupmarkupstyle{var}\ttslanted{##1}}}%
6697
  #1%
6698
  \sl\hyphenchar\font=45
6699
}
6700
 
6701
% We want ()&[] to print specially on the defun line.
6702
%
6703
\def\activeparens{%
6704
  \catcode`\(=\active \catcode`\)=\active
6705
  \catcode`\[=\active \catcode`\]=\active
6706
  \catcode`\&=\active
6707
}
6708
 
6709
% Make control sequences which act like normal parenthesis chars.
6710
\let\lparen = ( \let\rparen = )
6711
 
6712
% Be sure that we always have a definition for `(', etc.  For example,
6713
% if the fn name has parens in it, \boldbrax will not be in effect yet,
6714
% so TeX would otherwise complain about undefined control sequence.
6715
{
6716
  \activeparens
6717
  \global\let(=\lparen \global\let)=\rparen
6718
  \global\let[=\lbrack \global\let]=\rbrack
6719
  \global\let& = \&
6720
 
6721
  \gdef\boldbrax{\let(=\opnr\let)=\clnr\let[=\lbrb\let]=\rbrb}
6722
  \gdef\magicamp{\let&=\amprm}
6723
}
6724
 
6725
\newcount\parencount
6726
 
6727
% If we encounter &foo, then turn on ()-hacking afterwards
6728
\newif\ifampseen
6729
\def\amprm#1 {\ampseentrue{\bf\&#1 }}
6730
 
6731
\def\parenfont{%
6732
  \ifampseen
6733
    % At the first level, print parens in roman,
6734
    % otherwise use the default font.
6735
    \ifnum \parencount=1 \rm \fi
6736
  \else
6737
    % The \sf parens (in \boldbrax) actually are a little bolder than
6738
    % the contained text.  This is especially needed for [ and ] .
6739
    \sf
6740
  \fi
6741
}
6742
\def\infirstlevel#1{%
6743
  \ifampseen
6744
    \ifnum\parencount=1
6745
      #1%
6746
    \fi
6747
  \fi
6748
}
6749
\def\bfafterword#1 {#1 \bf}
6750
 
6751
\def\opnr{%
6752
  \global\advance\parencount by 1
6753
  {\parenfont(}%
6754
  \infirstlevel \bfafterword
6755
}
6756
\def\clnr{%
6757
  {\parenfont)}%
6758
  \infirstlevel \sl
6759
  \global\advance\parencount by -1
6760
}
6761
 
6762
\newcount\brackcount
6763
\def\lbrb{%
6764
  \global\advance\brackcount by 1
6765
  {\bf[}%
6766
}
6767
\def\rbrb{%
6768
  {\bf]}%
6769
  \global\advance\brackcount by -1
6770
}
6771
 
6772
\def\checkparencounts{%
6773
  \ifnum\parencount=0 \else \badparencount \fi
6774
  \ifnum\brackcount=0 \else \badbrackcount \fi
6775
}
6776
% these should not use \errmessage; the glibc manual, at least, actually
6777
% has such constructs (when documenting function pointers).
6778
\def\badparencount{%
6779
  \message{Warning: unbalanced parentheses in @def...}%
6780
  \global\parencount=0
6781
}
6782
\def\badbrackcount{%
6783
  \message{Warning: unbalanced square brackets in @def...}%
6784
  \global\brackcount=0
6785
}
6786
 
6787
 
6788
\message{macros,}
6789
% @macro.
6790
 
6791
% To do this right we need a feature of e-TeX, \scantokens,
6792
% which we arrange to emulate with a temporary file in ordinary TeX.
6793
\ifx\eTeXversion\undefined
6794
  \newwrite\macscribble
6795
  \def\scantokens#1{%
6796
    \toks0={#1}%
6797
    \immediate\openout\macscribble=\jobname.tmp
6798
    \immediate\write\macscribble{\the\toks0}%
6799
    \immediate\closeout\macscribble
6800
    \input \jobname.tmp
6801
  }
6802
\fi
6803
 
6804
\def\scanmacro#1{%
6805
  \begingroup
6806
    \newlinechar`\^^M
6807
    \let\xeatspaces\eatspaces
6808
    % Undo catcode changes of \startcontents and \doprintindex
6809
    % When called from @insertcopying or (short)caption, we need active
6810
    % backslash to get it printed correctly.  Previously, we had
6811
    % \catcode`\\=\other instead.  We'll see whether a problem appears
6812
    % with macro expansion.                             --kasal, 19aug04
6813
    \catcode`\@=0 \catcode`\\=\active \escapechar=`\@
6814
    % ... and \example
6815
    \spaceisspace
6816
    %
6817
    % Append \endinput to make sure that TeX does not see the ending newline.
6818
    % I've verified that it is necessary both for e-TeX and for ordinary TeX
6819
    %                                                   --kasal, 29nov03
6820
    \scantokens{#1\endinput}%
6821
  \endgroup
6822
}
6823
 
6824
\def\scanexp#1{%
6825
  \edef\temp{\noexpand\scanmacro{#1}}%
6826
  \temp
6827
}
6828
 
6829
\newcount\paramno   % Count of parameters
6830
\newtoks\macname    % Macro name
6831
\newif\ifrecursive  % Is it recursive?
6832
 
6833
% List of all defined macros in the form
6834
%    \definedummyword\macro1\definedummyword\macro2...
6835
% Currently is also contains all @aliases; the list can be split
6836
% if there is a need.
6837
\def\macrolist{}
6838
 
6839
% Add the macro to \macrolist
6840
\def\addtomacrolist#1{\expandafter \addtomacrolistxxx \csname#1\endcsname}
6841
\def\addtomacrolistxxx#1{%
6842
     \toks0 = \expandafter{\macrolist\definedummyword#1}%
6843
     \xdef\macrolist{\the\toks0}%
6844
}
6845
 
6846
% Utility routines.
6847
% This does \let #1 = #2, with \csnames; that is,
6848
%   \let \csname#1\endcsname = \csname#2\endcsname
6849
% (except of course we have to play expansion games).
6850
%
6851
\def\cslet#1#2{%
6852
  \expandafter\let
6853
  \csname#1\expandafter\endcsname
6854
  \csname#2\endcsname
6855
}
6856
 
6857
% Trim leading and trailing spaces off a string.
6858
% Concepts from aro-bend problem 15 (see CTAN).
6859
{\catcode`\@=11
6860
\gdef\eatspaces #1{\expandafter\trim@\expandafter{#1 }}
6861
\gdef\trim@ #1{\trim@@ @#1 @ #1 @ @@}
6862
\gdef\trim@@ #1@ #2@ #3@@{\trim@@@\empty #2 @}
6863
\def\unbrace#1{#1}
6864
\unbrace{\gdef\trim@@@ #1 } #2@{#1}
6865
}
6866
 
6867
% Trim a single trailing ^^M off a string.
6868
{\catcode`\^^M=\other \catcode`\Q=3%
6869
\gdef\eatcr #1{\eatcra #1Q^^MQ}%
6870
\gdef\eatcra#1^^MQ{\eatcrb#1Q}%
6871
\gdef\eatcrb#1Q#2Q{#1}%
6872
}
6873
 
6874
% Macro bodies are absorbed as an argument in a context where
6875
% all characters are catcode 10, 11 or 12, except \ which is active
6876
% (as in normal texinfo). It is necessary to change the definition of \.
6877
 
6878
% Non-ASCII encodings make 8-bit characters active, so un-activate
6879
% them to avoid their expansion.  Must do this non-globally, to
6880
% confine the change to the current group.
6881
 
6882
% It's necessary to have hard CRs when the macro is executed. This is
6883
% done by  making ^^M (\endlinechar) catcode 12 when reading the macro
6884
% body, and then making it the \newlinechar in \scanmacro.
6885
 
6886
\def\scanctxt{%
6887
  \catcode`\"=\other
6888
  \catcode`\+=\other
6889
  \catcode`\<=\other
6890
  \catcode`\>=\other
6891
  \catcode`\@=\other
6892
  \catcode`\^=\other
6893
  \catcode`\_=\other
6894
  \catcode`\|=\other
6895
  \catcode`\~=\other
6896
  \ifx\declaredencoding\ascii \else \setnonasciicharscatcodenonglobal\other \fi
6897
}
6898
 
6899
\def\scanargctxt{%
6900
  \scanctxt
6901
  \catcode`\\=\other
6902
  \catcode`\^^M=\other
6903
}
6904
 
6905
\def\macrobodyctxt{%
6906
  \scanctxt
6907
  \catcode`\{=\other
6908
  \catcode`\}=\other
6909
  \catcode`\^^M=\other
6910
  \usembodybackslash
6911
}
6912
 
6913
\def\macroargctxt{%
6914
  \scanctxt
6915
  \catcode`\\=\other
6916
}
6917
 
6918
% \mbodybackslash is the definition of \ in @macro bodies.
6919
% It maps \foo\ => \csname macarg.foo\endcsname => #N
6920
% where N is the macro parameter number.
6921
% We define \csname macarg.\endcsname to be \realbackslash, so
6922
% \\ in macro replacement text gets you a backslash.
6923
 
6924
{\catcode`@=0 @catcode`@\=@active
6925
 @gdef@usembodybackslash{@let\=@mbodybackslash}
6926
 @gdef@mbodybackslash#1\{@csname macarg.#1@endcsname}
6927
}
6928
\expandafter\def\csname macarg.\endcsname{\realbackslash}
6929
 
6930
\def\macro{\recursivefalse\parsearg\macroxxx}
6931
\def\rmacro{\recursivetrue\parsearg\macroxxx}
6932
 
6933
\def\macroxxx#1{%
6934
  \getargs{#1}%           now \macname is the macname and \argl the arglist
6935
  \ifx\argl\empty       % no arguments
6936
     \paramno=0%
6937
  \else
6938
     \expandafter\parsemargdef \argl;%
6939
  \fi
6940
  \if1\csname ismacro.\the\macname\endcsname
6941
     \message{Warning: redefining \the\macname}%
6942
  \else
6943
     \expandafter\ifx\csname \the\macname\endcsname \relax
6944
     \else \errmessage{Macro name \the\macname\space already defined}\fi
6945
     \global\cslet{macsave.\the\macname}{\the\macname}%
6946
     \global\expandafter\let\csname ismacro.\the\macname\endcsname=1%
6947
     \addtomacrolist{\the\macname}%
6948
  \fi
6949
  \begingroup \macrobodyctxt
6950
  \ifrecursive \expandafter\parsermacbody
6951
  \else \expandafter\parsemacbody
6952
  \fi}
6953
 
6954
\parseargdef\unmacro{%
6955
  \if1\csname ismacro.#1\endcsname
6956
    \global\cslet{#1}{macsave.#1}%
6957
    \global\expandafter\let \csname ismacro.#1\endcsname=0%
6958
    % Remove the macro name from \macrolist:
6959
    \begingroup
6960
      \expandafter\let\csname#1\endcsname \relax
6961
      \let\definedummyword\unmacrodo
6962
      \xdef\macrolist{\macrolist}%
6963
    \endgroup
6964
  \else
6965
    \errmessage{Macro #1 not defined}%
6966
  \fi
6967
}
6968
 
6969
% Called by \do from \dounmacro on each macro.  The idea is to omit any
6970
% macro definitions that have been changed to \relax.
6971
%
6972
\def\unmacrodo#1{%
6973
  \ifx #1\relax
6974
    % remove this
6975
  \else
6976
    \noexpand\definedummyword \noexpand#1%
6977
  \fi
6978
}
6979
 
6980
% This makes use of the obscure feature that if the last token of a
6981
% <parameter list> is #, then the preceding argument is delimited by
6982
% an opening brace, and that opening brace is not consumed.
6983
\def\getargs#1{\getargsxxx#1{}}
6984
\def\getargsxxx#1#{\getmacname #1 \relax\getmacargs}
6985
\def\getmacname #1 #2\relax{\macname={#1}}
6986
\def\getmacargs#1{\def\argl{#1}}
6987
 
6988
% Parse the optional {params} list.  Set up \paramno and \paramlist
6989
% so \defmacro knows what to do.  Define \macarg.blah for each blah
6990
% in the params list, to be ##N where N is the position in that list.
6991
% That gets used by \mbodybackslash (above).
6992
 
6993
% We need to get `macro parameter char #' into several definitions.
6994
% The technique used is stolen from LaTeX:  let \hash be something
6995
% unexpandable, insert that wherever you need a #, and then redefine
6996
% it to # just before using the token list produced.
6997
%
6998
% The same technique is used to protect \eatspaces till just before
6999
% the macro is used.
7000
 
7001
\def\parsemargdef#1;{\paramno=0\def\paramlist{}%
7002
        \let\hash\relax\let\xeatspaces\relax\parsemargdefxxx#1,;,}
7003
\def\parsemargdefxxx#1,{%
7004
  \if#1;\let\next=\relax
7005
  \else \let\next=\parsemargdefxxx
7006
    \advance\paramno by 1%
7007
    \expandafter\edef\csname macarg.\eatspaces{#1}\endcsname
7008
        {\xeatspaces{\hash\the\paramno}}%
7009
    \edef\paramlist{\paramlist\hash\the\paramno,}%
7010
  \fi\next}
7011
 
7012
% These two commands read recursive and nonrecursive macro bodies.
7013
% (They're different since rec and nonrec macros end differently.)
7014
 
7015
\long\def\parsemacbody#1@end macro%
7016
{\xdef\temp{\eatcr{#1}}\endgroup\defmacro}%
7017
\long\def\parsermacbody#1@end rmacro%
7018
{\xdef\temp{\eatcr{#1}}\endgroup\defmacro}%
7019
 
7020
% This defines the macro itself. There are six cases: recursive and
7021
% nonrecursive macros of zero, one, and many arguments.
7022
% Much magic with \expandafter here.
7023
% \xdef is used so that macro definitions will survive the file
7024
% they're defined in; @include reads the file inside a group.
7025
\def\defmacro{%
7026
  \let\hash=##% convert placeholders to macro parameter chars
7027
  \ifrecursive
7028
    \ifcase\paramno
7029
    % 0
7030
      \expandafter\xdef\csname\the\macname\endcsname{%
7031
        \noexpand\scanmacro{\temp}}%
7032
    \or % 1
7033
      \expandafter\xdef\csname\the\macname\endcsname{%
7034
         \bgroup\noexpand\macroargctxt
7035
         \noexpand\braceorline
7036
         \expandafter\noexpand\csname\the\macname xxx\endcsname}%
7037
      \expandafter\xdef\csname\the\macname xxx\endcsname##1{%
7038
         \egroup\noexpand\scanmacro{\temp}}%
7039
    \else % many
7040
      \expandafter\xdef\csname\the\macname\endcsname{%
7041
         \bgroup\noexpand\macroargctxt
7042
         \noexpand\csname\the\macname xx\endcsname}%
7043
      \expandafter\xdef\csname\the\macname xx\endcsname##1{%
7044
          \expandafter\noexpand\csname\the\macname xxx\endcsname ##1,}%
7045
      \expandafter\expandafter
7046
      \expandafter\xdef
7047
      \expandafter\expandafter
7048
        \csname\the\macname xxx\endcsname
7049
          \paramlist{\egroup\noexpand\scanmacro{\temp}}%
7050
    \fi
7051
  \else
7052
    \ifcase\paramno
7053
    % 0
7054
      \expandafter\xdef\csname\the\macname\endcsname{%
7055
        \noexpand\norecurse{\the\macname}%
7056
        \noexpand\scanmacro{\temp}\egroup}%
7057
    \or % 1
7058
      \expandafter\xdef\csname\the\macname\endcsname{%
7059
         \bgroup\noexpand\macroargctxt
7060
         \noexpand\braceorline
7061
         \expandafter\noexpand\csname\the\macname xxx\endcsname}%
7062
      \expandafter\xdef\csname\the\macname xxx\endcsname##1{%
7063
        \egroup
7064
        \noexpand\norecurse{\the\macname}%
7065
        \noexpand\scanmacro{\temp}\egroup}%
7066
    \else % many
7067
      \expandafter\xdef\csname\the\macname\endcsname{%
7068
         \bgroup\noexpand\macroargctxt
7069
         \expandafter\noexpand\csname\the\macname xx\endcsname}%
7070
      \expandafter\xdef\csname\the\macname xx\endcsname##1{%
7071
          \expandafter\noexpand\csname\the\macname xxx\endcsname ##1,}%
7072
      \expandafter\expandafter
7073
      \expandafter\xdef
7074
      \expandafter\expandafter
7075
      \csname\the\macname xxx\endcsname
7076
      \paramlist{%
7077
          \egroup
7078
          \noexpand\norecurse{\the\macname}%
7079
          \noexpand\scanmacro{\temp}\egroup}%
7080
    \fi
7081
  \fi}
7082
 
7083
\def\norecurse#1{\bgroup\cslet{#1}{macsave.#1}}
7084
 
7085
% \braceorline decides whether the next nonwhitespace character is a
7086
% {.  If so it reads up to the closing }, if not, it reads the whole
7087
% line.  Whatever was read is then fed to the next control sequence
7088
% as an argument (by \parsebrace or \parsearg)
7089
\def\braceorline#1{\let\macnamexxx=#1\futurelet\nchar\braceorlinexxx}
7090
\def\braceorlinexxx{%
7091
  \ifx\nchar\bgroup\else
7092
    \expandafter\parsearg
7093
  \fi \macnamexxx}
7094
 
7095
 
7096
% @alias.
7097
% We need some trickery to remove the optional spaces around the equal
7098
% sign.  Just make them active and then expand them all to nothing.
7099
\def\alias{\parseargusing\obeyspaces\aliasxxx}
7100
\def\aliasxxx #1{\aliasyyy#1\relax}
7101
\def\aliasyyy #1=#2\relax{%
7102
  {%
7103
    \expandafter\let\obeyedspace=\empty
7104
    \addtomacrolist{#1}%
7105
    \xdef\next{\global\let\makecsname{#1}=\makecsname{#2}}%
7106
  }%
7107
  \next
7108
}
7109
 
7110
 
7111
\message{cross references,}
7112
 
7113
\newwrite\auxfile
7114
\newif\ifhavexrefs    % True if xref values are known.
7115
\newif\ifwarnedxrefs  % True if we warned once that they aren't known.
7116
 
7117
% @inforef is relatively simple.
7118
\def\inforef #1{\inforefzzz #1,,,,**}
7119
\def\inforefzzz #1,#2,#3,#4**{\putwordSee{} \putwordInfo{} \putwordfile{} \file{\ignorespaces #3{}},
7120
  node \samp{\ignorespaces#1{}}}
7121
 
7122
% @node's only job in TeX is to define \lastnode, which is used in
7123
% cross-references.  The @node line might or might not have commas, and
7124
% might or might not have spaces before the first comma, like:
7125
% @node foo , bar , ...
7126
% We don't want such trailing spaces in the node name.
7127
%
7128
\parseargdef\node{\checkenv{}\donode #1 ,\finishnodeparse}
7129
%
7130
% also remove a trailing comma, in case of something like this:
7131
% @node Help-Cross,  ,  , Cross-refs
7132
\def\donode#1 ,#2\finishnodeparse{\dodonode #1,\finishnodeparse}
7133
\def\dodonode#1,#2\finishnodeparse{\gdef\lastnode{#1}}
7134
 
7135
\let\nwnode=\node
7136
\let\lastnode=\empty
7137
 
7138
% Write a cross-reference definition for the current node.  #1 is the
7139
% type (Ynumbered, Yappendix, Ynothing).
7140
%
7141
\def\donoderef#1{%
7142
  \ifx\lastnode\empty\else
7143
    \setref{\lastnode}{#1}%
7144
    \global\let\lastnode=\empty
7145
  \fi
7146
}
7147
 
7148
% @anchor{NAME} -- define xref target at arbitrary point.
7149
%
7150
\newcount\savesfregister
7151
%
7152
\def\savesf{\relax \ifhmode \savesfregister=\spacefactor \fi}
7153
\def\restoresf{\relax \ifhmode \spacefactor=\savesfregister \fi}
7154
\def\anchor#1{\savesf \setref{#1}{Ynothing}\restoresf \ignorespaces}
7155
 
7156
% \setref{NAME}{SNT} defines a cross-reference point NAME (a node or an
7157
% anchor), which consists of three parts:
7158
% 1) NAME-title - the current sectioning name taken from \lastsection,
7159
%                 or the anchor name.
7160
% 2) NAME-snt   - section number and type, passed as the SNT arg, or
7161
%                 empty for anchors.
7162
% 3) NAME-pg    - the page number.
7163
%
7164
% This is called from \donoderef, \anchor, and \dofloat.  In the case of
7165
% floats, there is an additional part, which is not written here:
7166
% 4) NAME-lof   - the text as it should appear in a @listoffloats.
7167
%
7168
\def\setref#1#2{%
7169
  \pdfmkdest{#1}%
7170
  \iflinks
7171
    {%
7172
      \atdummies  % preserve commands, but don't expand them
7173
      \edef\writexrdef##1##2{%
7174
        \write\auxfile{@xrdef{#1-% #1 of \setref, expanded by the \edef
7175
          ##1}{##2}}% these are parameters of \writexrdef
7176
      }%
7177
      \toks0 = \expandafter{\lastsection}%
7178
      \immediate \writexrdef{title}{\the\toks0 }%
7179
      \immediate \writexrdef{snt}{\csname #2\endcsname}% \Ynumbered etc.
7180
      \safewhatsit{\writexrdef{pg}{\folio}}% will be written later, during \shipout
7181
    }%
7182
  \fi
7183
}
7184
 
7185
% @xref, @pxref, and @ref generate cross-references.  For \xrefX, #1 is
7186
% the node name, #2 the name of the Info cross-reference, #3 the printed
7187
% node name, #4 the name of the Info file, #5 the name of the printed
7188
% manual.  All but the node name can be omitted.
7189
%
7190
\def\pxref#1{\putwordsee{} \xrefX[#1,,,,,,,]}
7191
\def\xref#1{\putwordSee{} \xrefX[#1,,,,,,,]}
7192
\def\ref#1{\xrefX[#1,,,,,,,]}
7193
\def\xrefX[#1,#2,#3,#4,#5,#6]{\begingroup
7194
  \unsepspaces
7195
  \def\printedmanual{\ignorespaces #5}%
7196
  \def\printedrefname{\ignorespaces #3}%
7197
  \setbox1=\hbox{\printedmanual\unskip}%
7198
  \setbox0=\hbox{\printedrefname\unskip}%
7199
  \ifdim \wd0 = 0pt
7200
    % No printed node name was explicitly given.
7201
    \expandafter\ifx\csname SETxref-automatic-section-title\endcsname\relax
7202
      % Use the node name inside the square brackets.
7203
      \def\printedrefname{\ignorespaces #1}%
7204
    \else
7205
      % Use the actual chapter/section title appear inside
7206
      % the square brackets.  Use the real section title if we have it.
7207
      \ifdim \wd1 > 0pt
7208
        % It is in another manual, so we don't have it.
7209
        \def\printedrefname{\ignorespaces #1}%
7210
      \else
7211
        \ifhavexrefs
7212
          % We know the real title if we have the xref values.
7213
          \def\printedrefname{\refx{#1-title}{}}%
7214
        \else
7215
          % Otherwise just copy the Info node name.
7216
          \def\printedrefname{\ignorespaces #1}%
7217
        \fi%
7218
      \fi
7219
    \fi
7220
  \fi
7221
  %
7222
  % Make link in pdf output.
7223
  \ifpdf
7224
    {\indexnofonts
7225
     \turnoffactive
7226
     % This expands tokens, so do it after making catcode changes, so _
7227
     % etc. don't get their TeX definitions.
7228
     \getfilename{#4}%
7229
     %
7230
     % See comments at \activebackslashdouble.
7231
     {\activebackslashdouble \xdef\pdfxrefdest{#1}%
7232
      \backslashparens\pdfxrefdest}%
7233
     %
7234
     \leavevmode
7235
     \startlink attr{/Border [0 0 0]}%
7236
     \ifnum\filenamelength>0
7237
       goto file{\the\filename.pdf} name{\pdfxrefdest}%
7238
     \else
7239
       goto name{\pdfmkpgn{\pdfxrefdest}}%
7240
     \fi
7241
    }%
7242
    \setcolor{\linkcolor}%
7243
  \fi
7244
  %
7245
  % Float references are printed completely differently: "Figure 1.2"
7246
  % instead of "[somenode], p.3".  We distinguish them by the
7247
  % LABEL-title being set to a magic string.
7248
  {%
7249
    % Have to otherify everything special to allow the \csname to
7250
    % include an _ in the xref name, etc.
7251
    \indexnofonts
7252
    \turnoffactive
7253
    \expandafter\global\expandafter\let\expandafter\Xthisreftitle
7254
      \csname XR#1-title\endcsname
7255
  }%
7256
  \iffloat\Xthisreftitle
7257
    % If the user specified the print name (third arg) to the ref,
7258
    % print it instead of our usual "Figure 1.2".
7259
    \ifdim\wd0 = 0pt
7260
      \refx{#1-snt}{}%
7261
    \else
7262
      \printedrefname
7263
    \fi
7264
    %
7265
    % if the user also gave the printed manual name (fifth arg), append
7266
    % "in MANUALNAME".
7267
    \ifdim \wd1 > 0pt
7268
      \space \putwordin{} \cite{\printedmanual}%
7269
    \fi
7270
  \else
7271
    % node/anchor (non-float) references.
7272
    %
7273
    % If we use \unhbox0 and \unhbox1 to print the node names, TeX does not
7274
    % insert empty discretionaries after hyphens, which means that it will
7275
    % not find a line break at a hyphen in a node names.  Since some manuals
7276
    % are best written with fairly long node names, containing hyphens, this
7277
    % is a loss.  Therefore, we give the text of the node name again, so it
7278
    % is as if TeX is seeing it for the first time.
7279
    \ifdim \wd1 > 0pt
7280
      \putwordSection{} ``\printedrefname'' \putwordin{} \cite{\printedmanual}%
7281
    \else
7282
      % _ (for example) has to be the character _ for the purposes of the
7283
      % control sequence corresponding to the node, but it has to expand
7284
      % into the usual \leavevmode...\vrule stuff for purposes of
7285
      % printing. So we \turnoffactive for the \refx-snt, back on for the
7286
      % printing, back off for the \refx-pg.
7287
      {\turnoffactive
7288
       % Only output a following space if the -snt ref is nonempty; for
7289
       % @unnumbered and @anchor, it won't be.
7290
       \setbox2 = \hbox{\ignorespaces \refx{#1-snt}{}}%
7291
       \ifdim \wd2 > 0pt \refx{#1-snt}\space\fi
7292
      }%
7293
      % output the `[mynode]' via a macro so it can be overridden.
7294
      \xrefprintnodename\printedrefname
7295
      %
7296
      % But we always want a comma and a space:
7297
      ,\space
7298
      %
7299
      % output the `page 3'.
7300
      \turnoffactive \putwordpage\tie\refx{#1-pg}{}%
7301
    \fi
7302
  \fi
7303
  \endlink
7304
\endgroup}
7305
 
7306
% This macro is called from \xrefX for the `[nodename]' part of xref
7307
% output.  It's a separate macro only so it can be changed more easily,
7308
% since square brackets don't work well in some documents.  Particularly
7309
% one that Bob is working on :).
7310
%
7311
\def\xrefprintnodename#1{[#1]}
7312
 
7313
% Things referred to by \setref.
7314
%
7315
\def\Ynothing{}
7316
\def\Yomitfromtoc{}
7317
\def\Ynumbered{%
7318
  \ifnum\secno=0
7319
    \putwordChapter@tie \the\chapno
7320
  \else \ifnum\subsecno=0
7321
    \putwordSection@tie \the\chapno.\the\secno
7322
  \else \ifnum\subsubsecno=0
7323
    \putwordSection@tie \the\chapno.\the\secno.\the\subsecno
7324
  \else
7325
    \putwordSection@tie \the\chapno.\the\secno.\the\subsecno.\the\subsubsecno
7326
  \fi\fi\fi
7327
}
7328
\def\Yappendix{%
7329
  \ifnum\secno=0
7330
     \putwordAppendix@tie @char\the\appendixno{}%
7331
  \else \ifnum\subsecno=0
7332
     \putwordSection@tie @char\the\appendixno.\the\secno
7333
  \else \ifnum\subsubsecno=0
7334
    \putwordSection@tie @char\the\appendixno.\the\secno.\the\subsecno
7335
  \else
7336
    \putwordSection@tie
7337
      @char\the\appendixno.\the\secno.\the\subsecno.\the\subsubsecno
7338
  \fi\fi\fi
7339
}
7340
 
7341
% Define \refx{NAME}{SUFFIX} to reference a cross-reference string named NAME.
7342
% If its value is nonempty, SUFFIX is output afterward.
7343
%
7344
\def\refx#1#2{%
7345
  {%
7346
    \indexnofonts
7347
    \otherbackslash
7348
    \expandafter\global\expandafter\let\expandafter\thisrefX
7349
      \csname XR#1\endcsname
7350
  }%
7351
  \ifx\thisrefX\relax
7352
    % If not defined, say something at least.
7353
    \angleleft un\-de\-fined\angleright
7354
    \iflinks
7355
      \ifhavexrefs
7356
        \message{\linenumber Undefined cross reference `#1'.}%
7357
      \else
7358
        \ifwarnedxrefs\else
7359
          \global\warnedxrefstrue
7360
          \message{Cross reference values unknown; you must run TeX again.}%
7361
        \fi
7362
      \fi
7363
    \fi
7364
  \else
7365
    % It's defined, so just use it.
7366
    \thisrefX
7367
  \fi
7368
  #2% Output the suffix in any case.
7369
}
7370
 
7371
% This is the macro invoked by entries in the aux file.  Usually it's
7372
% just a \def (we prepend XR to the control sequence name to avoid
7373
% collisions).  But if this is a float type, we have more work to do.
7374
%
7375
\def\xrdef#1#2{%
7376
  {% The node name might contain 8-bit characters, which in our current
7377
   % implementation are changed to commands like @'e.  Don't let these
7378
   % mess up the control sequence name.
7379
    \indexnofonts
7380
    \turnoffactive
7381
    \xdef\safexrefname{#1}%
7382
  }%
7383
  %
7384
  \expandafter\gdef\csname XR\safexrefname\endcsname{#2}% remember this xref
7385
  %
7386
  % Was that xref control sequence that we just defined for a float?
7387
  \expandafter\iffloat\csname XR\safexrefname\endcsname
7388
    % it was a float, and we have the (safe) float type in \iffloattype.
7389
    \expandafter\let\expandafter\floatlist
7390
      \csname floatlist\iffloattype\endcsname
7391
    %
7392
    % Is this the first time we've seen this float type?
7393
    \expandafter\ifx\floatlist\relax
7394
      \toks0 = {\do}% yes, so just \do
7395
    \else
7396
      % had it before, so preserve previous elements in list.
7397
      \toks0 = \expandafter{\floatlist\do}%
7398
    \fi
7399
    %
7400
    % Remember this xref in the control sequence \floatlistFLOATTYPE,
7401
    % for later use in \listoffloats.
7402
    \expandafter\xdef\csname floatlist\iffloattype\endcsname{\the\toks0
7403
      {\safexrefname}}%
7404
  \fi
7405
}
7406
 
7407
% Read the last existing aux file, if any.  No error if none exists.
7408
%
7409
\def\tryauxfile{%
7410
  \openin 1 \jobname.aux
7411
  \ifeof 1 \else
7412
    \readdatafile{aux}%
7413
    \global\havexrefstrue
7414
  \fi
7415
  \closein 1
7416
}
7417
 
7418
\def\setupdatafile{%
7419
  \catcode`\^^@=\other
7420
  \catcode`\^^A=\other
7421
  \catcode`\^^B=\other
7422
  \catcode`\^^C=\other
7423
  \catcode`\^^D=\other
7424
  \catcode`\^^E=\other
7425
  \catcode`\^^F=\other
7426
  \catcode`\^^G=\other
7427
  \catcode`\^^H=\other
7428
  \catcode`\^^K=\other
7429
  \catcode`\^^L=\other
7430
  \catcode`\^^N=\other
7431
  \catcode`\^^P=\other
7432
  \catcode`\^^Q=\other
7433
  \catcode`\^^R=\other
7434
  \catcode`\^^S=\other
7435
  \catcode`\^^T=\other
7436
  \catcode`\^^U=\other
7437
  \catcode`\^^V=\other
7438
  \catcode`\^^W=\other
7439
  \catcode`\^^X=\other
7440
  \catcode`\^^Z=\other
7441
  \catcode`\^^[=\other
7442
  \catcode`\^^\=\other
7443
  \catcode`\^^]=\other
7444
  \catcode`\^^^=\other
7445
  \catcode`\^^_=\other
7446
  % It was suggested to set the catcode of ^ to 7, which would allow ^^e4 etc.
7447
  % in xref tags, i.e., node names.  But since ^^e4 notation isn't
7448
  % supported in the main text, it doesn't seem desirable.  Furthermore,
7449
  % that is not enough: for node names that actually contain a ^
7450
  % character, we would end up writing a line like this: 'xrdef {'hat
7451
  % b-title}{'hat b} and \xrdef does a \csname...\endcsname on the first
7452
  % argument, and \hat is not an expandable control sequence.  It could
7453
  % all be worked out, but why?  Either we support ^^ or we don't.
7454
  %
7455
  % The other change necessary for this was to define \auxhat:
7456
  % \def\auxhat{\def^{'hat }}% extra space so ok if followed by letter
7457
  % and then to call \auxhat in \setq.
7458
  %
7459
  \catcode`\^=\other
7460
  %
7461
  % Special characters.  Should be turned off anyway, but...
7462
  \catcode`\~=\other
7463
  \catcode`\[=\other
7464
  \catcode`\]=\other
7465
  \catcode`\"=\other
7466
  \catcode`\_=\other
7467
  \catcode`\|=\other
7468
  \catcode`\<=\other
7469
  \catcode`\>=\other
7470
  \catcode`\$=\other
7471
  \catcode`\#=\other
7472
  \catcode`\&=\other
7473
  \catcode`\%=\other
7474
  \catcode`+=\other % avoid \+ for paranoia even though we've turned it off
7475
  %
7476
  % This is to support \ in node names and titles, since the \
7477
  % characters end up in a \csname.  It's easier than
7478
  % leaving it active and making its active definition an actual \
7479
  % character.  What I don't understand is why it works in the *value*
7480
  % of the xrdef.  Seems like it should be a catcode12 \, and that
7481
  % should not typeset properly.  But it works, so I'm moving on for
7482
  % now.  --karl, 15jan04.
7483
  \catcode`\\=\other
7484
  %
7485
  % Make the characters 128-255 be printing characters.
7486
  {%
7487
    \count1=128
7488
    \def\loop{%
7489
      \catcode\count1=\other
7490
      \advance\count1 by 1
7491
      \ifnum \count1<256 \loop \fi
7492
    }%
7493
  }%
7494
  %
7495
  % @ is our escape character in .aux files, and we need braces.
7496
  \catcode`\{=1
7497
  \catcode`\}=2
7498
  \catcode`\@=0
7499
}
7500
 
7501
\def\readdatafile#1{%
7502
\begingroup
7503
  \setupdatafile
7504
  \input\jobname.#1
7505
\endgroup}
7506
 
7507
 
7508
\message{insertions,}
7509
% including footnotes.
7510
 
7511
\newcount \footnoteno
7512
 
7513
% The trailing space in the following definition for supereject is
7514
% vital for proper filling; pages come out unaligned when you do a
7515
% pagealignmacro call if that space before the closing brace is
7516
% removed. (Generally, numeric constants should always be followed by a
7517
% space to prevent strange expansion errors.)
7518
\def\supereject{\par\penalty -20000\footnoteno =0 }
7519
 
7520
% @footnotestyle is meaningful for info output only.
7521
\let\footnotestyle=\comment
7522
 
7523
{\catcode `\@=11
7524
%
7525
% Auto-number footnotes.  Otherwise like plain.
7526
\gdef\footnote{%
7527
  \let\indent=\ptexindent
7528
  \let\noindent=\ptexnoindent
7529
  \global\advance\footnoteno by \@ne
7530
  \edef\thisfootno{$^{\the\footnoteno}$}%
7531
  %
7532
  % In case the footnote comes at the end of a sentence, preserve the
7533
  % extra spacing after we do the footnote number.
7534
  \let\@sf\empty
7535
  \ifhmode\edef\@sf{\spacefactor\the\spacefactor}\ptexslash\fi
7536
  %
7537
  % Remove inadvertent blank space before typesetting the footnote number.
7538
  \unskip
7539
  \thisfootno\@sf
7540
  \dofootnote
7541
}%
7542
 
7543
% Don't bother with the trickery in plain.tex to not require the
7544
% footnote text as a parameter.  Our footnotes don't need to be so general.
7545
%
7546
% Oh yes, they do; otherwise, @ifset (and anything else that uses
7547
% \parseargline) fails inside footnotes because the tokens are fixed when
7548
% the footnote is read.  --karl, 16nov96.
7549
%
7550
\gdef\dofootnote{%
7551
  \insert\footins\bgroup
7552
  % We want to typeset this text as a normal paragraph, even if the
7553
  % footnote reference occurs in (for example) a display environment.
7554
  % So reset some parameters.
7555
  \hsize=\pagewidth
7556
  \interlinepenalty\interfootnotelinepenalty
7557
  \splittopskip\ht\strutbox % top baseline for broken footnotes
7558
  \splitmaxdepth\dp\strutbox
7559
  \floatingpenalty\@MM
7560
  \leftskip\z@skip
7561
  \rightskip\z@skip
7562
  \spaceskip\z@skip
7563
  \xspaceskip\z@skip
7564
  \parindent\defaultparindent
7565
  %
7566
  \smallfonts \rm
7567
  %
7568
  % Because we use hanging indentation in footnotes, a @noindent appears
7569
  % to exdent this text, so make it be a no-op.  makeinfo does not use
7570
  % hanging indentation so @noindent can still be needed within footnote
7571
  % text after an @example or the like (not that this is good style).
7572
  \let\noindent = \relax
7573
  %
7574
  % Hang the footnote text off the number.  Use \everypar in case the
7575
  % footnote extends for more than one paragraph.
7576
  \everypar = {\hang}%
7577
  \textindent{\thisfootno}%
7578
  %
7579
  % Don't crash into the line above the footnote text.  Since this
7580
  % expands into a box, it must come within the paragraph, lest it
7581
  % provide a place where TeX can split the footnote.
7582
  \footstrut
7583
  \futurelet\next\fo@t
7584
}
7585
}%end \catcode `\@=11
7586
 
7587
% In case a @footnote appears in a vbox, save the footnote text and create
7588
% the real \insert just after the vbox finished.  Otherwise, the insertion
7589
% would be lost.
7590
% Similarly, if a @footnote appears inside an alignment, save the footnote
7591
% text to a box and make the \insert when a row of the table is finished.
7592
% And the same can be done for other insert classes.  --kasal, 16nov03.
7593
 
7594
% Replace the \insert primitive by a cheating macro.
7595
% Deeper inside, just make sure that the saved insertions are not spilled
7596
% out prematurely.
7597
%
7598
\def\startsavinginserts{%
7599
  \ifx \insert\ptexinsert
7600
    \let\insert\saveinsert
7601
  \else
7602
    \let\checkinserts\relax
7603
  \fi
7604
}
7605
 
7606
% This \insert replacement works for both \insert\footins{foo} and
7607
% \insert\footins\bgroup foo\egroup, but it doesn't work for \insert27{foo}.
7608
%
7609
\def\saveinsert#1{%
7610
  \edef\next{\noexpand\savetobox \makeSAVEname#1}%
7611
  \afterassignment\next
7612
  % swallow the left brace
7613
  \let\temp =
7614
}
7615
\def\makeSAVEname#1{\makecsname{SAVE\expandafter\gobble\string#1}}
7616
\def\savetobox#1{\global\setbox#1 = \vbox\bgroup \unvbox#1}
7617
 
7618
\def\checksaveins#1{\ifvoid#1\else \placesaveins#1\fi}
7619
 
7620
\def\placesaveins#1{%
7621
  \ptexinsert \csname\expandafter\gobblesave\string#1\endcsname
7622
    {\box#1}%
7623
}
7624
 
7625
% eat @SAVE -- beware, all of them have catcode \other:
7626
{
7627
  \def\dospecials{\do S\do A\do V\do E} \uncatcodespecials  %  ;-)
7628
  \gdef\gobblesave @SAVE{}
7629
}
7630
 
7631
% initialization:
7632
\def\newsaveins #1{%
7633
  \edef\next{\noexpand\newsaveinsX \makeSAVEname#1}%
7634
  \next
7635
}
7636
\def\newsaveinsX #1{%
7637
  \csname newbox\endcsname #1%
7638
  \expandafter\def\expandafter\checkinserts\expandafter{\checkinserts
7639
    \checksaveins #1}%
7640
}
7641
 
7642
% initialize:
7643
\let\checkinserts\empty
7644
\newsaveins\footins
7645
\newsaveins\margin
7646
 
7647
 
7648
% @image.  We use the macros from epsf.tex to support this.
7649
% If epsf.tex is not installed and @image is used, we complain.
7650
%
7651
% Check for and read epsf.tex up front.  If we read it only at @image
7652
% time, we might be inside a group, and then its definitions would get
7653
% undone and the next image would fail.
7654
\openin 1 = epsf.tex
7655
\ifeof 1 \else
7656
  % Do not bother showing banner with epsf.tex v2.7k (available in
7657
  % doc/epsf.tex and on ctan).
7658
  \def\epsfannounce{\toks0 = }%
7659
  \input epsf.tex
7660
\fi
7661
\closein 1
7662
%
7663
% We will only complain once about lack of epsf.tex.
7664
\newif\ifwarnednoepsf
7665
\newhelp\noepsfhelp{epsf.tex must be installed for images to
7666
  work.  It is also included in the Texinfo distribution, or you can get
7667
  it from ftp://tug.org/tex/epsf.tex.}
7668
%
7669
\def\image#1{%
7670
  \ifx\epsfbox\undefined
7671
    \ifwarnednoepsf \else
7672
      \errhelp = \noepsfhelp
7673
      \errmessage{epsf.tex not found, images will be ignored}%
7674
      \global\warnednoepsftrue
7675
    \fi
7676
  \else
7677
    \imagexxx #1,,,,,\finish
7678
  \fi
7679
}
7680
%
7681
% Arguments to @image:
7682
% #1 is (mandatory) image filename; we tack on .eps extension.
7683
% #2 is (optional) width, #3 is (optional) height.
7684
% #4 is (ignored optional) html alt text.
7685
% #5 is (ignored optional) extension.
7686
% #6 is just the usual extra ignored arg for parsing this stuff.
7687
\newif\ifimagevmode
7688
\def\imagexxx#1,#2,#3,#4,#5,#6\finish{\begingroup
7689
  \catcode`\^^M = 5     % in case we're inside an example
7690
  \normalturnoffactive  % allow _ et al. in names
7691
  % If the image is by itself, center it.
7692
  \ifvmode
7693
    \imagevmodetrue
7694
    \nobreak\medskip
7695
    % Usually we'll have text after the image which will insert
7696
    % \parskip glue, so insert it here too to equalize the space
7697
    % above and below.
7698
    \nobreak\vskip\parskip
7699
    \nobreak
7700
  \fi
7701
  %
7702
  % Leave vertical mode so that indentation from an enclosing
7703
  % environment such as @quotation is respected.  On the other hand, if
7704
  % it's at the top level, we don't want the normal paragraph indentation.
7705
  \noindent
7706
  %
7707
  % Output the image.
7708
  \ifpdf
7709
    \dopdfimage{#1}{#2}{#3}%
7710
  \else
7711
    % \epsfbox itself resets \epsf?size at each figure.
7712
    \setbox0 = \hbox{\ignorespaces #2}\ifdim\wd0 > 0pt \epsfxsize=#2\relax \fi
7713
    \setbox0 = \hbox{\ignorespaces #3}\ifdim\wd0 > 0pt \epsfysize=#3\relax \fi
7714
    \epsfbox{#1.eps}%
7715
  \fi
7716
  %
7717
  \ifimagevmode \medskip \fi  % space after the standalone image
7718
\endgroup}
7719
 
7720
 
7721
% @float FLOATTYPE,LABEL,LOC ... @end float for displayed figures, tables,
7722
% etc.  We don't actually implement floating yet, we always include the
7723
% float "here".  But it seemed the best name for the future.
7724
%
7725
\envparseargdef\float{\eatcommaspace\eatcommaspace\dofloat#1, , ,\finish}
7726
 
7727
% There may be a space before second and/or third parameter; delete it.
7728
\def\eatcommaspace#1, {#1,}
7729
 
7730
% #1 is the optional FLOATTYPE, the text label for this float, typically
7731
% "Figure", "Table", "Example", etc.  Can't contain commas.  If omitted,
7732
% this float will not be numbered and cannot be referred to.
7733
%
7734
% #2 is the optional xref label.  Also must be present for the float to
7735
% be referable.
7736
%
7737
% #3 is the optional positioning argument; for now, it is ignored.  It
7738
% will somehow specify the positions allowed to float to (here, top, bottom).
7739
%
7740
% We keep a separate counter for each FLOATTYPE, which we reset at each
7741
% chapter-level command.
7742
\let\resetallfloatnos=\empty
7743
%
7744
\def\dofloat#1,#2,#3,#4\finish{%
7745
  \let\thiscaption=\empty
7746
  \let\thisshortcaption=\empty
7747
  %
7748
  % don't lose footnotes inside @float.
7749
  %
7750
  % BEWARE: when the floats start float, we have to issue warning whenever an
7751
  % insert appears inside a float which could possibly float. --kasal, 26may04
7752
  %
7753
  \startsavinginserts
7754
  %
7755
  % We can't be used inside a paragraph.
7756
  \par
7757
  %
7758
  \vtop\bgroup
7759
    \def\floattype{#1}%
7760
    \def\floatlabel{#2}%
7761
    \def\floatloc{#3}% we do nothing with this yet.
7762
    %
7763
    \ifx\floattype\empty
7764
      \let\safefloattype=\empty
7765
    \else
7766
      {%
7767
        % the floattype might have accents or other special characters,
7768
        % but we need to use it in a control sequence name.
7769
        \indexnofonts
7770
        \turnoffactive
7771
        \xdef\safefloattype{\floattype}%
7772
      }%
7773
    \fi
7774
    %
7775
    % If label is given but no type, we handle that as the empty type.
7776
    \ifx\floatlabel\empty \else
7777
      % We want each FLOATTYPE to be numbered separately (Figure 1,
7778
      % Table 1, Figure 2, ...).  (And if no label, no number.)
7779
      %
7780
      \expandafter\getfloatno\csname\safefloattype floatno\endcsname
7781
      \global\advance\floatno by 1
7782
      %
7783
      {%
7784
        % This magic value for \lastsection is output by \setref as the
7785
        % XREFLABEL-title value.  \xrefX uses it to distinguish float
7786
        % labels (which have a completely different output format) from
7787
        % node and anchor labels.  And \xrdef uses it to construct the
7788
        % lists of floats.
7789
        %
7790
        \edef\lastsection{\floatmagic=\safefloattype}%
7791
        \setref{\floatlabel}{Yfloat}%
7792
      }%
7793
    \fi
7794
    %
7795
    % start with \parskip glue, I guess.
7796
    \vskip\parskip
7797
    %
7798
    % Don't suppress indentation if a float happens to start a section.
7799
    \restorefirstparagraphindent
7800
}
7801
 
7802
% we have these possibilities:
7803
% @float Foo,lbl & @caption{Cap}: Foo 1.1: Cap
7804
% @float Foo,lbl & no caption:    Foo 1.1
7805
% @float Foo & @caption{Cap}:     Foo: Cap
7806
% @float Foo & no caption:        Foo
7807
% @float ,lbl & Caption{Cap}:     1.1: Cap
7808
% @float ,lbl & no caption:       1.1
7809
% @float & @caption{Cap}:         Cap
7810
% @float & no caption:
7811
%
7812
\def\Efloat{%
7813
    \let\floatident = \empty
7814
    %
7815
    % In all cases, if we have a float type, it comes first.
7816
    \ifx\floattype\empty \else \def\floatident{\floattype}\fi
7817
    %
7818
    % If we have an xref label, the number comes next.
7819
    \ifx\floatlabel\empty \else
7820
      \ifx\floattype\empty \else % if also had float type, need tie first.
7821
        \appendtomacro\floatident{\tie}%
7822
      \fi
7823
      % the number.
7824
      \appendtomacro\floatident{\chaplevelprefix\the\floatno}%
7825
    \fi
7826
    %
7827
    % Start the printed caption with what we've constructed in
7828
    % \floatident, but keep it separate; we need \floatident again.
7829
    \let\captionline = \floatident
7830
    %
7831
    \ifx\thiscaption\empty \else
7832
      \ifx\floatident\empty \else
7833
        \appendtomacro\captionline{: }% had ident, so need a colon between
7834
      \fi
7835
      %
7836
      % caption text.
7837
      \appendtomacro\captionline{\scanexp\thiscaption}%
7838
    \fi
7839
    %
7840
    % If we have anything to print, print it, with space before.
7841
    % Eventually this needs to become an \insert.
7842
    \ifx\captionline\empty \else
7843
      \vskip.5\parskip
7844
      \captionline
7845
      %
7846
      % Space below caption.
7847
      \vskip\parskip
7848
    \fi
7849
    %
7850
    % If have an xref label, write the list of floats info.  Do this
7851
    % after the caption, to avoid chance of it being a breakpoint.
7852
    \ifx\floatlabel\empty \else
7853
      % Write the text that goes in the lof to the aux file as
7854
      % \floatlabel-lof.  Besides \floatident, we include the short
7855
      % caption if specified, else the full caption if specified, else nothing.
7856
      {%
7857
        \atdummies
7858
        %
7859
        % since we read the caption text in the macro world, where ^^M
7860
        % is turned into a normal character, we have to scan it back, so
7861
        % we don't write the literal three characters "^^M" into the aux file.
7862
        \scanexp{%
7863
          \xdef\noexpand\gtemp{%
7864
            \ifx\thisshortcaption\empty
7865
              \thiscaption
7866
            \else
7867
              \thisshortcaption
7868
            \fi
7869
          }%
7870
        }%
7871
        \immediate\write\auxfile{@xrdef{\floatlabel-lof}{\floatident
7872
          \ifx\gtemp\empty \else : \gtemp \fi}}%
7873
      }%
7874
    \fi
7875
  \egroup  % end of \vtop
7876
  %
7877
  % place the captured inserts
7878
  %
7879
  % BEWARE: when the floats start floating, we have to issue warning
7880
  % whenever an insert appears inside a float which could possibly
7881
  % float. --kasal, 26may04
7882
  %
7883
  \checkinserts
7884
}
7885
 
7886
% Append the tokens #2 to the definition of macro #1, not expanding either.
7887
%
7888
\def\appendtomacro#1#2{%
7889
  \expandafter\def\expandafter#1\expandafter{#1#2}%
7890
}
7891
 
7892
% @caption, @shortcaption
7893
%
7894
\def\caption{\docaption\thiscaption}
7895
\def\shortcaption{\docaption\thisshortcaption}
7896
\def\docaption{\checkenv\float \bgroup\scanargctxt\defcaption}
7897
\def\defcaption#1#2{\egroup \def#1{#2}}
7898
 
7899
% The parameter is the control sequence identifying the counter we are
7900
% going to use.  Create it if it doesn't exist and assign it to \floatno.
7901
\def\getfloatno#1{%
7902
  \ifx#1\relax
7903
      % Haven't seen this figure type before.
7904
      \csname newcount\endcsname #1%
7905
      %
7906
      % Remember to reset this floatno at the next chap.
7907
      \expandafter\gdef\expandafter\resetallfloatnos
7908
        \expandafter{\resetallfloatnos #1=0 }%
7909
  \fi
7910
  \let\floatno#1%
7911
}
7912
 
7913
% \setref calls this to get the XREFLABEL-snt value.  We want an @xref
7914
% to the FLOATLABEL to expand to "Figure 3.1".  We call \setref when we
7915
% first read the @float command.
7916
%
7917
\def\Yfloat{\floattype@tie \chaplevelprefix\the\floatno}%
7918
 
7919
% Magic string used for the XREFLABEL-title value, so \xrefX can
7920
% distinguish floats from other xref types.
7921
\def\floatmagic{!!float!!}
7922
 
7923
% #1 is the control sequence we are passed; we expand into a conditional
7924
% which is true if #1 represents a float ref.  That is, the magic
7925
% \lastsection value which we \setref above.
7926
%
7927
\def\iffloat#1{\expandafter\doiffloat#1==\finish}
7928
%
7929
% #1 is (maybe) the \floatmagic string.  If so, #2 will be the
7930
% (safe) float type for this float.  We set \iffloattype to #2.
7931
%
7932
\def\doiffloat#1=#2=#3\finish{%
7933
  \def\temp{#1}%
7934
  \def\iffloattype{#2}%
7935
  \ifx\temp\floatmagic
7936
}
7937
 
7938
% @listoffloats FLOATTYPE - print a list of floats like a table of contents.
7939
%
7940
\parseargdef\listoffloats{%
7941
  \def\floattype{#1}% floattype
7942
  {%
7943
    % the floattype might have accents or other special characters,
7944
    % but we need to use it in a control sequence name.
7945
    \indexnofonts
7946
    \turnoffactive
7947
    \xdef\safefloattype{\floattype}%
7948
  }%
7949
  %
7950
  % \xrdef saves the floats as a \do-list in \floatlistSAFEFLOATTYPE.
7951
  \expandafter\ifx\csname floatlist\safefloattype\endcsname \relax
7952
    \ifhavexrefs
7953
      % if the user said @listoffloats foo but never @float foo.
7954
      \message{\linenumber No `\safefloattype' floats to list.}%
7955
    \fi
7956
  \else
7957
    \begingroup
7958
      \leftskip=\tocindent  % indent these entries like a toc
7959
      \let\do=\listoffloatsdo
7960
      \csname floatlist\safefloattype\endcsname
7961
    \endgroup
7962
  \fi
7963
}
7964
 
7965
% This is called on each entry in a list of floats.  We're passed the
7966
% xref label, in the form LABEL-title, which is how we save it in the
7967
% aux file.  We strip off the -title and look up \XRLABEL-lof, which
7968
% has the text we're supposed to typeset here.
7969
%
7970
% Figures without xref labels will not be included in the list (since
7971
% they won't appear in the aux file).
7972
%
7973
\def\listoffloatsdo#1{\listoffloatsdoentry#1\finish}
7974
\def\listoffloatsdoentry#1-title\finish{{%
7975
  % Can't fully expand XR#1-lof because it can contain anything.  Just
7976
  % pass the control sequence.  On the other hand, XR#1-pg is just the
7977
  % page number, and we want to fully expand that so we can get a link
7978
  % in pdf output.
7979
  \toksA = \expandafter{\csname XR#1-lof\endcsname}%
7980
  %
7981
  % use the same \entry macro we use to generate the TOC and index.
7982
  \edef\writeentry{\noexpand\entry{\the\toksA}{\csname XR#1-pg\endcsname}}%
7983
  \writeentry
7984
}}
7985
 
7986
 
7987
\message{localization,}
7988
 
7989
% For single-language documents, @documentlanguage is usually given very
7990
% early, just after @documentencoding.  Single argument is the language
7991
% (de) or locale (de_DE) abbreviation.
7992
%
7993
{
7994
  \catcode`\_ = \active
7995
  \globaldefs=1
7996
\parseargdef\documentlanguage{\begingroup
7997
  \let_=\normalunderscore  % normal _ character for filenames
7998
  \tex % read txi-??.tex file in plain TeX.
7999
    % Read the file by the name they passed if it exists.
8000
    \openin 1 txi-#1.tex
8001
    \ifeof 1
8002
      \documentlanguagetrywithoutunderscore{#1_\finish}%
8003
    \else
8004
      \globaldefs = 1  % everything in the txi-LL files needs to persist
8005
      \input txi-#1.tex
8006
    \fi
8007
    \closein 1
8008
  \endgroup % end raw TeX
8009
\endgroup}
8010
%
8011
% If they passed de_DE, and txi-de_DE.tex doesn't exist,
8012
% try txi-de.tex.
8013
%
8014
\gdef\documentlanguagetrywithoutunderscore#1_#2\finish{%
8015
  \openin 1 txi-#1.tex
8016
  \ifeof 1
8017
    \errhelp = \nolanghelp
8018
    \errmessage{Cannot read language file txi-#1.tex}%
8019
  \else
8020
    \globaldefs = 1  % everything in the txi-LL files needs to persist
8021
    \input txi-#1.tex
8022
  \fi
8023
  \closein 1
8024
}
8025
}% end of special _ catcode
8026
%
8027
\newhelp\nolanghelp{The given language definition file cannot be found or
8028
is empty.  Maybe you need to install it?  Putting it in the current
8029
directory should work if nowhere else does.}
8030
 
8031
% This macro is called from txi-??.tex files; the first argument is the
8032
% \language name to set (without the "\lang@" prefix), the second and
8033
% third args are \{left,right}hyphenmin.
8034
%
8035
% The language names to pass are determined when the format is built.
8036
% See the etex.log file created at that time, e.g.,
8037
% /usr/local/texlive/2008/texmf-var/web2c/pdftex/etex.log.
8038
%
8039
% With TeX Live 2008, etex now includes hyphenation patterns for all
8040
% available languages.  This means we can support hyphenation in
8041
% Texinfo, at least to some extent.  (This still doesn't solve the
8042
% accented characters problem.)
8043
%
8044
\catcode`@=11
8045
\def\txisetlanguage#1#2#3{%
8046
  % do not set the language if the name is undefined in the current TeX.
8047
  \expandafter\ifx\csname lang@#1\endcsname \relax
8048
    \message{no patterns for #1}%
8049
  \else
8050
    \global\language = \csname lang@#1\endcsname
8051
  \fi
8052
  % but there is no harm in adjusting the hyphenmin values regardless.
8053
  \global\lefthyphenmin = #2\relax
8054
  \global\righthyphenmin = #3\relax
8055
}
8056
 
8057
% Helpers for encodings.
8058
% Set the catcode of characters 128 through 255 to the specified number.
8059
%
8060
\def\setnonasciicharscatcode#1{%
8061
   \count255=128
8062
   \loop\ifnum\count255<256
8063
      \global\catcode\count255=#1\relax
8064
      \advance\count255 by 1
8065
   \repeat
8066
}
8067
 
8068
\def\setnonasciicharscatcodenonglobal#1{%
8069
   \count255=128
8070
   \loop\ifnum\count255<256
8071
      \catcode\count255=#1\relax
8072
      \advance\count255 by 1
8073
   \repeat
8074
}
8075
 
8076
% @documentencoding sets the definition of non-ASCII characters
8077
% according to the specified encoding.
8078
%
8079
\parseargdef\documentencoding{%
8080
  % Encoding being declared for the document.
8081
  \def\declaredencoding{\csname #1.enc\endcsname}%
8082
  %
8083
  % Supported encodings: names converted to tokens in order to be able
8084
  % to compare them with \ifx.
8085
  \def\ascii{\csname US-ASCII.enc\endcsname}%
8086
  \def\latnine{\csname ISO-8859-15.enc\endcsname}%
8087
  \def\latone{\csname ISO-8859-1.enc\endcsname}%
8088
  \def\lattwo{\csname ISO-8859-2.enc\endcsname}%
8089
  \def\utfeight{\csname UTF-8.enc\endcsname}%
8090
  %
8091
  \ifx \declaredencoding \ascii
8092
     \asciichardefs
8093
  %
8094
  \else \ifx \declaredencoding \lattwo
8095
     \setnonasciicharscatcode\active
8096
     \lattwochardefs
8097
  %
8098
  \else \ifx \declaredencoding \latone
8099
     \setnonasciicharscatcode\active
8100
     \latonechardefs
8101
  %
8102
  \else \ifx \declaredencoding \latnine
8103
     \setnonasciicharscatcode\active
8104
     \latninechardefs
8105
  %
8106
  \else \ifx \declaredencoding \utfeight
8107
     \setnonasciicharscatcode\active
8108
     \utfeightchardefs
8109
  %
8110
  \else
8111
    \message{Unknown document encoding #1, ignoring.}%
8112
  %
8113
  \fi % utfeight
8114
  \fi % latnine
8115
  \fi % latone
8116
  \fi % lattwo
8117
  \fi % ascii
8118
}
8119
 
8120
% A message to be logged when using a character that isn't available
8121
% the default font encoding (OT1).
8122
%
8123
\def\missingcharmsg#1{\message{Character missing in OT1 encoding: #1.}}
8124
 
8125
% Take account of \c (plain) vs. \, (Texinfo) difference.
8126
\def\cedilla#1{\ifx\c\ptexc\c{#1}\else\,{#1}\fi}
8127
 
8128
% First, make active non-ASCII characters in order for them to be
8129
% correctly categorized when TeX reads the replacement text of
8130
% macros containing the character definitions.
8131
\setnonasciicharscatcode\active
8132
%
8133
% Latin1 (ISO-8859-1) character definitions.
8134
\def\latonechardefs{%
8135
  \gdef^^a0{~}
8136
  \gdef^^a1{\exclamdown}
8137
  \gdef^^a2{\missingcharmsg{CENT SIGN}}
8138
  \gdef^^a3{{\pounds}}
8139
  \gdef^^a4{\missingcharmsg{CURRENCY SIGN}}
8140
  \gdef^^a5{\missingcharmsg{YEN SIGN}}
8141
  \gdef^^a6{\missingcharmsg{BROKEN BAR}}
8142
  \gdef^^a7{\S}
8143
  \gdef^^a8{\"{}}
8144
  \gdef^^a9{\copyright}
8145
  \gdef^^aa{\ordf}
8146
  \gdef^^ab{\guillemetleft}
8147
  \gdef^^ac{$\lnot$}
8148
  \gdef^^ad{\-}
8149
  \gdef^^ae{\registeredsymbol}
8150
  \gdef^^af{\={}}
8151
  %
8152
  \gdef^^b0{\textdegree}
8153
  \gdef^^b1{$\pm$}
8154
  \gdef^^b2{$^2$}
8155
  \gdef^^b3{$^3$}
8156
  \gdef^^b4{\'{}}
8157
  \gdef^^b5{$\mu$}
8158
  \gdef^^b6{\P}
8159
  %
8160
  \gdef^^b7{$^.$}
8161
  \gdef^^b8{\cedilla\ }
8162
  \gdef^^b9{$^1$}
8163
  \gdef^^ba{\ordm}
8164
  %
8165
  \gdef^^bb{\guilletright}
8166
  \gdef^^bc{$1\over4$}
8167
  \gdef^^bd{$1\over2$}
8168
  \gdef^^be{$3\over4$}
8169
  \gdef^^bf{\questiondown}
8170
  %
8171
  \gdef^^c0{\`A}
8172
  \gdef^^c1{\'A}
8173
  \gdef^^c2{\^A}
8174
  \gdef^^c3{\~A}
8175
  \gdef^^c4{\"A}
8176
  \gdef^^c5{\ringaccent A}
8177
  \gdef^^c6{\AE}
8178
  \gdef^^c7{\cedilla C}
8179
  \gdef^^c8{\`E}
8180
  \gdef^^c9{\'E}
8181
  \gdef^^ca{\^E}
8182
  \gdef^^cb{\"E}
8183
  \gdef^^cc{\`I}
8184
  \gdef^^cd{\'I}
8185
  \gdef^^ce{\^I}
8186
  \gdef^^cf{\"I}
8187
  %
8188
  \gdef^^d0{\DH}
8189
  \gdef^^d1{\~N}
8190
  \gdef^^d2{\`O}
8191
  \gdef^^d3{\'O}
8192
  \gdef^^d4{\^O}
8193
  \gdef^^d5{\~O}
8194
  \gdef^^d6{\"O}
8195
  \gdef^^d7{$\times$}
8196
  \gdef^^d8{\O}
8197
  \gdef^^d9{\`U}
8198
  \gdef^^da{\'U}
8199
  \gdef^^db{\^U}
8200
  \gdef^^dc{\"U}
8201
  \gdef^^dd{\'Y}
8202
  \gdef^^de{\TH}
8203
  \gdef^^df{\ss}
8204
  %
8205
  \gdef^^e0{\`a}
8206
  \gdef^^e1{\'a}
8207
  \gdef^^e2{\^a}
8208
  \gdef^^e3{\~a}
8209
  \gdef^^e4{\"a}
8210
  \gdef^^e5{\ringaccent a}
8211
  \gdef^^e6{\ae}
8212
  \gdef^^e7{\cedilla c}
8213
  \gdef^^e8{\`e}
8214
  \gdef^^e9{\'e}
8215
  \gdef^^ea{\^e}
8216
  \gdef^^eb{\"e}
8217
  \gdef^^ec{\`{\dotless i}}
8218
  \gdef^^ed{\'{\dotless i}}
8219
  \gdef^^ee{\^{\dotless i}}
8220
  \gdef^^ef{\"{\dotless i}}
8221
  %
8222
  \gdef^^f0{\dh}
8223
  \gdef^^f1{\~n}
8224
  \gdef^^f2{\`o}
8225
  \gdef^^f3{\'o}
8226
  \gdef^^f4{\^o}
8227
  \gdef^^f5{\~o}
8228
  \gdef^^f6{\"o}
8229
  \gdef^^f7{$\div$}
8230
  \gdef^^f8{\o}
8231
  \gdef^^f9{\`u}
8232
  \gdef^^fa{\'u}
8233
  \gdef^^fb{\^u}
8234
  \gdef^^fc{\"u}
8235
  \gdef^^fd{\'y}
8236
  \gdef^^fe{\th}
8237
  \gdef^^ff{\"y}
8238
}
8239
 
8240
% Latin9 (ISO-8859-15) encoding character definitions.
8241
\def\latninechardefs{%
8242
  % Encoding is almost identical to Latin1.
8243
  \latonechardefs
8244
  %
8245
  \gdef^^a4{\euro}
8246
  \gdef^^a6{\v S}
8247
  \gdef^^a8{\v s}
8248
  \gdef^^b4{\v Z}
8249
  \gdef^^b8{\v z}
8250
  \gdef^^bc{\OE}
8251
  \gdef^^bd{\oe}
8252
  \gdef^^be{\"Y}
8253
}
8254
 
8255
% Latin2 (ISO-8859-2) character definitions.
8256
\def\lattwochardefs{%
8257
  \gdef^^a0{~}
8258
  \gdef^^a1{\ogonek{A}}
8259
  \gdef^^a2{\u{}}
8260
  \gdef^^a3{\L}
8261
  \gdef^^a4{\missingcharmsg{CURRENCY SIGN}}
8262
  \gdef^^a5{\v L}
8263
  \gdef^^a6{\'S}
8264
  \gdef^^a7{\S}
8265
  \gdef^^a8{\"{}}
8266
  \gdef^^a9{\v S}
8267
  \gdef^^aa{\cedilla S}
8268
  \gdef^^ab{\v T}
8269
  \gdef^^ac{\'Z}
8270
  \gdef^^ad{\-}
8271
  \gdef^^ae{\v Z}
8272
  \gdef^^af{\dotaccent Z}
8273
  %
8274
  \gdef^^b0{\textdegree}
8275
  \gdef^^b1{\ogonek{a}}
8276
  \gdef^^b2{\ogonek{ }}
8277
  \gdef^^b3{\l}
8278
  \gdef^^b4{\'{}}
8279
  \gdef^^b5{\v l}
8280
  \gdef^^b6{\'s}
8281
  \gdef^^b7{\v{}}
8282
  \gdef^^b8{\cedilla\ }
8283
  \gdef^^b9{\v s}
8284
  \gdef^^ba{\cedilla s}
8285
  \gdef^^bb{\v t}
8286
  \gdef^^bc{\'z}
8287
  \gdef^^bd{\H{}}
8288
  \gdef^^be{\v z}
8289
  \gdef^^bf{\dotaccent z}
8290
  %
8291
  \gdef^^c0{\'R}
8292
  \gdef^^c1{\'A}
8293
  \gdef^^c2{\^A}
8294
  \gdef^^c3{\u A}
8295
  \gdef^^c4{\"A}
8296
  \gdef^^c5{\'L}
8297
  \gdef^^c6{\'C}
8298
  \gdef^^c7{\cedilla C}
8299
  \gdef^^c8{\v C}
8300
  \gdef^^c9{\'E}
8301
  \gdef^^ca{\ogonek{E}}
8302
  \gdef^^cb{\"E}
8303
  \gdef^^cc{\v E}
8304
  \gdef^^cd{\'I}
8305
  \gdef^^ce{\^I}
8306
  \gdef^^cf{\v D}
8307
  %
8308
  \gdef^^d0{\DH}
8309
  \gdef^^d1{\'N}
8310
  \gdef^^d2{\v N}
8311
  \gdef^^d3{\'O}
8312
  \gdef^^d4{\^O}
8313
  \gdef^^d5{\H O}
8314
  \gdef^^d6{\"O}
8315
  \gdef^^d7{$\times$}
8316
  \gdef^^d8{\v R}
8317
  \gdef^^d9{\ringaccent U}
8318
  \gdef^^da{\'U}
8319
  \gdef^^db{\H U}
8320
  \gdef^^dc{\"U}
8321
  \gdef^^dd{\'Y}
8322
  \gdef^^de{\cedilla T}
8323
  \gdef^^df{\ss}
8324
  %
8325
  \gdef^^e0{\'r}
8326
  \gdef^^e1{\'a}
8327
  \gdef^^e2{\^a}
8328
  \gdef^^e3{\u a}
8329
  \gdef^^e4{\"a}
8330
  \gdef^^e5{\'l}
8331
  \gdef^^e6{\'c}
8332
  \gdef^^e7{\cedilla c}
8333
  \gdef^^e8{\v c}
8334
  \gdef^^e9{\'e}
8335
  \gdef^^ea{\ogonek{e}}
8336
  \gdef^^eb{\"e}
8337
  \gdef^^ec{\v e}
8338
  \gdef^^ed{\'\i}
8339
  \gdef^^ee{\^\i}
8340
  \gdef^^ef{\v d}
8341
  %
8342
  \gdef^^f0{\dh}
8343
  \gdef^^f1{\'n}
8344
  \gdef^^f2{\v n}
8345
  \gdef^^f3{\'o}
8346
  \gdef^^f4{\^o}
8347
  \gdef^^f5{\H o}
8348
  \gdef^^f6{\"o}
8349
  \gdef^^f7{$\div$}
8350
  \gdef^^f8{\v r}
8351
  \gdef^^f9{\ringaccent u}
8352
  \gdef^^fa{\'u}
8353
  \gdef^^fb{\H u}
8354
  \gdef^^fc{\"u}
8355
  \gdef^^fd{\'y}
8356
  \gdef^^fe{\cedilla t}
8357
  \gdef^^ff{\dotaccent{}}
8358
}
8359
 
8360
% UTF-8 character definitions.
8361
%
8362
% This code to support UTF-8 is based on LaTeX's utf8.def, with some
8363
% changes for Texinfo conventions.  It is included here under the GPL by
8364
% permission from Frank Mittelbach and the LaTeX team.
8365
%
8366
\newcount\countUTFx
8367
\newcount\countUTFy
8368
\newcount\countUTFz
8369
 
8370
\gdef\UTFviiiTwoOctets#1#2{\expandafter
8371
   \UTFviiiDefined\csname u8:#1\string #2\endcsname}
8372
%
8373
\gdef\UTFviiiThreeOctets#1#2#3{\expandafter
8374
   \UTFviiiDefined\csname u8:#1\string #2\string #3\endcsname}
8375
%
8376
\gdef\UTFviiiFourOctets#1#2#3#4{\expandafter
8377
   \UTFviiiDefined\csname u8:#1\string #2\string #3\string #4\endcsname}
8378
 
8379
\gdef\UTFviiiDefined#1{%
8380
  \ifx #1\relax
8381
    \message{\linenumber Unicode char \string #1 not defined for Texinfo}%
8382
  \else
8383
    \expandafter #1%
8384
  \fi
8385
}
8386
 
8387
\begingroup
8388
  \catcode`\~13
8389
  \catcode`\"12
8390
 
8391
  \def\UTFviiiLoop{%
8392
    \global\catcode\countUTFx\active
8393
    \uccode`\~\countUTFx
8394
    \uppercase\expandafter{\UTFviiiTmp}%
8395
    \advance\countUTFx by 1
8396
    \ifnum\countUTFx < \countUTFy
8397
      \expandafter\UTFviiiLoop
8398
    \fi}
8399
 
8400
  \countUTFx = "C2
8401
  \countUTFy = "E0
8402
  \def\UTFviiiTmp{%
8403
    \xdef~{\noexpand\UTFviiiTwoOctets\string~}}
8404
  \UTFviiiLoop
8405
 
8406
  \countUTFx = "E0
8407
  \countUTFy = "F0
8408
  \def\UTFviiiTmp{%
8409
    \xdef~{\noexpand\UTFviiiThreeOctets\string~}}
8410
  \UTFviiiLoop
8411
 
8412
  \countUTFx = "F0
8413
  \countUTFy = "F4
8414
  \def\UTFviiiTmp{%
8415
    \xdef~{\noexpand\UTFviiiFourOctets\string~}}
8416
  \UTFviiiLoop
8417
\endgroup
8418
 
8419
\begingroup
8420
  \catcode`\"=12
8421
  \catcode`\<=12
8422
  \catcode`\.=12
8423
  \catcode`\,=12
8424
  \catcode`\;=12
8425
  \catcode`\!=12
8426
  \catcode`\~=13
8427
 
8428
  \gdef\DeclareUnicodeCharacter#1#2{%
8429
    \countUTFz = "#1\relax
8430
    \wlog{\space\space defining Unicode char U+#1 (decimal \the\countUTFz)}%
8431
    \begingroup
8432
      \parseXMLCharref
8433
      \def\UTFviiiTwoOctets##1##2{%
8434
        \csname u8:##1\string ##2\endcsname}%
8435
      \def\UTFviiiThreeOctets##1##2##3{%
8436
        \csname u8:##1\string ##2\string ##3\endcsname}%
8437
      \def\UTFviiiFourOctets##1##2##3##4{%
8438
        \csname u8:##1\string ##2\string ##3\string ##4\endcsname}%
8439
      \expandafter\expandafter\expandafter\expandafter
8440
       \expandafter\expandafter\expandafter
8441
       \gdef\UTFviiiTmp{#2}%
8442
    \endgroup}
8443
 
8444
  \gdef\parseXMLCharref{%
8445
    \ifnum\countUTFz < "A0\relax
8446
      \errhelp = \EMsimple
8447
      \errmessage{Cannot define Unicode char value < 00A0}%
8448
    \else\ifnum\countUTFz < "800\relax
8449
      \parseUTFviiiA,%
8450
      \parseUTFviiiB C\UTFviiiTwoOctets.,%
8451
    \else\ifnum\countUTFz < "10000\relax
8452
      \parseUTFviiiA;%
8453
      \parseUTFviiiA,%
8454
      \parseUTFviiiB E\UTFviiiThreeOctets.{,;}%
8455
    \else
8456
      \parseUTFviiiA;%
8457
      \parseUTFviiiA,%
8458
      \parseUTFviiiA!%
8459
      \parseUTFviiiB F\UTFviiiFourOctets.{!,;}%
8460
    \fi\fi\fi
8461
  }
8462
 
8463
  \gdef\parseUTFviiiA#1{%
8464
    \countUTFx = \countUTFz
8465
    \divide\countUTFz by 64
8466
    \countUTFy = \countUTFz
8467
    \multiply\countUTFz by 64
8468
    \advance\countUTFx by -\countUTFz
8469
    \advance\countUTFx by 128
8470
    \uccode `#1\countUTFx
8471
    \countUTFz = \countUTFy}
8472
 
8473
  \gdef\parseUTFviiiB#1#2#3#4{%
8474
    \advance\countUTFz by "#10\relax
8475
    \uccode `#3\countUTFz
8476
    \uppercase{\gdef\UTFviiiTmp{#2#3#4}}}
8477
\endgroup
8478
 
8479
\def\utfeightchardefs{%
8480
  \DeclareUnicodeCharacter{00A0}{\tie}
8481
  \DeclareUnicodeCharacter{00A1}{\exclamdown}
8482
  \DeclareUnicodeCharacter{00A3}{\pounds}
8483
  \DeclareUnicodeCharacter{00A8}{\"{ }}
8484
  \DeclareUnicodeCharacter{00A9}{\copyright}
8485
  \DeclareUnicodeCharacter{00AA}{\ordf}
8486
  \DeclareUnicodeCharacter{00AB}{\guillemetleft}
8487
  \DeclareUnicodeCharacter{00AD}{\-}
8488
  \DeclareUnicodeCharacter{00AE}{\registeredsymbol}
8489
  \DeclareUnicodeCharacter{00AF}{\={ }}
8490
 
8491
  \DeclareUnicodeCharacter{00B0}{\ringaccent{ }}
8492
  \DeclareUnicodeCharacter{00B4}{\'{ }}
8493
  \DeclareUnicodeCharacter{00B8}{\cedilla{ }}
8494
  \DeclareUnicodeCharacter{00BA}{\ordm}
8495
  \DeclareUnicodeCharacter{00BB}{\guillemetright}
8496
  \DeclareUnicodeCharacter{00BF}{\questiondown}
8497
 
8498
  \DeclareUnicodeCharacter{00C0}{\`A}
8499
  \DeclareUnicodeCharacter{00C1}{\'A}
8500
  \DeclareUnicodeCharacter{00C2}{\^A}
8501
  \DeclareUnicodeCharacter{00C3}{\~A}
8502
  \DeclareUnicodeCharacter{00C4}{\"A}
8503
  \DeclareUnicodeCharacter{00C5}{\AA}
8504
  \DeclareUnicodeCharacter{00C6}{\AE}
8505
  \DeclareUnicodeCharacter{00C7}{\cedilla{C}}
8506
  \DeclareUnicodeCharacter{00C8}{\`E}
8507
  \DeclareUnicodeCharacter{00C9}{\'E}
8508
  \DeclareUnicodeCharacter{00CA}{\^E}
8509
  \DeclareUnicodeCharacter{00CB}{\"E}
8510
  \DeclareUnicodeCharacter{00CC}{\`I}
8511
  \DeclareUnicodeCharacter{00CD}{\'I}
8512
  \DeclareUnicodeCharacter{00CE}{\^I}
8513
  \DeclareUnicodeCharacter{00CF}{\"I}
8514
 
8515
  \DeclareUnicodeCharacter{00D0}{\DH}
8516
  \DeclareUnicodeCharacter{00D1}{\~N}
8517
  \DeclareUnicodeCharacter{00D2}{\`O}
8518
  \DeclareUnicodeCharacter{00D3}{\'O}
8519
  \DeclareUnicodeCharacter{00D4}{\^O}
8520
  \DeclareUnicodeCharacter{00D5}{\~O}
8521
  \DeclareUnicodeCharacter{00D6}{\"O}
8522
  \DeclareUnicodeCharacter{00D8}{\O}
8523
  \DeclareUnicodeCharacter{00D9}{\`U}
8524
  \DeclareUnicodeCharacter{00DA}{\'U}
8525
  \DeclareUnicodeCharacter{00DB}{\^U}
8526
  \DeclareUnicodeCharacter{00DC}{\"U}
8527
  \DeclareUnicodeCharacter{00DD}{\'Y}
8528
  \DeclareUnicodeCharacter{00DE}{\TH}
8529
  \DeclareUnicodeCharacter{00DF}{\ss}
8530
 
8531
  \DeclareUnicodeCharacter{00E0}{\`a}
8532
  \DeclareUnicodeCharacter{00E1}{\'a}
8533
  \DeclareUnicodeCharacter{00E2}{\^a}
8534
  \DeclareUnicodeCharacter{00E3}{\~a}
8535
  \DeclareUnicodeCharacter{00E4}{\"a}
8536
  \DeclareUnicodeCharacter{00E5}{\aa}
8537
  \DeclareUnicodeCharacter{00E6}{\ae}
8538
  \DeclareUnicodeCharacter{00E7}{\cedilla{c}}
8539
  \DeclareUnicodeCharacter{00E8}{\`e}
8540
  \DeclareUnicodeCharacter{00E9}{\'e}
8541
  \DeclareUnicodeCharacter{00EA}{\^e}
8542
  \DeclareUnicodeCharacter{00EB}{\"e}
8543
  \DeclareUnicodeCharacter{00EC}{\`{\dotless{i}}}
8544
  \DeclareUnicodeCharacter{00ED}{\'{\dotless{i}}}
8545
  \DeclareUnicodeCharacter{00EE}{\^{\dotless{i}}}
8546
  \DeclareUnicodeCharacter{00EF}{\"{\dotless{i}}}
8547
 
8548
  \DeclareUnicodeCharacter{00F0}{\dh}
8549
  \DeclareUnicodeCharacter{00F1}{\~n}
8550
  \DeclareUnicodeCharacter{00F2}{\`o}
8551
  \DeclareUnicodeCharacter{00F3}{\'o}
8552
  \DeclareUnicodeCharacter{00F4}{\^o}
8553
  \DeclareUnicodeCharacter{00F5}{\~o}
8554
  \DeclareUnicodeCharacter{00F6}{\"o}
8555
  \DeclareUnicodeCharacter{00F8}{\o}
8556
  \DeclareUnicodeCharacter{00F9}{\`u}
8557
  \DeclareUnicodeCharacter{00FA}{\'u}
8558
  \DeclareUnicodeCharacter{00FB}{\^u}
8559
  \DeclareUnicodeCharacter{00FC}{\"u}
8560
  \DeclareUnicodeCharacter{00FD}{\'y}
8561
  \DeclareUnicodeCharacter{00FE}{\th}
8562
  \DeclareUnicodeCharacter{00FF}{\"y}
8563
 
8564
  \DeclareUnicodeCharacter{0100}{\=A}
8565
  \DeclareUnicodeCharacter{0101}{\=a}
8566
  \DeclareUnicodeCharacter{0102}{\u{A}}
8567
  \DeclareUnicodeCharacter{0103}{\u{a}}
8568
  \DeclareUnicodeCharacter{0104}{\ogonek{A}}
8569
  \DeclareUnicodeCharacter{0105}{\ogonek{a}}
8570
  \DeclareUnicodeCharacter{0106}{\'C}
8571
  \DeclareUnicodeCharacter{0107}{\'c}
8572
  \DeclareUnicodeCharacter{0108}{\^C}
8573
  \DeclareUnicodeCharacter{0109}{\^c}
8574
  \DeclareUnicodeCharacter{0118}{\ogonek{E}}
8575
  \DeclareUnicodeCharacter{0119}{\ogonek{e}}
8576
  \DeclareUnicodeCharacter{010A}{\dotaccent{C}}
8577
  \DeclareUnicodeCharacter{010B}{\dotaccent{c}}
8578
  \DeclareUnicodeCharacter{010C}{\v{C}}
8579
  \DeclareUnicodeCharacter{010D}{\v{c}}
8580
  \DeclareUnicodeCharacter{010E}{\v{D}}
8581
 
8582
  \DeclareUnicodeCharacter{0112}{\=E}
8583
  \DeclareUnicodeCharacter{0113}{\=e}
8584
  \DeclareUnicodeCharacter{0114}{\u{E}}
8585
  \DeclareUnicodeCharacter{0115}{\u{e}}
8586
  \DeclareUnicodeCharacter{0116}{\dotaccent{E}}
8587
  \DeclareUnicodeCharacter{0117}{\dotaccent{e}}
8588
  \DeclareUnicodeCharacter{011A}{\v{E}}
8589
  \DeclareUnicodeCharacter{011B}{\v{e}}
8590
  \DeclareUnicodeCharacter{011C}{\^G}
8591
  \DeclareUnicodeCharacter{011D}{\^g}
8592
  \DeclareUnicodeCharacter{011E}{\u{G}}
8593
  \DeclareUnicodeCharacter{011F}{\u{g}}
8594
 
8595
  \DeclareUnicodeCharacter{0120}{\dotaccent{G}}
8596
  \DeclareUnicodeCharacter{0121}{\dotaccent{g}}
8597
  \DeclareUnicodeCharacter{0124}{\^H}
8598
  \DeclareUnicodeCharacter{0125}{\^h}
8599
  \DeclareUnicodeCharacter{0128}{\~I}
8600
  \DeclareUnicodeCharacter{0129}{\~{\dotless{i}}}
8601
  \DeclareUnicodeCharacter{012A}{\=I}
8602
  \DeclareUnicodeCharacter{012B}{\={\dotless{i}}}
8603
  \DeclareUnicodeCharacter{012C}{\u{I}}
8604
  \DeclareUnicodeCharacter{012D}{\u{\dotless{i}}}
8605
 
8606
  \DeclareUnicodeCharacter{0130}{\dotaccent{I}}
8607
  \DeclareUnicodeCharacter{0131}{\dotless{i}}
8608
  \DeclareUnicodeCharacter{0132}{IJ}
8609
  \DeclareUnicodeCharacter{0133}{ij}
8610
  \DeclareUnicodeCharacter{0134}{\^J}
8611
  \DeclareUnicodeCharacter{0135}{\^{\dotless{j}}}
8612
  \DeclareUnicodeCharacter{0139}{\'L}
8613
  \DeclareUnicodeCharacter{013A}{\'l}
8614
 
8615
  \DeclareUnicodeCharacter{0141}{\L}
8616
  \DeclareUnicodeCharacter{0142}{\l}
8617
  \DeclareUnicodeCharacter{0143}{\'N}
8618
  \DeclareUnicodeCharacter{0144}{\'n}
8619
  \DeclareUnicodeCharacter{0147}{\v{N}}
8620
  \DeclareUnicodeCharacter{0148}{\v{n}}
8621
  \DeclareUnicodeCharacter{014C}{\=O}
8622
  \DeclareUnicodeCharacter{014D}{\=o}
8623
  \DeclareUnicodeCharacter{014E}{\u{O}}
8624
  \DeclareUnicodeCharacter{014F}{\u{o}}
8625
 
8626
  \DeclareUnicodeCharacter{0150}{\H{O}}
8627
  \DeclareUnicodeCharacter{0151}{\H{o}}
8628
  \DeclareUnicodeCharacter{0152}{\OE}
8629
  \DeclareUnicodeCharacter{0153}{\oe}
8630
  \DeclareUnicodeCharacter{0154}{\'R}
8631
  \DeclareUnicodeCharacter{0155}{\'r}
8632
  \DeclareUnicodeCharacter{0158}{\v{R}}
8633
  \DeclareUnicodeCharacter{0159}{\v{r}}
8634
  \DeclareUnicodeCharacter{015A}{\'S}
8635
  \DeclareUnicodeCharacter{015B}{\'s}
8636
  \DeclareUnicodeCharacter{015C}{\^S}
8637
  \DeclareUnicodeCharacter{015D}{\^s}
8638
  \DeclareUnicodeCharacter{015E}{\cedilla{S}}
8639
  \DeclareUnicodeCharacter{015F}{\cedilla{s}}
8640
 
8641
  \DeclareUnicodeCharacter{0160}{\v{S}}
8642
  \DeclareUnicodeCharacter{0161}{\v{s}}
8643
  \DeclareUnicodeCharacter{0162}{\cedilla{t}}
8644
  \DeclareUnicodeCharacter{0163}{\cedilla{T}}
8645
  \DeclareUnicodeCharacter{0164}{\v{T}}
8646
 
8647
  \DeclareUnicodeCharacter{0168}{\~U}
8648
  \DeclareUnicodeCharacter{0169}{\~u}
8649
  \DeclareUnicodeCharacter{016A}{\=U}
8650
  \DeclareUnicodeCharacter{016B}{\=u}
8651
  \DeclareUnicodeCharacter{016C}{\u{U}}
8652
  \DeclareUnicodeCharacter{016D}{\u{u}}
8653
  \DeclareUnicodeCharacter{016E}{\ringaccent{U}}
8654
  \DeclareUnicodeCharacter{016F}{\ringaccent{u}}
8655
 
8656
  \DeclareUnicodeCharacter{0170}{\H{U}}
8657
  \DeclareUnicodeCharacter{0171}{\H{u}}
8658
  \DeclareUnicodeCharacter{0174}{\^W}
8659
  \DeclareUnicodeCharacter{0175}{\^w}
8660
  \DeclareUnicodeCharacter{0176}{\^Y}
8661
  \DeclareUnicodeCharacter{0177}{\^y}
8662
  \DeclareUnicodeCharacter{0178}{\"Y}
8663
  \DeclareUnicodeCharacter{0179}{\'Z}
8664
  \DeclareUnicodeCharacter{017A}{\'z}
8665
  \DeclareUnicodeCharacter{017B}{\dotaccent{Z}}
8666
  \DeclareUnicodeCharacter{017C}{\dotaccent{z}}
8667
  \DeclareUnicodeCharacter{017D}{\v{Z}}
8668
  \DeclareUnicodeCharacter{017E}{\v{z}}
8669
 
8670
  \DeclareUnicodeCharacter{01C4}{D\v{Z}}
8671
  \DeclareUnicodeCharacter{01C5}{D\v{z}}
8672
  \DeclareUnicodeCharacter{01C6}{d\v{z}}
8673
  \DeclareUnicodeCharacter{01C7}{LJ}
8674
  \DeclareUnicodeCharacter{01C8}{Lj}
8675
  \DeclareUnicodeCharacter{01C9}{lj}
8676
  \DeclareUnicodeCharacter{01CA}{NJ}
8677
  \DeclareUnicodeCharacter{01CB}{Nj}
8678
  \DeclareUnicodeCharacter{01CC}{nj}
8679
  \DeclareUnicodeCharacter{01CD}{\v{A}}
8680
  \DeclareUnicodeCharacter{01CE}{\v{a}}
8681
  \DeclareUnicodeCharacter{01CF}{\v{I}}
8682
 
8683
  \DeclareUnicodeCharacter{01D0}{\v{\dotless{i}}}
8684
  \DeclareUnicodeCharacter{01D1}{\v{O}}
8685
  \DeclareUnicodeCharacter{01D2}{\v{o}}
8686
  \DeclareUnicodeCharacter{01D3}{\v{U}}
8687
  \DeclareUnicodeCharacter{01D4}{\v{u}}
8688
 
8689
  \DeclareUnicodeCharacter{01E2}{\={\AE}}
8690
  \DeclareUnicodeCharacter{01E3}{\={\ae}}
8691
  \DeclareUnicodeCharacter{01E6}{\v{G}}
8692
  \DeclareUnicodeCharacter{01E7}{\v{g}}
8693
  \DeclareUnicodeCharacter{01E8}{\v{K}}
8694
  \DeclareUnicodeCharacter{01E9}{\v{k}}
8695
 
8696
  \DeclareUnicodeCharacter{01F0}{\v{\dotless{j}}}
8697
  \DeclareUnicodeCharacter{01F1}{DZ}
8698
  \DeclareUnicodeCharacter{01F2}{Dz}
8699
  \DeclareUnicodeCharacter{01F3}{dz}
8700
  \DeclareUnicodeCharacter{01F4}{\'G}
8701
  \DeclareUnicodeCharacter{01F5}{\'g}
8702
  \DeclareUnicodeCharacter{01F8}{\`N}
8703
  \DeclareUnicodeCharacter{01F9}{\`n}
8704
  \DeclareUnicodeCharacter{01FC}{\'{\AE}}
8705
  \DeclareUnicodeCharacter{01FD}{\'{\ae}}
8706
  \DeclareUnicodeCharacter{01FE}{\'{\O}}
8707
  \DeclareUnicodeCharacter{01FF}{\'{\o}}
8708
 
8709
  \DeclareUnicodeCharacter{021E}{\v{H}}
8710
  \DeclareUnicodeCharacter{021F}{\v{h}}
8711
 
8712
  \DeclareUnicodeCharacter{0226}{\dotaccent{A}}
8713
  \DeclareUnicodeCharacter{0227}{\dotaccent{a}}
8714
  \DeclareUnicodeCharacter{0228}{\cedilla{E}}
8715
  \DeclareUnicodeCharacter{0229}{\cedilla{e}}
8716
  \DeclareUnicodeCharacter{022E}{\dotaccent{O}}
8717
  \DeclareUnicodeCharacter{022F}{\dotaccent{o}}
8718
 
8719
  \DeclareUnicodeCharacter{0232}{\=Y}
8720
  \DeclareUnicodeCharacter{0233}{\=y}
8721
  \DeclareUnicodeCharacter{0237}{\dotless{j}}
8722
 
8723
  \DeclareUnicodeCharacter{02DB}{\ogonek{ }}
8724
 
8725
  \DeclareUnicodeCharacter{1E02}{\dotaccent{B}}
8726
  \DeclareUnicodeCharacter{1E03}{\dotaccent{b}}
8727
  \DeclareUnicodeCharacter{1E04}{\udotaccent{B}}
8728
  \DeclareUnicodeCharacter{1E05}{\udotaccent{b}}
8729
  \DeclareUnicodeCharacter{1E06}{\ubaraccent{B}}
8730
  \DeclareUnicodeCharacter{1E07}{\ubaraccent{b}}
8731
  \DeclareUnicodeCharacter{1E0A}{\dotaccent{D}}
8732
  \DeclareUnicodeCharacter{1E0B}{\dotaccent{d}}
8733
  \DeclareUnicodeCharacter{1E0C}{\udotaccent{D}}
8734
  \DeclareUnicodeCharacter{1E0D}{\udotaccent{d}}
8735
  \DeclareUnicodeCharacter{1E0E}{\ubaraccent{D}}
8736
  \DeclareUnicodeCharacter{1E0F}{\ubaraccent{d}}
8737
 
8738
  \DeclareUnicodeCharacter{1E1E}{\dotaccent{F}}
8739
  \DeclareUnicodeCharacter{1E1F}{\dotaccent{f}}
8740
 
8741
  \DeclareUnicodeCharacter{1E20}{\=G}
8742
  \DeclareUnicodeCharacter{1E21}{\=g}
8743
  \DeclareUnicodeCharacter{1E22}{\dotaccent{H}}
8744
  \DeclareUnicodeCharacter{1E23}{\dotaccent{h}}
8745
  \DeclareUnicodeCharacter{1E24}{\udotaccent{H}}
8746
  \DeclareUnicodeCharacter{1E25}{\udotaccent{h}}
8747
  \DeclareUnicodeCharacter{1E26}{\"H}
8748
  \DeclareUnicodeCharacter{1E27}{\"h}
8749
 
8750
  \DeclareUnicodeCharacter{1E30}{\'K}
8751
  \DeclareUnicodeCharacter{1E31}{\'k}
8752
  \DeclareUnicodeCharacter{1E32}{\udotaccent{K}}
8753
  \DeclareUnicodeCharacter{1E33}{\udotaccent{k}}
8754
  \DeclareUnicodeCharacter{1E34}{\ubaraccent{K}}
8755
  \DeclareUnicodeCharacter{1E35}{\ubaraccent{k}}
8756
  \DeclareUnicodeCharacter{1E36}{\udotaccent{L}}
8757
  \DeclareUnicodeCharacter{1E37}{\udotaccent{l}}
8758
  \DeclareUnicodeCharacter{1E3A}{\ubaraccent{L}}
8759
  \DeclareUnicodeCharacter{1E3B}{\ubaraccent{l}}
8760
  \DeclareUnicodeCharacter{1E3E}{\'M}
8761
  \DeclareUnicodeCharacter{1E3F}{\'m}
8762
 
8763
  \DeclareUnicodeCharacter{1E40}{\dotaccent{M}}
8764
  \DeclareUnicodeCharacter{1E41}{\dotaccent{m}}
8765
  \DeclareUnicodeCharacter{1E42}{\udotaccent{M}}
8766
  \DeclareUnicodeCharacter{1E43}{\udotaccent{m}}
8767
  \DeclareUnicodeCharacter{1E44}{\dotaccent{N}}
8768
  \DeclareUnicodeCharacter{1E45}{\dotaccent{n}}
8769
  \DeclareUnicodeCharacter{1E46}{\udotaccent{N}}
8770
  \DeclareUnicodeCharacter{1E47}{\udotaccent{n}}
8771
  \DeclareUnicodeCharacter{1E48}{\ubaraccent{N}}
8772
  \DeclareUnicodeCharacter{1E49}{\ubaraccent{n}}
8773
 
8774
  \DeclareUnicodeCharacter{1E54}{\'P}
8775
  \DeclareUnicodeCharacter{1E55}{\'p}
8776
  \DeclareUnicodeCharacter{1E56}{\dotaccent{P}}
8777
  \DeclareUnicodeCharacter{1E57}{\dotaccent{p}}
8778
  \DeclareUnicodeCharacter{1E58}{\dotaccent{R}}
8779
  \DeclareUnicodeCharacter{1E59}{\dotaccent{r}}
8780
  \DeclareUnicodeCharacter{1E5A}{\udotaccent{R}}
8781
  \DeclareUnicodeCharacter{1E5B}{\udotaccent{r}}
8782
  \DeclareUnicodeCharacter{1E5E}{\ubaraccent{R}}
8783
  \DeclareUnicodeCharacter{1E5F}{\ubaraccent{r}}
8784
 
8785
  \DeclareUnicodeCharacter{1E60}{\dotaccent{S}}
8786
  \DeclareUnicodeCharacter{1E61}{\dotaccent{s}}
8787
  \DeclareUnicodeCharacter{1E62}{\udotaccent{S}}
8788
  \DeclareUnicodeCharacter{1E63}{\udotaccent{s}}
8789
  \DeclareUnicodeCharacter{1E6A}{\dotaccent{T}}
8790
  \DeclareUnicodeCharacter{1E6B}{\dotaccent{t}}
8791
  \DeclareUnicodeCharacter{1E6C}{\udotaccent{T}}
8792
  \DeclareUnicodeCharacter{1E6D}{\udotaccent{t}}
8793
  \DeclareUnicodeCharacter{1E6E}{\ubaraccent{T}}
8794
  \DeclareUnicodeCharacter{1E6F}{\ubaraccent{t}}
8795
 
8796
  \DeclareUnicodeCharacter{1E7C}{\~V}
8797
  \DeclareUnicodeCharacter{1E7D}{\~v}
8798
  \DeclareUnicodeCharacter{1E7E}{\udotaccent{V}}
8799
  \DeclareUnicodeCharacter{1E7F}{\udotaccent{v}}
8800
 
8801
  \DeclareUnicodeCharacter{1E80}{\`W}
8802
  \DeclareUnicodeCharacter{1E81}{\`w}
8803
  \DeclareUnicodeCharacter{1E82}{\'W}
8804
  \DeclareUnicodeCharacter{1E83}{\'w}
8805
  \DeclareUnicodeCharacter{1E84}{\"W}
8806
  \DeclareUnicodeCharacter{1E85}{\"w}
8807
  \DeclareUnicodeCharacter{1E86}{\dotaccent{W}}
8808
  \DeclareUnicodeCharacter{1E87}{\dotaccent{w}}
8809
  \DeclareUnicodeCharacter{1E88}{\udotaccent{W}}
8810
  \DeclareUnicodeCharacter{1E89}{\udotaccent{w}}
8811
  \DeclareUnicodeCharacter{1E8A}{\dotaccent{X}}
8812
  \DeclareUnicodeCharacter{1E8B}{\dotaccent{x}}
8813
  \DeclareUnicodeCharacter{1E8C}{\"X}
8814
  \DeclareUnicodeCharacter{1E8D}{\"x}
8815
  \DeclareUnicodeCharacter{1E8E}{\dotaccent{Y}}
8816
  \DeclareUnicodeCharacter{1E8F}{\dotaccent{y}}
8817
 
8818
  \DeclareUnicodeCharacter{1E90}{\^Z}
8819
  \DeclareUnicodeCharacter{1E91}{\^z}
8820
  \DeclareUnicodeCharacter{1E92}{\udotaccent{Z}}
8821
  \DeclareUnicodeCharacter{1E93}{\udotaccent{z}}
8822
  \DeclareUnicodeCharacter{1E94}{\ubaraccent{Z}}
8823
  \DeclareUnicodeCharacter{1E95}{\ubaraccent{z}}
8824
  \DeclareUnicodeCharacter{1E96}{\ubaraccent{h}}
8825
  \DeclareUnicodeCharacter{1E97}{\"t}
8826
  \DeclareUnicodeCharacter{1E98}{\ringaccent{w}}
8827
  \DeclareUnicodeCharacter{1E99}{\ringaccent{y}}
8828
 
8829
  \DeclareUnicodeCharacter{1EA0}{\udotaccent{A}}
8830
  \DeclareUnicodeCharacter{1EA1}{\udotaccent{a}}
8831
 
8832
  \DeclareUnicodeCharacter{1EB8}{\udotaccent{E}}
8833
  \DeclareUnicodeCharacter{1EB9}{\udotaccent{e}}
8834
  \DeclareUnicodeCharacter{1EBC}{\~E}
8835
  \DeclareUnicodeCharacter{1EBD}{\~e}
8836
 
8837
  \DeclareUnicodeCharacter{1ECA}{\udotaccent{I}}
8838
  \DeclareUnicodeCharacter{1ECB}{\udotaccent{i}}
8839
  \DeclareUnicodeCharacter{1ECC}{\udotaccent{O}}
8840
  \DeclareUnicodeCharacter{1ECD}{\udotaccent{o}}
8841
 
8842
  \DeclareUnicodeCharacter{1EE4}{\udotaccent{U}}
8843
  \DeclareUnicodeCharacter{1EE5}{\udotaccent{u}}
8844
 
8845
  \DeclareUnicodeCharacter{1EF2}{\`Y}
8846
  \DeclareUnicodeCharacter{1EF3}{\`y}
8847
  \DeclareUnicodeCharacter{1EF4}{\udotaccent{Y}}
8848
 
8849
  \DeclareUnicodeCharacter{1EF8}{\~Y}
8850
  \DeclareUnicodeCharacter{1EF9}{\~y}
8851
 
8852
  \DeclareUnicodeCharacter{2013}{--}
8853
  \DeclareUnicodeCharacter{2014}{---}
8854
  \DeclareUnicodeCharacter{2018}{\quoteleft}
8855
  \DeclareUnicodeCharacter{2019}{\quoteright}
8856
  \DeclareUnicodeCharacter{201A}{\quotesinglbase}
8857
  \DeclareUnicodeCharacter{201C}{\quotedblleft}
8858
  \DeclareUnicodeCharacter{201D}{\quotedblright}
8859
  \DeclareUnicodeCharacter{201E}{\quotedblbase}
8860
  \DeclareUnicodeCharacter{2022}{\bullet}
8861
  \DeclareUnicodeCharacter{2026}{\dots}
8862
  \DeclareUnicodeCharacter{2039}{\guilsinglleft}
8863
  \DeclareUnicodeCharacter{203A}{\guilsinglright}
8864
  \DeclareUnicodeCharacter{20AC}{\euro}
8865
 
8866
  \DeclareUnicodeCharacter{2192}{\expansion}
8867
  \DeclareUnicodeCharacter{21D2}{\result}
8868
 
8869
  \DeclareUnicodeCharacter{2212}{\minus}
8870
  \DeclareUnicodeCharacter{2217}{\point}
8871
  \DeclareUnicodeCharacter{2261}{\equiv}
8872
}% end of \utfeightchardefs
8873
 
8874
 
8875
% US-ASCII character definitions.
8876
\def\asciichardefs{% nothing need be done
8877
   \relax
8878
}
8879
 
8880
% Make non-ASCII characters printable again for compatibility with
8881
% existing Texinfo documents that may use them, even without declaring a
8882
% document encoding.
8883
%
8884
\setnonasciicharscatcode \other
8885
 
8886
 
8887
\message{formatting,}
8888
 
8889
\newdimen\defaultparindent \defaultparindent = 15pt
8890
 
8891
\chapheadingskip = 15pt plus 4pt minus 2pt
8892
\secheadingskip = 12pt plus 3pt minus 2pt
8893
\subsecheadingskip = 9pt plus 2pt minus 2pt
8894
 
8895
% Prevent underfull vbox error messages.
8896
\vbadness = 10000
8897
 
8898
% Don't be so finicky about underfull hboxes, either.
8899
\hbadness = 2000
8900
 
8901
% Following George Bush, get rid of widows and orphans.
8902
\widowpenalty=10000
8903
\clubpenalty=10000
8904
 
8905
% Use TeX 3.0's \emergencystretch to help line breaking, but if we're
8906
% using an old version of TeX, don't do anything.  We want the amount of
8907
% stretch added to depend on the line length, hence the dependence on
8908
% \hsize.  We call this whenever the paper size is set.
8909
%
8910
\def\setemergencystretch{%
8911
  \ifx\emergencystretch\thisisundefined
8912
    % Allow us to assign to \emergencystretch anyway.
8913
    \def\emergencystretch{\dimen0}%
8914
  \else
8915
    \emergencystretch = .15\hsize
8916
  \fi
8917
}
8918
 
8919
% Parameters in order: 1) textheight; 2) textwidth;
8920
% 3) voffset; 4) hoffset; 5) binding offset; 6) topskip;
8921
% 7) physical page height; 8) physical page width.
8922
%
8923
% We also call \setleading{\textleading}, so the caller should define
8924
% \textleading.  The caller should also set \parskip.
8925
%
8926
\def\internalpagesizes#1#2#3#4#5#6#7#8{%
8927
  \voffset = #3\relax
8928
  \topskip = #6\relax
8929
  \splittopskip = \topskip
8930
  %
8931
  \vsize = #1\relax
8932
  \advance\vsize by \topskip
8933
  \outervsize = \vsize
8934
  \advance\outervsize by 2\topandbottommargin
8935
  \pageheight = \vsize
8936
  %
8937
  \hsize = #2\relax
8938
  \outerhsize = \hsize
8939
  \advance\outerhsize by 0.5in
8940
  \pagewidth = \hsize
8941
  %
8942
  \normaloffset = #4\relax
8943
  \bindingoffset = #5\relax
8944
  %
8945
  \ifpdf
8946
    \pdfpageheight #7\relax
8947
    \pdfpagewidth #8\relax
8948
    % if we don't reset these, they will remain at "1 true in" of
8949
    % whatever layout pdftex was dumped with.
8950
    \pdfhorigin = 1 true in
8951
    \pdfvorigin = 1 true in
8952
  \fi
8953
  %
8954
  \setleading{\textleading}
8955
  %
8956
  \parindent = \defaultparindent
8957
  \setemergencystretch
8958
}
8959
 
8960
% @letterpaper (the default).
8961
\def\letterpaper{{\globaldefs = 1
8962
  \parskip = 3pt plus 2pt minus 1pt
8963
  \textleading = 13.2pt
8964
  %
8965
  % If page is nothing but text, make it come out even.
8966
  \internalpagesizes{607.2pt}{6in}% that's 46 lines
8967
                    {\voffset}{.25in}%
8968
                    {\bindingoffset}{36pt}%
8969
                    {11in}{8.5in}%
8970
}}
8971
 
8972
% Use @smallbook to reset parameters for 7x9.25 trim size.
8973
\def\smallbook{{\globaldefs = 1
8974
  \parskip = 2pt plus 1pt
8975
  \textleading = 12pt
8976
  %
8977
  \internalpagesizes{7.5in}{5in}%
8978
                    {-.2in}{0in}%
8979
                    {\bindingoffset}{16pt}%
8980
                    {9.25in}{7in}%
8981
  %
8982
  \lispnarrowing = 0.3in
8983
  \tolerance = 700
8984
  \hfuzz = 1pt
8985
  \contentsrightmargin = 0pt
8986
  \defbodyindent = .5cm
8987
}}
8988
 
8989
% Use @smallerbook to reset parameters for 6x9 trim size.
8990
% (Just testing, parameters still in flux.)
8991
\def\smallerbook{{\globaldefs = 1
8992
  \parskip = 1.5pt plus 1pt
8993
  \textleading = 12pt
8994
  %
8995
  \internalpagesizes{7.4in}{4.8in}%
8996
                    {-.2in}{-.4in}%
8997
                    {0pt}{14pt}%
8998
                    {9in}{6in}%
8999
  %
9000
  \lispnarrowing = 0.25in
9001
  \tolerance = 700
9002
  \hfuzz = 1pt
9003
  \contentsrightmargin = 0pt
9004
  \defbodyindent = .4cm
9005
}}
9006
 
9007
% Use @afourpaper to print on European A4 paper.
9008
\def\afourpaper{{\globaldefs = 1
9009
  \parskip = 3pt plus 2pt minus 1pt
9010
  \textleading = 13.2pt
9011
  %
9012
  % Double-side printing via postscript on Laserjet 4050
9013
  % prints double-sided nicely when \bindingoffset=10mm and \hoffset=-6mm.
9014
  % To change the settings for a different printer or situation, adjust
9015
  % \normaloffset until the front-side and back-side texts align.  Then
9016
  % do the same for \bindingoffset.  You can set these for testing in
9017
  % your texinfo source file like this:
9018
  % @tex
9019
  % \global\normaloffset = -6mm
9020
  % \global\bindingoffset = 10mm
9021
  % @end tex
9022
  \internalpagesizes{673.2pt}{160mm}% that's 51 lines
9023
                    {\voffset}{\hoffset}%
9024
                    {\bindingoffset}{44pt}%
9025
                    {297mm}{210mm}%
9026
  %
9027
  \tolerance = 700
9028
  \hfuzz = 1pt
9029
  \contentsrightmargin = 0pt
9030
  \defbodyindent = 5mm
9031
}}
9032
 
9033
% Use @afivepaper to print on European A5 paper.
9034
% From romildo@urano.iceb.ufop.br, 2 July 2000.
9035
% He also recommends making @example and @lisp be small.
9036
\def\afivepaper{{\globaldefs = 1
9037
  \parskip = 2pt plus 1pt minus 0.1pt
9038
  \textleading = 12.5pt
9039
  %
9040
  \internalpagesizes{160mm}{120mm}%
9041
                    {\voffset}{\hoffset}%
9042
                    {\bindingoffset}{8pt}%
9043
                    {210mm}{148mm}%
9044
  %
9045
  \lispnarrowing = 0.2in
9046
  \tolerance = 800
9047
  \hfuzz = 1.2pt
9048
  \contentsrightmargin = 0pt
9049
  \defbodyindent = 2mm
9050
  \tableindent = 12mm
9051
}}
9052
 
9053
% A specific text layout, 24x15cm overall, intended for A4 paper.
9054
\def\afourlatex{{\globaldefs = 1
9055
  \afourpaper
9056
  \internalpagesizes{237mm}{150mm}%
9057
                    {\voffset}{4.6mm}%
9058
                    {\bindingoffset}{7mm}%
9059
                    {297mm}{210mm}%
9060
  %
9061
  % Must explicitly reset to 0 because we call \afourpaper.
9062
  \globaldefs = 0
9063
}}
9064
 
9065
% Use @afourwide to print on A4 paper in landscape format.
9066
\def\afourwide{{\globaldefs = 1
9067
  \afourpaper
9068
  \internalpagesizes{241mm}{165mm}%
9069
                    {\voffset}{-2.95mm}%
9070
                    {\bindingoffset}{7mm}%
9071
                    {297mm}{210mm}%
9072
  \globaldefs = 0
9073
}}
9074
 
9075
% @pagesizes TEXTHEIGHT[,TEXTWIDTH]
9076
% Perhaps we should allow setting the margins, \topskip, \parskip,
9077
% and/or leading, also. Or perhaps we should compute them somehow.
9078
%
9079
\parseargdef\pagesizes{\pagesizesyyy #1,,\finish}
9080
\def\pagesizesyyy#1,#2,#3\finish{{%
9081
  \setbox0 = \hbox{\ignorespaces #2}\ifdim\wd0 > 0pt \hsize=#2\relax \fi
9082
  \globaldefs = 1
9083
  %
9084
  \parskip = 3pt plus 2pt minus 1pt
9085
  \setleading{\textleading}%
9086
  %
9087
  \dimen0 = #1\relax
9088
  \advance\dimen0 by \voffset
9089
  %
9090
  \dimen2 = \hsize
9091
  \advance\dimen2 by \normaloffset
9092
  %
9093
  \internalpagesizes{#1}{\hsize}%
9094
                    {\voffset}{\normaloffset}%
9095
                    {\bindingoffset}{44pt}%
9096
                    {\dimen0}{\dimen2}%
9097
}}
9098
 
9099
% Set default to letter.
9100
%
9101
\letterpaper
9102
 
9103
 
9104
\message{and turning on texinfo input format.}
9105
 
9106
% DEL is a comment character, in case @c does not suffice.
9107
\catcode`\^^? = 14
9108
 
9109
% Define macros to output various characters with catcode for normal text.
9110
\catcode`\"=\other
9111
\catcode`\~=\other
9112
\catcode`\^=\other
9113
\catcode`\_=\other
9114
\catcode`\|=\other
9115
\catcode`\<=\other
9116
\catcode`\>=\other
9117
\catcode`\+=\other
9118
\catcode`\$=\other
9119
\def\normaldoublequote{"}
9120
\def\normaltilde{~}
9121
\def\normalcaret{^}
9122
\def\normalunderscore{_}
9123
\def\normalverticalbar{|}
9124
\def\normalless{<}
9125
\def\normalgreater{>}
9126
\def\normalplus{+}
9127
\def\normaldollar{$}%$ font-lock fix
9128
 
9129
% This macro is used to make a character print one way in \tt
9130
% (where it can probably be output as-is), and another way in other fonts,
9131
% where something hairier probably needs to be done.
9132
%
9133
% #1 is what to print if we are indeed using \tt; #2 is what to print
9134
% otherwise.  Since all the Computer Modern typewriter fonts have zero
9135
% interword stretch (and shrink), and it is reasonable to expect all
9136
% typewriter fonts to have this, we can check that font parameter.
9137
%
9138
\def\ifusingtt#1#2{\ifdim \fontdimen3\font=0pt #1\else #2\fi}
9139
 
9140
% Same as above, but check for italic font.  Actually this also catches
9141
% non-italic slanted fonts since it is impossible to distinguish them from
9142
% italic fonts.  But since this is only used by $ and it uses \sl anyway
9143
% this is not a problem.
9144
\def\ifusingit#1#2{\ifdim \fontdimen1\font>0pt #1\else #2\fi}
9145
 
9146
% Turn off all special characters except @
9147
% (and those which the user can use as if they were ordinary).
9148
% Most of these we simply print from the \tt font, but for some, we can
9149
% use math or other variants that look better in normal text.
9150
 
9151
\catcode`\"=\active
9152
\def\activedoublequote{{\tt\char34}}
9153
\let"=\activedoublequote
9154
\catcode`\~=\active
9155
\def~{{\tt\char126}}
9156
\chardef\hat=`\^
9157
\catcode`\^=\active
9158
\def^{{\tt \hat}}
9159
 
9160
\catcode`\_=\active
9161
\def_{\ifusingtt\normalunderscore\_}
9162
\let\realunder=_
9163
% Subroutine for the previous macro.
9164
\def\_{\leavevmode \kern.07em \vbox{\hrule width.3em height.1ex}\kern .07em }
9165
 
9166
\catcode`\|=\active
9167
\def|{{\tt\char124}}
9168
\chardef \less=`\<
9169
\catcode`\<=\active
9170
\def<{{\tt \less}}
9171
\chardef \gtr=`\>
9172
\catcode`\>=\active
9173
\def>{{\tt \gtr}}
9174
\catcode`\+=\active
9175
\def+{{\tt \char 43}}
9176
\catcode`\$=\active
9177
\def${\ifusingit{{\sl\$}}\normaldollar}%$ font-lock fix
9178
 
9179
% If a .fmt file is being used, characters that might appear in a file
9180
% name cannot be active until we have parsed the command line.
9181
% So turn them off again, and have \everyjob (or @setfilename) turn them on.
9182
% \otherifyactive is called near the end of this file.
9183
\def\otherifyactive{\catcode`+=\other \catcode`\_=\other}
9184
 
9185
% Used sometimes to turn off (effectively) the active characters even after
9186
% parsing them.
9187
\def\turnoffactive{%
9188
  \normalturnoffactive
9189
  \otherbackslash
9190
}
9191
 
9192
\catcode`\@=0
9193
 
9194
% \backslashcurfont outputs one backslash character in current font,
9195
% as in \char`\\.
9196
\global\chardef\backslashcurfont=`\\
9197
\global\let\rawbackslashxx=\backslashcurfont  % let existing .??s files work
9198
 
9199
% \realbackslash is an actual character `\' with catcode other, and
9200
% \doublebackslash is two of them (for the pdf outlines).
9201
{\catcode`\\=\other @gdef@realbackslash{\} @gdef@doublebackslash{\\}}
9202
 
9203
% In texinfo, backslash is an active character; it prints the backslash
9204
% in fixed width font.
9205
\catcode`\\=\active
9206
@def@normalbackslash{{@tt@backslashcurfont}}
9207
% On startup, @fixbackslash assigns:
9208
%  @let \ = @normalbackslash
9209
 
9210
% \rawbackslash defines an active \ to do \backslashcurfont.
9211
% \otherbackslash defines an active \ to be a literal `\' character with
9212
% catcode other.
9213
@gdef@rawbackslash{@let\=@backslashcurfont}
9214
@gdef@otherbackslash{@let\=@realbackslash}
9215
 
9216
% Same as @turnoffactive except outputs \ as {\tt\char`\\} instead of
9217
% the literal character `\'.
9218
%
9219
@def@normalturnoffactive{%
9220
  @let\=@normalbackslash
9221
  @let"=@normaldoublequote
9222
  @let~=@normaltilde
9223
  @let^=@normalcaret
9224
  @let_=@normalunderscore
9225
  @let|=@normalverticalbar
9226
  @let<=@normalless
9227
  @let>=@normalgreater
9228
  @let+=@normalplus
9229
  @let$=@normaldollar %$ font-lock fix
9230
  @markupsetuplqdefault
9231
  @markupsetuprqdefault
9232
  @unsepspaces
9233
}
9234
 
9235
% Make _ and + \other characters, temporarily.
9236
% This is canceled by @fixbackslash.
9237
@otherifyactive
9238
 
9239
% If a .fmt file is being used, we don't want the `\input texinfo' to show up.
9240
% That is what \eatinput is for; after that, the `\' should revert to printing
9241
% a backslash.
9242
%
9243
@gdef@eatinput input texinfo{@fixbackslash}
9244
@global@let\ = @eatinput
9245
 
9246
% On the other hand, perhaps the file did not have a `\input texinfo'. Then
9247
% the first `\' in the file would cause an error. This macro tries to fix
9248
% that, assuming it is called before the first `\' could plausibly occur.
9249
% Also turn back on active characters that might appear in the input
9250
% file name, in case not using a pre-dumped format.
9251
%
9252
@gdef@fixbackslash{%
9253
  @ifx\@eatinput @let\ = @normalbackslash @fi
9254
  @catcode`+=@active
9255
  @catcode`@_=@active
9256
}
9257
 
9258
% Say @foo, not \foo, in error messages.
9259
@escapechar = `@@
9260
 
9261
% These look ok in all fonts, so just make them not special.
9262
@catcode`@& = @other
9263
@catcode`@# = @other
9264
@catcode`@% = @other
9265
 
9266
@c Finally, make ` and ' active, so that txicodequoteundirected and
9267
@c txicodequotebacktick work right in, e.g., @w{@code{`foo'}}.  If we
9268
@c don't make ` and ' active, @code will not get them as active chars.
9269
@c Do this last of all since we use ` in the previous @catcode assignments.
9270
@catcode`@'=@active
9271
@catcode`@`=@active
9272
@markupsetuplqdefault
9273
@markupsetuprqdefault
9274
 
9275
@c Gnulib now utterly and painfully insists on no trailing whitespace.
9276
@c So we have to nuke it.
9277
 
9278
@c Local variables:
9279
@c eval: (add-hook 'write-file-hooks 'time-stamp)
9280
@c eval: (add-hook 'write-file-hooks 'nuke-trailing-whitespace)
9281
@c page-delimiter: "^\\\\message"
9282
@c time-stamp-start: "def\\\\texinfoversion{"
9283
@c time-stamp-format: "%:y-%02m-%02d.%02H"
9284
@c time-stamp-end: "}"
9285
@c End:
9286
 
9287
@c vim:sw=2:
9288
 
9289
@ignore
9290
   arch-tag: e1b36e32-c96e-4135-a41a-0b2efa2ea115
9291
@end ignore

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.