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

fix infinite loop in src/line_gap.sml (still have other errors I need to address though)

Browse Source
This commit is contained in:
Humza Shahid
2024-07-16 01:03:09 +01:00
parent d47181921e
commit 1a325fcc87
1 changed files with 88 additions and 74 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
src/line_gap.sml
View File

@@ -170,7 +170,7 @@ struct
val curVal = Vector.sub (lines, idx)
in
if curVal > findNum then idx
else forwardLinearSearch (findNum, idx, lines)
else forwardLinearSearch (findNum, idx + 1, lines)
end
fun helpBinSearch (findNum, lines, low, high) =
@@ -983,6 +983,7 @@ struct
in
fun insert (idx, newString, buffer: t) =
let
val _ = print "inserting...\n"
val newLines = countLineBreaks newString
in
ins
@@ -1018,6 +1019,7 @@ struct
(rightStringsHd :: rightStringsTl, rightLinesHd :: rightLinesTl) =>
let
val nextIdx = moveIdx + String.size rightStringsHd
val _ = println "1021"
in
if nextIdx < finish then
(* Keep moving right. *)
@@ -1110,6 +1112,7 @@ struct
(rightStringsHd :: rightStringsTl, rightLinesHd :: rightLinesTl) =>
let
val nextIdx = curIdx + String.size rightStringsHd
val _ = println "1113"
in
if nextIdx < start then
(* Keep moving right.
@@ -1510,6 +1513,7 @@ struct
let
val prevIdx = curIdx - String.size leftStringsHd
val prevLine = curLine - Vector.length leftLinesHd
val _ = println "1513"
in
if start < prevIdx then
(* Continue deleting leftward. *)
@@ -1597,6 +1601,7 @@ struct
, rightStrings
, rightLines
)
val _ = println "1600"
in
deleteLeftFromHere
( start
@@ -1622,6 +1627,7 @@ struct
case (leftStrings, leftLines) of
(leftStringsHd :: leftStringsTl, leftLinesHd :: leftLinesTl) =>
let
val _ = println "1625"
val prevIdx = curIdx - String.size leftStringsHd
in
if prevIdx > finish then
@@ -1782,19 +1788,7 @@ struct
end
else
leftLinesHd
val realsub1lines = countLineBreaks sub1
val _ =
if realsub1lines = sub1Lines then
()
else
let
val _ = println "realsub1lines error"
val _ = checkLineBreaks (sub1Lines, realsub1lines)
val _ = println "after realsub1lines error"
in
()
end
val _ = println "1791; base case"
val sub2Lines =
let
@@ -1809,18 +1803,14 @@ struct
Vector.tabulate
( Vector.length leftLinesHd - midpoint
, fn idx =>
Vector.sub (leftLinesHd, idx + (midpoint))
Vector.sub (leftLinesHd, idx + midpoint)
- sub2Start
)
else
Vector.fromList []
end
val realsub2lines = countLineBreaks sub2
val _ =
if realsub2lines = sub2Lines then ()
else println "realsub2lines error"
val _ = println "1829; base case"
in
{ idx = prevIdx + String.size sub1
, line =
@@ -1914,6 +1904,9 @@ struct
end
else
(* Cannot join while staying in limit. *)
let
val _ = print "1922"
in
deleteLeftFromHere
( start
, prevIdx
@@ -1923,6 +1916,7 @@ struct
, leftStringsHd :: rightStrings
, leftLinesHd :: rightLines
)
end
| (_, _) =>
(* Left strings and lines are empty, so just return. *)
{ idx = 0
@@ -1954,6 +1948,9 @@ struct
, rightLines
) =
if start > curIdx then
let
val _ = println "1963"
in
moveRightAndDelete
( start
, finish
@@ -1964,8 +1961,12 @@ struct
, rightStrings
, rightLines
)
end
else if start < curIdx then
if finish <= curIdx then
let
val _ = println "1976"
in
moveLeftAndDelete
( start
, finish
@@ -1976,7 +1977,11 @@ struct
, rightStrings
, rightLines
)
end
else
let
val _ = println "1988"
in
deleteFromLetAndRight
( start
, finish
@@ -1987,7 +1992,11 @@ struct
, rightStrings
, rightLines
)
end
else
let
val _ = println "2000"
in
deleteRightFromHere
( curIdx
, curLine
@@ -1998,9 +2007,13 @@ struct
, rightStrings
, rightLines
)
end
in
fun delete (start, length, buffer: t) =
if length > 0 then
let
val _ = println "deleting..."
in
del
( start
, start + length
@@ -2011,6 +2024,7 @@ struct
, #rightStrings buffer
, #rightLines buffer
)
end
else
buffer
end