From a213a1689d88e72a1f57c36aac1550fe7b0a3977 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Mon, 3 Apr 2023 11:57:30 +0300
Subject: Dump genewiki symbol

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 dump.scm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/dump.scm b/dump.scm
index 8b1453e..e459d27 100755
--- a/dump.scm
+++ b/dump.scm
@@ -859,6 +859,18 @@ is a <table> object."
     (set gn:binomialName (field InbredSet fullName))
     (set gn:species (field Species Name))))
 
+(define-dump dump-genewiki-symbols
+  (tables (GeneRIF_BASIC)
+          "GeneRIF_BASIC GROUP BY GeneId ORDER BY BINARY symbol")
+  (schema-triples
+   (gn:symbol rdfs:domain gn:geneWikiEntry)
+   (gn:taxid rdfs:domain gn:geneWikiEntry))
+  (triples (ontology 'generif: (field GeneRIF_BASIC GeneId))
+    (multiset gn:symbol (string-split (field ("GROUP_CONCAT(DISTINCT symbol)" symbol))
+                                      #\,))
+    (multiset gn:taxId (map (cut ontology 'taxon: <>)
+                            (string-split (field ("GROUP_CONCAT(DISTINCT TaxID)" taxId))
+                                          #\,)))))
 ;; GeneRIF metadata
 (define-dump dump-gn-genewiki-entries
   (tables (GeneRIF
@@ -977,6 +989,7 @@ is a <table> object."
        (prefix "xsd:" "<http://www.w3.org/2001/XMLSchema#>")
        (prefix "owl:" "<http://www.w3.org/2002/07/owl#>")
        (newline)
+       (dump-genewiki-symbols db)
        (dump-gn-genewiki-entries db)
        (dump-ncbi-genewiki-entries db)
        (dump-species db)
-- 
cgit v1.2.3