jadedctrl/activity-servist
jadedctrl/ activity-servist
1
0
Disbranĉigi 0
Fontkodo Issues Tirpetoj Activity

Add YASON:ENCODE, for encoding of nested objects

This commit is contained in:
Jaidyn Ann 2024-08-22 11:01:16 -05:00
parent cc81dee054
commit b2e9e5340d
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/json-ld.lisp
View File

@ -97,6 +97,10 @@ If you would like to change it on an object-level, set the @CONTEXT slot."))
(cdr alist-cell))) (cdr alist-cell)))
(json-ld-etc obj))) (json-ld-etc obj)))
(defmethod yason:encode ((obj json-ld-object) &optional (stream *standard-output))
(yason:with-output (stream)
(yason:encode-object obj)))
;;; CLOS definition ;;; CLOS definition
@ -198,12 +202,14 @@ into a DEFCLASS format."
"Helper-macro for DEFINE-JSON-CLOS-CLASS. "Helper-macro for DEFINE-JSON-CLOS-CLASS.
This actually defines the YASON-encoder for a JSON-LD node-type. This actually defines the YASON-encoder for a JSON-LD node-type.
CLASS is the class-name; see DEFINE-JSON-TYPE’s docstring about DIRECT-SLOTS." CLASS is the class-name; see DEFINE-JSON-TYPE’s docstring about DIRECT-SLOTS."
(append `(progn
`(defmethod yason:encode-slots progn ((obj ,class))) (defmethod yason:encode-slots progn ((obj ,class))
(mapcar (lambda (slot) ,(append
`(when (slot-boundp obj ',(car slot)) `(progn)
(yason:encode-object-element ,(cadr slot) (slot-value obj ',(car slot))))) (mapcar (lambda (slot)
direct-slots))) `(when (slot-boundp obj ',(car slot))
(yason:encode-object-element ,(cadr slot) (slot-value obj ',(car slot)))))
direct-slots)))))