aboutsummaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
authorMunyoki Kilyungi2024-07-30 17:54:51 +0300
committerMunyoki Kilyungi2024-07-30 18:40:39 +0300
commit0b5a9b3cd0ec11ded46b7251e19c45452fdadbe3 (patch)
tree7a7d6eac82ecc5ae1c2c63f8f4193366cc6482fc /examples
parentcd741fc595e1124191e7bf80effce6c05e65855a (diff)
downloadgn-transform-databases-0b5a9b3cd0ec11ded46b7251e19c45452fdadbe3.tar.gz
Add "gnt:initial" to GeneRIF metadata comments.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples')
-rwxr-xr-xexamples/generif.scm5
1 files changed, 5 insertions, 0 deletions
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 ; ~}"