stmt.ml

   1 (** *)
   2
   3 open Printf
   4 open ExtString
   5 open ListMore
   6
   7 type param_id = | Named of string | Numbered of int | Next deriving (Show)
   8 type param_type = Sql.Type.t option deriving (Show)
   9 type param = param_id * param_type deriving (Show)
  10 type params = param list deriving (Show)
  11
  12 let params_to_string ps = Show.show<params>(ps)
  13
  14 type kind = | Select
  15             | Insert of string (** table name *)
  16             | Create of string (** table name *)
  17             | Update of string (** table name *)
  18             | Delete of string (** table name *)
  19             deriving (Show)
  20