Commit a40570ac authored by POTTIER Francois's avatar POTTIER Francois


parent 75a08d51
......@@ -399,7 +399,7 @@ type dfa = {
that case, the following flag should be set to true]. *)
let accepting_state_can_have_successors =
let may_have_successors (e : regexp) : bool =
accepting_state_can_have_successors || not (nullable e)
......@@ -476,6 +476,10 @@ let dfa (e : regexp) : dfa =
the input, so (if desired) it is easy to check a posteriori whether the end
of the input was reached. *)
(* Beside, if [accepting_state_can_have_successors] is [true], then it makes
sense to offer a variant of [exec] that returns no just the first match,
but a list of all matches. This is not done here. *)
type input = Char.t Seq.t
let rec exec (a : dfa) (q : state) (input : input) (i : int) =
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