forester 4.2.0 · OCaml Package

include MenhirLib.IncrementalEngine.INCREMENTAL_ENGINE with type token = token

type token = token

type production

type 'a env

type 'a checkpoint = private

| InputNeeded of 'a env
| Shifting of 'a env * 'a env * bool
| AboutToReduce of 'a env * production
| HandlingError of 'a env
| Accepted of 'a
| Rejected

val offer : 
  'a checkpoint ->
  (token
   * MenhirLib.IncrementalEngine.position
   * MenhirLib.IncrementalEngine.position) ->
  'a checkpoint

type strategy = [

| `Legacy
| `Simplified

]

val resume : ?strategy:strategy -> 'a checkpoint -> 'a checkpoint

type supplier =
  unit ->
  token
  * MenhirLib.IncrementalEngine.position
  * MenhirLib.IncrementalEngine.position

val lexer_lexbuf_to_supplier : 
  (Lexing.lexbuf -> token) ->
  Lexing.lexbuf ->
  supplier

val loop : ?strategy:strategy -> supplier -> 'a checkpoint -> 'a

val loop_handle : 
  ('a -> 'answer) ->
  ('a checkpoint -> 'answer) ->
  supplier ->
  'a checkpoint ->
  'answer

val loop_handle_undo : 
  ('a -> 'answer) ->
  ('a checkpoint -> 'a checkpoint -> 'answer) ->
  supplier ->
  'a checkpoint ->
  'answer

val shifts : 'a checkpoint -> 'a env option

val acceptable : 
  'a checkpoint ->
  token ->
  MenhirLib.IncrementalEngine.position ->
  bool

type 'a lr1state

val number : _ lr1state -> int

val production_index : production -> int

val find_production : int -> production

type element =

| Element : 'a lr1state * 'a * MenhirLib.IncrementalEngine.position * MenhirLib.IncrementalEngine.position -> element

type stack = element MenhirLib.General.stream

val stack : 'a env -> stack

val top : 'a env -> element option

val pop_many : int -> 'a env -> 'a env option

val get : int -> 'a env -> element option

val current_state_number : 'a env -> int

val equal : 'a env -> 'a env -> bool

val positions : 
  'a env ->
  MenhirLib.IncrementalEngine.position * MenhirLib.IncrementalEngine.position

val env_has_default_reduction : 'a env -> bool

val state_has_default_reduction : _ lr1state -> bool

val pop : 'a env -> 'a env option

val force_reduction : production -> 'a env -> 'a env

val input_needed : 'a env -> 'a checkpoint

type _ terminal =

| T_error : unit terminal
| T_XML_ELT_IDENT : string terminal
| T_WHITESPACE : string terminal
| T_VERBATIM : string terminal
| T_TEXT : string terminal
| T_SUBTREE : unit terminal
| T_SCOPE : unit terminal
| T_RSQUARE : unit terminal
| T_RPAREN : unit terminal
| T_RBRACE : unit terminal
| T_PUT : unit terminal
| T_PATCH : unit terminal
| T_OPEN : unit terminal
| T_OBJECT : unit terminal
| T_NAMESPACE : unit terminal
| T_LSQUARE : unit terminal
| T_LPAREN : unit terminal
| T_LET : unit terminal
| T_LBRACE : unit terminal
| T_IMPORT : unit terminal
| T_IDENT : string terminal
| T_HASH_LBRACE : unit terminal
| T_HASH_HASH_LBRACE : unit terminal
| T_GET : unit terminal
| T_FUN : unit terminal
| T_EXPORT : unit terminal
| T_EOF : unit terminal
| T_DEFAULT : unit terminal
| T_DEF : unit terminal
| T_DECL_XMLNS : string terminal
| T_CALL : unit terminal
| T_ALLOC : unit terminal

type _ nonterminal =

| N_xml_attr : ((string option * string) * Forester_core.Code.t) nonterminal
| N_wstext : string nonterminal
| N_ws_or_text : string nonterminal
| N_ws_or_method_decl_ : (string * Forester_core.Code.t) list nonterminal
| N_ws_or_locate_head_node__ : Forester_core.Code.node Forester_core.Range.located list nonterminal
| N_ws_list_method_decl_ : (string * Forester_core.Code.t) list nonterminal
| N_ws_list_locate_head_node__ : Forester_core.Code.t nonterminal
| N_textual_node : Forester_core.Code.node nonterminal
| N_option_squares_wstext__ : string option nonterminal
| N_option_squares_bvar__ : string list option nonterminal
| N_method_decl : (string * Forester_core.Code.t) nonterminal
| N_main : Forester_core.Code.t nonterminal
| N_list_xml_attr_ : ((string option * string) * Forester_core.Code.t) list nonterminal
| N_list_ws_or_text_ : string list nonterminal
| N_list_ws_or_method_decl__ : (string * Forester_core.Code.t) list list nonterminal
| N_list_ws_or_locate_head_node___ : Forester_core.Code.node Forester_core.Range.located list list nonterminal
| N_list_squares_bvar_with_strictness__ : string list Forester_core.Base.binding list nonterminal
| N_list_locate_textual_node__ : Forester_core.Code.t nonterminal
| N_list_WHITESPACE_ : string list nonterminal
| N_ident_with_method_calls : (string list * string list) nonterminal
| N_ident : string list nonterminal
| N_head_node : Forester_core.Code.node nonterminal
| N_bvar_with_strictness : string list Forester_core.Base.binding nonterminal
| N_bvar : string list nonterminal
| N_arg : Forester_core.Code.t nonterminal

include MenhirLib.IncrementalEngine.INSPECTION
  with type 'a lr1state := 'a lr1state
  with type production := production
  with type 'a terminal := 'a terminal
  with type 'a nonterminal := 'a nonterminal
  with type 'a env := 'a env

include MenhirLib.IncrementalEngine.SYMBOLS
  with type 'a terminal := 'a terminal
  with type 'a nonterminal := 'a nonterminal

type 'a symbol =

| T : 'a terminal -> 'a symbol
| N : 'a nonterminal -> 'a symbol

type xsymbol =

| X : 'a symbol -> xsymbol

type item = production * int

val compare_terminals : _ terminal -> _ terminal -> int

val compare_nonterminals : _ nonterminal -> _ nonterminal -> int

val compare_symbols : xsymbol -> xsymbol -> int

val compare_productions : production -> production -> int

val compare_items : item -> item -> int

val incoming_symbol : 'a lr1state -> 'a symbol

val items : _ lr1state -> item list

val lhs : production -> xsymbol

val rhs : production -> xsymbol list

val nullable : _ nonterminal -> bool

val first : _ nonterminal -> _ terminal -> bool

val xfirst : xsymbol -> _ terminal -> bool

val foreach_terminal : (xsymbol -> 'a -> 'a) -> 'a -> 'a

val foreach_terminal_but_error : (xsymbol -> 'a -> 'a) -> 'a -> 'a

val feed : 
  'a symbol ->
  MenhirLib.IncrementalEngine.position ->
  'a ->
  MenhirLib.IncrementalEngine.position ->
  'b env ->
  'b env

package forester