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

add function to line_gap.sml to check if iterator is at end

Browse Source
This commit is contained in:
Humza Shahid
2025-10-08 06:24:40 +01:00
parent 7248a3e27f
commit 1d6213636e
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/line_gap.sml
View File

@@ -40,6 +40,7 @@ sig
val makeStringIterator: t -> string_iterator val makeStringIterator: t -> string_iterator
val moveIteratorToIdx: int * string_iterator -> string_iterator val moveIteratorToIdx: int * string_iterator -> string_iterator
val subIterator: int * string_iterator -> char val subIterator: int * string_iterator -> char
val isIteratorAtEnd: string_iterator -> bool
(* for testing *) (* for testing *)
val verifyIndex: t -> unit val verifyIndex: t -> unit
@@ -3382,6 +3383,9 @@ struct
else else
moveIteratorRight (findIdx, idx, leftStrings, rightStrings) moveIteratorRight (findIdx, idx, leftStrings, rightStrings)
fun isIteratorAtEnd {idx = _, leftStrings = _, rightStrings} =
List.null rightStrings
fun subIterator (findIdx, {idx, leftStrings, rightStrings}) = fun subIterator (findIdx, {idx, leftStrings, rightStrings}) =
if findIdx >= idx then if findIdx >= idx then
case rightStrings of case rightStrings of