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/guile.scm | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) (limited to 'lib/zambyte/meta/guile.scm') diff --git a/lib/zambyte/meta/guile.scm b/lib/zambyte/meta/guile.scm index cbd998b..96968d6 100644 --- a/lib/zambyte/meta/guile.scm +++ b/lib/zambyte/meta/guile.scm @@ -2,8 +2,6 @@ (srfi 1) (srfi 2)) (begin - (define string->json json-string->scm) - (define json->string scm->json-string) (define json-object list) (define json-list vector) (define json-null 'null) @@ -13,10 +11,18 @@ (define (json-null? obj) (eq? obj json-null)) + (define (json-object-cointains-key? obj key) + (and (assoc key obj) #t)) + + (define string->json json-string->scm) + (define json->string scm->json-string) + (define (json-object-ref json key) - (and-let* ((pair (assoc key json))) - (cdr pair))) + (or (and-let* ((pair (assoc key json))) + (cdr pair)) + ((json-key-not-found)))) (define json-list-ref vector-ref) + (define json-list-length vector-length) (define json-object->alist values) (define json-list->list vector->list)) -- cgit