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

delete some code which is now dead

Browse Source
This commit is contained in:
Humza Shahid
2025-07-20 14:10:35 +01:00
parent 90c0d657bc
commit 15fc36c7a4
1 changed files with 0 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

76
fcore/cursor.sml
View File

@@ -837,25 +837,6 @@ struct
helpNextWord (strPos + 1, str, absIdx + 1, strTl, lineTl) helpNextWord (strPos + 1, str, absIdx + 1, strTl, lineTl)
end end
fun helpNextWORD (strPos, str, absIdx, strTl, lineTl) =
if strPos = String.size str then
case (strTl, lineTl) of
(shd :: stl, lhd :: ltl) => helpNextWORD (0, shd, absIdx, stl, ltl)
| (_, _) =>
(* reached end of lineGap;
* return last valid chr position *)
absIdx - 1
else
let
val chr = String.sub (str, strPos)
in
if Char.isSpace chr then
if notIsNextChrSpace (strPos, str, strTl) then absIdx + 1
else helpNextWORD (strPos + 1, str, absIdx + 1, strTl, lineTl)
else
helpNextWORD (strPos + 1, str, absIdx + 1, strTl, lineTl)
end
fun toNextWord (lineGap: LineGap.t, cursorIdx, fNext) = fun toNextWord (lineGap: LineGap.t, cursorIdx, fNext) =
let let
val {rightStrings, rightLines, idx = bufferIdx, ...} = lineGap val {rightStrings, rightLines, idx = bufferIdx, ...} = lineGap
@@ -922,27 +903,6 @@ struct
helpPrevWord (strPos - 1, str, absIdx - 1, strTl, lineTl) helpPrevWord (strPos - 1, str, absIdx - 1, strTl, lineTl)
end end
fun helpPrevWORD (strPos, str, absIdx, strTl, lineTl) =
if strPos < 0 then
case (strTl, lineTl) of
(shd :: stl, lhd :: ltl) =>
helpPrevWORD (String.size shd - 1, shd, absIdx, stl, ltl)
| (_, _) =>
(* reached start of lineGap;
* return 0 which is start idx *)
0
else
let
val chr = String.sub (str, strPos)
in
if Char.isSpace chr then
helpPrevWORD (strPos - 1, str, absIdx - 1, strTl, lineTl)
else if isPrevChrSpace (strPos, str, strTl) then
absIdx
else
helpPrevWORD (strPos - 1, str, absIdx - 1, strTl, lineTl)
end
fun helpEndOfPrevWord (strPos, str, absIdx, strTl, lineTl) = fun helpEndOfPrevWord (strPos, str, absIdx, strTl, lineTl) =
if strPos < 0 then if strPos < 0 then
case (strTl, lineTl) of case (strTl, lineTl) of
@@ -967,25 +927,6 @@ struct
helpEndOfPrevWord (strPos - 1, str, absIdx - 1, strTl, lineTl) helpEndOfPrevWord (strPos - 1, str, absIdx - 1, strTl, lineTl)
end end
fun helpEndOfPrevWORD (strPos, str, absIdx, strTl, lineTl) =
if strPos < 0 then
case (strTl, lineTl) of
(shd :: stl, lhd :: ltl) =>
helpEndOfPrevWORD (String.size shd - 1, shd, absIdx, stl, ltl)
| (_, _) => 0
else
let
val chr = String.sub (str, strPos)
in
if Char.isSpace chr then
if isPrevChrSpace (strPos, str, strTl) then
helpEndOfPrevWORD (strPos - 1, str, absIdx - 1, strTl, lineTl)
else
absIdx - 1
else
helpEndOfPrevWORD (strPos - 1, str, absIdx - 1, strTl, lineTl)
end
fun startPrevWord (shd, strIdx, absIdx, stl, ltl, fPrev) = fun startPrevWord (shd, strIdx, absIdx, stl, ltl, fPrev) =
(* we want to start iterating from previous character (* we want to start iterating from previous character
* and ignore the character the cursor is at * and ignore the character the cursor is at
@@ -1108,23 +1049,6 @@ struct
helpEndOfWord (strPos + 1, str, absIdx + 1, stl, ltl) helpEndOfWord (strPos + 1, str, absIdx + 1, stl, ltl)
end end
fun helpEndOfWORD (strPos, str, absIdx, stl, ltl) =
if strPos = String.size str then
case (stl, ltl) of
(shd :: stl, lhd :: ltl) => helpEndOfWORD (0, shd, absIdx, stl, ltl)
| (_, _) => absIdx - 1
else
let
val chr = String.sub (str, strPos)
in
if Char.isSpace chr then
helpEndOfWORD (strPos + 1, str, absIdx + 1, stl, ltl)
else if isNextChrSpace (strPos, str, stl) then
absIdx
else
helpEndOfWORD (strPos + 1, str, absIdx + 1, stl, ltl)
end
fun startEndOfWord (shd, strIdx, absIdx, stl, ltl, fEnd) = fun startEndOfWord (shd, strIdx, absIdx, stl, ltl, fEnd) =
(* we want to start iterating from next char after strIdx *) (* we want to start iterating from next char after strIdx *)
if strIdx - 1 < String.size shd then if strIdx - 1 < String.size shd then