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

23
fcore/normal-mode/make-normal-delete.sml
View File

@@ -13,7 +13,7 @@ struct
let
val buffer = LineGap.goToIdx (low, buffer)
val buffer = LineGap.goToStart buffer
val msgs = SEARCH (buffer, raise Fail "searchString", time) :: msgs
val msgs = SEARCH (buffer, #dfa app, time) :: msgs
val buffer = LineGap.goToIdx (low - 1111, buffer)
val (buffer, searchList) =
@@ -235,8 +235,7 @@ struct
val buffer = LineGap.delete (low, length, buffer)
val buffer = LineGap.goToStart buffer
val initialMsg =
SEARCH (buffer, raise Fail "searchString", time) :: initialMsg
val initialMsg = SEARCH (buffer, #dfa app, time) :: initialMsg
val buffer = LineGap.goToIdx (cursorIdx - 1111, buffer)
val (buffer, searchList) =
@@ -705,8 +704,7 @@ struct
val buffer = LineGap.delete (0, cursorIdx, buffer)
val buffer = LineGap.goToStart buffer
val initialMsg =
SEARCH (buffer, raise Fail "searchString", time) :: initialMsg
val initialMsg = SEARCH (buffer, dfa, time) :: initialMsg
val buffer = LineGap.goToIdx (cursorIdx - 1111, buffer)
val (buffer, searchList) =
@@ -754,8 +752,7 @@ struct
val buffer = LineGap.delete (low, length, buffer)
val buffer = LineGap.goToStart buffer
val initialMsg =
SEARCH (buffer, raise Fail "searchString", time) :: initialMsg
val initialMsg = SEARCH (buffer, dfa, time) :: initialMsg
val buffer = LineGap.goToIdx (low - 1111, buffer)
val (buffer, searchList) = SearchList.buildRange (buffer, low + 1111, dfa)
@@ -813,8 +810,7 @@ struct
val buffer = LineGap.delete (low, length, buffer)
val buffer = LineGap.goToStart buffer
val initialMsg =
SEARCH (buffer, raise Fail "searchString", time) :: initialMsg
val initialMsg = SEARCH (buffer, dfa, time) :: initialMsg
val buffer = LineGap.goToIdx (low - 1111, buffer)
val (buffer, searchList) =
@@ -846,8 +842,7 @@ struct
val buffer = LineGap.delete (low, length, buffer)
val buffer = LineGap.goToStart buffer
val initialMsg =
SEARCH (buffer, raise Fail "searchString", time) :: initialMsg
val initialMsg = SEARCH (buffer, dfa, time) :: initialMsg
val buffer = LineGap.goToIdx (low - 1111, buffer)
val (buffer, searchList) =
@@ -876,8 +871,7 @@ struct
val buffer = LineGap.delete (low, length, buffer)
val buffer = LineGap.goToStart buffer
val initialMsg =
SEARCH (buffer, raise Fail "searchString", time) :: initialMsg
val initialMsg = SEARCH (buffer, dfa, time) :: initialMsg
val buffer = LineGap.goToIdx (low - 1111, buffer)
val (buffer, searchList) =
@@ -990,8 +984,7 @@ struct
low
val buffer = LineGap.goToStart buffer
val initialMsg =
SEARCH (buffer, raise Fail "searchString", time) :: initialMsg
val initialMsg = SEARCH (buffer, dfa, time) :: initialMsg
val buffer = LineGap.goToIdx (low - 1111, buffer)
val (buffer, searchList) =