parse and interpret wildcard character which is a dot .

2025-09-30 14:10:49 +01:00
parent b52b5ff28c
commit 934fa729a9
1 changed files with 2 additions and 0 deletions
--- a/fcore/search-list/nfa.sml
+++ b/fcore/search-list/nfa.sml
@@ -147,6 +147,8 @@ struct
      | ALTERNATION (lst, UNTESTED) => rebuildAlternation (lst, chr, idx, [])
      | ALTERNATION (_, state) => (nfa, state)

+      | WILDCARD _ => let val nfa = WILDCARD (VALID idx) in (nfa, VALID idx) end
+
      | _ => raise Fail "nfa.sml 69: not char literal or concat or alternation"

    (* get all matches in string.