include MONOLITHIC_ENGINEval entry :
[ `Legacy | `Simplified ] ->
state ->
(Stdlib.Lexing.lexbuf -> token) ->
Stdlib.Lexing.lexbuf ->
semantic_valueinclude IncrementalEngine.INCREMENTAL_ENGINE
with type token := token
and type 'a lr1state = stateval offer :
'a checkpoint ->
(token * IncrementalEngine.position * IncrementalEngine.position) ->
'a checkpointval resume : ?strategy:strategy -> 'a checkpoint -> 'a checkpointtype supplier =
unit ->
token * IncrementalEngine.position * IncrementalEngine.positionval loop : ?strategy:strategy -> supplier -> 'a checkpoint -> 'aval loop_handle :
('a -> 'answer) ->
('a checkpoint -> 'answer) ->
supplier ->
'a checkpoint ->
'answerval loop_handle_undo :
('a -> 'answer) ->
('a checkpoint -> 'a checkpoint -> 'answer) ->
supplier ->
'a checkpoint ->
'answerval shifts : 'a checkpoint -> 'a env optionval acceptable : 'a checkpoint -> token -> IncrementalEngine.position -> booltype 'a lr1state = stateval number : _ lr1state -> intval production_index : production -> intval find_production : int -> productiontype element = | Element : 'a lr1state
* 'a
* IncrementalEngine.position
* IncrementalEngine.position -> elementtype stack = element General.streamval current_state_number : 'a env -> intval positions :
'a env ->
IncrementalEngine.position * IncrementalEngine.positionval env_has_default_reduction : 'a env -> boolval state_has_default_reduction : _ lr1state -> boolval force_reduction : production -> 'a env -> 'a envval input_needed : 'a env -> 'a checkpointinclude INCREMENTAL_ENGINE_START
with type state := state
and type semantic_value := semantic_value
and type 'a checkpoint := 'a checkpointval start : state -> Stdlib.Lexing.position -> semantic_value checkpoint