X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fmathql%2FmQueryUtil.mli;h=635fb660f5c52410b0bebe626a524c2e072b5851;hb=04cc990d9452b85535c5dc93655078d9fb19b14c;hp=139cb018143133ce2e782dc2dfe6c1016956a8a6;hpb=6c04191a9045120d3cf5f6046eee627d6499e5c9;p=helm.git

diff --git a/helm/ocaml/mathql/mQueryUtil.mli b/helm/ocaml/mathql/mQueryUtil.mli
index 139cb0181..635fb660f 100644
--- a/helm/ocaml/mathql/mQueryUtil.mli
+++ b/helm/ocaml/mathql/mQueryUtil.mli
@@ -23,22 +23,25 @@
  * http://cs.unibo.it/helm/.
  *)
 
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                     Ferruccio Guidi <fguidi@cs.unibo.it>                   *)
-(*                                 30/04/2002                                 *)
-(*                                                                            *)
-(*                                                                            *)
-(******************************************************************************)
+(*  AUTOR: Ferruccio Guidi <fguidi@cs.unibo.it>
+ *)
+
+type time
+
+val start_time : unit -> time
+
+val stop_time  : time -> string
+
+type 'a comparison = Lt 
+                   | Gt
+		   | Eq of 'a
 
-val str_uref   : MathQL.mquref -> string        (* string linearization of a UriManager reference *)
+val list_join : ('a -> 'a -> 'a comparison) -> 'a list -> 'a list -> 'a list 
 
-val str_tref   : MathQL.mqtref -> string        (* string linearization of a tokenized reference *)
+val list_meet : ('a -> 'a -> 'a comparison) -> 'a list -> 'a list -> 'a list 
 
-val out_query  : MathQL.mquery -> string        (* HTML representation of a query *)
+val flat_list : ('a -> unit) -> ('b -> unit) -> 'a -> 'b list -> unit
 
-val tref_uref  : MathQL.mquref -> MathQL.mqtref (* "tref of uref" conversion *)
+val add_assoc : 'a * 'b -> ('a * 'b) list -> ('a * 'b) list
 
-val parse_text : in_channel -> MathQL.mquery    (* textual parsing of a query *) 
+val int_of_string : string -> int