From cd8d049342d88bd0eb4c0958816170204c9350c2 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 9 Sep 2021 15:13:59 +0530
Subject: Abstract out prefix entries.

* dump.scm (prefix): New function.
Use prefix.
---
 dump.scm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'dump.scm')

diff --git a/dump.scm b/dump.scm
index 596a188..7730f82 100755
--- a/dump.scm
+++ b/dump.scm
@@ -302,13 +302,17 @@ INNER JOIN InbredSet USING (InbredSetId)"))
                           data-field table-name))
     (close-port port)))
 
+(define (prefix prefix iri)
+  (format #t "@prefix ~a ~a .~%" prefix iri))
+
 (call-with-genenetwork-database
  (lambda (db)
    (with-output-to-file (string-append %dump-directory "/dump.ttl")
      (lambda ()
-       (format #t "@prefix rdf: <http://www.w3.org/1999/02/22-rdf-syntax-ns#> .~%")
-       (format #t "@prefix rdfs: <http://www.w3.org/2000/01/rdf-schema#> .~%")
-       (format #t "@prefix gn: <https://genenetwork.org/> .~%~%")
+       (prefix "rdf:" "<http://www.w3.org/1999/02/22-rdf-syntax-ns#>")
+       (prefix "rdfs:" "<http://www.w3.org/2000/01/rdf-schema#>")
+       (prefix "gn:" "<https://genenetwork.org/>")
+       (newline)
        (dump-species db)
        (dump-strain db)
        (dump-mapping-method db)
-- 
cgit v1.2.3