- if Sys.argv.(3) = "-o" then (
- try Unix.unlink Sys.argv.(4) with _ -> ();
- let ob = open_out_gen [ Open_trunc ; Open_wronly; Open_creat ] 0o444 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();