* http://cs.unibo.it/helm/.
*)
-type flag = Postgres | Galax | Stat | Quiet | Warn
+(* AUTOR: Ferruccio Guidi <fguidi@cs.unibo.it>
+ *)
+
+type flag = Galax | Postgres | Queries | Result | Source | Times | Warn
val string_of_flags : flag list -> string
val flags_of_string : string -> flag list
-exception InvalidConnection
-
type handle
-val init : flag list -> (string -> unit) -> handle
+val init : ?flags:(flag list) -> ?log:(string -> unit) -> unit -> handle
val close : handle -> unit
val connected : handle -> bool
-val init_if_connected : flag list -> (string -> unit) -> handle
+val init_if_connected : ?flags:(flag list) -> ?log:(string -> unit) -> unit -> handle
(* The following functions allow to read the handle internal fields.
* For exclusive use of the interpreter.
*)
-val log : handle -> string -> unit
-val set : handle -> flag -> bool
-val pgc : handle -> Postgres.connection
+val log : handle -> string -> unit
+val set : handle -> flag -> bool
+val pgc : handle -> Postgres.connection option
+val flags : handle -> flag list
+val tables : handle -> MathQL.path -> MQIMap.pg_tables
+val field : handle -> MathQL.path -> string -> string
+val resolve : handle -> string -> string