Commits

Anonymous committed 1823281

dbi/cleanup

Comments (0)

Files changed (1)

 
 open Am_All;
 
-(*
-value dbg fmt = Am_Common.dbg fmt
-;
-*)
 
 value nvl opt_new old =
   match opt_new with
   error_type tyname & sprintf "can't convert %S to this type: %s" v msg
 ;
 
-(*
-added:
-type sql_t = [= Dbi.sql_t | `Mysupertypeforextensibility ]
-;
-*)
 
 type sql_u =
   [= `Null
 ;
 
 
-(*
-class cl x =
-  if x = 0
-  then
-    object method x = 0; end
-  else
-    object method x = 1; end
-;
-*)
-
-
-(*
-value entype_u ftype ~isnull x : sql_u =
-  if isnull
-  then `Null
-  else if ftype = P.BYTEA
-  then `Binary x
-  else `String x
-;
-*)
-
 value entype_t ftype ~isnull x : sql_t =
   try
     let () = dbg "entype: %s = %S (is null = %b)"
 ;
 
 
-(*
-value detype_u v = v
-;
-*)
-
-
 value memo_last ?(cmp=Pervasives.compare) f =
   let last = ref None in
   fun x ->
     method prepare sql = self#with_con & fun pcon ->
       let stm_name = next_stm_name () in
       let presult = pcon#prepare stm_name sql in
-(*
-      failwith & sprintf "pres = %s / %s" (P.result_status
-             presult#status)
-         (presult#error)
-*)
       if presult#status <> P.Command_ok
       then
         raise & prepare_error presult#error