let parse () =
try
let _ = Arg.parse !options
(fun s ->
match !file with
None -> file := Some s;
| Some f -> raise (Failure Rep_messages.usage)
)
(Rep_messages.usage^Rep_messages.options_are)
in
()
with
Failure s ->
prerr_endline s ;
exit 1