1 files changed, 94 insertions, 0 deletions
diff --git a/src/json/json.lisp b/src/json/json.lisp
new file mode 100644
index 0000000..e20c529
--- /dev/null
+++ b/src/json/json.lisp
@@ -0,0 +1,94 @@
+(in-package :json)
+
+(defparameter *json* "{\"hello\": 55}")
+
+(defclass json-okur ()
+  ((arabellek :accessor arabellek
+              :initarg :arabellek
+              :type string)
+   (uzunluk :accessor uzunluk
+            :initarg :uzunluk
+            :type integer)
+   (i :accessor i
+      :initform 0
+      :type integer)
+   (ch :accessor ch
+       :type character)
+   (ch2 :accessor ch2
+        :type character)))
+
+(defparameter +eof+ (code-char 0))
+
+(defun eof? (ch)
+  (char= +eof+ ch))
+
+(defun yeni (arabellek &optional (uzunluk (length arabellek)))
+  (let ((okur (make-instance 'json-okur :arabellek arabellek :uzunluk uzunluk)))
+    (char-gözat! okur)
+    okur))
+
+(defmethod reset ((o json-okur))
+  (setf (i o) 0)
+  (char-gözat! o))
+
+(defmethod index ((o json-okur))
+  (- (i o) 2))
+
+(defmethod char-oynat ((o json-okur))
+  (setf (ch o) (ch2 o))
+  (char-gözat! o)
+  (ch o))
+
+(defmethod char-gözat ((o json-okur))
+  (ch2 o))
+
+(defmethod char-gözat! ((o json-okur))
+  "Sonraki karaktere bak ve kaydet"
+  (with-slots (i uzunluk arabellek ch2) o
+    (cond ((array-in-bounds-p arabellek i)
+           (setf ch2 (aref arabellek i))
+           (incf i))
+          (t
+           (setf ch2 +eof+)))))
+
+(defun boşluk? (ch)
+  (find ch #(#\Space #\Newline #\Return #\Tab)))
+
+(defmethod boşluk-geç ((o json-okur))
+  (loop :while (boşluk? (char-gözat o))
+        :do (char-oynat o)))
+
+(defmethod metin-oku ((o json-okur))
+  (let* ((baş (+ 1 (index o))))
+    (loop :for char := (char-oynat o)
+          :until (char= #\" char))
+    (subseq (arabellek o) baş (index o))))
+
+(defmethod rakam? (ch)
+  (char<= #\0 ch #\9))
+
+(defmethod sayı-oku ((o json-okur))
+  (let* ((baş (index o)))
+    (loop :for char := (char-gözat o)
+          :while (rakam? char)
+          :do (char-oynat o))
+    (subseq (arabellek o) baş (+ 1 (index o)))))
+
+(defmethod token-oku ((o json-okur))
+  (case (char-oynat o)
+    (#\{ :süslü-aç)
+    (#\} :süslü-kapa)
+    (#\: :iki-nokta)
+    (#\" (list :string (metin-oku o)))
+    (otherwise (cond ((rakam? (ch o))
+                      (list :sayı (sayı-oku o)))
+                     ((boşluk? (ch o))
+                      (boşluk-geç o))
+                     ((eof? (ch o))
+                      :eof)))))
+
+(defmethod işle ((o json-okur))
+  (loop :for token := (token-oku o)
+        :collect token
+        :until (eq :eof token)))
+