From b60361e2fcf74f07315cb06d1122752495853f23 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Mon, 3 Apr 2023 11:52:20 +0300 Subject: Dump species, symbols and indicate generif type when a geneid = 0 Signed-off-by: Munyoki Kilyungi --- dump.scm | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) (limited to 'dump.scm') diff --git a/dump.scm b/dump.scm index d27810b..bd8bc22 100755 --- a/dump.scm +++ b/dump.scm @@ -878,10 +878,17 @@ is a object." (field GeneRIF symbol)) (ontology 'generif: geneid))) - (set gn:species (let ([geneid (field GeneRIF_BASIC GeneId)]) - (if (eq? geneid 0) + (set rdf:type (if (eq? (field GeneRIF_BASIC GeneId) 0) + 'gn:geneWikiEntry + "")) + (set gn:species (if (eq? (field GeneRIF_BASIC GeneId) 0) (field Species SpeciesName) - ""))) + "")) + ;; This only dumps symbols not present in the GeneRIF_BASIC table + (set gn:symbol (let ([geneid (field GeneRIF_BASIC GeneId)]) + (if (eq? geneid 0) + (field GeneRIF symbol) + ""))) (multiset gn:geneWikiEntryOfGn (let* ([entries (replace-substrings -- cgit v1.2.3