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

fix another Vector.tabulate bug (else if statement starting from line 473)

Browse Source
This commit is contained in:
Humza Shahid
2024-07-01 06:52:32 +01:00
parent c9a221b5bd
commit 1be8a40e48
1 changed files with 36 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
src/line_gap.sml
View File

@@ -413,6 +413,7 @@ struct
(* If we can join newString/lines with sub1 while (* If we can join newString/lines with sub1 while
* staying in limit. *) * staying in limit. *)
let let
(* VERIFIED TO WORK *)
val _ = print "line 416\n\n\n" val _ = print "line 416\n\n\n"
val _ = print val _ = print
("vector length: " ^ Int.toString (Vector.length newLines) ^ "\n") ("vector length: " ^ Int.toString (Vector.length newLines) ^ "\n")
@@ -474,30 +475,41 @@ struct
(* If we can join newString/line with sub2 while staying (* If we can join newString/line with sub2 while staying
* in limit. *) * in limit. *)
let let
val _ = print "line 292\n" (* VERIFIED TO WORK *)
(* val _ = print "line 478\n"
val newLeftLines = VectorSlice.slice (leftLinesHd, 0, SOME midpoint) val newLeftLines =
val newLeftLines = VectorSlice.vector newLeftLines if midpoint >= 0 andalso Vector.length leftLinesHd > 0 then
let
val newLeftLines = VectorSlice.slice
(leftLinesHd, 0, SOME (midpoint + 1))
in
VectorSlice.vector newLeftLines
end
else
Vector.fromList []
val newRightLines = val newRightLines =
Vector.tabulate Vector.tabulate
( (Vector.length leftLinesHd - midpoint) ( (Vector.length leftLinesHd - Vector.length newLeftLines)
+ Vector.length newLines + Vector.length newLines
, fn idx => , fn idx =>
if idx < Vector.length newLines then if idx < Vector.length newLines then
Vector.sub (newLines, idx) Vector.sub (newLines, idx)
else else
(Vector.sub (leftLinesHd, idx - Vector.length newLines) Vector.sub
- String.size strSub1) + String.size newString ( leftLinesHd
) *) , (idx - Vector.length newLines)
+ Vector.length newLeftLines
) - String.size strSub1 + String.size newString
)
in in
verifyReturn verifyReturn
{ idx = prevIdx + String.size strSub1 { idx = prevIdx + String.size strSub1
, line = (curLine - Vector.length leftLinesHd) + midpoint , line = (curLine - Vector.length leftLinesHd) + midpoint
, leftStrings = strSub1 :: leftStringsTl , leftStrings = strSub1 :: leftStringsTl
, leftLines = countLineBreaks strSub1 :: leftLinesTl , leftLines = newLeftLines :: leftLinesTl
, rightStrings = (newString ^ strSub2) :: rightStrings , rightStrings = (newString ^ strSub2) :: rightStrings
, rightLines = countLineBreaks (newString ^ strSub2) :: rightLines , rightLines = newRightLines :: rightLines
} }
end end
else else