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

checkpoint while implementing prevMatch functionality

Browse Source
This commit is contained in:
Humza Shahid
2025-10-08 10:39:49 +01:00
parent 0de7a9278a
commit 088c5c3d98
1 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
fcore/persistent-vector.sml
View File

@@ -193,12 +193,7 @@ struct
val idx = BinSearch.equalOrMore (cursorIdx, sizes) val idx = BinSearch.equalOrMore (cursorIdx, sizes)
in in
if idx < 0 then {start = ~1, finish = ~1} if idx < 0 then {start = ~1, finish = ~1}
else if idx = 0 then else if idx = 0 then Vector.sub (values, 0)
let
val current = Vector.sub (values, 0)
in
current
end
else else
let let
val current = Vector.sub (values, idx) val current = Vector.sub (values, idx)
@@ -215,7 +210,13 @@ struct
val idx = BinSearch.equalOrMore (cursorIdx, sizes) val idx = BinSearch.equalOrMore (cursorIdx, sizes)
in in
if idx < 0 then {start = ~1, finish = ~1} if idx < 0 then {start = ~1, finish = ~1}
else helpPrevMatch (cursorIdx, Vector.sub (nodes, idx)) else
let
val node = Vector.sub (nodes, idx)
val result = helpPrevMatch (cursorIdx, node)
in
result
end
end end
fun loopPrevMatch (prevStart, tree, count) = fun loopPrevMatch (prevStart, tree, count) =