let options_of_kind = fun kind -> match class_of_kind kind with | SQL_C_Int | SQL_C_Real -> snd (List.split numeric_opt_string_assoc) | _ -> []