From b1294088059fe22d1a05d0f9637fdd598795d8ea Mon Sep 17 00:00:00 2001 From: Robby Zambito Date: Sun, 12 Feb 2023 22:46:48 -0500 Subject: Add json-object-contains-key?, json-list-length, and json-key-not-found. Update README accordingly and with add examples. --- lib/zambyte/meta/180.scm | 31 ++++++++++++++++++------------- 1 file changed, 18 insertions(+), 13 deletions(-) (limited to 'lib/zambyte/meta/180.scm') diff --git a/lib/zambyte/meta/180.scm b/lib/zambyte/meta/180.scm index 735a895..71ee1a8 100644 --- a/lib/zambyte/meta/180.scm +++ b/lib/zambyte/meta/180.scm @@ -2,17 +2,6 @@ (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) @@ -25,11 +14,27 @@ (define json-list? vector?) ;; json-null? already defined in srfi 180 + (define (json-object-contains-key? obj key) + (and (assoc (string->symbol key) obj) #t)) + + (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-ref json key) - (and-let* ((pair (assoc (string->symbol key) json))) - (cdr pair))) + (or (and-let* ((pair (assoc (string->symbol key) json))) + (cdr pair)) + ((json-key-not-found)))) (define json-list-ref vector-ref) + (define json-list-length vector-length) (define (json-object->alist json) (map -- cgit