Fun implemented.

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

diff --git a/helm/ocaml/mathql/mQueryUtil.mli b/helm/ocaml/mathql/mQueryUtil.mli
index e7ee98395695edf21d308cd9fe391064742327ff..9881b3b545b0b8d762cf657dd43f481f43d7e70c 100644 (file)
--- a/helm/ocaml/mathql/mQueryUtil.mli
+++ b/helm/ocaml/mathql/mQueryUtil.mli
@@ -33,30 +33,17 @@
 (*                                                                            *)
 (******************************************************************************)
 
+
 val text_of_query  : MathQL.query -> string
 
-val text_of_result : MathQL.result -> string
+val text_of_result : MathQL.result -> string -> string
 
 val query_of_text  : Lexing.lexbuf -> MathQL.query
 
 val result_of_text : Lexing.lexbuf -> MathQL.result
 
-(*
-
-val str_uref    : MathQL.mquref -> string        (* string linearization of a UriMan. reference *)
-
-val str_tref    : MathQL.mqtref -> string        (* string linearization of a tokenized reference *)
-
-val xp_str_uref : MathQL.mquref -> string        (* string linearization of a UriMan. reference *)
-
-val xp_str_tref : MathQL.mqtref -> string        (* string linearization of a tokenized reference *)
-
-val out_query   : MathQL.mquery -> string        (* HTML representation of a query *)
-
-val out_result  : MathQL.mqresult -> string      (* HTML representation of a query result *)
 
-val tref_uref   : MathQL.mquref -> MathQL.mqtref (* "tref of uref" conversion *)
+type uriref = UriManager.uri * (int list)
 
-val parse_text  : in_channel -> MathQL.mquery    (* textual parsing of a query *) 
+val string_of_uriref : uriref -> string
 
-*)