(************************************************************
   printparsetree.ml	Created      : Wed Jan  8 06:10:50 2003
  			Last modified: Wed Jan 08 06:33:39 2003
   Compile: ocamlc.opt printast.cma printparsetree.ml -o printparsetree #
  printast.cmaのつくりかた
    ocamlc -I parsing -a `tsort_cmo -e -g -setE .cmo .depend parsing/printast.ml parsing/parse.ml` -o printast.cma
  ちなみに
Xmamewo:~/project/analyze_ocaml> tsort_cmo -e -g -setE .cmo .depend parsing/printast.ml parsing/parse.ml
utils/config.cmo utils/clflags.cmo utils/misc.cmo parsing/linenum.cmo parsing/longident.cmo utils/terminfo.cmo utils/warnings.cmo parsing/location.cmo parsing/printast.cmo parsing/syntaxerr.cmo parsing/parser.cmo parsing/lexer.cmo parsing/parse.cmo 
  FTP Directory: sources/ocaml #
************************************************************)
(**

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

let _ =
  let print_usage () =
    prerr_endline (Sys.argv.(0) ^ " [ocaml_filename]") in
  if Array.length Sys.argv <> 2 then
    begin print_usage (); exit 1 end;
  let filename = Sys.argv.(1) in
  let input = open_in filename in
  let tree = Parse.implementation (Lexing.from_channel input) in
  Printast.implementation (Format.formatter_of_out_channel stdout)
    tree