Module Stdlib.Parsing

val symbol_start : unit -> int
val symbol_end : unit -> int
val rhs_start : int -> int
val rhs_end : int -> int
val symbol_start_pos : unit -> Lexing.position
val symbol_end_pos : unit -> Lexing.position
val rhs_start_pos : int -> Lexing.position
val rhs_end_pos : int -> Lexing.position
val clear_parser : unit -> unit
exception Parse_error
val set_trace : bool -> bool
type parser_env
type parse_tables = {
  1. actions : (parser_env -> Obj.t) array;
  2. transl_const : int array;
  3. transl_block : int array;
  4. lhs : string;
  5. len : string;
  6. defred : string;
  7. dgoto : string;
  8. sindex : string;
  9. rindex : string;
  10. gindex : string;
  11. tablesize : int;
  12. table : string;
  13. check : string;
  14. error_function : string -> unit;
  15. names_const : string;
  16. names_block : string;
}
exception YYexit of Obj.t
val yyparse : parse_tables -> int -> (Lexing.lexbuf -> 'a) -> Lexing.lexbuf -> 'b
val peek_val : parser_env -> int -> 'a
val is_current_lookahead : 'a -> bool
val parse_error : string -> unit