diff options
author | Munyoki Kilyungi | 2023-12-20 00:41:49 +0300 |
---|---|---|
committer | Munyoki Kilyungi | 2023-12-22 11:53:22 +0300 |
commit | 793d383b816b6baec63dc7adc9ec74d2dca4a4c9 (patch) | |
tree | 8e40814cf5e4177b3624f82ac5a5cc5e1198cb10 | |
parent | 82de3420a0c269d79e8942cb18abe247747877dc (diff) | |
download | gn-transform-databases-793d383b816b6baec63dc7adc9ec74d2dca4a4c9.tar.gz |
Replace gnt:symbol with gnt:geneSymbol.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
-rwxr-xr-x | examples/generif.scm | 2 | ||||
-rwxr-xr-x | examples/strains.scm | 12 |
2 files changed, 4 insertions, 10 deletions
diff --git a/examples/generif.scm b/examples/generif.scm index 3c60ab6..fb3208a 100755 --- a/examples/generif.scm +++ b/examples/generif.scm @@ -56,7 +56,7 @@ (gnc:GeneWikiEntry a rdfs:Class) (gnc:GNWikiEntry rdfs:subClassOf gnc:GeneWikiEntry) (gnc:GNWikiEntry rdfs:comment "Represents GeneRIF Entries entered from GeneNetwork") - (gnt:symbol rdfs:domain gnc:GNWikiEntry)) + (gnt:geneSymbol rdfs:domain gnc:GNWikiEntry)) (triples (string->identifier "symbol" diff --git a/examples/strains.scm b/examples/strains.scm index b4e2a56..2e1e24f 100755 --- a/examples/strains.scm +++ b/examples/strains.scm @@ -69,8 +69,8 @@ At this point it is not very clear how Name, Name2, Symbol and Alias are used. (schema-triples (gnt:alias rdfs:domain gnc:strain) (gnt:alias a owl:ObjectProperty) - (gnt:symbol rdfs:domain gnc:strain) - (gnt:symbol a owl:ObjectProperty)) + (gnt:geneSymbol rdfs:domain gnc:strain) + (gnt:geneSymbol a owl:ObjectProperty)) (triples (string->identifier "" (regexp-substitute/global @@ -86,13 +86,7 @@ At this point it is not very clear how Name, Name2, Symbol and Alias are used. (set rdfs:label (sanitize-rdf-string (field Strain Name))) (set skos:altLabel (sanitize-rdf-string (field ("IF ((Strain.Name2 != Strain.Name), Strain.Name2, '')" Name2)))) (set gnt:alias (sanitize-rdf-string (field ("IF ((Strain.Alias != Strain.Name), Strain.Alias, '')" Alias)))) - (set gnt:symbol - (string->identifier - "gene" - (regexp-substitute/global #f "[^A-Za-z0-9:]" - (field Strain Symbol) - 'pre "_" 'post) - #:proc (lambda (x) x))))) + (set gnt:geneSymbol (field Strain Symbol)))) (define-transformer mapping-method (tables (MappingMethod)) |