Kernel.CoverageSourcemodule Position : sig ... endtype 'g positions = {desc : ('g position, 'g position_desc) Fix.Indexing.vector;zero : ('g Info.nonterminal, 'g position Fix.Indexing.index)
Fix.Indexing.vector;}val previous_position :
'g positions ->
int ->
('g Info.nonterminal Fix.Indexing.index, int) Stdlib.Either.tval get_map :
('a, ('b, 'c Utils.IndexSet.t Stdlib.ref) Utils.IndexMap.t)
Fix.Indexing.Vector.t ->
int ->
'b Fix.Indexing.index ->
'c Utils.IndexSet.t Stdlib.reftype ('g, 'lrc) lrc_position =
('g position Fix.Indexing.Opt.n, 'lrc) Fix.Indexing.Prod.n Fix.Indexing.indextype ('g, 'st, 'lrc) coverage_transition = {source : 'st Fix.Indexing.index;source_position : ('g, 'lrc) lrc_position;target_position : ('g, 'lrc) lrc_position;lookahead : 'g Info.terminal Utils.Misc.indexset;}type ('g, 'st, 'lrc) machine_coverage = {transitions : ('st, ('g, 'st, 'lrc) coverage_transition list)
Fix.Indexing.vector;unhandled_initial : 'lrc Utils.Misc.indexset;unhandled_predecessors : ('st,
(('g, 'lrc) lrc_position
* 'lrc Utils.Misc.indexset
* 'g Info.terminal Utils.Misc.indexset)
list)
Fix.Indexing.vector;}val coverage :
'g Info.grammar ->
('g, 'r) Spec.branches ->
('g, 'r, 'st, 'tr) Automata.Machine.t ->
('g, 'lrc) Automata.stacks ->
('g Info.lr1, 'g Redgraph.reduction_closure) Fix.Indexing.vector ->
'g positions ->
int option ->
('g, 'st, 'lrc) machine_coverageval string_of_items_for_filter :
'a Kernel__Info.grammar ->
'a Info.Lr0.n Fix.Indexing.index ->
string listtype ('g, 'lrc) uncovered_case = {main_pattern : 'g Info.lr0 Fix.Indexing.index;suffixes : ('lrc Fix.Indexing.index list
* 'g Info.terminal Utils.Misc.indexset
* 'g Info.lr0 Utils.Misc.indexset)
list;}val uncovered_cases :
'a Info.grammar ->
('a Info.lr1, 'a Redgraph.reduction_closure) Fix.Indexing.vector ->
('a, 'lrc) Automata.stacks ->
'a positions ->
('a, 'b, 'lrc) machine_coverage ->
('a, 'lrc) uncovered_case Stdlib.Seq.tval report_case :
'a Info.grammar ->
('a, 'b) Automata.stacks ->
'a Reachability.t ->
output:(string -> unit) ->
get_prefix:('b Fix.Indexing.index -> 'b Fix.Indexing.index list) ->
('a, 'b) uncovered_case ->
unit