let parse_gui () =
  try
    let _ = Arg.parse !options_gui
        (fun s -> gui_files := !gui_files @ [s])
        (Rep_messages.usage_gui^Rep_messages.options_are)
    in
    ()
  with
    Failure s ->
      prerr_endline s ;
      exit 1