From 66c26676c938e6ba35440bcb2e851fb025549ed0 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Sun, 20 Aug 2023 13:09:03 +0200
Subject: Add gnid to species - still a bug

---
 gn/db/sparql.scm | 22 ++++++++++++++++------
 1 file changed, 16 insertions(+), 6 deletions(-)

(limited to 'gn/db/sparql.scm')

diff --git a/gn/db/sparql.scm b/gn/db/sparql.scm
index 0e8c938..fd779c6 100644
--- a/gn/db/sparql.scm
+++ b/gn/db/sparql.scm
@@ -13,6 +13,7 @@
 
   #:export (memo-sparql-species
             memo-sparql-species-meta
+            sparql-species-meta
             memo-sparql-wd-species-info
             compile-species
             get-rows
@@ -180,6 +181,14 @@ SELECT ?species ?p ?o WHERE {
 (define memo-sparql-species-meta
   (memoize2 sparql-species-meta))
 
+#!
+dump-species-metadata.ttl:gn:Axbxa rdf:type gnc:inbredSet .
+dump-species-metadata.ttl:gn:Axbxa rdfs:label "AXB/BXA Family" .
+dump-species-metadata.ttl:gn:Axbxa gnt:family "Reference Populations (replicate average, SE, N)" .
+dump-species-metadata.ttl:gn:Axbxa gnt:mappingMethod "AXBXA" .
+dump-species-metadata.ttl:gn:Axbxa gnt:code "AXB" .
+dump-species-metadata.ttl:gn:Axbxa gnt:belongsToSpecies gn:Mus_musculus .
+!#
 
 (define (get-values names row)
   "Get values by name from a resultset row"
@@ -194,17 +203,18 @@ SELECT ?species ?p ?o WHERE {
 (define (compile-species recs rows)
   "Compile a matrix of species triples into records"
   (for-each (lambda (r)
-		(let* ([s (car r)]
+		(let* ([species (car r)]
 		       [v (cdr (cdr r))]
 		       [p (car (cdr r))]
 		       [nrec '()]
-		       [kv (assoc s recs)]) ; find record to fill based on subject
-		  (if (not kv)
-		      (set! nrec '())
-		      (set! nrec (cdr kv))
+		       [kvs (assoc species recs)]) ; find record to fill based on subject
+                  ;; for each gnid add value pair
+		  (if (not kvs)
+		      (set! nrec `(("gnid" ,species)))
+		      (set! nrec (cdr kvs))
 		      )
 		  (set! nrec (assoc-set! nrec p v))
-		  (set! recs (assoc-set! recs s nrec))
+		  (set! recs (assoc-set! recs species nrec))
 		  ))
 		rows)
   recs)
-- 
cgit v1.2.3