(************************************************************
   pcc.ml		Created      : Tue Dec 16 01:43:47 2003
  			Last modified: Tue Dec 16 01:46:09 2003
  Compile: ocamlc -dtypes pcc.ml -o pcc #
  FTP Directory: sources/ocaml #
************************************************************)
(**

  @author Takashi Masuyama <mamewo@dk9.so-net.ne.jp>

  ./pcc -I hoge -I sage  ¤âOK!
*)


let _ =
  let includes = ref [] in
  Arg.parse [("-I", Arg.String(fun x -> includes := x::!includes), "include path") ] ignore "hello";
  List.iter print_endline !includes
;;