Commit cfb555b6 authored by POTTIER Francois's avatar POTTIER Francois

Removed [Lr1.bfs], which was unused.

parent e6b3de22
......@@ -674,20 +674,6 @@ let n =
let forbid_default_reduction node =
node.forbid_default_reduction
(* ------------------------------------------------------------------------ *)
(* Breadth-first iteration over all nodes. *)
let bfs =
let module B = Breadth.Make (struct
type vertex = node
type label = Symbol.t
let set_mark node m = node.mark <- m
let get_mark node = node.mark
let entry f = ProductionMap.iter (fun _ node -> f node) entry
let successors f node = SymbolMap.iter f node.transitions
end) in
B.search
(* ------------------------------------------------------------------------ *)
(* The incoming symbol of a node can be computed by going through its LR(0)
core. For this reason, we do not need to explicitly record it here. *)
......
......@@ -101,10 +101,6 @@ val map: (node -> 'a) -> 'a list
val foldx: ('a -> node -> 'a) -> 'a -> 'a
val iterx: (node -> unit) -> unit
(* Breadth-first iteration over all edges. See [Breadth]. *)
val bfs: (bool -> node -> Symbol.t -> node -> unit) -> unit
(* Iteration over all edges that carry a certain symbol. Edges are
grouped in families, where all edges in a single family have the
same target node. [targets f accu symbol] invokes [f accu sources
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment