PR#4831: handle @before tag in ocamldoc

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@10480 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 10 insertions, 0 deletions

diff --git a/ocamldoc/odoc_html.ml b/ocamldoc/odoc_html.ml
index 7cfb9890c..7b9050fb0 100644
--- a/ocamldoc/odoc_html.ml
+++ b/ocamldoc/odoc_html.ml
@@ -550,6 +550,15 @@ class virtual info =
       | Some s ->
           bp b "<b>%s</b> %s<br>\n" Odoc_messages.since s
 
+    (** Print html code for the given "before" information.*)
+    method html_of_before b l =
+      let f (v, text) =
+        bp b "<b>%s %s </b> " Odoc_messages.before v;
+        self#html_of_text b text;
+        bs b "<br>\n"
+      in
+      List.iter f l
+
     (** Print html code for the given list of raised exceptions.*)
     method html_of_raised_exceptions b l =
       match l with
@@ -651,6 +660,7 @@ class virtual info =
           );
           self#html_of_author_list b info.M.i_authors;
           self#html_of_version_opt b info.M.i_version;
+          self#html_of_before b info.M.i_before;
           self#html_of_since_opt b info.M.i_since;
           self#html_of_raised_exceptions b info.M.i_raised_exceptions;
           self#html_of_return_opt b info.M.i_return_value;