CamlinternalMenhirLib.InspectionTableInterpreter.Make

# Functor CamlinternalMenhirLib.InspectionTableInterpreter.Make

    module Make: functor (TT : CamlinternalMenhirLib.TableFormat.TABLES) -> functor (IT : CamlinternalMenhirLib.InspectionTableFormat.TABLES
            with type 'a lr1state = int) -> functor (ET : CamlinternalMenhirLib.EngineTypes.TABLE
            with type terminal = int
             and type nonterminal = int
             and type semantic_value = Obj.t) -> functor (E : sig

    type 'a env = (ET.state, ET.semantic_value, ET.token) CamlinternalMenhirLib.EngineTypes.env

    end) -> CamlinternalMenhirLib.IncrementalEngine.INSPECTION
      with type 'a terminal := 'a IT.terminal
       and type 'a nonterminal := 'a IT.nonterminal
       and type 'a lr1state := 'a IT.lr1state
       and type production := int
       and type 'a env := 'a E.env

Parameters: |
`TT` | : | `CamlinternalMenhirLib.TableFormat.TABLES`
`IT` | : | `InspectionTableFormat.TABLES with type 'a lr1state = int`
`ET` | : | `EngineTypes.TABLE with type terminal = int and type nonterminal = int and type semantic_value = Obj.t`
`E` | : | `sig type 'a env = (ET.state, ET.semantic_value, ET.token) EngineTypes.env end`

    include CamlinternalMenhirLib.IncrementalEngine.SYMBOLS

    type 'a lr1state

    type production

    type item = production * int

    val compare_terminals : 'a terminal -> 'b terminal -> int

    val compare_nonterminals : 'a nonterminal -> 'b 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 : 'a lr1state ->
           item list

    val lhs : production -> xsymbol

    val rhs : production -> xsymbol list

    val nullable : 'a nonterminal -> bool

    val first : 'a nonterminal -> 'b terminal -> bool

    val xfirst : xsymbol -> 'a terminal -> bool

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

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

    type 'a env

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