diff options
| -rwxr-xr-x | dump.scm | 15 | ||||
| -rw-r--r-- | dump/table.scm | 23 |
2 files changed, 24 insertions, 14 deletions
@@ -5,13 +5,13 @@ (use-modules (rnrs io ports) (srfi srfi-1) - (srfi srfi-9 gnu) (srfi srfi-26) (ice-9 match) (ice-9 string-fun) (sxml simple) (dump sql) (dump string-similarity) + (dump table) (dump utils)) @@ -503,19 +503,6 @@ ALIST field-name) forms." ;;; Visualize schema -(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?)) - (define (tables db) "Return list of all tables in DB. Each element of the returned list is a <table> object." 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?)) |