Module `Flambda_parser.MenhirInterpreter`

include CamlinternalMenhirLib.IncrementalEngine.INCREMENTAL_ENGINE
  with type token = Flambda2_parser.Flambda_parser.token

type token = Flambda2_parser.Flambda_parser.token

type production

type 'a env

type 'a checkpoint = private

| InputNeeded of 'a Flambda2_parser.Flambda_parser.MenhirInterpreter.env
| Shifting of 'a Flambda2_parser.Flambda_parser.MenhirInterpreter.env * 'a Flambda2_parser.Flambda_parser.MenhirInterpreter.env * bool
| AboutToReduce of 'a Flambda2_parser.Flambda_parser.MenhirInterpreter.env * Flambda2_parser.Flambda_parser.MenhirInterpreter.production
| HandlingError of 'a Flambda2_parser.Flambda_parser.MenhirInterpreter.env
| Accepted of 'a
| Rejected

val offer : 
  'a Flambda2_parser.Flambda_parser.MenhirInterpreter.checkpoint ->
  (Flambda2_parser.Flambda_parser.MenhirInterpreter.token
   * CamlinternalMenhirLib.IncrementalEngine.position
   * CamlinternalMenhirLib.IncrementalEngine.position) ->
  'a Flambda2_parser.Flambda_parser.MenhirInterpreter.checkpoint

type strategy = [

| `Legacy
| `Simplified

]

val resume : 
  ?strategy:Flambda2_parser.Flambda_parser.MenhirInterpreter.strategy ->
  'a Flambda2_parser.Flambda_parser.MenhirInterpreter.checkpoint ->
  'a Flambda2_parser.Flambda_parser.MenhirInterpreter.checkpoint

type supplier =
  unit ->
  Flambda2_parser.Flambda_parser.MenhirInterpreter.token
  * CamlinternalMenhirLib.IncrementalEngine.position
  * CamlinternalMenhirLib.IncrementalEngine.position

val lexer_lexbuf_to_supplier : 
  (Stdlib.Lexing.lexbuf ->
    Flambda2_parser.Flambda_parser.MenhirInterpreter.token) ->
  Stdlib.Lexing.lexbuf ->
  Flambda2_parser.Flambda_parser.MenhirInterpreter.supplier

val loop : 
  ?strategy:Flambda2_parser.Flambda_parser.MenhirInterpreter.strategy ->
  Flambda2_parser.Flambda_parser.MenhirInterpreter.supplier ->
  'a Flambda2_parser.Flambda_parser.MenhirInterpreter.checkpoint ->
  'a

val loop_handle : 
  ('a -> 'answer) ->
  ('a Flambda2_parser.Flambda_parser.MenhirInterpreter.checkpoint -> 'answer) ->
  Flambda2_parser.Flambda_parser.MenhirInterpreter.supplier ->
  'a Flambda2_parser.Flambda_parser.MenhirInterpreter.checkpoint ->
  'answer

val loop_handle_undo : 
  ('a -> 'answer) ->
  ('a Flambda2_parser.Flambda_parser.MenhirInterpreter.checkpoint ->
    'a Flambda2_parser.Flambda_parser.MenhirInterpreter.checkpoint ->
    'answer) ->
  Flambda2_parser.Flambda_parser.MenhirInterpreter.supplier ->
  'a Flambda2_parser.Flambda_parser.MenhirInterpreter.checkpoint ->
  'answer

val shifts : 
  'a Flambda2_parser.Flambda_parser.MenhirInterpreter.checkpoint ->
  'a Flambda2_parser.Flambda_parser.MenhirInterpreter.env option

val acceptable : 
  'a Flambda2_parser.Flambda_parser.MenhirInterpreter.checkpoint ->
  Flambda2_parser.Flambda_parser.MenhirInterpreter.token ->
  CamlinternalMenhirLib.IncrementalEngine.position ->
  bool

type 'a lr1state

val number : _ Flambda2_parser.Flambda_parser.MenhirInterpreter.lr1state -> int

val production_index : 
  Flambda2_parser.Flambda_parser.MenhirInterpreter.production ->
  int

val find_production : 
  int ->
  Flambda2_parser.Flambda_parser.MenhirInterpreter.production

type element =

| Element : 'a Flambda2_parser.Flambda_parser.MenhirInterpreter.lr1state * 'a * CamlinternalMenhirLib.IncrementalEngine.position * CamlinternalMenhirLib.IncrementalEngine.position -> Flambda2_parser.Flambda_parser.MenhirInterpreter.element

type stack =
  Flambda2_parser.Flambda_parser.MenhirInterpreter.element
    CamlinternalMenhirLib.General.stream

val stack : 
  'a Flambda2_parser.Flambda_parser.MenhirInterpreter.env ->
  Flambda2_parser.Flambda_parser.MenhirInterpreter.stack

val top : 
  'a Flambda2_parser.Flambda_parser.MenhirInterpreter.env ->
  Flambda2_parser.Flambda_parser.MenhirInterpreter.element option

val pop_many : 
  int ->
  'a Flambda2_parser.Flambda_parser.MenhirInterpreter.env ->
  'a Flambda2_parser.Flambda_parser.MenhirInterpreter.env option

val get : 
  int ->
  'a Flambda2_parser.Flambda_parser.MenhirInterpreter.env ->
  Flambda2_parser.Flambda_parser.MenhirInterpreter.element option

val current_state_number : 
  'a Flambda2_parser.Flambda_parser.MenhirInterpreter.env ->
  int

val equal : 
  'a Flambda2_parser.Flambda_parser.MenhirInterpreter.env ->
  'a Flambda2_parser.Flambda_parser.MenhirInterpreter.env ->
  bool

val positions : 
  'a Flambda2_parser.Flambda_parser.MenhirInterpreter.env ->
  CamlinternalMenhirLib.IncrementalEngine.position
  * CamlinternalMenhirLib.IncrementalEngine.position

val env_has_default_reduction : 
  'a Flambda2_parser.Flambda_parser.MenhirInterpreter.env ->
  bool

val state_has_default_reduction : 
  _ Flambda2_parser.Flambda_parser.MenhirInterpreter.lr1state ->
  bool

val pop : 
  'a Flambda2_parser.Flambda_parser.MenhirInterpreter.env ->
  'a Flambda2_parser.Flambda_parser.MenhirInterpreter.env option

val force_reduction : 
  Flambda2_parser.Flambda_parser.MenhirInterpreter.production ->
  'a Flambda2_parser.Flambda_parser.MenhirInterpreter.env ->
  'a Flambda2_parser.Flambda_parser.MenhirInterpreter.env

val input_needed : 
  'a Flambda2_parser.Flambda_parser.MenhirInterpreter.env ->
  'a Flambda2_parser.Flambda_parser.MenhirInterpreter.checkpoint

Module Flambda_parser.MenhirInterpreter

Module `Flambda_parser.MenhirInterpreter`