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