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

change type of SEARCH message to take a DFA, instead of a searchString

Browse Source
This commit is contained in:
Humza Shahid
2025-10-08 05:54:19 +01:00
parent 06106f5de8
commit 5c8e74ac11
5 changed files with 22 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
fcore/normal-mode/normal-mode.sml
View File

@@ -31,9 +31,9 @@ struct
let
open MailboxType
val {cursorIdx = origCursorIdx, ...} = app
val {cursorIdx = origCursorIdx, dfa, ...} = app
val buffer = LineGap.goToStart buffer
val initialMsg = [SEARCH (buffer, raise Fail "searchString", time)]
val initialMsg = [SEARCH (buffer, dfa, time)]
in
NormalDelete.finishAfterDeletingBuffer
(app, origCursorIdx, buffer, time, initialMsg)
@@ -94,7 +94,7 @@ struct
let
open MailboxType
val {cursorIdx, buffer, ...} = app
val {cursorIdx, buffer, dfa, ...} = app
val buffer = LineGap.goToIdx (cursorIdx, buffer)
val lineStart = Cursor.vi0 (buffer, cursorIdx)
@@ -127,7 +127,7 @@ struct
loop (nextLine, buffer, count - 1)
val buffer = LineGap.goToStart buffer
val initialMsg = [SEARCH (buffer, raise Fail "searchString", time)]
val initialMsg = [SEARCH (buffer, dfa, time)]
in
NormalDelete.finishAfterDeletingBuffer
(app, newCursorIdx, buffer, time, initialMsg)