From 9a5161536bc55ec9a62012c26d21aaced881dc8f Mon Sep 17 00:00:00 2001 From: BonfaceKilz Date: Wed, 22 Jun 2022 13:02:36 +0300 Subject: Dump case-attributes. * dump.scm (dump-case-attributes): New dump. (main): Call dump-case-attributes. Signed-off-by: Arun Isaac --- dump.scm | 25 ++++++++++++++++++++++++- 1 file changed, 24 insertions(+), 1 deletion(-) diff --git a/dump.scm b/dump.scm index ada42e5..c81ee99 100755 --- a/dump.scm +++ b/dump.scm @@ -753,6 +753,28 @@ is a object." (table-columns table)))) tables))) +(define-dump dump-case-attributes + (tables (InbredSet + (join Species "ON InbredSet.SpeciesId = Species.Id") + (join Strain "ON Strain.SpeciesId = Species.Id") + (join CaseAttributeXRefNew + "ON CaseAttributeXRefNew.StrainId = Strain.Id") + (join CaseAttribute + "ON CaseAttributeXRefNew.CaseAttributeId = CaseAttribute.Id")) + (string-join + '("WHERE CaseAttribute.Name IS NOT NULL" + "GROUP BY CaseAttribute.Name" + "ORDER BY CaseAttribute.Name"))) + (schema-triples + (gn:name rdfs:range rdfs:Literal) + (gn:inbredSet rdfs:range rdfs:Literal) + (gn:description rdfs:range gn:species)) + (triples (string->identifier "caseAttribute" (field CaseAttribute Name)) + (set rdf:type 'gn:caseAttribute) + (set gn:name (field CaseAttribute Name)) + (set gn:inbredSet (field InbredSet Name InbredSetName)) + (set gn:description (field CaseAttribute Description)) + (set gn:caseAttributeId (field CaseAttribute Id)))) ;; Main function @@ -780,4 +802,5 @@ is a
object." (dump-avg-method db) (dump-gene-chip db) (dump-info-files db) - (dump-schema db))))) + (dump-schema db) + (dump-case-attributes db) -- cgit v1.2.3