humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

reimplement functionality to run whole text search using DFA

Browse Source
This commit is contained in:
Humza Shahid
2025-10-08 06:40:20 +01:00
parent 3c2e5812cd
commit 4d1b2073dc
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
shell/search-thread.sml
View File

@@ -2,12 +2,11 @@ structure SearchThread =
struct struct
open CML open CML
(* Prerequisite to sending message: move buffer to end. *)
fun loop () = fun loop () =
let let
val (buffer, dfa, time) = Mailbox.recv SearchMailbox.mailbox val (buffer, dfa, time) = Mailbox.recv SearchMailbox.mailbox
val searchList = val iterator = LineGap.makeStringIterator buffer
raise Fail "todo: reimplement full builder for searchList" val searchList = SearchList.build (iterator, dfa)
val msg = InputMsg.WITH_SEARCH_LIST (searchList, time) val msg = InputMsg.WITH_SEARCH_LIST (searchList, time)
val () = InputMailbox.append msg val () = InputMailbox.append msg
in in