Abstract out prefix entries.

* dump.scm (prefix): New function.
Use prefix.

1 files changed, 7 insertions, 3 deletions

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)