diff options
Diffstat (limited to 'examples/generif.scm')
| -rwxr-xr-x | examples/generif.scm | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/examples/generif.scm b/examples/generif.scm index 628e34e..5fb95f7 100755 --- a/examples/generif.scm +++ b/examples/generif.scm @@ -23,16 +23,16 @@ "WHERE GeneRIF.display > 0 AND GeneRIF.comment IS NOT NULL GROUP BY GeneRIF.Id, GeneRIF.versionId, GeneRIF.symbol") (schema-triples - (gnc:GeneWikiEntry a rdfs:Class) - (gnc:GNWikiEntry rdfs:subClassOf gnc:GeneWikiEntry) + (gnc:gene_wiki_entry a rdfs:Class) + (gnc:GNWikiEntry rdfs:subClassOf gnc:gene_wiki_entry) (gnt:initial a owl:ObjectProperty) - (gnt:initial rdfs:domain gnc:GeneWikiEntry) + (gnt:initial rdfs:domain gnc:gene_wiki_entry) (gnt:initial skos:definition "Optional user or project code or your initials") (gnt:reason a owl:ObjectProperty) - (gnt:reason rdfs:domain gnc:GeneWikiEntry) + (gnt:reason rdfs:domain gnc:gene_wiki_entry) (gnt:reason skos:definition "The reason why this resource was modified") (gnc:GNWikiEntry rdfs:comment "Represents GeneRIF Entries entered from GeneNetwork") - (gnt:geneSymbol rdfs:domain gnc:GNWikiEntry)) + (gnt:gene_symbol rdfs:domain gnc:GNWikiEntry)) (triples (format #f "gn:wiki-~a-~a" @@ -46,7 +46,7 @@ GROUP BY GeneRIF.Id, GeneRIF.versionId, GeneRIF.symbol") '(("'" . "\\'")))))) (set rdf:type 'gnc:GNWikiEntry) (set gnt:symbol (field GeneRIF symbol)) - (set gnt:belongsToSpecies (string->identifier + (set gnt:belongs_to_species (string->identifier "" (remap-species-identifiers (field Species Fullname)) #:separator "" @@ -90,8 +90,8 @@ GROUP BY GeneRIF.Id, GeneRIF.versionId, GeneRIF.symbol") (tables (GeneRIF_BASIC (left-join Species "USING (SpeciesId)"))) (schema-triples - (gnc:NCBIWikiEntry rdfs:subClassOf gnc:GeneWikiEntry) - (gnc:NCBIWikiEntry rdfs:comment "Represents GeneRIF Entries obtained from NCBI")) + (gnc:ncbi_wiki_entry rdfs:subClassOf gnc:gene_wiki_entry) + (gnc:ncbi_wiki_entry rdfs:comment "Represents GeneRIF Entries obtained from NCBI")) (triples (format #f "gn:rif-~a-~a-~a-~a" @@ -124,11 +124,11 @@ GROUP BY GeneRIF.Id, GeneRIF.versionId, GeneRIF.symbol") (version-id (field GeneRIF_BASIC versionId))) (string->symbol (string-append - (format #f "gnc:NCBIWikiEntry ;\n") + (format #f "gnc:ncbi_wiki_entry ;\n") (format #f "\trdfs:label ~a ;\n" comment) - (format #f "\tgnt:belongsToSpecies ~a ;\n" species) + (format #f "\tgnt:belongs_to_species ~a ;\n" species) (format #f "\tgnt:symbol ~s ;\n" symbol) - (format #f "\tgnt:hasGeneId generif:~a ;\n" gene-id) + (format #f "\tgnt:has_gene_id generif:~a ;\n" gene-id) (match taxon-id ((? number? x) (format #f "\tskos:notation taxon:~a ;\n" taxon-id)) |