]> matita.cs.unibo.it Git - helm.git/commitdiff
*** empty log message ***
authorAndrea Asperti <andrea.asperti@unibo.it>
Mon, 10 May 2004 13:31:57 +0000 (13:31 +0000)
committerAndrea Asperti <andrea.asperti@unibo.it>
Mon, 10 May 2004 13:31:57 +0000 (13:31 +0000)
helm/ocaml/mathql_interpreter/mQIConn.mli

index f13448834114c91a0b0d798230a436064dc814c0..94ea83f76148895ad7db7e6f90dee400e58b9bb3 100644 (file)
 (*  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