diff options
author | Munyoki Kilyungi | 2023-08-21 15:03:20 +0300 |
---|---|---|
committer | Munyoki Kilyungi | 2023-08-21 15:06:06 +0300 |
commit | 8e1e4cceab516afab46ccced63ca9edab663ca11 (patch) | |
tree | cad625c3ecf0a555d7b56b777cdade535cb30d07 /transform/table.scm | |
parent | 51b3c0548c98e0bc05e11a89cbf6b75d31b9f8d5 (diff) | |
download | gn-transform-databases-8e1e4cceab516afab46ccced63ca9edab663ca11.tar.gz |
Rename dump -> transform
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'transform/table.scm')
-rw-r--r-- | transform/table.scm | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/transform/table.scm b/transform/table.scm new file mode 100644 index 0000000..e6254d0 --- /dev/null +++ b/transform/table.scm @@ -0,0 +1,28 @@ +(define-module (transform table) + #:use-module (srfi srfi-9 gnu) + #:export (make-table + table-name + table-size + table-columns + set-table-columns + make-column + column-name + column-type + column-transformed?)) + +(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> + (column-constructor name type transformed?) + column? + (name column-name) + (type column-type) + (transformed? column-transformed?)) + +(define* (make-column name type #:optional transformed?) + (column-constructor name type transformed?)) |