aboutsummaryrefslogtreecommitdiff
path: root/dump
diff options
context:
space:
mode:
authorMunyoki Kilyungi2023-07-04 23:25:17 +0300
committerMunyoki Kilyungi2023-07-21 14:36:36 +0300
commitf986b2bf9e5b75ef0cdbffb693fd90caafef21a2 (patch)
treee0a2a05c1bb4aacc2510925304a22b000e8c5901 /dump
parent53744ec8048e2e77636b420f3f2ebc98e1dd9d3c (diff)
downloadgn-transform-databases-f986b2bf9e5b75ef0cdbffb693fd90caafef21a2.tar.gz
Conditionally autogenerate schema triples during dump
Diffstat (limited to 'dump')
-rw-r--r--dump/special-forms.scm68
1 files changed, 48 insertions, 20 deletions
diff --git a/dump/special-forms.scm b/dump/special-forms.scm
index 5a47b8f..d9e9299 100644
--- a/dump/special-forms.scm
+++ b/dump/special-forms.scm
@@ -444,26 +444,54 @@ must be remedied."
(triple 'predicate 'rdfs:domain #,subject-type))))
(_ (error "Invalid predicate clause:" predicate-clause))))
#'(predicate-clauses ...))))
- (when (dump-configuration-auto-document-path configuration)
- (for-each (match-lambda
- ((predicate . object)
- (format #f "Subject:~a Predicate:~a Object:~a.~%"
- #,(car (collect-keys
- (field->key #'subject)))
- predicate object)))
- (map-alist
- '()
- #,@(translate-forms 'field
- (lambda (x)
- (symbol->string
- (syntax->datum
- ((syntax-rules (field)
- ((field (query alias)) alias)
- ((field table column) column)
- ((field table column alias) alias))
- x))))
- #'(predicate-clauses ...)))))
- (when (dump-configuration-table-dump? configuration)
+ (when (dump-configuration-auto-documentation-port dump-configuration)
+ (let ((out
+ (dump-configuration-auto-documentation-port
+ dump-configuration)))
+ (format out "# ~a Metadata~%" (syntax->datum #`name))
+ #,(syntax-case #'schema-triples-clause (schema-triples)
+ ((schema-triples (triple-subject triple-predicate triple-object) ...)
+ #`(for-each triple
+ (list 'triple-subject ...)
+ (list 'triple-predicate ...)
+ (list 'triple-object ...)))
+ (_ (error "Invalid schema triples clause:" #'schema-triples-clause)))
+ (format out "## Generated Triples:
+
+The following SQL query was executed:
+
+```sql
+~a
+```
+
+Here are the generated triples:
+
+"
+ (select-query #,(collect-fields #'(subject predicate-clauses ...))
+ (primary-table other-tables ...)
+ tables-raw ...))
+ (for-each (match-lambda
+ ((predicate . object)
+ (format out "~a -> ~a -> ~a ~%"
+ #,(car (collect-keys
+ (field->key #'subject)))
+ predicate object)))
+ (map-alist
+ '()
+ #,@(translate-forms 'field
+ (lambda (x)
+ (symbol->string
+ (syntax->datum
+ ((syntax-rules (field)
+ ((field (query alias)) alias)
+ ((field table column) column)
+ ((field table column alias) alias))
+ x))))
+ #'(predicate-clauses ...))))
+ ;; To clear the buffer
+ (force-output out)
+ ))
+ (when (dump-configuration-triples? dump-configuration)
(sql-for-each (lambda (row)
(scm->triples
(map-alist row #,@(field->key #'(predicate-clauses ...)))