diff options
author | Munyoki Kilyungi | 2023-03-16 18:40:19 +0300 |
---|---|---|
committer | BonfaceKilz | 2023-04-05 16:17:11 +0300 |
commit | 6aebd73eeeef944e555fec225c529c7674d7336d (patch) | |
tree | 372bf029dc2e44df7e87401397b1f76c37156283 /dump/triples.scm | |
parent | be42b42be2a87a9872c153a9b6f3da7ed135efa1 (diff) | |
download | gn-transform-databases-6aebd73eeeef944e555fec225c529c7674d7336d.tar.gz |
Annotate fields with a custom scheme such as "^^xsd:datetime"
* dump.scm (annotate-field): New function.
* dump/triples.scm (triple): Print a string as they appear with
DISPLAY should they contain "\"" thus enabling a triple that looks
like:
gn:species_mus_musculus gn:name "Mouse"^^xsd:string
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'dump/triples.scm')
-rw-r--r-- | dump/triples.scm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/dump/triples.scm b/dump/triples.scm index 1509ded..6ccf137 100644 --- a/dump/triples.scm +++ b/dump/triples.scm @@ -40,7 +40,16 @@ characters with an underscore and prefixing with gn:PREFIX." (number? object)) (error "Triple object not a string, symbol or number:" (list subject predicate object))) - (format #t "~a ~a ~s .~%" subject predicate object)) + (let ([format-string + (if (symbol? object) + "~a ~a ~a .~%" "~a ~a ~s .~%")] + [object + (if (and (symbol? object) + (string-contains (symbol->string object) + "\"")) + (symbol->string object) + object)]) + (format #t format-string subject predicate object))) (define (scm->triples alist id) (for-each (match-lambda |