| blob | d28f2921f06274a53b6bf36b4fd0de8836eb9139 |
1 % \iffalse meta-comment
2 %
3 % Copyright 1993-2014
4 % The LaTeX3 Project and any individual authors listed elsewhere
5 % in this file.
6 %
7 % This file is part of the LaTeX base system.
8 % -------------------------------------------
9 %
10 % It may be distributed and/or modified under the
11 % conditions of the LaTeX Project Public License, either version 1.3c
12 % of this license or (at your option) any later version.
13 % The latest version of this license is in
14 % http://www.latex-project.org/lppl.txt
15 % and version 1.3c or later is part of all distributions of LaTeX
16 % version 2005/12/01 or later.
17 %
18 % This file has the LPPL maintenance status "maintained".
19 %
20 % The list of all files belonging to the LaTeX base distribution is
21 % given in the file `manifest.txt'. See also `legal.txt' for additional
22 % information.
23 %
24 % The list of derived (unpacked) files belonging to the distribution
25 % and covered by LPPL is defined by the unpacking scripts (with
26 % extension .ins) which are part of the distribution.
27 %
28 % \fi
29 % \iffalse
30 %%% From File: ltmiscen.dtx
31 %
32 %<*driver>
33 % \fi
34 \ProvidesFile{ltmiscen.dtx}
35 [2014/09/29 v1.1l LaTeX Kernel (Misc. Environments)]
36 % \iffalse
37 \documentclass{ltxdoc}
38 \GetFileInfo{ltmiscen.dtx}
39 \title{\filename}
40 \date{\filedate}
41 \author{%
42 Johannes Braams\and
43 David Carlisle\and
44 Alan Jeffrey\and
45 Leslie Lamport\and
46 Frank Mittelbach\and
47 Chris Rowley\and
48 Rainer Sch\"opf}
50 \begin{document}
51 \MaintainedByLaTeXTeam{latex}
52 \maketitle
53 \DocInput{\filename}
54 \end{document}
55 %</driver>
56 % \fi
57 %
58 %
59 % \changes{v1.0c}{1994/03/28}{Improve Documentation}
60 % \changes{v1.0d}{1994/03/29}{Remove counter macros to ltcntlen}
61 % \changes{v1.0g}{1994/05/02}{Changed 91 to 1991 and moved some bits}
62 % \changes{v1.0i}{1994/05/05}{Removed braces from ifnextchar and
63 % ifstar arguments}
64 % \changes{v1.0m}{1994/05/20}{Use new warning commands}
65 % \changes{v1.0n}{1994/05/21}{Use new error commands}
66 % \changes{v1.0s}{1994/10/14}{Move math to other file}
67 % \changes{v1.0v}{1994/11/17}
68 % {\cs{@tempa} to \cs{reserved@a}}
69 % \changes{v1.0x}{1995/04/22}{Removed extra def of \cs{@gobble}}
70 % \changes{v1.0z}{1995/07/13}{Improve Documentation}
71 % \changes{v1.1c}{1996/04/22}{Improve Documentation}
72 % \changes{v1.1d}{1996/06/03}{Move setting of verbatim font and
73 % \cs{@noligs}.}
74 % \changes{v1.1g}{1998/08/17}{(RmS) Minor documentation fixes.}
75 %
76 % \section{Miscellaneous Environments}
77 % This section implements the basic environment mechanism, and also
78 % a few specific environments including |document|, The math
79 % environments and related commands, the `flushing' environments,
80 % (|center|, |flushleft|, |flushright|), and |verbatim|.
81 %
82 % \StopEventually{}
83 %
84 % \begin{macrocode}
85 %<*2ekernel>
86 \message{environments,}
87 % \end{macrocode}
88 %
89 % \subsection{Environments}
90 %
91 % |\begin{foo}| and |\end{foo}| are used to delimit environment |foo|.
92 %
93 % |\begin{foo}| starts a group and calls |\foo| if it is defined,
94 % otherwise it does nothing.
95 %
96 % |\end{foo}| checks to see that it matches the
97 % corresponding |\begin| and if so, it calls |\endfoo| and does an
98 % |\endgroup|. Otherwise, |\end{foo}| does nothing.
99 %
100 % If |\end{foo}| needs to ignore blanks after it, then |\endfoo| should
101 % globally set the |@ignore| switch true with |\@ignoretrue|
102 % (this will automatically be global).
103 %
104 %
105 % NOTE: |\@@end| is defined to be the |\end| command of \TeX82.
106 %
107 % |\enddocument| is the user's command for ending the manuscript file.
108 %
109 % |\stop| is a panic button --- to end \TeX\ in the middle.
110 %
111 % \begin{oldcomments}
112 % \enddocument ==
113 % BEGIN
114 % \@checkend{document} %% checks for unmatched \begin
115 % \clearpage
116 % \begingroup
117 % if @filesw = true
118 % then close file @mainaux
119 % if G@refundefined = true
120 % then LaTeX Warning: 'There are undefined references.' fi
121 % if @multiplelabels = true
122 % then LaTeX Warning:
123 % 'One or more label(s) multiply defined.'
124 % else
125 % \@setckpt {ARG1}{ARG2} == null
126 % \newlabel{LABEL}{VAL} ==
127 % BEGIN
128 % \reserved@a == VAL
129 % if def(\reserved@a) = def(\r@LABEL)
130 % else @tempswa := true fi
131 % END
132 % \bibcite{LABEL}{VAL} == null
133 % BEGIN
134 % \reserved@a == VAL
135 % if def(\reserved@a) = def(\g@LABEL)
136 % else @tempswa := true fi
137 % END
138 % @tempswa := false
139 % make @ a letter
140 % \input \jobname.AUX
141 % if @tempswa = true
142 % then LaTeX Warning: 'Label may have changed.
143 % Rerun to get cross-references right.'
144 % fi fi fi
145 % \endgroup
146 % finish up
147 % END
148 %
149 % \@writefile{EXT}{ENTRY} ==
150 % if tf@EXT undefined
151 % else \write\tf@EXT{ENTRY}
152 % fi
153 % \end{oldcomments}
154 %
155 % \begin{macro}{\@currenvir}
156 % The name of the current environment. Initialized to
157 % \texttt{document} to so that |\end{document}| works correctly.
158 % \begin{macrocode}
159 \def\@currenvir{document}
160 % \end{macrocode}
161 % \end{macro}
162 %
163 % \begin{macro}{\if@ignore}
164 % \begin{macro}{\@ignoretrue}
165 % \begin{macro}{\@ignorefalse}
166 % \changes{v1.1e}{1996/07/26}{put \cs{global} into definition}
167 % \begin{macrocode}
168 \def\@ignorefalse{\global\let\if@ignore\iffalse}
169 \def\@ignoretrue {\global\let\if@ignore\iftrue}
170 \@ignorefalse
171 % \end{macrocode}
172 % \end{macro}
173 % \end{macro}
174 % \end{macro}
175 %
176 %
177 % \begin{macro}{\ignorespacesafterend}
178 % \changes{v1.1e}{1996/07/26}{user level macro added}
179 % \begin{macrocode}
180 \let\ignorespacesafterend\@ignoretrue
181 % \end{macrocode}
182 % \end{macro}
183 %
184 % \begin{macro}{\enddocument}
185 % \changes{LaTeX2.09}{1993/08/03}
186 % {Changed redefinition of \cs{global} to redefinition
187 % of \cs{@setckpt}.}
188 % \changes{LaTeX2.09}{1993/09/08}
189 % {Added warning in case of undefined references.}%
190 % \changes{v0.9e}{1993/12/09}{Hook added}
191 % \begin{macrocode}
192 \def\enddocument{%
193 % \end{macrocode}
194 % The |\end{document}| hook is executed first. If necessary it can
195 % contain a |\clearpage| to output dangling floats first. In this
196 % position it can also contain something like |\end{foo}| so that
197 % the whole document effectively starts and ends with some special
198 % environment. However, this must be used with care, eg if two
199 % applications would use this without knowledge of each other the
200 % order of the environments will be wrong after all.
201 % |\AtEndDocument| is redefined
202 % at this point so that and such commands that get into the hook do
203 % not chase their tail\ldots
204 % \changes{v1.0y}{1995/04/27}{\cs{@checkend} moved after hook}
205 % \changes{v1.0z}{1995/07/13}{Set \cs{@setckpt} to \cs{@gobbletwo}
206 % instead of defining it by hand}
207 % \changes{v1.1i}{2000/05/19}
208 % {Reset \cs{AtEndDocument} for latex/3060}
209 % \begin{macrocode}
210 \let\AtEndDocument\@firstofone
211 \@enddocumenthook
212 \@checkend{document}%
213 \clearpage
214 \begingroup
215 \if@filesw
216 \immediate\closeout\@mainaux
217 \let\@setckpt\@gobbletwo
218 \let\@newl@bel\@testdef
219 % \end{macrocode}
220 % \changes{v1.0z}{1995/07/13}{Shorten redefinition of \cs{bibcite} and
221 % \cs{newlabel}}
222 % The previous line is equiv to setting
223 %\begin{verbatim}
224 % \def\newlabel{\@testdef r}%
225 % \def\bibcite{\@testdef b}%
226 %\end{verbatim}
227 % \changes{v1.1k}{2010/08/17}{Use braces around \cs{input} arg (pr/4124)}
228 % \changes{v1.1l}{2010/08/17}{Change of plan: use \cs{@@input} instead
229 % (pr/4124)}
230 % We use |\@@input| to load the \texttt{.aux} file, so that it doesn't
231 % show up in the list of files produced by |\listfiles|.
232 % \begin{macrocode}
233 \@tempswafalse
234 \makeatletter \@@input\jobname.aux
235 \fi
236 % \end{macrocode}
237 % \changes{v1.0w}{1994/11/30}
238 % {(DPC) Use \cs{@dofilelist}}
239 % \begin{macrocode}
240 \@dofilelist
241 % \end{macrocode}
242 % First we check for font size substitution bigger than
243 % |\fontsubfuzz|. The |\relax| is necessary because this is a macro
244 % not a register.
245 % \changes{v1.0w}{1994/11/30}
246 % {(DPC) Do warnings even for \cs{nofiles}}
247 % \begin{macrocode}
248 \ifdim \font@submax >\fontsubfuzz\relax
249 % \end{macrocode}
250 % In case you wonder about the |\@gobbletwo| inside the message
251 % below, this is a horrible hack to remove the tokens |\on@line.|
252 % that are added by |\@font@warning| at the end.
253 % \changes{v1.1j}{2000/07/11}{Fix typo in warning}
254 % \begin{macrocode}
255 \@font@warning{Size substitutions with differences\MessageBreak
256 up to \font@submax\space have occurred.\@gobbletwo}%
257 \fi
258 % \end{macrocode}
259 % The macro |\@defaultsubs| is initially |\relax| but gets redefined
260 % to produce
261 % a warning if there have been some default font substitutions.
262 % \changes{v1.0z}{1995/07/13}{Use \cs{@defaultsubs} instead of switch}
263 % \begin{macrocode}
264 \@defaultsubs
265 % \end{macrocode}
266 % The macro |\@refundefined| is initially |\relax| but gets redefined
267 % to produce a warning if there are undefined refs.
268 % \changes{v1.1b}{1995/10/24}{Use \cs{@refundefined} instead of switch}
269 % \begin{macrocode}
270 \@refundefined
271 % \end{macrocode}
272 % If a label is defined more than once, |\@tempswa| will always be
273 % true and thus produce a ``Label(s) may \ldots'' warning. But
274 % since a rerun will not solve that problem (unless one uses a
275 % package like \texttt{varioref} that generates labels on the fly),
276 % we suppress this message.
277 % \changes{v1.0e}{1994/04/20}{Changed logic for producing
278 % warning messages}
279 % \changes{v1.1b}{1995/10/24}{Changed logic for producing
280 % warning messages and removed switch}
281 % \begin{macrocode}
282 \if@filesw
283 \ifx \@multiplelabels \relax
284 \if@tempswa
285 \@latex@warning@no@line{Label(s) may have changed.
286 Rerun to get cross-references right}%
287 \fi
288 \else
289 \@multiplelabels
290 \fi
291 \fi
292 \endgroup
293 \deadcycles\z@\@@end}
294 % \end{macrocode}
295 % \end{macro}
296 %
297 % \begin{macro}{\@testdef}
298 % \begin{macrocode}
299 \def\@testdef #1#2#3{%
300 \def\reserved@a{#3}\expandafter \ifx \csname #1@#2\endcsname
301 \reserved@a \else \@tempswatrue \fi}
302 % \end{macrocode}
303 % \end{macro}
304 %
305 %
306 % \begin{macro}{\@writefile}
307 % \changes{v1.0l}{1994/05/20}{Added correct setting of \cs{protect}.}
308 % \changes{v1.0t}{1994/11/04}{Removed setting of \cs{protect}. ASAJ.}
309 % \changes{v1.0z}{1995/07/13}{Added missing percent and use \cs{relax}
310 % in the THEN case}
311 % \begin{macrocode}
312 \long\def\@writefile#1#2{%
313 \@ifundefined{tf@#1}\relax
314 {\@temptokena{#2}%
315 \immediate\write\csname tf@#1\endcsname{\the\@temptokena}%
316 }%
317 }
318 % \end{macrocode}
319 % \end{macro}
320 %
321 % \begin{macro}{\stop}
322 % \begin{macrocode}
323 \def\stop{\clearpage\deadcycles\z@\let\par\@@par\@@end}
324 % \end{macrocode}
325 % \end{macro}
326 %
327 %
328 % \begin{oldcomments}
329 %
330 % \begin{macrocode}
331 \everypar{\@nodocument} %% To get an error if text appears before the
332 \nullfont %% \begin{document}
333 % \end{macrocode}
334 %
335 % \begin, \end, and \@checkend changed so \end{document} will catch
336 % an unmatched \begin. Changed 24 May 89 as suggested by
337 % Frank Mittelbach and Rainer Sch\"opf.
338 %
339 % \begin{NAME} ==
340 % BEGIN
341 % IF \NAME undefined THEN \reserved@a == BEGIN report error END
342 % ELSE \reserved@a ==
343 % (\@currenvir :=L NAME) \NAME
344 % FI
345 % @ignore :=G F %% Added 30 Nov 88
346 % \begingroup
347 % \@endpe := F
348 % \@currenvir :=L NAME
349 % \NAME
350 % END
351 %
352 % \end{NAME} ==
353 % BEGIN
354 % \endNAME
355 % \@checkend{NAME}
356 % \endgroup
357 % IF @endpe = T %% @endpe set True by \@endparenv
358 % THEN \@doendpe %% \@doendpe redefines \par and \everypar
359 % %% to suppress paragraph indentation in
360 % FI %% immediately following text
361 % IF @ignore = T
362 % THEN @ignore :=G F
363 % \ignorespaces
364 % FI
365 % END
366 %
367 % \@checkend{NAME} ==
368 % BEGIN
369 % IF \@currenvir = NAME
370 % ELSE \@badend{NAME}
371 % FI
372 % END
373 %
374 % \end{oldcomments}
375 %
376 %
377 % \begin{macro}{\begin}
378 % \changes{LaTeX2.09}{1992/03/18}{Changed \cs{@ignoretrue} to
379 % \cs{@ignorefalse} (as documented)}
380 % \changes{LaTeX2.09}{1992/08/24}{Added code to \cs{begin} to
381 % remember line number. Used by \cs{@badend} to display
382 % position of non-matching \cs{begin}.}
383 % \changes{v1.1e}{1996/07/26}{remove \cs{global} before \cs{@ignore...}}
384 % \begin{macrocode}
385 \def\begin#1{%
386 \@ifundefined{#1}%
387 {\def\reserved@a{\@latex@error{Environment #1 undefined}\@eha}}%
388 {\def\reserved@a{\def\@currenvir{#1}%
389 \edef\@currenvline{\on@line}%
390 \csname #1\endcsname}}%
391 \@ignorefalse
392 \begingroup\@endpefalse\reserved@a}
393 % \end{macrocode}
394 % \end{macro}
395 %
396 % \begin{macro}{\end}
397 % \changes{v1.1e}{1996/07/26}{remove \cs{global} before \cs{@ignore...}}
398 % \begin{macrocode}
399 \def\end#1{%
400 \csname end#1\endcsname\@checkend{#1}%
401 \expandafter\endgroup\if@endpe\@doendpe\fi
402 \if@ignore\@ignorefalse\ignorespaces\fi}
403 % \end{macrocode}
404 % \end{macro}
405 %
406 % \begin{macro}{\@checkend}
407 % \begin{macrocode}
408 \def\@checkend#1{\def\reserved@a{#1}\ifx
409 \reserved@a\@currenvir \else\@badend{#1}\fi}
410 % \end{macrocode}
411 % \end{macro}
412 %
413 % \begin{macro}{\@currenvline}
414 % We do need a default value for |\@currenvline| on top-level since
415 % the document environment cancels the brace group. This means that
416 % a mismatch with |\begin|\allowbreak|{document}| will not produce
417 % a line number. Thus the outer default must be |\@empty| or we
418 % will end up with two spaces.
419 % \changes{v1.0q}{1994/05/24}{Use \cs{@empty} as outer default}
420 % \begin{macrocode}
421 \let\@currenvline\@empty
422 % \end{macrocode}
423 % \end{macro}
424 %
425 %
426 % \subsection{Center, Flushright, Flushleft}
427 %
428 % \begin{macrocode}
429 \message{center,}
430 % \end{macrocode}
431 %
432 % \begin{oldcomments}
433 %
434 % \center, \flushright and \flushleft set
435 % \rightskip = 0pt or \@flushglue (as appropriate)
436 % \leftskip = 0pt or \@flushglue (as appropriate)
437 % \parindent = 0pt
438 % \parfillskip = 0pt. (except \flushleft)
439 % \\ == \par \vskip -\parskip
440 % \\[LENGTH] == \\ \vskip LENGTH
441 % \\* == \par \penalty 10000 \vskip -\parskip
442 % \\*[LEN] == \\* \vskip LENGTH
443 %
444 % They invoke the trivlist environment to handle vertical spacing before
445 % and after them.
446 %
447 % \centering, \raggedright and \raggedleft are the declaration analogs
448 % of the above.
449 %
450 % \raggedright has a more universal effect, however. It sets
451 % \@rightskip := flushglue. Every environment, like the list
452 % environments,
453 % that set \rightskip to its 'normal' value set it to \@rightskip
454 %
455 % \end{oldcomments}
456 %
457 % \begin{macro}{\@centercr}
458 % \changes{v1.0h}{1994/05/03}{\cs{@badcrerr} replaced by \cs{@nolnerr}}
459 % \changes{v1.0z}{1995/07/13}{Use \cs{nobreak}}
460 % \begin{macrocode}
461 \def\@centercr{\ifhmode \unskip\else \@nolnerr\fi
462 \par\@ifstar{\nobreak\@xcentercr}\@xcentercr}
463 % \end{macrocode}
464 % \end{macro}
465 %
466 % \begin{macro}{\@xcentercr}
467 % \begin{macrocode}
468 \def\@xcentercr{\addvspace{-\parskip}\@ifnextchar
469 [\@icentercr\ignorespaces}
470 % \end{macrocode}
471 % \end{macro}
472 %
473 % \begin{macro}{\@icentercr}
474 % \begin{macrocode}
475 \def\@icentercr[#1]{\vskip #1\ignorespaces}
476 % \end{macrocode}
477 % \end{macro}
478 %
479 %
480 % \begin{environment}{center}
481 % \changes{v0.9h}{1993/12/13}{Removed optional argument of \cs{item}}
482 % \changes{v1.0u}{1994/11/12}{Changed end macro to \cs{def}: safer and
483 % consistent}
484 % We use |\relax| to prevent |\item| scanning too far.
485 % \begin{macrocode}
486 \def\center{\trivlist \centering\item\relax}
487 % \end{macrocode}
488 %
489 % \begin{macrocode}
490 \def\endcenter{\endtrivlist}
491 % \end{macrocode}
492 % \end{environment}
493 %
494 % \begin{macro}{\centering}
495 % \begin{macrocode}
496 \def\centering{%
497 \let\\\@centercr
498 \rightskip\@flushglue\leftskip\@flushglue
499 \parindent\z@\parfillskip\z@skip}
500 % \end{macrocode}
501 % \end{macro}
502 %
503 % \begin{macro}{\@rightskip}
504 % \begin{macrocode}
505 \newskip\@rightskip \@rightskip \z@skip
506 % \end{macrocode}
507 % \end{macro}
508 %
509 % \begin{environment}{flushleft}
510 % \changes{v0.9h}{1993/12/13}{Removed optional argument of \cs{item}}
511 % \changes{v1.0u}{1994/11/12}{Changed end macro to \cs{def}: safer and
512 % consistent}
513 % We use |\relax| to prevent |\item| scanning too far.
514 % \begin{macrocode}
515 \def\flushleft{\trivlist \raggedright\item\relax}
516 % \end{macrocode}
517 %
518 % \begin{macrocode}
519 \def\endflushleft{\endtrivlist}
520 % \end{macrocode}
521 % \end{environment}
522 %
523 % \begin{macro}{\raggedright}
524 % \begin{macrocode}
525 \def\raggedright{%
526 \let\\\@centercr\@rightskip\@flushglue \rightskip\@rightskip
527 \leftskip\z@skip
528 \parindent\z@}
529 % \end{macrocode}
530 % \end{macro}
531 %
532 % \begin{environment}{flushright}
533 % \changes{v0.9h}{1993/12/13}{Removed optional argument of \cs{item}}
534 % \changes{v1.0u}{1994/11/12}{Changed end macro to \cs{def}: safer and
535 % consistent}
536 % We use |\relax| to prevent |\item| scanning too far.
537 % \begin{macrocode}
538 \def\flushright{\trivlist \raggedleft\item\relax}
539 % \end{macrocode}
540 %
541 % \begin{macrocode}
542 \def\endflushright{\endtrivlist}
543 % \end{macrocode}
544 % \end{environment}
545 %
546 % \begin{macro}{\raggedleft}
547 % \begin{macrocode}
548 \def\raggedleft{%
549 \let\\\@centercr
550 \rightskip\z@skip\leftskip\@flushglue
551 \parindent\z@\parfillskip\z@skip}
552 % \end{macrocode}
553 % \end{macro}
554 %
555 % \begin{macrocode}
556 \message{verbatim,}
557 % \end{macrocode}
558 %
559 % \subsection{Verbatim}
560 %
561 %
562 % The verbatim environment uses the fixed-width |\ttfamily| font, turns
563 % blanks into spaces, starts a new line for each carriage return (or
564 % sequence of consecutive carriage returns), and interprets
565 % \emph{every} character literally.
566 % I.e., all special characters |\, {, $|, etc.
567 % are |\catcode|'d to 'other'.
568 %
569 % The command |\verb| produces in-line verbatim text, where the argument
570 % is delimited by any pair of characters. E.g., |\verb #...#| takes
571 % `|...|' as its argument, and sets it verbatim in |\ttfamily| font.
572 %
573 % The *-variants of these commands are the same, except that spaces
574 % print as the \TeX{}book's space character instead of as blank spaces.
575 %
576 % \begin{macro}{\@vobeyspaces}
577 % \begin{macrocode}
578 {\catcode`\ =\active%
579 \gdef\@vobeyspaces{\catcode`\ \active\let \@xobeysp}}
580 % \end{macrocode}
581 % \end{macro}
582 %
583 % \begin{macro}{\@xobeysp}
584 % \changes{v1.0z}{1995/07/13}{Use \cs{nobreak}}
585 % \changes{v1.1f}{1996/09/28}{Moved to ltspace.dtx}
586 % \end{macro}
587 %
588 %
589 % \begin{macro}{\@xverbatim}
590 % \begin{macro}{\@sxverbatim}
591 % \begin{macrocode}
592 \begingroup \catcode `|=0 \catcode `[= 1
593 \catcode`]=2 \catcode `\{=12 \catcode `\}=12
594 \catcode`\\=12 |gdef|@xverbatim#1\end{verbatim}[#1|end[verbatim]]
595 |gdef|@sxverbatim#1\end{verbatim*}[#1|end[verbatim*]]
596 |endgroup
597 % \end{macrocode}
598 % \end{macro}
599 % \end{macro}
600 %
601 % \begin{macro}{\@verbatim}
602 % \changes{LaTeX2.09}{1991/07/24}{Added \cs{penalty}\cs{interlinepenalty}
603 % to definition of \cs{par} so that \cs{samepage} works}
604 % \changes{v0.9h}{1993/12/13}{Removed optional argument of \cs{item}}
605 % Real start of verbatim environment
606 % We use |\relax| to prevent |\item| scanning too far.
607 % \changes{v0.9p}{1994/01/18}
608 % {Add \cs{global}\cs{@inlabelfalse}}
609 % \changes{v1.0b}{1994/03/16}
610 % {Remove \cs{global}\cs{@inlabelfalse} again.}
611 % \begin{macrocode}
612 \def\@verbatim{\trivlist \item\relax
613 \if@minipage\else\vskip\parskip\fi
614 \leftskip\@totalleftmargin\rightskip\z@skip
615 \parindent\z@\parfillskip\@flushglue\parskip\z@skip
616 % \end{macrocode}
617 % \changes{LaTeX2.09}{1991/08/26}{\cs{@@par} added}
618 % Added |\@@par| to clear possible |\parshape| definition
619 % from a surrounding list (the verbatim guru says).
620 % \changes{v0.9p}{1994/01/18}
621 % {Only add \cs{penalty} if in hmode}
622 % \begin{macrocode}
623 \@@par
624 \@tempswafalse
625 \def\par{%
626 \if@tempswa
627 % \end{macrocode}
628 % A |\leavevmode| added: needed if, for example, a blank verbatim
629 % line is the first thing in a list item (wow!).
630 % \changes{v1.0f}{1994/04/29}{\cs{leavevmode} added}
631 % \begin{macrocode}
632 \leavevmode \null \@@par\penalty\interlinepenalty
633 \else
634 \@tempswatrue
635 \ifhmode\@@par\penalty\interlinepenalty\fi
636 \fi}%
637 % \end{macrocode}
638 % To allow customization we hide the font used in a separate macro.
639 % \changes{v0.9a}{1993/11/21}{use \cs{verbatim@font} instead of \cs{tt}}
640 % \changes{v0.9h}{1993/12/13}{Readded \cs{@noligs}}
641 % \changes{v1.1d}{1996/06/03}{Exchanged the following two code lines
642 % so that \cs{dospecials} cannot reset the category code
643 % of characters handled by \cs{@noligs}.}
644 % \changes{v1.1h}{2000/01/07}{Disable hyphenation even if the font allows it.}
645 % \begin{macrocode}
646 \let\do\@makeother \dospecials
647 \obeylines \verbatim@font \@noligs
648 \hyphenchar\font\m@ne
649 % \end{macrocode}
650 % To avoid a breakpoint after the labels box, we remove the penalty
651 % put there by the list macros: another use of |\unpenalty|!
652 % \changes{v1.0f}{1994/04/29}{Change to \cs{everypar} added}
653 % \begin{macrocode}
654 \everypar \expandafter{\the\everypar \unpenalty}%
655 }
656 % \end{macrocode}
657 % \end{macro}
658 %
659 % \begin{macro}{\verbatim}
660 % \begin{macro}{\endverbatim}
661 % (RmS 93/09/19) Protected against `missing item' error message
662 % triggered by empty verbatim environment.
663 % \begin{macrocode}
664 \def\verbatim{\@verbatim \frenchspacing\@vobeyspaces \@xverbatim}
665 \def\endverbatim{\if@newlist \leavevmode\fi\endtrivlist}
666 % \end{macrocode}
667 % \end{macro}
668 % \end{macro}
669 %
670 % \begin{macro}{\verbatim@font}
671 % \changes{v0.9a}{1993/11/21}{Macro added}
672 % Macro to select the font used for verbatim typesetting.
673 % It also does other work if necessary for the font used.
674 % \changes{v0.9s}{1994/01/21}{Removed unnecessary category code
675 % hackery.}
676 % \begin{macrocode}
677 \def\verbatim@font{\normalfont\ttfamily}
678 % \end{macrocode}
679 % \end{macro}
680 %
681 %
682 % \begin{environment}{verbatim*}
683 % \begin{macrocode}
684 \@namedef{verbatim*}{\@verbatim\@sxverbatim}
685 \expandafter\let\csname endverbatim*\endcsname =\endverbatim
686 % \end{macrocode}
687 % \end{environment}
688 %
689 % \begin{macro}{\@makeother}
690 % \begin{macrocode}
691 \def\@makeother#1{\catcode`#112\relax}
692 % \end{macrocode}
693 % \end{macro}
694 %
695 % \begin{macro}{\verb@balance@group}
696 % \changes{LaTeX2.09}{1993/09/07}
697 % {(RmS) Changed definition of \cs{verb} so that it detects a
698 % missing second delimiter.}
699 % \begin{macrocode}
700 \let\verb@balance@group\@empty
701 % \end{macrocode}
702 % \end{macro}
703 %
704 % \begin{macro}{\verb@egroup}
705 % \begin{macrocode}
706 \def\verb@egroup{\global\let\verb@balance@group\@empty\egroup}
707 % \end{macrocode}
708 % \end{macro}
709 %
710 % \begin{macro}{\verb@eol@error}
711 % \begin{macrocode}
712 \begingroup
713 \obeylines%
714 \gdef\verb@eol@error{\obeylines%
715 \def^^M{\verb@egroup\@latex@error{%
716 \noexpand\verb ended by end of line}\@ehc}}%
717 \endgroup
718 % \end{macrocode}
719 % \end{macro}
720 %
721 % \begin{macro}{\verb}
722 % \changes{LaTeX2.09}{1992/08/24}
723 % {Changed \cs{verb} and \cs{@sverb} to work correctly
724 % in math mode}
725 % \changes{v0.9a}{1993/11/21}{Use \cs{verbatim@font} instead of
726 % \cs{tt}.}
727 % \changes{v1.1a}{1995/09/19}{Put \cs{@noligs} after
728 % \cs{verbatim@font} where it belongs.}
729 % Typesetting a small piece verbatim.
730 % \changes{v1.1d}{1996/06/03}{Put setting of verbatim font after
731 % \cs{dospecials}
732 % so that \cs{dospecials} cannot reset the category code
733 % of characters handled by \cs{@noligs}.}
734 % \begin{macrocode}
735 \def\verb{\relax\ifmmode\hbox\else\leavevmode\null\fi
736 \bgroup
737 \verb@eol@error \let\do\@makeother \dospecials
738 \verbatim@font\@noligs
739 \@ifstar\@sverb\@verb}
740 % \end{macrocode}
741 % \end{macro}
742 %
743 %
744 % \begin{macro}{\@sverb}
745 % \changes{v1.0j}{1994/05/10}{Slight change in error message text.}
746 % Definitions of |\@sverb| and |\@verb| changed so |\verb+ foo+|
747 % does not lose leading blanks when it comes at the beginning of a line.
748 % Change made 24 May 89. Suggested by Frank Mittelbach and Rainer
749 % Sch\"opf.
750 %
751 % \begin{macrocode}
752 \def\@sverb#1{%
753 \catcode`#1\active
754 \lccode`\~`#1%
755 \gdef\verb@balance@group{\verb@egroup
756 \@latex@error{\noexpand\verb illegal in command argument}\@ehc}%
757 \aftergroup\verb@balance@group
758 \lowercase{\let~\verb@egroup}}%
759 % \end{macrocode}
760 % \end{macro}
761 %
762 % \begin{macro}{\@verb}
763 % \begin{macrocode}
764 \def\@verb{\@vobeyspaces \frenchspacing \@sverb}
765 % \end{macrocode}
766 % \end{macro}
767 %
768 % \begin{macro}{\verbatim@nolig@list}
769 % \changes{LaTeX2.09}{1993/09/03}
770 % {Replaced \cs{@noligs} by extensible list}
771 % \begin{macrocode}
772 \def\verbatim@nolig@list{\do\`\do\<\do\>\do\,\do\'\do\-}
773 % \end{macrocode}
774 % \end{macro}
775 %
776 % \begin{macro}{\do@noligs}
777 % \begin{macrocode}
778 \def\do@noligs#1{%
779 \catcode`#1\active
780 \begingroup
781 \lccode`\~`#1\relax
782 \lowercase{\endgroup\def~{\leavevmode\kern\z@\char`#1}}}
783 % \end{macrocode}
784 % \end{macro}
785 %
786 % \begin{macro}{\@noligs}
787 % To stay compatible with packages that use |\@noligs| we keep it.
788 % \changes{v0.9h}{1993/12/13}{Readded \cs{@noligs}}
789 % \begin{macrocode}
790 \def\@noligs{\let\do\do@noligs \verbatim@nolig@list}
791 % \end{macrocode}
792 % \end{macro}
793 %
794 % \changes{v0.9i}{1993/12/16}{\cs{literal} added}
795 % \changes{v1.0r}{1994/05/26/16}{\cs{literal} removed}
796 % \begin{macrocode}
797 %</2ekernel>
798 % \end{macrocode}
799 %
800 % \Finale
801 %