diff options
-rw-r--r-- | dump/triples.scm | 7 |
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)) |