ocaml 3.09 transition

[helm.git] / helm / ocaml / mathql_generator / mQueryGenerator.mli

diff --git a/helm/ocaml/mathql_generator/mQueryGenerator.mli b/helm/ocaml/mathql_generator/mQueryGenerator.mli
index eace22532b96f5a9f6fb1b9d5e82f3c3b663687b..decaa0ea761be56f337c1b67a7d4cd02f33e1cf3 100644 (file)
--- a/helm/ocaml/mathql_generator/mQueryGenerator.mli
+++ b/helm/ocaml/mathql_generator/mQueryGenerator.mli
@@ -23,22 +23,20 @@
  * http://cs.unibo.it/helm/.
  *)
 
-type uri = string
-type position = string
-type depth = int option
-type sort = string 
+(*  AUTOR: Ferruccio Guidi <fguidi@cs.unibo.it>
+ *)
+
+(* interface for the low-level constraints  *********************************)
 
-type r_obj = (uri * position * depth) 
-type r_rel = (position * depth)
-type r_sort = (position * depth * sort) 
+val locate     : string -> MathQL.query
 
-type must_restrictions = (r_obj list * r_rel list * r_sort list)
-type only_restrictions =
- (r_obj list option * r_rel list option * r_sort list option)
-type universe = position list option
+val unreferred : string -> string -> MathQL.query
 
-val locate               : string -> MathQL.query
+val compose    : MQGTypes.spec list -> MathQL.query
 
-val query_of_constraints : universe -> must_restrictions -> only_restrictions -> MathQL.query
+(* interface for the high-level constraints  ********************************)
 
-val builtin              : MathQL.vvar -> string
+val query_of_constraints : MQGTypes.universe option -> 
+                           MQGTypes.must_restrictions ->
+                           MQGTypes.only_restrictions -> 
+                          MathQL.query