Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(automaton_t), | intent(inout) | :: | automaton | |||
character(len=*), | intent(in) | :: | text | |||
logical, | intent(inout) | :: | res | |||
character(len=*), | intent(in) | :: | prefix | |||
character(len=*), | intent(in) | :: | suffix | |||
logical, | intent(in) | :: | flag_no_literal_optimize | |||
logical, | intent(inout) | :: | runs_engine |
subroutine runner_do_matching_exactly(automaton, text, res, prefix, suffix, flag_no_literal_optimize, runs_engine) use :: forgex_automaton_m use :: forgex_syntax_tree_optimize_m use :: forgex_cli_api_internal_no_opts_m use :: forgex_api_internal_m implicit none type(automaton_t), intent(inout) :: automaton character(*), intent(in) :: text logical, intent(inout) :: res logical, intent(inout) :: runs_engine logical, intent(in) :: flag_no_literal_optimize character(*), intent(in) :: prefix, suffix if (flag_no_literal_optimize) then call do_matching_exactly_no_literal_opts(automaton, text, res) runs_engine = .true. else call do_matching_exactly(automaton, text, res, prefix, suffix, runs_engine) end if end subroutine runner_do_matching_exactly