diff options
| -rwxr-xr-x | dump.scm | 10 |
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) |