dump_parsetree.sh

#!/bin/sh

# DEBUGGING: Dump all imtermediate stages up to the parse tree to stdout.
# Written as a shell script to facilitate using the superb ocaml pretty
# printer.

if [ X"$@" = X"" ]; then
   echo "./usage: ./dump_parsetree file"
   exit 1
fi


OBJS="Location.cmo Env.cmo Shared.cmo Util.cmo Symbol.cmo ParseTree.cmo Types.cmo SymbolGenerator.cmo Scc.cmo Parser.cmo LexState.cmo Typedtree.cmo ModuleState.cmo Lexer.cmo Ast.cmo Unify.cmo Lib.cmo"

cmd="ocaml -noinit -I _build unix.cma $OBJS"

$cmd << EOF
#print_length 100000;;
open ParseTree;;
let headers = Lib.parsetree_from_file "builtins.ml";;
let tree = Lib.parsetree_from_file "$@";;
EOF