From 25f9279b0078ef0cc93507776c9c8413a0a73a00 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 30 Oct 2022 20:47:37 +0530
Subject: Move triple utilities to new module.

* dump.scm (string->identifier, string-blank?, triple, prefix): Move
to ...
* dump/triples.scm: ... new file.
* dump.scm: Import (dump triples).
---
 dump.scm | 44 +-------------------------------------------
 1 file changed, 1 insertion(+), 43 deletions(-)

(limited to 'dump.scm')

diff --git a/dump.scm b/dump.scm
index 8e2057e..295bf1e 100755
--- a/dump.scm
+++ b/dump.scm
@@ -9,6 +9,7 @@
              (ice-9 string-fun)
              (dump sql)
              (dump table)
+             (dump triples)
              (dump utils))
 
 
@@ -101,20 +102,6 @@ association list mapping substrings to their replacements."
         str
         replacement-alist))
 
-(eval-when (expand load eval)
-  (define (string->identifier prefix str)
-    "Convert STR to a turtle identifier after replacing illegal
-characters with an underscore and prefixing with gn:PREFIX."
-    (string->symbol
-     (string-append "gn:" prefix "_"
-                    (string-map (lambda (c)
-                                  (case c
-                                    ((#\/ #\< #\> #\+ #\( #\) #\space #\@) #\_)
-                                    (else c)))
-                                (string-downcase
-                                 (string-trim-right str #\.)))))))
-
-
 (define (snake->lower-camel str)
   (let ((char-list (string->list str)))
     (call-with-output-string
@@ -128,32 +115,6 @@ characters with an underscore and prefixing with gn:PREFIX."
              (drop char-list 1)
              char-list)))))
 
-(define (scm->triples alist id)
-  (for-each (match-lambda
-              ((predicate . object)
-               (when (cond
-                      ((string? object)
-                       (not (string-blank? object)))
-                      (else object))
-                 (triple id predicate object))))
-            alist))
-
-(define (triple subject predicate object)
-  (unless (or (string? subject)
-              (symbol? subject))
-    (error "Triple subject not a string or symbol:"
-           (list subject predicate object)))
-  (unless (or (string? predicate)
-              (symbol? predicate))
-    (error "Triple predicate not a string or symbol:"
-           (list subject predicate object)))
-  (unless (or (string? object)
-              (symbol? object)
-              (number? object))
-    (error "Triple object not a string, symbol or number:"
-           (list subject predicate object)))
-  (format #t "~a ~a ~s .~%" subject predicate object))
-
 (eval-when (expand load eval)
   (define (field->key x)
     (translate-forms 'field
@@ -809,9 +770,6 @@ is a <table> object."
 
 ;; Main function
 
-(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")
-- 
cgit v1.2.3