From 51b3c0548c98e0bc05e11a89cbf6b75d31b9f8d5 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Mon, 21 Aug 2023 14:54:21 +0300 Subject: Remove "dump-" prefix Signed-off-by: Munyoki Kilyungi --- examples/dump-tissue.scm | 50 ------------------------------------------------ 1 file changed, 50 deletions(-) delete mode 100755 examples/dump-tissue.scm (limited to 'examples/dump-tissue.scm') diff --git a/examples/dump-tissue.scm b/examples/dump-tissue.scm deleted file mode 100755 index 3658a26..0000000 --- a/examples/dump-tissue.scm +++ /dev/null @@ -1,50 +0,0 @@ -#! /usr/bin/env guile -!# - -(use-modules (srfi srfi-1) - (srfi srfi-26) - (ice-9 match) - (ice-9 regex) - (dump strings) - (dump sql) - (dump triples) - (dump special-forms)) - - - -(define %connection-settings - (call-with-input-file (list-ref (command-line) 1) - read)) - - - -(define-transformer dump-tissue - ;; The Name and TissueName fields seem to be identical. BIRN_lex_ID - ;; and BIRN_lex_Name are mostly NULL. - (tables (Tissue)) - (schema-triples - (gnc:tissue a skos:Concept)) - ;; Hopefully the Short_Name field is distinct and can be used as an - ;; identifier. - (triples (string->identifier "tissue" (field Tissue Short_Name)) - (set rdf:type 'gnc:tissue) - (set rdfs:label (field Tissue Name)))) - - - -(dump-with-documentation - (name "Tissue Metadata") - (connection %connection-settings) - (table-metadata? #f) - (prefixes - '(("gn:" "") - ("gnt:" "") - ("skos:" "") - ("gnc:" "") - ("rdf:" "") - ("rdfs:" ""))) - (inputs - (list dump-tissue)) - (outputs - '(#:documentation "./docs/dump-tissue.md" - #:rdf "./verified-data/dump-tissue.ttl"))) -- cgit v1.2.3