sig val setMSVCMode : unit -> unit exception CabsOnly val parse : string -> unit -> Cil_types.file * Cabs.file end