json okur baş

3 files changed, 99 insertions, 3 deletions

diff --git a/dağ.asd b/dağ.asd
index 22e5237..308c51d 100644
--- a/dağ.asd
+++ b/dağ.asd
@@ -4,6 +4,6 @@
   ;; :depends-on ()
   :pathname "src/"
   :components ((:file "main")
-               ;; (:module "json"
-               ;;  :components (()))
-               ))
+               (:module "json"
+                :components ((:file "paket")
+                             (:file "json")))))
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)))
+
diff --git a/src/json/paket.lisp b/src/json/paket.lisp
new file mode 100644
index 0000000..534e15a
--- /dev/null
+++ b/src/json/paket.lisp
@@ -0,0 +1,2 @@
+(defpackage :json
+  (:use :common-lisp))