From 0b5a9b3cd0ec11ded46b7251e19c45452fdadbe3 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Tue, 30 Jul 2024 17:54:51 +0300 Subject: Add "gnt:initial" to GeneRIF metadata comments. Signed-off-by: Munyoki Kilyungi --- examples/generif.scm | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'examples') diff --git a/examples/generif.scm b/examples/generif.scm index 1809737..302aace 100755 --- a/examples/generif.scm +++ b/examples/generif.scm @@ -70,6 +70,9 @@ (schema-triples (gnc:GeneWikiEntry a rdfs:Class) (gnc:GNWikiEntry rdfs:subClassOf gnc:GeneWikiEntry) + (gnt:initial a owl:ObjectProperty) + (gnt:initial rdfs:domain gnc:GeneWikiEntry) + (gnt:initial skos:definition "Optional user or project code or your initials") (gnc:GNWikiEntry rdfs:comment "Represents GeneRIF Entries entered from GeneNetwork") (gnt:geneSymbol rdfs:domain gnc:GNWikiEntry)) (triples @@ -92,6 +95,7 @@ #:proc string-capitalize-first)] [version-id (field GeneRIF versionId)] [identifier (field GeneRIF Id)] + [initial (field GeneRIF initial)] [categories (remove (lambda (x) (or (eq? x #f) @@ -133,6 +137,7 @@ "") (format #f "dct:identifier ~s ; " identifier) (format #f "dct:hasVersion \"~s\"^^xsd:int ; " version-id) + (if (null? initial) "" (format #f "gnt:initial ~s ; " initial)) (if (not (null? categories)) (format #f "~{gnt:belongsToCategory ~s ; ~}" -- cgit v1.2.3