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