]> rtime.felk.cvut.cz Git - l4.git/blob - l4/pkg/ocaml/ocaml/contrib/ocamldoc/ocamldoc.sty
Update
[l4.git] / l4 / pkg / ocaml / ocaml / contrib / ocamldoc / ocamldoc.sty
1 %% Support macros for LaTeX documentation generated by ocamldoc.
2 %% This file is in the public domain; do what you want with it.
3
4 \NeedsTeXFormat{LaTeX2e}
5 \ProvidesPackage{ocamldoc}
6               [2001/12/04 v1.0 ocamldoc support]
7
8 \newenvironment{ocamldoccode}{%
9   \bgroup
10   \leftskip\@totalleftmargin
11   \rightskip\z@skip
12   \parindent\z@
13   \parfillskip\@flushglue
14   \parskip\z@skip 
15   %\noindent
16   \@@par\smallskip
17   \@tempswafalse
18   \def\par{%
19     \if@tempswa
20       \leavevmode\null\@@par\penalty\interlinepenalty
21   \else
22     \@tempswatrue
23     \ifhmode\@@par\penalty\interlinepenalty\fi
24   \fi}
25   \obeylines
26   \verbatim@font
27   \let\org@prime~%
28   \@noligs
29   \let\org@dospecials\dospecials
30   \g@remfrom@specials{\\}
31   \g@remfrom@specials{\{}
32   \g@remfrom@specials{\}}
33   \let\do\@makeother
34   \dospecials
35   \let\dospecials\org@dospecials
36   \frenchspacing\@vobeyspaces
37   \everypar \expandafter{\the\everypar \unpenalty}}
38 {\egroup\par}
39
40 \def\g@remfrom@specials#1{%
41   \def\@new@specials{}
42   \def\@remove##1{%
43     \ifx##1#1\else
44     \g@addto@macro\@new@specials{\do ##1}\fi}
45   \let\do\@remove\dospecials
46   \let\dospecials\@new@specials
47   }
48
49 \newenvironment{ocamldocdescription}
50 {\list{}{\rightmargin0pt \topsep0pt}\raggedright\item\relax}
51 {\endlist\medskip}
52
53 \newenvironment{ocamldoccomment}
54 {\list{}{\leftmargin 2\leftmargini \rightmargin0pt \topsep0pt}\raggedright\item\relax}
55 {\endlist}
56
57 \let\ocamldocvspace\vspace
58 \endinput
59
60