- match Sys.argv.(1) with
- | "-h" -> warn (); do_h l
- | "-c" -> warn (); do_c l
- | _ -> usage ()
+ if Sys.argv.(3) = "-o" then
+ let ob = open_out_gen [ Open_trunc ; Open_wronly; Open_creat ] 0444 Sys.argv.(4) in
+ match Sys.argv.(1) with
+ | "-h" -> warn ob; do_h ob l; close_out ob
+ | "-c" -> warn ob; do_c ob l; close_out ob
+ | _ -> usage ()
+ else
+ usage();