diff options
author | 2012-12-14 11:05:35 +0000 | |
---|---|---|
committer | 2012-12-14 11:05:35 +0000 | |
commit | d9f9673d90371ead668863221c1202de49ab1782 (patch) | |
tree | 3fca5420ce4404972f87ea05d2000e3fd8e89017 /lib/cString.ml | |
parent | 9a0c61b81a2d9c0024b20a6c7ad8af01026739b0 (diff) |
Moved Stringset and Stringmap to String namespace.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16068 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/cString.ml')
-rw-r--r-- | lib/cString.ml | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lib/cString.ml b/lib/cString.ml index fd375c5c3..b34b21957 100644 --- a/lib/cString.ml +++ b/lib/cString.ml @@ -58,6 +58,8 @@ sig val ordinal : int -> string val split : char -> string -> string list val is_sub : string -> string -> int -> bool + module Set : Set.S with type elt = t + module Map : Map.S with type key = t end include String @@ -167,3 +169,12 @@ let split c s = | Not_found -> [String.sub s n (len-n)] in if Int.equal len 0 then [] else split 0 + +module Self = +struct + type t = string + let compare = compare +end + +module Set = Set.Make(Self) +module Map = Map.Make(Self) |