From 934fa729a96e40f16460957ceacf99c581f71cb8 Mon Sep 17 00:00:00 2001
From: Humza Shahid <humzasaur@gmail.com>
Date: Tue, 30 Sep 2025 14:10:49 +0100
Subject: [PATCH] parse and interpret wildcard character which is a dot .

---
 fcore/search-list/nfa.sml | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/fcore/search-list/nfa.sml b/fcore/search-list/nfa.sml
index 8b61bb8..5ad483c 100644
--- 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.