From 128b2a9ff19356529a9d09a15b680dcf1b8f8482 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Mon, 29 May 2023 11:25:42 +0300 Subject: Allow upleading all files in a directory to virtuoso Signed-off-by: Munyoki Kilyungi --- load-rdf.scm | 45 +++++++++++++++++++++++++-------------------- 1 file changed, 25 insertions(+), 20 deletions(-) diff --git a/load-rdf.scm b/load-rdf.scm index 6719bd5..e07665f 100755 --- a/load-rdf.scm +++ b/load-rdf.scm @@ -185,26 +185,31 @@ DELETE FROM rdf_quad WHERE g = iri_to_id ('~a');" (assq-ref connection-settings 'virtuoso-password) %graph-uri))) ;; Load data into virtuoso. - (ftw rdf-file - (lambda (filename statinfo flag) - (begin - (when (eq? 'regular (stat:type statinfo)) - (format (current-output-port) - "~a loaded into virtuoso in ~a seconds~%" - filename - (time-thunk - (cut put-graph - (build-uri - (assq-ref connection-settings 'sparql-scheme) - #:host (assq-ref connection-settings 'sparql-host) - #:port (assq-ref connection-settings 'sparql-port) - #:path "/sparql-graph-crud-auth") - (assq-ref connection-settings 'virtuoso-username) - (assq-ref connection-settings 'virtuoso-password) - filename - %graph-uri - #t)))) - #t))))) + (let ((host (assq-ref connection-settings 'sparql-host)) + (port (assq-ref connection-settings 'sparql-port)) + (path "/sparql-graph-crud-auth") + (username (assq-ref connection-settings 'virtuoso-username)) + (password (assq-ref connection-settings 'virtuoso-password))) + (ftw rdf-file + (lambda (filename statinfo flag) + (begin + (when (eq? 'regular (stat:type statinfo)) + (format (current-output-port) + "~a loaded into virtuoso in ~a seconds~%" + filename + (time-thunk + (cut put-graph + (build-uri + (assq-ref connection-settings 'sparql-scheme) + #:host host + #:port port + #:path path) + username + password + filename + %graph-uri + #t)))) + #t)))))) ((arg0 _ ...) (format (current-error-port) "Usage: ~a CONNECTION-SETTINGS-FILE RDF-FILE-OR-RDF-DIR~%" arg0) (exit #f)))) -- cgit v1.2.3