diff options
| author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 1999-12-13 17:47:22 +0000 |
|---|---|---|
| committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 1999-12-13 17:47:22 +0000 |
| commit | 95466010e6851c91c8ab87d09a494e38cb987301 (patch) | |
| tree | 6d9020f6a7ab5f9889695f71cdf357c5d5af4b8d /manual/styles | |
| parent | d09a6185da98842ab623c36c0dd90f677973ad69 (diff) | |
| download | ocaml-95466010e6851c91c8ab87d09a494e38cb987301.tar.gz | |
caml-ized caml-tex
git-svn-id: http://caml.inria.fr/svn/ocamldoc/trunk@9832 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'manual/styles')
| -rw-r--r-- | manual/styles/caml-sl.sty | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/manual/styles/caml-sl.sty b/manual/styles/caml-sl.sty index f73570e39c..b0e84b9a89 100644 --- a/manual/styles/caml-sl.sty +++ b/manual/styles/caml-sl.sty @@ -7,6 +7,13 @@ \gdef\@camloutputline#1^^M{\small\ttfamily\slshape#1\par} } % \def\@camlblankline{\medskip} \chardef\@camlbackslash="5C +\def\@bunderline{\setbox0\hbox\bgroup\let\par\@parinunderline} + +\def \@parinunderline {\futurelet \@next \@@parinunderline} +\def \@@parinunderline {\ifx \@next \? \let \@do \@@par@inunderline \else \let \@do \@@@parinunderline \fi \@do} +\def \@@par@inunderline #1{\@eunderline\@oldpar\?\@bunderline} +\def \@@@parinunderline {\@eunderline\@oldpar\@bunderline} +\def\@eunderline{\egroup\underline{\box0}} \def\caml{ \bgroup @@ -19,9 +26,12 @@ \catcode`\ \active \frenchspacing \@vobeyspaces + \let\@oldpar\par \let\?\@camlinputline \let\:\@camloutputline \let\;\@camlblankline + \let\<\@bunderline + \let\>\@eunderline \let\\\@camlbackslash } |