sqlgg_traits.ml

   1 (** *)
   2
   3 module type M = sig
   4
   5   type statement
   6   type connection
   7   type num = int64
   8   type text = string
   9   type any = string
  10
  11   val get_column_Int : statement -> int -> num
  12   val get_column_Text : statement -> int -> text
  13
  14   val set_param_null : statement -> int -> bool
  15   val set_param_Text : statement -> int -> text -> bool
  16   val set_param_Any : statement -> int -> any -> bool
  17   val set_param_Int : statement -> int -> num -> bool
  18
  19   (*
  20   val select_exn : connection -> string -> (statement -> 'a) -> (statement -> 'b) -> bool
  21   val execute_exn : connection -> string -> (statement -> 'a) -> bool
  22   *)
  23
  24   val select : connection -> string -> (statement -> 'a) -> (statement -> 'b) -> bool
  25   val execute : connection -> string -> (statement -> 'a) -> bool
  26
  27 end
  28