sig
  val setMSVCMode : unit -> unit
  exception ParseError of string
  exception Flx_cil_cabsOnly
  val args : (string * Arg.spec * string) list
  val parse : string -> Flx_cil_cabs.lang_t -> unit -> Flx_cil_cil.file
end