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

remove dead comment

Browse Source
This commit is contained in:
Humza Shahid
2024-07-03 14:49:32 +01:00
parent 0012304854
commit 3a954ceb4c
1 changed files with 22 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
src/line_gap.sml
View File

@@ -724,42 +724,35 @@ struct
val midpoint = binSearch (String.size strSub1 - 1, rightLinesHd) val midpoint = binSearch (String.size strSub1 - 1, rightLinesHd)
in in
if if
isThreeInLimit (strSub1, newString, strSub2, rightLinesHd, newLines) (*
isThreeInLimit (strSub1, newString, strSub2, rightLinesHd, newLines)
*)
true
then then
(* Join three strings together. *) (* Join three strings together. *)
let let
(* VERIFIED TO WORK *)
val _ = print "line 573\n" val _ = print "line 573\n"
val newRightStringsHd = String.concat [strSub1, newString, strSub2] val newRightStringsHd = String.concat [strSub1, newString, strSub2]
(* val newRightLinesHd =
val newRightLinesHd = if Vector.length rightLinesHd > 0 then
Vector.tabulate Vector.tabulate
( Vector.length rightLinesHd + Vector.length newLines ( Vector.length rightLinesHd + Vector.length newLines
, fn idx => , fn idx =>
if idx < midpoint then if idx <= midpoint then
Vector.sub (rightLinesHd, idx) Vector.sub (rightLinesHd, idx)
else if idx < midpoint + Vector.length newLines then else if idx <= midpoint + Vector.length newLines then
let Vector.sub (newLines, (idx - midpoint) - 1)
val result = + String.size strSub1
Vector.sub (newLines, idx - midpoint) + String.size else
strSub1
val _ = print "line 598\n"
val _ = print ("result: " ^ Int.toString result ^ "\n")
in
result
end
else
let
val result =
Vector.sub Vector.sub
(rightLinesHd, idx - Vector.length newLines) (rightLinesHd, (idx - Vector.length newLines))
+ String.size newString + String.size newString
val _ = print "line 606\n" )
val _ = print ("result: " ^ Int.toString result ^ "\n") else
in Vector.map (fn el => el + String.size strSub1) newLines
result
end
) *)
in in
verifyReturn verifyReturn
{ idx = curIdx { idx = curIdx
@@ -767,7 +760,7 @@ struct
, leftStrings = leftStrings , leftStrings = leftStrings
, leftLines = leftLines , leftLines = leftLines
, rightStrings = newRightStringsHd :: rightStringsTl , rightStrings = newRightStringsHd :: rightStringsTl
, rightLines = countLineBreaks newRightStringsHd :: rightLinesTl , rightLines = newRightLinesHd :: rightLinesTl
} }
end end
else if else if