grokking simplicity and refactoring

packages/lab-tool/utils/json/file-io.scm

@@ -0,0 +1,57 @@
+;; utils/json/file-io.scm - JSON file I/O operations
+
+(define-module (utils json file-io)
+  #:use-module (json)
+  #:use-module (ice-9 textual-ports)
+  #:use-module (utils logging)
+  #:export (read-json-file-pure
+            write-json-file-pure
+            read-json-file
+            write-json-file))
+
+;; Pure function: Read JSON from file without logging
+;; Input: filename string
+;; Output: parsed object or #f if failed
+(define (read-json-file-pure filename)
+  "Pure function to read JSON from file"
+  (catch #t
+    (lambda ()
+      (call-with-input-file filename
+        (lambda (port) (json->scm port))))
+    (lambda (key . args) #f)))
+
+;; Pure function: Write JSON to file without logging
+;; Input: filename string, obj (scheme object), pretty boolean
+;; Output: #t if successful, #f if failed
+(define (write-json-file-pure filename obj pretty)
+  "Pure function to write JSON to file"
+  (catch #t
+    (lambda ()
+      (call-with-output-file filename
+        (lambda (port)
+          (if pretty
+              (scm->json obj port #:pretty #t)
+              (scm->json obj port))))
+      #t)
+    (lambda (key . args) #f)))
+
+;; Impure wrapper: Read JSON file with logging
+(define (read-json-file filename)
+  "Read JSON from file with logging"
+  (log-debug "Reading JSON file: ~a" filename)
+  (let ((result (read-json-file-pure filename)))
+    (if result
+        (log-debug "Successfully read JSON file: ~a" filename)
+        (log-error "Failed to read JSON file: ~a" filename))
+    result))
+
+;; Impure wrapper: Write JSON file with logging
+(define (write-json-file filename obj . options)
+  "Write JSON to file with logging"
+  (let ((pretty (if (null? options) #t (car options))))
+    (log-debug "Writing JSON file: ~a" filename)
+    (let ((result (write-json-file-pure filename obj pretty)))
+      (if result
+          (log-debug "Successfully wrote JSON file: ~a" filename)
+          (log-error "Failed to write JSON file: ~a" filename))
+      result)))