shell/search-thread.sml

structure SearchThread =
struct
  open CML

  (* Prerequisite to sending message: move buffer to end. *)
  fun loop (searchMailbox, inputMailbox) =
    let
      val (buffer, searchString, time) = Mailbox.recv searchMailbox
      val searchList = SearchList.build (buffer, searchString)
      val msg = InputMsg.WITH_SEARCH_LIST (searchList, time)
      val () = Mailbox.send (inputMailbox, msg)
    in
      loop (searchMailbox, inputMailbox)
    end
end
use concurrency for rebuilding search list after deletion so we don't block main thread on very, very large files 2025-08-07 12:20:57 +01:00			`structure SearchThread =`
			`struct`
			`open CML`

			`(* Prerequisite to sending message: move buffer to end. *)`
			`fun loop (searchMailbox, inputMailbox) =`
			`let`
when constructing SEARCH message, include time in the message as well. This will enable us to ignore any messages when we have a 'later' state available. 2025-09-07 13:24:41 +01:00			`val (buffer, searchString, time) = Mailbox.recv searchMailbox`
don't return (buffer, searchList) tuple when building search list, but only return search list itself. (No point returning buffer as it is never modified or moved.) 2025-08-07 14:40:14 +01:00			`val searchList = SearchList.build (buffer, searchString)`
only update search list if timestamp for search message is greater than the buffer's modified time 2025-09-07 13:37:14 +01:00			`val msg = InputMsg.WITH_SEARCH_LIST (searchList, time)`
			`val () = Mailbox.send (inputMailbox, msg)`
use concurrency for rebuilding search list after deletion so we don't block main thread on very, very large files 2025-08-07 12:20:57 +01:00			`in`
			`loop (searchMailbox, inputMailbox)`
			`end`
			`end`