let sqltype_of_col dbms cdbms =
match regular_type_of_old_sql_type cdbms.col_type_sql with
Some t -> (t, Dbf_misc.StringMap.empty)
| None ->
let set = Dbf_misc.StringMap.empty in
let set =
let db = string_of_dbms dbms in
let s =
match cdbms.col_type_sql with
s,None,_ -> s
| s,Some s2,_ -> Printf.sprintf "%s(%s)" s s2
in
Dbf_misc.StringMap.add db s set
in
(SQL_db.Int (None,SQL_db.NO_None), set)