let kind_uses_precision = fun kind -> match class_of_kind kind with | SQL_C_Real -> Dbf_misc.Maybe | _ -> Dbf_misc.No