From 3eb01f8b0611e18d293283f761259961752c3c5c Mon Sep 17 00:00:00 2001
From: Frederick Muriuki Muriithi
Date: Tue, 9 Jul 2024 11:43:25 -0500
Subject: Rename script: Give file a more relevant name.

Reviewed-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 json-to-ttl.scm | 73 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 73 insertions(+)
 create mode 100755 json-to-ttl.scm

(limited to 'json-to-ttl.scm')

diff --git a/json-to-ttl.scm b/json-to-ttl.scm
new file mode 100755
index 0000000..0a054c5
--- /dev/null
+++ b/json-to-ttl.scm
@@ -0,0 +1,73 @@
+#! /usr/bin/env guile
+!#
+
+(use-modules (json)
+             (ice-9 ftw)
+             (ice-9 match)
+             (transform triples))
+
+
+
+(define %directory
+  (list-ref (command-line) 2))
+
+(define %data-directory
+  (list-ref (command-line) 1))
+
+
+
+(define (json-metadata->rdf path)
+  "Given a PATH that contains a json file, fetch the metadata embedded
+inside it."
+  (if (access? path F_OK)
+      (let* ((data (assoc-ref (call-with-input-file
+                                  path
+                                (lambda (port)
+                                  (json->scm port)))
+                              "metadata"))
+             (name (or (assoc-ref data "name")
+                       (assoc-ref data "displayName"))))
+        (match data
+          (((key . value) ...)
+           (map
+            (lambda (a b)
+              (format
+               #f "gn:sampledata_~a gn:sampledata:~A ~a ."
+               name a (format #f "~s"
+                              (cond ((boolean? b)
+                                     (if b "True" "False"))
+                                    (else b)))))
+            key value))))))
+
+(define (run-proc-on-files path proc)
+  (define (enter? name stat result)
+    (not (member (basename name) '(".git" ".svn" "CVS"))))
+  (define (leaf name stat result)
+    (proc name))
+  (define (down name stat result) result)
+  (define (up name stat result) result)
+  (define (skip name stat result) result)
+
+  ;; Ignore unreadable files/directories but warn the user.
+  (define (error name stat errno result)
+    (format (current-error-port) "warning: ~a: ~a~%"
+            name (strerror errno))
+    result)
+  (file-system-fold enter? leaf down up skip error 0 path))
+
+(define (rdf path)
+  (with-output-to-file
+      (string-append %directory "/sampledata.ttl")
+    (lambda ()
+      (prefix "gn:" "<http://genenetwork.org/>")
+      (newline)
+      (run-proc-on-files
+       %data-directory
+       (lambda (file)
+         (when (string-suffix? "json" file)
+           (map (lambda (line)
+                  (display line)
+                  (newline))
+                (json-metadata->rdf file))))))))
+
+(rdf %data-directory)
-- 
cgit v1.2.3