many strings that are supposed to be URIs are now UriManager.uri

[helm.git] / helm / ocaml / metadata / metadataConstraints.mli

diff --git a/helm/ocaml/metadata/metadataConstraints.mli b/helm/ocaml/metadata/metadataConstraints.mli
index 0d66557414365452837ed1eabef188624880dfae..4f84ce9a73814485abb0a78dc7c0dcbae2a474f4 100644 (file)
--- a/helm/ocaml/metadata/metadataConstraints.mli
+++ b/helm/ocaml/metadata/metadataConstraints.mli
@@ -23,23 +23,24 @@
  * http://helm.cs.unibo.it/
  *)
 
-module StringSet : Set.S with type elt = string
+module UriManagerSet : Set.S with type elt = UriManager.uri
+
 
   (** @return <main, constants>
   * main: constant in main position and, for polymorphic constants, type
   * instantitation
   * constants: constants appearing in term *)
-type term_signature = (string * string list) option * StringSet.t
+type term_signature = (UriManager.uri * UriManager.uri list) option * UriManagerSet.t
 
 (** {2 Candidates filtering} *)
 
   (** @return sorted list of theorem URIs, first URIs in the least have higher
   * relevance *)
-val cmatch: dbd:Mysql.dbd -> ?facts:bool -> Cic.term -> string list
+val cmatch: dbd:Mysql.dbd -> ?facts:bool -> Cic.term -> UriManager.uri list
 
   (** as cmatch, but returned list is not sorted but rather tagged with
   * relevance information: higher the tag, higher the relevance *)
-val cmatch': dbd:Mysql.dbd -> ?facts:bool -> Cic.term -> (int * string) list
+val cmatch': dbd:Mysql.dbd -> ?facts:bool -> Cic.term -> (int * UriManager.uri) list
 
 type where = [ `Conclusion | `Statement ] (** signature matching extent *)
 
@@ -49,7 +50,7 @@ val sigmatch:
   ?facts:bool ->
   ?where:where -> 
   term_signature ->
-    (int * string) list
+    (int * UriManager.uri) list
 
 (** {2 Constraint engine} *)
 
@@ -83,13 +84,13 @@ val at_least:
   ?diff:cardinality_condition ->
   ?rating:rating_criterion ->
   MetadataTypes.constr list ->
-    string list
+    UriManager.uri list
 
   (** @param where defaults to `Conclusion *)
 val at_most:
   dbd:Mysql.dbd ->
-  ?where:where -> StringSet.t ->
-    (string -> bool)
+  ?where:where -> UriManagerSet.t ->
+    (UriManager.uri -> bool)
 
 val add_all_constr: 
   ?tbl:string ->
@@ -103,8 +104,8 @@ val exec:
   dbd:Mysql.dbd ->
   ?rating:[ `Hits ] -> 
   int * string list * string list -> 
-  string list
+  UriManager.uri list
 
 val signature_of: Cic.term -> term_signature
-val constants_of: Cic.term -> StringSet.t
+val constants_of: Cic.term -> UriManagerSet.t