(* AUTOR: Ferruccio Guidi <fguidi@cs.unibo.it>
*)
+type connection = MySQL_C of Mysql.dbd
+ | Postgres_C of Postgres.connection
+ | No_C
+
type flag = Galax | Postgres | Queries | Result | Source | Times | Warn
+type handle = {
+ log : string -> unit; (* logging function *)
+ set : flag list; (* options *)
+ pgc : connection; (* PG connection *)
+ pgm : MQIMap.pg_map; (* PG conversion function *)
+ pga : MQIMap.pg_alias (* PG table aliases *)
+}
+
val string_of_flags : flag list -> string
val flags_of_string : string -> flag list
-type handle
-
val init : ?flags:(flag list) -> ?log:(string -> unit) -> unit -> handle
val close : handle -> unit
val connected : handle -> bool
-val exec : handle ->
- string -> string list ->
- (bool * string * string list) list ->
- (bool * string * string list) list list ->
- string list list * string
+val exec : handle -> (MQITypes.query -> unit) ->
+ MQITypes.table -> MQITypes.columns ->
+ string MQITypes.con_true -> string MQITypes.con_false ->
+ MQITypes.result
val init_if_connected : ?flags:(flag list) -> ?log:(string -> unit) -> unit -> handle