diff options
| -rwxr-xr-x | examples/generif.scm | 5 |
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 ; ~}" |