diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-11-28 23:48:51 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-11-28 23:48:51 +0000 |
| commit | 293f86e7c3c4d7bcff03b118369e5e623d3eb6f0 (patch) | |
| tree | d381e4e81a931f44427445fe8fe9f1958f138e20 /library | |
| parent | 981fc313f34918b7e0ac2fe449c0d947a13d20f5 (diff) | |
Quelques Set et Map spécialisés
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3335 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
| -rw-r--r-- | library/libnames.ml | 2 | ||||
| -rw-r--r-- | library/libnames.mli | 3 |
2 files changed, 5 insertions, 0 deletions
diff --git a/library/libnames.ml b/library/libnames.ml index dae3f1140..e8bdb4818 100644 --- a/library/libnames.ml +++ b/library/libnames.ml @@ -51,6 +51,7 @@ module RefOrdered = let compare = Pervasives.compare end +module Refset = Set.Make(RefOrdered) module Refmap = Map.Make(RefOrdered) (**********************************************) @@ -115,6 +116,7 @@ let dirpath_of_string s = [] -> invalid_arg "dirpath_of_string" | dir -> make_dirpath dir +module Dirset = Set.Make(struct type t = dir_path let compare = compare end) (*s Section paths are absolute names *) diff --git a/library/libnames.mli b/library/libnames.mli index 6ecc498fc..938be5644 100644 --- a/library/libnames.mli +++ b/library/libnames.mli @@ -31,6 +31,7 @@ val constr_of_reference : global_reference -> constr raise [Not_found] if not a global *) val reference_of_constr : constr -> global_reference +module Refset : Set.S with type elt = global_reference module Refmap : Map.S with type key = global_reference (*s Dirpaths *) @@ -50,6 +51,8 @@ val add_dirpath_prefix : module_ident -> dir_path -> dir_path val extract_dirpath_prefix : int -> dir_path -> dir_path val is_dirpath_prefix_of : dir_path -> dir_path -> bool +module Dirset : Set.S with type elt = dir_path + (*s Section paths are {\em absolute} names *) type section_path |