diff options
Diffstat (limited to 'gn/db/sparql.scm')
| -rw-r--r-- | gn/db/sparql.scm | 33 |
1 files changed, 32 insertions, 1 deletions
diff --git a/gn/db/sparql.scm b/gn/db/sparql.scm index 2665235..7e512ff 100644 --- a/gn/db/sparql.scm +++ b/gn/db/sparql.scm @@ -15,12 +15,15 @@ memo-sparql-species-meta sparql-species-meta sparql-groups-meta + sparql-group-info memo-sparql-wd-species-info compile-species compile-groups-meta get-rows tsv->scm strip-lang + make-table + make-pairs ) ) @@ -200,6 +203,14 @@ dump-species-metadata.ttl:gn:Axbxa gnt:belongsToSpecies gn:Mus_musculus . "Format results as a list of values ordered by names" (map (lambda (row) (get-values names row)) (array->list results))) +(define (get-pairs names results) + "Format results as a list of key-values ordered by names" + (map (lambda (row) + (let ([tuple (get-values names row)]) + (cons (car tuple) (car (cdr tuple))) + )) + (array->list results))) + ;; from the triples first harvest the species URIs, followed by creating records of information (define (compile-species recs rows) @@ -224,7 +235,7 @@ dump-species-metadata.ttl:gn:Axbxa gnt:belongsToSpecies gn:Mus_musculus . ;; ------------------------------------------------------------------------------ (define (sparql-groups-meta) - "Return values names recs" + "Return values names recs - (set-id, species, descr)" (sparql-scm (gn-sparql-endpoint-url) " SELECT DISTINCT ?set ?species ?descr WHERE { ?set rdf:type gnc:inbredSet ; @@ -235,8 +246,28 @@ dump-species-metadata.ttl:gn:Axbxa gnt:belongsToSpecies gn:Mus_musculus . (define memo-sparql-groups-meta (memoize2 sparql-groups-meta)) +(define (make-table sparql-thunk) + "Make a tuple of column names and rows" + (receive (names res) (sparql-thunk) + (let ([rows (get-rows names res)]) + (list names rows)))) + +(define (make-pairs sparql-thunk) + "Make a tuple of column names and rows" + (receive (names res) (sparql-thunk) + (let ([rows (get-pairs names res)]) + (list names rows)))) + (define (compile-groups-meta) "Return tuple of names and rows containing #(set species descr)" (receive (names res) (memo-sparql-groups-meta) (let ([rows (get-rows names res)]) (list names rows)))) + +(define (sparql-group-info gnid) + "Return set/group info - used by meta and data output" + (sparql-scm (gn-sparql-endpoint-url) (string-append " + SELECT DISTINCT ?key ?value WHERE { + " gnid " ?key ?value . + # FILTER ( !EXISTS{ " gnid " gnt:hasTissue ?value }) +}"))) |