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

a bit of refactoring

Browse Source
This commit is contained in:
Humza Shahid
2025-07-20 09:56:32 +01:00
parent 10b76d98c5
commit cf15077480
3 changed files with 31 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
fcore/cursor-dfa/vi-WORD-dfa.sml
View File

@@ -35,15 +35,15 @@ struct
Vector.sub (currentTable, charIdx)
end
structure TraverseWORD =
MakeDfaLoop
structure StartOfNextWORD =
MakeNextDfaLoop
(struct
val startState = startState
fun fNext (idx, absIdx, str, tl, currentState, counter) =
fun fStart (idx, absIdx, str, tl, currentState, counter) =
if idx = String.size str then
case tl of
str :: tl => fNext (0, absIdx, str, tl, currentState, counter)
str :: tl => fStart (0, absIdx, str, tl, currentState, counter)
| [] => Int.max (absIdx - 2, 0)
else
let
@@ -55,16 +55,23 @@ struct
absIdx
else
(* new loop, so reset to start state and proceed *)
fNext (idx + 1, absIdx + 1, str, tl, startState, counter - 1)
fStart
(idx + 1, absIdx + 1, str, tl, startState, counter - 1)
else
fNext (idx + 1, absIdx + 1, str, tl, newState, counter)
fStart (idx + 1, absIdx + 1, str, tl, newState, counter)
end
end)
fun fPrev (idx, absIdx, str, tl, currentState, counter) =
structure EndOfPrevWORD =
MakePrevDfaLoop
(struct
val startState = startState
fun fStart (idx, absIdx, str, tl, currentState, counter) =
if idx < 0 then
case tl of
str :: tl =>
fPrev
fStart
(String.size str - 1, absIdx, str, tl, currentState, counter)
| [] => 0
else
@@ -77,12 +84,13 @@ struct
absIdx
else
(* reset to start state and proceed *)
fPrev (idx - 1, absIdx - 1, str, tl, startState, counter - 1)
fStart
(idx - 1, absIdx - 1, str, tl, startState, counter - 1)
else
fPrev (idx - 1, absIdx - 1, str, tl, newState, counter)
fStart (idx - 1, absIdx - 1, str, tl, newState, counter)
end
end)
val next = TraverseWORD.next
val prev = TraverseWORD.prev
val startOfNextWORD = StartOfNextWORD.next
val endOfPrevWORD = EndOfPrevWORD.prev
end