doc-src/Tutorial/extra.sty
author nipkow
Wed, 26 Aug 1998 16:57:49 +0200
changeset 5375 1463e182c533
child 9675 0fe0dce56bd8
permissions -rw-r--r--
The HOL tutorial.
nipkow@5375
     1
% extra.sty : Isabelle Manual extra macros for non-Springer version
nipkow@5375
     2
%
nipkow@5375
     3
\typeout{Document Style extra. Released 17 February 1994}
nipkow@5375
     4
nipkow@5375
     5
%%Euro-style date: 20 September 1955
nipkow@5375
     6
\def\today{\number\day\space\ifcase\month\or
nipkow@5375
     7
January\or February\or March\or April\or May\or June\or
nipkow@5375
     8
July\or August\or September\or October\or November\or December\fi
nipkow@5375
     9
\space\number\year}
nipkow@5375
    10
nipkow@5375
    11
%%Borrowed from alltt.sty, but leaves % as the comment character
nipkow@5375
    12
\def\docspecials{\do\ \do\$\do\&%
nipkow@5375
    13
  \do\#\do\^\do\^^K\do\_\do\^^A\do\~}
nipkow@5375
    14
nipkow@5375
    15
%%%Put first chapter on odd page, with arabic numbering; like \cleardoublepage
nipkow@5375
    16
\newcommand\clearfirst{\clearpage\ifodd\c@page\else
nipkow@5375
    17
    \hbox{}\newpage\if@twocolumn\hbox{}\newpage\fi\fi
nipkow@5375
    18
    \pagenumbering{arabic}}
nipkow@5375
    19
nipkow@5375
    20
%%%Ruled chapter headings 
nipkow@5375
    21
\def\@rulehead#1{\hrule height1pt \vskip 14pt \Huge \bf 
nipkow@5375
    22
   #1 \vskip 14pt\hrule height1pt}
nipkow@5375
    23
\def\@makechapterhead#1{ { \parindent 0pt 
nipkow@5375
    24
 \ifnum\c@secnumdepth >\m@ne \raggedleft\large\bf\@chapapp{} \thechapter \par 
nipkow@5375
    25
 \vskip 20pt \fi \raggedright \@rulehead{#1} \par \nobreak \vskip 40pt } }
nipkow@5375
    26
nipkow@5375
    27
\def\@makeschapterhead#1{ { \parindent 0pt \raggedright 
nipkow@5375
    28
 \@rulehead{#1} \par \nobreak \vskip 40pt } }
nipkow@5375
    29