val gram : Grammar.g;; val interf : (MLast.sig_item * MLast.loc) list Grammar.Entry.e;; val implem : (MLast.str_item * MLast.loc) list Grammar.Entry.e;; val top_phrase : MLast.phrase option Grammar.Entry.e;; val use_file : MLast.phrase list Grammar.Entry.e;; val module_type : MLast.module_type Grammar.Entry.e;; val module_expr : MLast.module_expr Grammar.Entry.e;; val sig_item : MLast.sig_item Grammar.Entry.e;; val str_item : MLast.str_item Grammar.Entry.e;; val expr : MLast.expr Grammar.Entry.e;; val patt : MLast.patt Grammar.Entry.e;; val ctyp : MLast.ctyp Grammar.Entry.e;; val let_binding : (MLast.patt * MLast.expr) Grammar.Entry.e;;
type 'a printer_t = ('a -> unit) ref;;
val print_interf : (MLast.sig_item * MLast.loc) list printer_t;;
val print_implem : (MLast.str_item * MLast.loc) list printer_t;;
val input_file : string ref;;
val output_file : string option ref;;
val report_error : exn -> unit;;
val quotation_dump_file : string option ref;;
val version : string;;
val add_option : string -> Arg.spec -> string -> unit;;
val no_constructors_arity : bool ref;;
val no_assert : bool ref;;
val handle_expr_quotation : MLast.loc -> string * string -> MLast.expr;; val handle_expr_locate : MLast.loc -> int * string -> MLast.expr;; val handle_patt_quotation : MLast.loc -> string * string -> MLast.patt;; val handle_patt_locate : MLast.loc -> int * string -> MLast.patt;; val expr_reloc : (MLast.loc -> MLast.loc) -> int -> MLast.expr -> MLast.expr;; val patt_reloc : (MLast.loc -> MLast.loc) -> int -> MLast.patt -> MLast.patt;;
val warning : (int * int -> string -> unit) ref;; val expr_eoi : MLast.expr Grammar.Entry.e;; val patt_eoi : MLast.patt Grammar.Entry.e;; val arg_spec_list : unit -> (string * Arg.spec * string) list;;