let class_of_kind = function | SQL_TinyInt | SQL_MediumInt | SQL_Int | SQL_BigInt -> SQL_C_Int | SQL_Double | SQL_Float | SQL_Decimal -> SQL_C_Real | _ -> SQL_C_Char