From 2990f8c72975eb1de8be62ac043375fea47857eb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= Date: Mon, 26 Dec 2022 03:10:17 -0300 Subject: Introduce a way to serialize the parsed json data --- dump.lisp | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 dump.lisp (limited to 'dump.lisp') diff --git a/dump.lisp b/dump.lisp new file mode 100644 index 0000000..d4f3fff --- /dev/null +++ b/dump.lisp @@ -0,0 +1,31 @@ +(in-package #:json) + +(defun to-string (value) + (defun indent (str level) + (concatenate 'string (make-string (* 4 level) :initial-element #\Space) str)) + (defun to-string-rec (value level) + (cond ((stringp value) + (format nil "\"~a\"" value)) + ((symbolp value) + (string-downcase (symbol-name value))) + ((arrayp value) + (format nil + "[~&~{~a~^,~&~}]" + (map 'list (lambda (x) (indent (to-string-rec x (1+ level)) level)) + value))) + ((hash-table-p value) + (let (items) + (maphash (lambda (k v) + (push (indent (format nil "\"~a\": ~a" k (to-string-rec v (1+ level))) level) + items)) + value) + (format nil "{~&~{~a~^,~&~}}" items))) + (t value))) + (to-string-rec value 0)) + +(defun to-file (value filename) + (with-open-file (s filename + :direction :output + :if-exists :supersede + :if-does-not-exist :create) + (princ (to-string value) s) t)) -- cgit v1.2.3