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

add deletion to compare-testing (deletion does not work properly yet, as expected)

Browse Source
This commit is contained in:
Humza Shahid
2024-07-14 17:49:05 +01:00
parent 7c7a4103d8
commit d8b65a5546
1 changed files with 58 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
tests/compare_to_rope.sml
View File

@@ -1,6 +1,6 @@
structure CompareToRope = structure CompareToRope =
struct struct
fun compareTxns arr = fun compareTxns arr =
Vector.foldli Vector.foldli
(fn (idx, (pos, delNum, insStr), (rope, gapBuffer)) => (fn (idx, (pos, delNum, insStr), (rope, gapBuffer)) =>
let let
@@ -8,9 +8,14 @@ fun compareTxns arr =
val oldRope = rope val oldRope = rope
val strSize = String.size insStr val strSize = String.size insStr
val rope =
if delNum > 0 then TinyRope.delete (pos, delNum, rope) else rope
val rope = val rope =
if strSize > 0 then TinyRope.insert (pos, insStr, rope) else rope if strSize > 0 then TinyRope.insert (pos, insStr, rope) else rope
val gapBuffer =
if delNum > 0 then LineGap.delete (pos, delNum, gapBuffer)
else gapBuffer
val gapBuffer = val gapBuffer =
if strSize > 0 then LineGap.insert (pos, insStr, gapBuffer) if strSize > 0 then LineGap.insert (pos, insStr, gapBuffer)
else gapBuffer else gapBuffer