diff options
Diffstat (limited to 'save.lisp')
-rw-r--r-- | save.lisp | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/save.lisp b/save.lisp new file mode 100644 index 0000000..d4f3fff --- /dev/null +++ b/save.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)) |