From 8ac42695d7c20649f50d1527954d2df2d979d292 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Fri, 30 Jan 2026 00:11:40 +0300
Subject: Add gn:dataset->gn:set.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 examples/genotype.scm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/examples/genotype.scm b/examples/genotype.scm
index cefa450..c3da459 100755
--- a/examples/genotype.scm
+++ b/examples/genotype.scm
@@ -30,6 +30,14 @@
   (triples (string->identifier "set" (field InbredSet Name InbredSetName) #:separator "_")
     (set gnt:has_genotype_data (string->identifier "dataset" (field GenoFreeze Name) #:separator "_"))))
 
+(define-transformer gn:dataset->gn:set
+  (tables (Datasets
+           (inner-join InfoFiles "ON InfoFiles.DatasetId = Datasets.DatasetId")
+           (inner-join InbredSet "ON InbredSet.Id = InfoFiles.InbredSetId")
+           (inner-join GenoFreeze "ON GenoFreeze.InbredSetId = InbredSet.Id"))
+          "WHERE GenoFreeze.public > 0 GROUP BY Datasets.DatasetId")
+  (triples (string->identifier "dataset" (field GenoFreeze Name) #:separator "_")
+    (set gnt:has_strain (string->identifier "set" (field InbredSet Name InbredSetName) #:separator "_"))))
 
 
 (let* ((option-spec
@@ -48,7 +56,8 @@
    (connection %connection-settings)
    (table-metadata? #f)
    (prefixes
-    '(("dct:" "<http://purl.org/dc/terms/>")
+    '(("dcat:" "<http://www.w3.org/ns/dcat#>")
+      ("dct:" "<http://purl.org/dc/terms/>")
       ("gn:" "<http://rdf.genenetwork.org/v1/id/>")
       ("gnc:" "<http://rdf.genenetwork.org/v1/category/>")
       ("gnt:" "<http://rdf.genenetwork.org/v1/term/>")
@@ -59,7 +68,7 @@
       ("xkos:" "<http://rdf-vocabulary.ddialliance.org/xkos#>")
       ("xsd:" "<http://www.w3.org/2001/XMLSchema#>")))
    (inputs
-    (list gn:set->gn:dataset))
+    (list gn:set->gn:dataset gn:dataset->gn:set))
    (outputs
     `(#:documentation ,documentation
       #:rdf ,output))))
-- 
cgit 1.4.1