diff options
| author | Munyoki Kilyungi | 2023-07-11 15:21:51 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2023-07-21 14:36:37 +0300 |
| commit | 5661067312cc6f56c1b6b0678c1715c791c90238 (patch) | |
| tree | 75e0b70f38077fca3160fd4ceb0e440b3d25fd17 /dump | |
| parent | 07d1e79fa6cd1294f97394f15fa20da721cb32af (diff) | |
| download | gn-transform-databases-5661067312cc6f56c1b6b0678c1715c791c90238.tar.gz | |
Move dump-configuration record type to (dump documentation)
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'dump')
| -rw-r--r-- | dump/documentation.scm | 24 | ||||
| -rw-r--r-- | dump/special-forms.scm | 22 |
2 files changed, 25 insertions, 21 deletions
diff --git a/dump/documentation.scm b/dump/documentation.scm new file mode 100644 index 0000000..4c0fd88 --- /dev/null +++ b/dump/documentation.scm @@ -0,0 +1,24 @@ +(define-module (dump documentation) + #:use-module (srfi srfi-9 gnu) + #:export (dump-configuration + dump-configuration? + dump-configuration-triples? + dump-configuration-table-metadata? + dump-configuration-path)) + +(define-immutable-record-type <dump-configuration> + (%dump-configuration triples? table-metadata? path) + dump-configuration? + (triples? dump-configuration-triples?) + (table-metadata? dump-configuration-table-metadata?) + (path dump-configuration-path)) + +(define* (dump-configuration + #:optional + (triples? #t) + (table-metadata? #f) + (path #f)) + "Return a new configuration." + (%dump-configuration triples? table-metadata? path)) + + diff --git a/dump/special-forms.scm b/dump/special-forms.scm index 78ee879..b62eb09 100644 --- a/dump/special-forms.scm +++ b/dump/special-forms.scm @@ -1,11 +1,11 @@ (define-module (dump special-forms) #:use-module (srfi srfi-1) - #:use-module (srfi srfi-9 gnu) #:use-module (ice-9 match) #:use-module (srfi srfi-26) #:use-module (dump sql) #:use-module (dump table) #:use-module (dump triples) + #:use-module (dump documentation) #:export (translate-forms collect-forms collect-keys @@ -19,28 +19,8 @@ syntax-let blank-node map-alist - dump-configuration - dump-configuration? - dump-configuration-triples? - dump-configuration-table-metadata? - dump-configuration-auto-documentation-port define-dump)) -(define-immutable-record-type <dump-configuration> - (%dump-configuration triples? table-metadata? auto-documentation-port) - dump-configuration? - (triples? dump-configuration-triples?) - (table-metadata? dump-configuration-table-metadata?) - (auto-documentation-port dump-configuration-auto-documentation-port)) - -(define* (dump-configuration - #:optional - (triples? #t) - (table-metadata? #f) - (auto-documentation-port #f)) - "Return a new configuration." - (%dump-configuration triples? table-metadata? auto-documentation-port)) - (define (key->assoc-ref alist x) "Recursively translate (key k) forms in source X to (assoc-ref ALIST k) forms." |