génration en utiisant type des modules et classes au lieu des kind

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

1 files changed, 10 insertions, 0 deletions

diff --git a/ocamldoc/odoc_to_text.ml b/ocamldoc/odoc_to_text.ml
index 358cb67bd2..f043bacf2d 100644
--- a/ocamldoc/odoc_to_text.ml
+++ b/ocamldoc/odoc_to_text.ml
@@ -187,6 +187,14 @@ class virtual to_text =
       in
       s2
 
+    (** Get a string for a [Types.class_type] where all idents are relative. *)
+    method normal_class_type m_name t =
+      (self#relative_idents m_name (Odoc_info.string_of_class_type t))
+
+    (** Get a string for a [Types.module_type] where all idents are relative. *)
+    method normal_module_type m_name t =
+      (self#relative_idents m_name (Odoc_info.string_of_module_type t))
+
     (** Get a string for a type where all idents are relative. *)
     method normal_type m_name t =
       (self#relative_idents m_name (Odoc_info.string_of_type_expr t))
@@ -381,6 +389,8 @@ class virtual to_text =
 	      )
 	  ] 
 
+(**/**)
+
     (** Return [text] value for the given [class_kind].*)
     method text_of_class_kind father ckind =
       match ckind with