let format_of_c_int_type c_int : D.format = let fname = Pretty_utils.sfprintf "%a_format" Ctypes.pp_int c_int in D.e_app0 fname