aboutsummaryrefslogtreecommitdiff
path: root/dump
diff options
context:
space:
mode:
authorMunyoki Kilyungi2023-03-14 11:18:04 +0300
committerBonfaceKilz2023-04-05 16:17:11 +0300
commit1981d1e517b5f2b0d3a6caa4ffd8505833ae17c5 (patch)
treef4dad3525be9add0ad9292d07877e3688110236d /dump
parent77ef1e2f4733ff64cddf3b8cdf955cf4a21691f4 (diff)
downloadgn-transform-databases-1981d1e517b5f2b0d3a6caa4ffd8505833ae17c5.tar.gz
Create a method to define ontologies as symbols
* dump/triples.scm: Export ontology. (ontology): New function. Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'dump')
-rw-r--r--dump/triples.scm7
1 files changed, 6 insertions, 1 deletions
diff --git a/dump/triples.scm b/dump/triples.scm
index bb2acdc..1509ded 100644
--- a/dump/triples.scm
+++ b/dump/triples.scm
@@ -1,7 +1,8 @@
(define-module (dump triples)
#:use-module (ice-9 match)
#:use-module (dump utils)
- #:export (string->identifier
+ #:export (ontology
+ string->identifier
prefix
triple
scm->triples))
@@ -21,6 +22,10 @@ characters with an underscore and prefixing with gn:PREFIX."
(define (prefix prefix iri)
(format #t "@prefix ~a ~a .~%" prefix iri))
+(define (ontology prefix value)
+ (string->symbol
+ `,(format #f "~a~a" prefix value)))
+
(define (triple subject predicate object)
(unless (or (string? subject)
(symbol? subject))