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