let coldbms_of_xml = function
Xml.Element
("column_dbms",_,
[ Xml.Element ("col_type_sql",_,[Xml.Element("tuple",_,info)]) ;
Xml.Element ("col_2ml",_,[Xml.PCData col2ml]);
Xml.Element ("col_ml2",_,[Xml.PCData colml2]);
Xml.Element ("col_key",_,[col_key]) ;
Xml.Element ("col_default",_,[default]) ;
Xml.Element ("col_atts",_,[Xml.Element("list",_,atts)]) ;
]
) ->
{ col_type_sql = type_sql_of_xml info ;
col_2ml = unescape col2ml ;
col_ml2 = unescape colml2 ;
col_key = opt_of_xml key_of_xml col_key ;
col_default = opt_of_xml string_of_xml default;
col_atts = List.map att_of_xml atts ;
}
| e -> fail e "coldbms_of_xml"