Change api and add object generation

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))