ocaml 3.09 transition

[helm.git] / helm / ocaml / mathql_interpreter / mQIPostgres.mli

diff --git a/helm/ocaml/mathql_interpreter/mQIPostgres.mli b/helm/ocaml/mathql_interpreter/mQIPostgres.mli
index 8906a4985e1c04783b8f045d73441a166dddc583..cbbf3929dbdddde9d77ac522a1db6fd1b5d86b14 100644 (file)
--- a/helm/ocaml/mathql_interpreter/mQIPostgres.mli
+++ b/helm/ocaml/mathql_interpreter/mQIPostgres.mli
@@ -23,23 +23,14 @@
  * http://cs.unibo.it/helm/.
  *)
 
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                     Ferruccio Guidi <fguidi@cs.unibo.it>                   *)
-(*                                 06/01/2003                                 *)
-(*                                                                            *)
-(*                                                                            *)
-(******************************************************************************)
-
-
-val init  : unit -> unit
-
-val close : unit -> unit
+(*  AUTOR: Ferruccio Guidi <fguidi@cs.unibo.it>
+ *)
 
-val check : unit -> bool
+val init  : unit -> Postgres.connection
 
-val exec  : string -> string list list
+val close : Postgres.connection -> unit
 
-val quote : string -> string
+val exec  : Postgres.connection * (MQITypes.query -> unit) -> 
+            MQITypes.table -> MQITypes.columns ->
+           string MQITypes.con_true -> string MQITypes.con_false ->
+           MQITypes.result