summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--.gitignore1
-rw-r--r--README.md1
-rw-r--r--par/piece-table.scm57
-rw-r--r--par/piece-table.sld8
-rw-r--r--tests/piece-table.scm19
-rwxr-xr-xtests/run-tests.sh12
6 files changed, 98 insertions, 0 deletions
diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..d787759
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1 @@
+tests/*.log
diff --git a/README.md b/README.md
new file mode 100644
index 0000000..64bd4b4
--- /dev/null
+++ b/README.md
@@ -0,0 +1 @@
+# `par` text editor
diff --git a/par/piece-table.scm b/par/piece-table.scm
new file mode 100644
index 0000000..d6a3c4e
--- /dev/null
+++ b/par/piece-table.scm
@@ -0,0 +1,57 @@
+;; Pieces themselves: the buffer is a reference to the buffer they take their
+;; data from.
+;; Start and end are numbers.
+;; The type defines how they should be rendered, it makes
+;; possible to account for hyperlinks or stuff like that in the future with
+;; ease.
+(define-record-type <piece>
+ (make-piece buffer start length type)
+ piece?
+ (buffer piece-buffer set-piece-buffer!)
+ (start piece-start set-piece-start!)
+ (length piece-length set-piece-length!)
+ (type piece-type set-piece-type!))
+
+
+
+;; The piece table itself;
+;; original and add are strings and pieces is a list of pieces
+(define-record-type <piece-table>
+ (make-piece-table original add pieces)
+ piece-table?
+ (original piece-table-original set-piece-table-original!)
+ (add piece-table-add set-piece-table-add!)
+ (pieces piece-table-pieces set-piece-table-pieces!))
+
+(define (add-piece-table-piece! piece-table piece)
+ (cons piece (piece-table-pieces piece-table)))
+
+
+(define (piece-table-index piece-table pos)
+ #f)
+
+(define (piece-table-insert! piece-table pos char)
+ #f)
+
+(define (piece-table-delete! piece-table pos)
+ #f)
+
+
+
+;; Serialization - Deserialization
+(define (piece-table-write port)
+ "Write a piece table to port"
+ #f)
+(define (piece-table-read port)
+ "Read a piece table stored in port"
+ #f)
+
+
+
+;; From/to string
+(define (string->piece-table string)
+ (make-piece-table string ""
+ (list (make-piece string 0 (string-length string) 'normal))))
+
+(define (piece-table->string piece-table)
+ #f)
diff --git a/par/piece-table.sld b/par/piece-table.sld
new file mode 100644
index 0000000..4f428b0
--- /dev/null
+++ b/par/piece-table.sld
@@ -0,0 +1,8 @@
+(define-library (par piece-table)
+ (import (scheme base))
+ (export make-piece-table
+ piece-table-index
+ piece-table-insert!
+ piece-table-delete!
+ string->piece-table)
+ (include "piece-table.scm"))
diff --git a/tests/piece-table.scm b/tests/piece-table.scm
new file mode 100644
index 0000000..ecf57bc
--- /dev/null
+++ b/tests/piece-table.scm
@@ -0,0 +1,19 @@
+(import (srfi 64)
+ (par piece-table))
+
+;; https://srfi.schemers.org/srfi-64/srfi-64.html
+
+
+(test-begin "index")
+ (define table (make-piece-table "HOLA" "" (list)))
+ (test-equal #\L (piece-table-index table 2))
+(test-end "index")
+
+(test-begin "insert")
+ (define table (make-piece-table "HOLA" "" (list)))
+ (piece-table-insert! table 2 #\9)
+ (test-equal #\9 (piece-table-index table 2))
+(test-end "insert")
+
+(test-begin "delete")
+(test-end "delete")
diff --git a/tests/run-tests.sh b/tests/run-tests.sh
new file mode 100755
index 0000000..e9a543d
--- /dev/null
+++ b/tests/run-tests.sh
@@ -0,0 +1,12 @@
+HERE=`dirname $0`
+TESTS=$@
+
+pushd "$HERE"
+if [ -z "$TESTS" ]; then
+ TESTS=*.scm
+fi
+
+for i in $TESTS; do
+ guile -L .. --r7rs "$i"
+done
+popd