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

handle \r\n pair in 'viL' function

Browse Source
This commit is contained in:
Humza Shahid
2024-10-17 04:03:45 +01:00
parent 766ab6787c
commit 8fb362ba8b
3 changed files with 27 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
fcore/cursor.sml
View File

@@ -12,13 +12,34 @@ struct
val strIdx = cursorIdx - bufferIdx
in
if strIdx < String.size hd - 2 then
(* increment if there is a character after where cursor is *)
cursorIdx + 1
(* increment if there is a character after where cursor is
* but first, check if we are in a \r\n pair;
* if we are, then increment cursor by 2 *)
if
String.size hd > strIdx + 2
andalso String.sub (hd, strIdx + 1) = #"\r"
andalso String.sub (hd, strIdx + 2) = #"\n"
then
(* increment cursor by 2 if we are inside \r\n pair *)
cursorIdx + 2
else
(* inccrement cursor by 1 if we are not inside \r\n pair *)
cursorIdx + 1
else
(case tl of
_ :: _ =>
(* if there is another string after current head, we can increment cursorIdx *)
cursorIdx + 1
(* if there is another string after current head, we can increment cursorIdx
* however, first we need to check if next string is \r\n pair. *)
if
String.size hd > strIdx + 2
andalso String.sub (hd, strIdx + 1) = #"\r"
andalso String.sub (hd, strIdx + 2) = #"\n"
then
(* increment cursor by 2 if we are inside \r\n pair *)
cursorIdx + 2
else
(* inccrement cursor by 1 if we are not inside \r\n pair *)
cursorIdx + 1
| _ =>
(* if there is no string after current head, return original cursorIdx *)
cursorIdx)