let format_of_c_float_type c_float : D.format = let fname = Pretty_utils.sfprintf "%a_format" Ctypes.pp_float c_float in D.e_app0 fname