diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-12-05 14:42:33 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-12-05 14:42:33 +0000 |
| commit | f4af459e05814c954514f71dcc4c63b00af823b5 (patch) | |
| tree | 60055d25703dbd390a5a905ad4b854199b62d482 /library | |
| parent | e5d0063062d5b0e34e38ddf2f560c35e8255548b (diff) | |
des Set et des Map en plus
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3379 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
| -rw-r--r-- | library/libnames.ml | 1 | ||||
| -rw-r--r-- | library/libnames.mli | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/library/libnames.ml b/library/libnames.ml index e8bdb4818..4440780a5 100644 --- a/library/libnames.ml +++ b/library/libnames.ml @@ -117,6 +117,7 @@ let dirpath_of_string s = | dir -> make_dirpath dir module Dirset = Set.Make(struct type t = dir_path let compare = compare end) +module Dirmap = Map.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 938be5644..e902cec9b 100644 --- a/library/libnames.mli +++ b/library/libnames.mli @@ -52,6 +52,7 @@ 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 +module Dirmap : Map.S with type key = dir_path (*s Section paths are {\em absolute} names *) type section_path |