diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-12-14 11:27:47 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-12-14 11:27:47 +0000 |
| commit | 6dbe0f97c7f23de89b90e232bc812b77dde86cac (patch) | |
| tree | bcf1802bd0c87e9f64a3f0fac1bee0ebe5126eb7 /lib | |
| parent | d9f9673d90371ead668863221c1202de49ab1782 (diff) | |
Moving hcons_string to String namespace.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16069 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/cString.ml | 3 | ||||
| -rw-r--r-- | lib/cString.mli | 5 | ||||
| -rw-r--r-- | lib/clib.mllib | 2 | ||||
| -rw-r--r-- | lib/lib.mllib | 2 |
4 files changed, 10 insertions, 2 deletions
diff --git a/lib/cString.ml b/lib/cString.ml index b34b21957..59a6d17c6 100644 --- a/lib/cString.ml +++ b/lib/cString.ml @@ -60,6 +60,7 @@ sig val is_sub : string -> string -> int -> bool module Set : Set.S with type elt = t module Map : Map.S with type key = t + val hcons : string -> string end include String @@ -178,3 +179,5 @@ end module Set = Set.Make(Self) module Map = Map.Make(Self) + +let hcons = Hashcons.simple_hcons Hashcons.Hstring.generate () diff --git a/lib/cString.mli b/lib/cString.mli index 18679d310..c9ff60f76 100644 --- a/lib/cString.mli +++ b/lib/cString.mli @@ -88,12 +88,17 @@ sig val is_sub : string -> string -> int -> bool (** [is_sub p s off] tests whether [s] contains [p] at offset [off]. *) + (** {6 Generic operations} **) + module Set : Set.S with type elt = t (** Finite sets on [string] *) module Map : Map.S with type key = t (** Finite maps on [string] *) + val hcons : string -> string + (** Hashconsing on [string] *) + end include ExtS diff --git a/lib/clib.mllib b/lib/clib.mllib index 1f4707fda..d40df73a0 100644 --- a/lib/clib.mllib +++ b/lib/clib.mllib @@ -3,6 +3,8 @@ Pp_control Pp Coq_config Deque +Hashset +Hashcons CObj CList CString diff --git a/lib/lib.mllib b/lib/lib.mllib index f557bd7d7..372d8ddf3 100644 --- a/lib/lib.mllib +++ b/lib/lib.mllib @@ -3,8 +3,6 @@ Xml_parser Loc Errors Bigint -Hashset -Hashcons Dyn Segmenttree Unicodetable |