From de087a86d5158044f8afad345c4560228e8e50cc Mon Sep 17 00:00:00 2001
From: Humza Shahid <humzasaur@gmail.com>
Date: Sun, 30 Jun 2024 00:07:45 +0100
Subject: [PATCH] organise repository a little bit

---
 bench/gap_buffer_automerge.mlb     |  2 +-
 bench/gap_buffer_rust.mlb          |  2 +-
 bench/gap_buffer_seph.mlb          |  2 +-
 bench/gap_buffer_svelte.mlb        |  2 +-
 bench/rope_automerge.mlb           |  2 +-
 bench/rope_rust.mlb                |  2 +-
 bench/rope_seph.mlb                |  2 +-
 bench/rope_svelte.mlb              |  2 +-
 {bench => data-sets}/automerge.sml |  0
 {bench => data-sets}/rust.sml      |  0
 {bench => data-sets}/seph.sml      |  0
 {bench => data-sets}/svelte.sml    |  0
 tests/compare_to_rope.sml          | 16 ++++++++++++++++
 13 files changed, 24 insertions(+), 8 deletions(-)
 rename {bench => data-sets}/automerge.sml (100%)
 rename {bench => data-sets}/rust.sml (100%)
 rename {bench => data-sets}/seph.sml (100%)
 rename {bench => data-sets}/svelte.sml (100%)
 create mode 100644 tests/compare_to_rope.sml

diff --git a/bench/gap_buffer_automerge.mlb b/bench/gap_buffer_automerge.mlb
index 26858e9..52a9afc 100644
--- a/bench/gap_buffer_automerge.mlb
+++ b/bench/gap_buffer_automerge.mlb
@@ -3,7 +3,7 @@ $(SML_LIB)/basis/basis.mlb
 ann
   "allowVectorExps true"
 in
-  automerge.sml
+  ../data-sets/automerge.sml
 end
 
 transaction.sml
diff --git a/bench/gap_buffer_rust.mlb b/bench/gap_buffer_rust.mlb
index bb478b6..05ed9eb 100644
--- a/bench/gap_buffer_rust.mlb
+++ b/bench/gap_buffer_rust.mlb
@@ -3,7 +3,7 @@ $(SML_LIB)/basis/basis.mlb
 ann
   "allowVectorExps true"
 in
-  rust.sml
+  ../data-sets/rust.sml
 end
 
 transaction.sml
diff --git a/bench/gap_buffer_seph.mlb b/bench/gap_buffer_seph.mlb
index 4ac0aeb..3a51593 100644
--- a/bench/gap_buffer_seph.mlb
+++ b/bench/gap_buffer_seph.mlb
@@ -3,7 +3,7 @@ $(SML_LIB)/basis/basis.mlb
 ann
   "allowVectorExps true"
 in
-  seph.sml
+  ../data-sets/seph.sml
 end
 
 transaction.sml
diff --git a/bench/gap_buffer_svelte.mlb b/bench/gap_buffer_svelte.mlb
index 98a8e2d..9972da0 100644
--- a/bench/gap_buffer_svelte.mlb
+++ b/bench/gap_buffer_svelte.mlb
@@ -3,7 +3,7 @@ $(SML_LIB)/basis/basis.mlb
 ann
   "allowVectorExps true"
 in
-  svelte.sml
+  ../data-sets/svelte.sml
 end
 
 transaction.sml
diff --git a/bench/rope_automerge.mlb b/bench/rope_automerge.mlb
index 13c7c1e..82394aa 100644
--- a/bench/rope_automerge.mlb
+++ b/bench/rope_automerge.mlb
@@ -3,7 +3,7 @@ $(SML_LIB)/basis/basis.mlb
 ann
   "allowVectorExps true"
 in
-  automerge.sml
+  ../data-sets/automerge.sml
 end
 
 transaction.sml
diff --git a/bench/rope_rust.mlb b/bench/rope_rust.mlb
index 6024f56..ef63971 100644
--- a/bench/rope_rust.mlb
+++ b/bench/rope_rust.mlb
@@ -3,7 +3,7 @@ $(SML_LIB)/basis/basis.mlb
 ann
   "allowVectorExps true"
 in
-  rust.sml
+  ../data-sets/rust.sml
 end
 
 transaction.sml
diff --git a/bench/rope_seph.mlb b/bench/rope_seph.mlb
index f47101c..57d5829 100644
--- a/bench/rope_seph.mlb
+++ b/bench/rope_seph.mlb
@@ -3,7 +3,7 @@ $(SML_LIB)/basis/basis.mlb
 ann
   "allowVectorExps true"
 in
-  seph.sml
+  ../data-sets/seph.sml
 end
 
 transaction.sml
diff --git a/bench/rope_svelte.mlb b/bench/rope_svelte.mlb
index eb35b3f..55eaebd 100644
--- a/bench/rope_svelte.mlb
+++ b/bench/rope_svelte.mlb
@@ -3,7 +3,7 @@ $(SML_LIB)/basis/basis.mlb
 ann
   "allowVectorExps true"
 in
-  svelte.sml
+  ../data-sets/svelte.sml
 end
 
 transaction.sml
diff --git a/bench/automerge.sml b/data-sets/automerge.sml
similarity index 100%
rename from bench/automerge.sml
rename to data-sets/automerge.sml
diff --git a/bench/rust.sml b/data-sets/rust.sml
similarity index 100%
rename from bench/rust.sml
rename to data-sets/rust.sml
diff --git a/bench/seph.sml b/data-sets/seph.sml
similarity index 100%
rename from bench/seph.sml
rename to data-sets/seph.sml
diff --git a/bench/svelte.sml b/data-sets/svelte.sml
similarity index 100%
rename from bench/svelte.sml
rename to data-sets/svelte.sml
diff --git a/tests/compare_to_rope.sml b/tests/compare_to_rope.sml
new file mode 100644
index 0000000..d89b158
--- /dev/null
+++ b/tests/compare_to_rope.sml
@@ -0,0 +1,16 @@
+structure CompareToRope =
+struct
+  local
+    fun folder ((pos, delNum, insStr), buffer, fIns, fDel) =
+      let
+        val buffer =
+          if String.size insStr > 0 then 
+            fIns (pos, insStr, buffer) else buffer
+      in
+        buffer
+      end
+  in
+    fun runTxns () =
+      Vector.foldl folder Txn.empty Txn.txns
+  end
+end