about summary refs log tree commit diff
path: root/dump
diff options
context:
space:
mode:
authorArun Isaac2021-12-20 15:53:19 +0530
committerArun Isaac2021-12-20 15:53:19 +0530
commit4149f907ead360d417236768c9c0fdb2692babeb (patch)
tree99cb04c72144e9718d7d1086b501fedac46a49a6 /dump
parent22a13221935c37c06ad5ed56f5de64295ae5e886 (diff)
downloadgn-transform-databases-4149f907ead360d417236768c9c0fdb2692babeb.tar.gz
Move <table> and <column> types to separate module.
* dump.scm (<table>, <column>): Move to ...
* dump/table.scm: ... here.
Diffstat (limited to 'dump')
-rw-r--r--dump/table.scm23
1 files changed, 23 insertions, 0 deletions
diff --git a/dump/table.scm b/dump/table.scm
new file mode 100644
index 0000000..1a9abc6
--- /dev/null
+++ b/dump/table.scm
@@ -0,0 +1,23 @@
+(define-module (dump table)
+  #:use-module (srfi srfi-9 gnu)
+  #:export (make-table
+            table-name
+            table-size
+            table-columns
+            set-table-columns
+            make-column
+            column-name
+            column-int?))
+
+(define-immutable-record-type <table>
+  (make-table name size columns)
+  table?
+  (name table-name)
+  (size table-size)
+  (columns table-columns set-table-columns))
+
+(define-immutable-record-type <column>
+  (make-column name int?)
+  column?
+  (name column-name)
+  (int? column-int?))