91 lines
2.9 KiB
Standard ML
91 lines
2.9 KiB
Standard ML
structure CompareToRope =
|
|
struct
|
|
fun compareTxns arr =
|
|
Vector.foldli
|
|
(fn (idx, (pos, delNum, insStr), (rope, gapBuffer)) =>
|
|
let
|
|
val _ = print ("txn number: " ^ Int.toString idx ^ "\n")
|
|
val oldRope = rope
|
|
val strSize = String.size insStr
|
|
|
|
val rope =
|
|
if delNum > 0 then TinyRope.delete (pos, delNum, rope) else rope
|
|
val 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 _ = LineGap.verifyIndex gapBuffer
|
|
val _ = LineGap.verifyLines gapBuffer
|
|
|
|
val gapBuffer =
|
|
if strSize > 0 then LineGap.insert (pos, insStr, gapBuffer)
|
|
else gapBuffer
|
|
|
|
val _ = LineGap.verifyIndex gapBuffer
|
|
val _ = LineGap.verifyLines gapBuffer
|
|
|
|
val ropeString = TinyRope.toString rope
|
|
val gapBufferString = LineGap.toString gapBuffer
|
|
in
|
|
if ropeString = gapBufferString then
|
|
(rope, gapBuffer)
|
|
else
|
|
let
|
|
val _ = print
|
|
("difference detected at txn number: " ^ (Int.toString idx)
|
|
^ "\n")
|
|
val txn = String.concat
|
|
[ "offending txn: \n"
|
|
, "pos: "
|
|
, Int.toString pos
|
|
, ", delNum: "
|
|
, Int.toString delNum
|
|
, ", insStr: |"
|
|
, insStr
|
|
, "|\n"
|
|
]
|
|
val _ = print txn
|
|
|
|
val _ = print "before offending string: \n"
|
|
val _ = print (TinyRope.toString oldRope)
|
|
val _ = print "\n"
|
|
|
|
val _ = print "rope string: \n"
|
|
val _ = print (ropeString ^ "\n")
|
|
val _ = print "gap string: \n"
|
|
val _ = print (gapBufferString ^ "\n")
|
|
val _ = raise Empty
|
|
in
|
|
(rope, gapBuffer)
|
|
end
|
|
end) (TinyRope.empty, LineGap.empty) arr
|
|
|
|
fun main () =
|
|
let
|
|
val _ = compareTxns SvelteComponent.txns
|
|
val _ = print "string contents and line metadata are equal for svelte\n"
|
|
|
|
(* compile times are much longer with the other datasets included
|
|
* but running those datasets did not detect any issues after
|
|
* all issues were fixed with Svelte.
|
|
|
|
* So comment these datasets out.
|
|
val _ = compareTxns RustCode.txns
|
|
val _ = print "string contents and line metadata are equal for rust\n"
|
|
|
|
val _ = compareTxns SephBlog.txns
|
|
val _ = print "string contents and line metadata equal for seh"
|
|
|
|
val _ = compareTxns AutomergePaper.txns
|
|
val _ = print "string contents and line metadata equal for automerge"
|
|
*)
|
|
in
|
|
()
|
|
end
|
|
|
|
val _ = main ()
|
|
end
|