diff options
| author | Maxence Guesdon <maxence.guesdon@inria.fr> | 2002-06-04 08:48:12 +0000 |
|---|---|---|
| committer | Maxence Guesdon <maxence.guesdon@inria.fr> | 2002-06-04 08:48:12 +0000 |
| commit | 406bd0d3a9ece449d35fa1b60aaf6ce0d65bcd5c (patch) | |
| tree | 6eff0f26b81cf7be1fe4c7a828809762cdca18db /ocamldoc/odoc_sig.ml | |
| parent | e4cf2c2acf8bf437a5217185aee1e1e054bfa266 (diff) | |
ajout de fonction à l'interface pour utilisation dans odoc_ast (lors de la correction de l'association des commentaires aux types)
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4872 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'ocamldoc/odoc_sig.ml')
| -rw-r--r-- | ocamldoc/odoc_sig.ml | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/ocamldoc/odoc_sig.ml b/ocamldoc/odoc_sig.ml index 8e2756281..06d075065 100644 --- a/ocamldoc/odoc_sig.ml +++ b/ocamldoc/odoc_sig.ml @@ -170,10 +170,6 @@ module Analyser = (** This function merge two optional info structures. *) let merge_infos = Odoc_merge.merge_info_opt Odoc_types.all_merge_options - (** This function takes a Parsetree.type_kind and returns the list of - (name, optional comment) for the various fields/constructors of the type, - or an empty list for an abstract type. - [pos_start] and [pos_end] are the first and last char of the complete type definition.*) let name_comment_from_type_kind pos_start pos_end pos_limit tk = match tk with Parsetree.Ptype_abstract -> @@ -241,8 +237,6 @@ module Analyser = in (0, f name_mutable_type_list) - (** This function converts a Types.type_kind into a Odoc_type.type_kind, - by associating the comment found in the parsetree of each constructor/field, if any.*) let get_type_kind env name_comment_list type_kind = match type_kind with Types.Type_abstract -> |