Add inbred_set back-links from species.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>

1 files changed, 15 insertions, 0 deletions

diff --git a/examples/classification.scm b/examples/classification.scm
index 571f482..c88ea6a 100755
--- a/examples/classification.scm
+++ b/examples/classification.scm
@@ -103,6 +103,20 @@
                                    'taxon:
                                    (field Species TaxonomyId)))))
 
+(define-transformer species-fan-out
+  (tables (InbredSet
+           (left-join Species "ON InbredSet.SpeciesId=Species.Id")))
+  (schema-triples
+   (gnt:is_species_of a owl:ObjectProperty)
+   (gnt:is_species_of rdfs:range gnc:set)
+   (gnt:is_species_of rdfs:domain gnc:species)
+   (gnt:is_species_of owl:inverseOf gnt:belongs_to_species)
+   (gnt:is_species_of rdfs:label "this is the species of this resource.")
+   (gnt:is_species_of skos:definition "Lists all groups that belong to this species"))
+  (triples (string->identifier "" (remap-species-identifiers (field Species Fullname)))
+    (set gnt:is_species_of
+         (string->identifier "set" (field InbredSet Name InbredSetName) #:separator "_"))))
+
 (define-transformer inbred-set
   (tables (InbredSet
            (left-join Species "ON InbredSet.SpeciesId=Species.Id")
@@ -179,6 +193,7 @@
     (list classification-scheme-species
           classification-scheme-set
           species
+          species-fan-out
           inbred-set))
    (outputs
     `(#:documentation ,documentation