commit bench folder (also committing examples folder but that's kind of broken at this state)

bench/Makefile

@@ -0,0 +1,20 @@
+bench: gap_buffer_svelte gap_buffer_rust gap_buffer_seph gap_buffer_automerge
+	./gap_buffer_svelte
+	./gap_buffer_rust
+	./gap_buffer_seph
+	./gap_buffer_automerge
+
+gap_buffer_svelte: 
+	mlton gap_buffer_svelte.mlb
+
+gap_buffer_rust:
+	mlton gap_buffer_rust.mlb
+
+gap_buffer_seph:
+	mlton gap_buffer_seph.mlb
+
+gap_buffer_automerge:
+	mlton gap_buffer_automerge.mlb
+
+clean:
+	rm -f gap_buffer_svelte gap_buffer_rust gap_buffer_svelte gap_buffer_automerge

bench/bench.mlb

@@ -0,0 +1,17 @@
+$(SML_LIB)/basis/basis.mlb
+
+ann
+  "allowVectorExps true"
+in
+  svelte.sml
+  rust.sml
+  seph.sml
+  automerge.sml
+end
+
+../tiny_rope.sml
+../rope.sml
+
+../gap_buffer.sml
+
+utils.sml

bench/gap_buffer_automerge.mlb

@@ -0,0 +1,13 @@
+$(SML_LIB)/basis/basis.mlb
+
+ann
+  "allowVectorExps true"
+in
+  automerge.sml
+end
+
+transaction.sml
+run.sml
+
+../src/gap_buffer.sml
+gap_buffer_automerge.sml

bench/gap_buffer_automerge.sml

@@ -0,0 +1,15 @@
+structure GapBufferAutomerge: TRANSACTION =
+struct
+  type t = GapBuffer.t
+  val empty = GapBuffer.empty
+  val insert = GapBuffer.insert
+  val delete = GapBuffer.delete
+  val toString = GapBuffer.toString
+
+  val title = "Automerge"
+  val txns = AutomergePaper.txns
+end
+
+structure Main = Run(GapBufferAutomerge)
+
+val _ = Main.run ()

bench/gap_buffer_rust.mlb

@@ -0,0 +1,13 @@
+$(SML_LIB)/basis/basis.mlb
+
+ann
+  "allowVectorExps true"
+in
+  rust.sml
+end
+
+transaction.sml
+run.sml
+
+../src/gap_buffer.sml
+gap_buffer_rust.sml

bench/gap_buffer_rust.sml

@@ -0,0 +1,15 @@
+structure GapBufferRust: TRANSACTION =
+struct
+  type t = GapBuffer.t
+  val empty = GapBuffer.empty
+  val insert = GapBuffer.insert
+  val delete = GapBuffer.delete
+  val toString = GapBuffer.toString
+
+  val title = "Rust"
+  val txns = RustCode.txns
+end
+
+structure Main = Run(GapBufferRust)
+
+val _ = Main.run ()

bench/gap_buffer_seph.mlb

@@ -0,0 +1,13 @@
+$(SML_LIB)/basis/basis.mlb
+
+ann
+  "allowVectorExps true"
+in
+  seph.sml
+end
+
+transaction.sml
+run.sml
+
+../src/gap_buffer.sml
+gap_buffer_seph.sml

bench/gap_buffer_seph.sml

@@ -0,0 +1,15 @@
+structure GapBufferSeph: TRANSACTION =
+struct
+  type t = GapBuffer.t
+  val empty = GapBuffer.empty
+  val insert = GapBuffer.insert
+  val delete = GapBuffer.delete
+  val toString = GapBuffer.toString
+
+  val title = "Seph"
+  val txns = SephBlog.txns
+end
+
+structure Main = Run(GapBufferSeph)
+
+val _ = Main.run ()

bench/gap_buffer_svelte.mlb

@@ -0,0 +1,13 @@
+$(SML_LIB)/basis/basis.mlb
+
+ann
+  "allowVectorExps true"
+in
+  svelte.sml
+end
+
+transaction.sml
+run.sml
+
+../src/gap_buffer.sml
+gap_buffer_svelte.sml

bench/gap_buffer_svelte.sml

@@ -0,0 +1,15 @@
+structure GapBufferSvelete: TRANSACTION =
+struct
+  type t = GapBuffer.t
+  val empty = GapBuffer.empty
+  val insert = GapBuffer.insert
+  val delete = GapBuffer.delete
+  val toString = GapBuffer.toString
+
+  val title = "Svelte"
+  val txns = SvelteComponent.txns
+end
+
+structure Main = Run(GapBufferSvelete)
+
+val _ = Main.run ()

bench/run.sml

@@ -0,0 +1,54 @@
+functor Run(Txn: TRANSACTION) =
+struct
+  local
+    fun folder ((pos, delNum, insStr), buffer) =
+      let
+        val buffer =
+          if delNum > 0 then Txn.delete (pos, delNum, buffer) else buffer
+      in
+        if String.size insStr > 0 then Txn.insert (pos, insStr, buffer)
+        else buffer
+      end
+  in
+    fun runTxns () =
+      Vector.foldl folder Txn.empty Txn.txns
+  end
+
+  fun runTxnsTime () =
+    let
+      val startTime = Time.now ()
+      val startTime = Time.toMilliseconds startTime
+
+      val x = runTxns ()
+
+      val endTime = Time.now ()
+      val endTime = Time.toMilliseconds endTime
+
+      val timeDiff = endTime - startTime
+      val timeDiff = LargeInt.toString timeDiff
+      val timeTook = String.concat [timeDiff, " ms taken for " ^ Txn.title ^ " txns\n"]
+      val _ = (print timeTook)
+    in
+      x
+    end
+
+  fun write (fileName, buffer) =
+    let
+      val str = Txn.toString buffer
+      val io = TextIO.openOut fileName
+      val _ = TextIO.output (io, str)
+      val _ = TextIO.closeOut io
+    in
+      ()
+    end
+
+  fun run () =
+    let
+      val buffer = runTxnsTime ()
+      (* The write operation guarantees that MLton doesn't optimise away the
+       * buffer's contents, because it has to write the contents to a file. *)
+      val _ = write ("out/" ^ Txn.title ^ ".txt", buffer)
+    in
+      ()
+    end
+end

bench/transaction.sml

@@ -0,0 +1,11 @@
+signature TRANSACTION =
+sig
+  type t
+  val empty: t
+  val insert: int * string * t -> t
+  val delete: int * int * t -> t
+  val toString: t -> string
+
+  val title : string
+  val txns : (int * int * string) vector
+end