sig
val connect : string -> string -> string -> string -> int -> int
val query : int -> string -> int * int
val record : int -> (string * string) list
val close : int -> unit
val scan : string -> string * string list
val finish : unit -> unit
val enum : int -> string -> string -> string
end