From fdeb8e5de32f21a4a016b99165d248a7d8c3abde Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= Date: Fri, 3 Feb 2023 14:39:39 -0300 Subject: Change api and add object generation --- dump.lisp | 31 ------------------------------- 1 file changed, 31 deletions(-) delete mode 100644 dump.lisp (limited to 'dump.lisp') diff --git a/dump.lisp b/dump.lisp deleted file mode 100644 index d4f3fff..0000000 --- a/dump.lisp +++ /dev/null @@ -1,31 +0,0 @@ -(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