patched

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

diff --git a/helm/ocaml/mathql/mQueryUtil.mli b/helm/ocaml/mathql/mQueryUtil.mli
index bb38dc91d349ec1bca9b564382ca102e9c0ad80a..635fb660f5c52410b0bebe626a524c2e072b5851 100644 (file)
--- a/helm/ocaml/mathql/mQueryUtil.mli
+++ b/helm/ocaml/mathql/mQueryUtil.mli
@@ -26,14 +26,6 @@
 (*  AUTOR: Ferruccio Guidi <fguidi@cs.unibo.it>
  *)
 
-val text_of_query  : (string -> unit) -> MathQL.query -> string -> unit
-
-val text_of_result : (string -> unit) -> MathQL.result -> string -> unit
-
-val query_of_text  : Lexing.lexbuf -> MathQL.query
-
-val result_of_text : Lexing.lexbuf -> MathQL.result
-
 type time
 
 val start_time : unit -> time
@@ -48,7 +40,8 @@ val list_join : ('a -> 'a -> 'a comparison) -> 'a list -> 'a list -> 'a list
 
 val list_meet : ('a -> 'a -> 'a comparison) -> 'a list -> 'a list -> 'a list 
 
+val flat_list : ('a -> unit) -> ('b -> unit) -> 'a -> 'b list -> unit
 
-type uriref = UriManager.uri * (int list)
+val add_assoc : 'a * 'b -> ('a * 'b) list -> ('a * 'b) list
 
-val string_of_uriref : uriref -> string
+val int_of_string : string -> int