ocaml/ocamldoc/ocamldoc.sty

%% Support macros for LaTeX documentation generated by ocamldoc.
%% This file is in the public domain; do what you want with it.

\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{ocamldoc}
              [2001/12/04 v1.0 ocamldoc support]

\newenvironment{ocamldoccode}{%
  \bgroup
  \leftskip\@totalleftmargin
  \rightskip\z@skip
  \parindent\z@
  \parfillskip\@flushglue
  \parskip\z@skip
  \noindent\@@par
  \@tempswafalse
  \def\par{%
    \if@tempswa
      \leavevmode\null\@@par\penalty\interlinepenalty
  \else
    \@tempswatrue
    \ifhmode\@@par\penalty\interlinepenalty\fi
  \fi}
  \obeylines
  \verbatim@font
  \let\org@prime~%
  \@noligs
  \let\org@dospecials\dospecials
  \g@remfrom@specials{\\}
  \g@remfrom@specials{\{}
  \g@remfrom@specials{\}}
  \let\do\@makeother
  \dospecials
  \let\dospecials\org@dospecials
  \frenchspacing\@vobeyspaces
  \everypar \expandafter{\the\everypar \unpenalty}}
{\egroup\par}

\def\g@remfrom@specials#1{%
  \def\@new@specials{}
  \def\@remove##1{%
    \ifx##1#1\else
    \g@addto@macro\@new@specials{\do ##1}\fi}
  \let\do\@remove\dospecials
  \let\dospecials\@new@specials
  }

\newenvironment {ocamldoclist}[1]
  {\list{}{#1}\global \advance \@listdepth -\m@ne\raggedright\item[]\relax}
  {\global \advance \@listdepth -\@ne
   \ifvmode \edef \@tmp {\the\everypar}\ifx \@tmp \@empty 
   \else \leavevmode \global \@newlistfalse \fi \fi
   \endlist}

\newenvironment{ocamldocdescription}
  {\ocamldoclist{\parsep 0pt\rightmargin 0pt \topsep 0\topsep}}
  {\medskip \endocamldoclist}

\newenvironment{ocamldoccomment}
  {\ocamldoclist{\parsep 0pt\rightmargin 0pt \topsep 0\topsep}}
  {\medskip \endocamldoclist}
\endinput