let convert_table db dbms old_table =
let table = SQL_db.insert_table db
~name:old_table.ta_name ~comment:old_table.ta_comment
~logged: old_table.ta_logged
in
List.iter (convert_column table dbms) old_table.ta_columns;
let keys = List.filter
(fun c ->
let cdbms = List.assoc dbms c.col_dbms in
cdbms.col_key=Some Primary_key
)
old_table.ta_columns
in
let pkey = List.map
(fun c -> SQL_db.column_by_name table c.col_name)
keys
in
SQL_db.set_primary_key table pkey