diff options
| author | Maxence Guesdon <maxence.guesdon@inria.fr> | 2010-05-31 11:52:13 +0000 |
|---|---|---|
| committer | Maxence Guesdon <maxence.guesdon@inria.fr> | 2010-05-31 11:52:13 +0000 |
| commit | ceccfea6b439a338c342dbcfde5f4485a1345631 (patch) | |
| tree | 024a65cc7cf1f6a3ad29ea9aec89614e8e854d3b /ocamldoc/odoc_texi.ml | |
| parent | d7b5f7e6cbd9f3b9da64d488c13abc0a95da3e6e (diff) | |
PR#4831: handle @before tag in ocamldoc
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@10480 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'ocamldoc/odoc_texi.ml')
| -rw-r--r-- | ocamldoc/odoc_texi.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/ocamldoc/odoc_texi.ml b/ocamldoc/odoc_texi.ml index 389462338..a853c4f7a 100644 --- a/ocamldoc/odoc_texi.ml +++ b/ocamldoc/odoc_texi.ml @@ -465,6 +465,11 @@ class texi = Raw " " ; Raw s ] @ t @ [ Newline ]) see_l) + method text_of_before l = + List.flatten + (List.map + (fun x -> linebreak :: (to_text#text_of_before [x])) l) + method text_of_params params_list = List.concat (List.map @@ -530,6 +535,7 @@ class texi = self#text_of_version_opt info.i_version ) else [] ; self#text_of_sees_opt info.i_sees ; + self#text_of_before info.i_before ; if is info.i_since then ( linebreak :: self#text_of_since_opt info.i_since ) |