Add 'brolib-sml/' from commit 'fd96032949434207dda3b288f48d7fe579f59e4e'

git-subtree-dir: brolib-sml
git-subtree-mainline: 64471ecf7f
git-subtree-split: fd96032949

brolib-sml/bench/run.sml

@@ -0,0 +1,23 @@
+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 run () =
+    let
+      val buffer = runTxns ()
+    in
+      ()
+    end
+end