new Gen constructor for interfacing a query generator

[helm.git] / helm / ocaml / mathql / mQueryUtil.mli

diff --git a/helm/ocaml/mathql/mQueryUtil.mli b/helm/ocaml/mathql/mQueryUtil.mli
index 9881b3b545b0b8d762cf657dd43f481f43d7e70c..fbfb3f793f8e5f33fc5b39e0b3567b00b650f928 100644 (file)
--- a/helm/ocaml/mathql/mQueryUtil.mli
+++ b/helm/ocaml/mathql/mQueryUtil.mli
@@ -23,27 +23,23 @@
  * http://cs.unibo.it/helm/.
  *)
 
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                     Ferruccio Guidi <fguidi@cs.unibo.it>                   *)
-(*                                 30/04/2002                                 *)
-(*                                                                            *)
-(*                                                                            *)
-(******************************************************************************)
-
+(*  AUTOR: Ferruccio Guidi <fguidi@cs.unibo.it>
+ *)
 
-val text_of_query  : MathQL.query -> string
+type time
 
-val text_of_result : MathQL.result -> string -> string
+val start_time : unit -> time
 
-val query_of_text  : Lexing.lexbuf -> MathQL.query
+val stop_time  : time -> string
 
-val result_of_text : Lexing.lexbuf -> MathQL.result
+type 'a comparison = Lt 
+                   | Gt
+                  | Eq of 'a
 
+val list_join : ('a -> 'a -> 'a comparison) -> 'a list -> 'a list -> 'a list 
 
-type uriref = UriManager.uri * (int list)
+val list_meet : ('a -> 'a -> 'a comparison) -> 'a list -> 'a list -> 'a list 
 
-val string_of_uriref : uriref -> string
+val flat_list : ('a -> unit) -> ('b -> unit) -> 'a -> 'b list -> unit
 
+val add_assoc : 'a * 'b -> ('a * 'b) list -> ('a * 'b) list