doc-src/extra.sty
changeset 596 cffb278ec83e
parent 455 466dd59b3645
child 9675 0fe0dce56bd8
equal deleted inserted replaced
595:96c87d5bb015 596:cffb278ec83e
     6 \def\today{\number\day\space\ifcase\month\or
     6 \def\today{\number\day\space\ifcase\month\or
     7 January\or February\or March\or April\or May\or June\or
     7 January\or February\or March\or April\or May\or June\or
     8 July\or August\or September\or October\or November\or December\fi
     8 July\or August\or September\or October\or November\or December\fi
     9 \space\number\year}
     9 \space\number\year}
    10 
    10 
    11 \input{alltt.sty}
    11 %%Borrowed from alltt.sty, but leaves % as the comment character
       
    12 \def\docspecials{\do\ \do\$\do\&%
       
    13   \do\#\do\^\do\^^K\do\_\do\^^A\do\~}
       
    14 
       
    15 \def\alltt{\trivlist \item[]\if@minipage\else\vskip\parskip\fi
       
    16 \leftskip\@totalleftmargin\rightskip\z@
       
    17 \parindent\z@\parfillskip\@flushglue\parskip\z@
       
    18 \@tempswafalse \def\par{\if@tempswa\hbox{}\fi\@tempswatrue\@@par}
       
    19 \obeylines \tt \catcode``=13 \@noligs \let\do\@makeother \docspecials
       
    20  \frenchspacing\@vobeyspaces}
       
    21 
       
    22 \let\endalltt=\endtrivlist
       
    23 
    12 %Indented, boxed alltt environment; uses \small\tt font
    24 %Indented, boxed alltt environment; uses \small\tt font
    13 %\leftmargini is LaTeX's first-level indentation for items (2.5em)
    25 %\leftmargini is LaTeX's first-level indentation for items (2.5em)
    14 %@endparenv is LaTeX's trick for preventing indentation of next paragraph
    26 %@endparenv is LaTeX's trick for preventing indentation of next paragraph
       
    27 %redefines \{ and \} to be in \tt font
    15 \newenvironment{ttbox}{\par\nobreak\vskip-2pt
    28 \newenvironment{ttbox}{\par\nobreak\vskip-2pt
    16            \vbox\bgroup\footnotesize\begin{alltt}\chardef\{=`\{\chardef\}=`\}%
    29            \vbox\bgroup\footnotesize\begin{alltt}\chardef\{=`\{\chardef\}=`\}%
    17              \leftskip\leftmargini}%
    30              \leftskip\leftmargini}%
    18         {\end{alltt}\egroup\vskip-7pt\@endparenv}
    31         {\end{alltt}\egroup\vskip-7pt\@endparenv}
    19 \newcommand\ttbreak{\end{ttbox}\vskip-10pt\begin{ttbox}}
    32 \newcommand\ttbreak{\end{ttbox}\vskip-10pt\begin{ttbox}}