impl/sqlgg_traits.ml

   1 (** *)
   2
   3 module type M = sig
   4
   5   type statement
   6   type connection
   7
   8   (** datatypes *)
   9   type num = int64
  10   type text = string
  11   type any = text
  12
  13   exception Oops of string
  14
  15   val get_column_Int : statement -> int -> num
  16   val get_column_Text : statement -> int -> text
  17   val get_column_Any : statement -> int -> any
  18
  19   (** [set_param_* stmt index val]. [index] is 0-based,
  20     @raise Oops on error *)
  21   val set_param_null : statement -> int -> unit
  22   val set_param_Text : statement -> int -> text -> unit
  23   val set_param_Any : statement -> int -> any -> unit
  24   val set_param_Int : statement -> int -> num -> unit
  25
  26   (**
  27     Perform query and return results via callback for each row
  28     @raise Oops on error
  29   *)
  30   val select : connection -> string -> (statement -> unit) -> (statement -> unit) -> unit
  31
  32   (**
  33     Perform query and return first row if available
  34     @raise Oops on error
  35   *)
  36   val select1 : connection -> string -> (statement -> unit) -> (statement -> 'b) -> 'b option
  37
  38   (** Execute non-query.
  39     @raise Oops on error
  40     @return true if successful
  41   *)
  42   val execute : connection -> string -> (statement -> unit) -> bool
  43
  44 end
  45