From 6dbe0f97c7f23de89b90e232bc812b77dde86cac Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Fri, 14 Dec 2012 11:27:47 +0000
Subject: Moving hcons_string to String namespace.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16069 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/cString.ml  | 3 +++
 lib/cString.mli | 5 +++++
 lib/clib.mllib  | 2 ++
 lib/lib.mllib   | 2 --
 4 files changed, 10 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/cString.ml b/lib/cString.ml
index b34b219570..59a6d17c6e 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 18679d3108..c9ff60f763 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 1f4707fda5..d40df73a01 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 f557bd7d73..372d8ddf39 100644
--- a/lib/lib.mllib
+++ b/lib/lib.mllib
@@ -3,8 +3,6 @@ Xml_parser
 Loc
 Errors
 Bigint
-Hashset
-Hashcons
 Dyn
 Segmenttree
 Unicodetable
-- 
cgit v1.2.3