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, 11 insertions, 5 deletions

diff --git a/ocamldoc/odoc_misc.mli b/ocamldoc/odoc_misc.mli
index 9f9de92ba3..25c4389662 100644
--- a/ocamldoc/odoc_misc.mli
+++ b/ocamldoc/odoc_misc.mli
@@ -26,11 +26,17 @@ val string_of_type_expr : Types.type_expr -> string
    with a given separator. It writes in and flushes [Format.str_formatter].*)
 val string_of_type_list : string -> Types.type_expr list -> string
 
-(** This function returns a string representing a [Types.module_type]. *)
-val string_of_module_type : Types.module_type -> string
-
-(** This function returns a string representing a [Types.class_type]. *)
-val string_of_class_type : Types.class_type -> string
+(** This function returns a string representing a [Types.module_type]. 
+   @param complete indicates if we must print complete signatures
+   or just [sig end]. Default if [false].
+*)
+val string_of_module_type : ?complete: bool -> Types.module_type -> string
+
+(** This function returns a string representing a [Types.class_type]. 
+   @param complete indicates if we must print complete signatures
+   or just [object end]. Default if [false].
+*)
+val string_of_class_type : ?complete: bool -> Types.class_type -> string
 
 (** This function returns the list of (label, type_expr) describing
    the methods of a type_expr in a Tobject.*)