117 lines
2.9 KiB
Standard ML
117 lines
2.9 KiB
Standard ML
fun timeFun title f =
|
|
let
|
|
val title = String.concat ["Starting ", title, "..."]
|
|
val _ = (print title)
|
|
val startTime = Time.now ()
|
|
val startTime = Time.toNanoseconds startTime
|
|
val x = f ()
|
|
val endTime = Time.now ()
|
|
val endTime = Time.toNanoseconds endTime
|
|
val timeDiff = endTime - startTime
|
|
val timeDiff = LargeInt.toString timeDiff
|
|
val timeTook = String.concat ["took ", timeDiff, " nanoseconds\n"]
|
|
val _ = (print timeTook)
|
|
in
|
|
x
|
|
end
|
|
|
|
fun runTxns arr =
|
|
Vector.foldl
|
|
(fn ((pos, delNum, insStr), rope) =>
|
|
let
|
|
val strSize = String.size insStr
|
|
val rope =
|
|
if strSize > 0 then TinyRope23.insert (pos, insStr, rope) else rope
|
|
in
|
|
rope
|
|
end) TinyRope23.empty arr
|
|
|
|
fun runTxnsTime title arr =
|
|
let val f = (fn () => runTxns arr)
|
|
in timeFun title f
|
|
end
|
|
|
|
fun runToString rope = TinyRope23.toString rope
|
|
|
|
fun runToStringTime title rope =
|
|
let val f = (fn () => runToString rope)
|
|
in timeFun title f
|
|
end
|
|
|
|
fun runTxns1000Times (counter, arr, total) =
|
|
if counter = 1000 then
|
|
let
|
|
val divisor = Int.toLarge 1000
|
|
val total = total div divisor
|
|
val str = LargeInt.toString total
|
|
in
|
|
print (str ^ "\n")
|
|
end
|
|
else
|
|
let
|
|
val startTime = Time.now ()
|
|
val startTime = Time.toNanoseconds startTime
|
|
|
|
val _ = runTxns arr
|
|
|
|
val endTime = Time.now ()
|
|
val endTime = Time.toNanoseconds endTime
|
|
val timeDiff = endTime - startTime
|
|
val counter = counter + 1
|
|
val total = timeDiff + total
|
|
in
|
|
runTxns1000Times (counter, arr, total)
|
|
end
|
|
|
|
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 = TinyRope23.toString rope
|
|
val io = TextIO.openOut fileName
|
|
val _ = TextIO.output (io, str)
|
|
val _ = TextIO.closeOut io
|
|
in
|
|
()
|
|
end
|
|
|
|
fun main () =
|
|
let
|
|
(* Timing benchmarks. *)
|
|
val startTime = LargeInt.fromInt 0
|
|
val _ = runTxns1000Times (999, svelte_arr, startTime)
|
|
val _ = runTxns1000Times (999, rust_arr, startTime)
|
|
val _ = runTxns1000Times (999, seph_arr, startTime)
|
|
val _ = runTxns1000Times (999, automerge_arr, startTime)
|
|
|
|
(* Tests that line metadata is correct; will fail if incorrect. *)
|
|
val svelte = runTxns svelte_arr
|
|
val rust = runTxns rust_arr
|
|
val seph = runTxns seph_arr
|
|
val automerge = runTxns automerge_arr
|
|
|
|
(*
|
|
val _ = Rope.verifyLines svelte
|
|
val _ = Rope.verifyLines rust
|
|
val _ = Rope.verifyLines seph
|
|
val _ = Rope.verifyLines automerge
|
|
*)
|
|
|
|
val _ = write ("svelte23.txt", svelte)
|
|
val _ = write ("rust23.txt", rust)
|
|
val _ = write ("seph23.txt", seph)
|
|
val _ = write ("automerge23.txt", automerge)
|
|
in
|
|
()
|
|
end
|
|
|
|
val _ = main ()
|