124 lines
3.3 KiB
Standard ML
124 lines
3.3 KiB
Standard ML
fun runTxns arr =
|
|
Vector.foldl
|
|
(fn ((pos, delNum, insStr), rope) =>
|
|
let
|
|
val strSize = String.size insStr
|
|
val rope =
|
|
if strSize > 0 then GapBuffer.insert (pos, insStr, rope) else rope
|
|
in
|
|
rope
|
|
end) GapBuffer.empty arr
|
|
|
|
fun runTxnsTime arr =
|
|
let
|
|
val startTime = Time.now ()
|
|
val startTime = Time.toMilliseconds startTime
|
|
|
|
val x = runTxns arr
|
|
|
|
val endTime = Time.now ()
|
|
val endTime = Time.toMilliseconds endTime
|
|
val timeDiff = endTime - startTime
|
|
val timeDiff = LargeInt.toString timeDiff
|
|
val timeTook = String.concat ["took ", timeDiff, " ms\n"]
|
|
val _ = (print timeTook)
|
|
in
|
|
x
|
|
end
|
|
|
|
fun compareTxns arr =
|
|
Vector.foldli
|
|
(fn (idx, (pos, delNum, insStr), (rope, gapBuffer)) =>
|
|
let
|
|
val strSize = String.size insStr
|
|
|
|
val rope =
|
|
if strSize > 0 then TinyRope.insert (pos, insStr, rope) else rope
|
|
val gapBuffer =
|
|
if strSize > 0 then GapBuffer.insert (pos, insStr, gapBuffer)
|
|
else gapBuffer
|
|
|
|
val ropeString = TinyRope.toString rope
|
|
val gapBufferString = GapBuffer.toString gapBuffer
|
|
in
|
|
if ropeString = gapBufferString then
|
|
(rope, gapBuffer)
|
|
else
|
|
let
|
|
val _ = print
|
|
("difference detected at txn number: " ^ (Int.toString idx)
|
|
^ "\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, GapBuffer.empty) arr
|
|
|
|
fun runToString rope = GapBuffer.toString rope
|
|
|
|
fun writeFile filename acc =
|
|
let
|
|
val str = String.concatWith "," acc
|
|
val fd = TextIO.openOut filename
|
|
val _ = TextIO.output (fd, str) handle e => (TextIO.closeOut fd; raise e)
|
|
val _ = TextIO.closeOut fd
|
|
in
|
|
()
|
|
end
|
|
|
|
fun write (fileName, rope) =
|
|
let
|
|
val str = GapBuffer.toString rope
|
|
val io = TextIO.openOut fileName
|
|
val _ = TextIO.output (io, str)
|
|
val _ = TextIO.closeOut io
|
|
in
|
|
()
|
|
end
|
|
|
|
fun loop () = loop ()
|
|
|
|
fun main () =
|
|
let
|
|
(* Timing benchmarks. *)
|
|
val svelte = runTxnsTime SvelteComponent.txns
|
|
val rust = runTxnsTime RustCode.txns
|
|
val seph = runTxnsTime SephBlog.txns
|
|
val automerge = runTxnsTime AutomergePaper.txns
|
|
|
|
(* Tests for correctness; will fail if incorrect. *)
|
|
(** Tests for insertion correctness (compare against rope). **)
|
|
val _ = compareTxns SvelteComponent.txns
|
|
val _ = print "svelte test passed\n"
|
|
|
|
val _ = compareTxns RustCode.txns
|
|
val _ = print "rust test passed\n"
|
|
|
|
val _ = compareTxns SephBlog.txns
|
|
val _ = print "seph test passed\n"
|
|
|
|
val _ = compareTxns AutomergePaper.txns
|
|
val _ = print "automerge test passed\n"
|
|
|
|
(* Tests for line metadata. *)
|
|
(*
|
|
val _ = Rope.verifyLines svelte
|
|
val _ = Rope.verifyLines rust
|
|
val _ = Rope.verifyLines seph
|
|
val _ = Rope.verifyLines automerge
|
|
*)
|
|
|
|
val _ = write ("out/svelte_gap.txt", svelte)
|
|
val _ = write ("out/rust23_gap.txt", rust)
|
|
val _ = write ("out/seph23_gap.txt", seph)
|
|
val _ = write ("out/automerge_gap.txt", automerge)
|
|
in
|
|
()
|
|
end
|
|
|
|
val _ = main ()
|