From 91adcf023b0c2684991161661032e1aae3cd6b0c Mon Sep 17 00:00:00 2001 From: Robby Zambito Date: Sun, 12 Feb 2023 01:30:42 -0500 Subject: Initial commit --- lib/zambyte/meta/180.scm | 40 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100644 lib/zambyte/meta/180.scm (limited to 'lib/zambyte/meta/180.scm') diff --git a/lib/zambyte/meta/180.scm b/lib/zambyte/meta/180.scm new file mode 100644 index 0000000..735a895 --- /dev/null +++ b/lib/zambyte/meta/180.scm @@ -0,0 +1,40 @@ +(import (except (srfi 180) json-null) + (srfi 1) + (srfi 2)) +(begin + (define (string->json str) + (call-with-port (open-input-string str) + (lambda (port) + (json-read port)))) + + (define (json->string json) + (call-with-port (open-output-string) + (lambda (port) + (json-write json port) + (get-output-string port)))) + + (define (json-object . pairs) + (map + (lambda (pair) + (cons (string->symbol (car pair)) (cdr pair))) + pairs)) + + (define json-list vector) + (define json-null 'null) + (define json-object? list?) + (define json-list? vector?) + ;; json-null? already defined in srfi 180 + + (define (json-object-ref json key) + (and-let* ((pair (assoc (string->symbol key) json))) + (cdr pair))) + + (define json-list-ref vector-ref) + + (define (json-object->alist json) + (map + (lambda (pair) + (cons (symbol->string (car pair)) (cdr pair))) + json)) + + (define (json-list->list vector->list))) -- cgit