From c437fe7dcc5291d9ce4c978da7b6947ec096ecb5 Mon Sep 17 00:00:00 2001
From: riton <riton@riton.home>
Date: Tue, 22 Jul 2025 22:30:11 +0300
Subject: =?UTF-8?q?proje=20ba=C5=9Flang=C4=B1c=C4=B1?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .gitignore       |  1 +
 "da\304\237.asd" |  9 +++++++++
 src/main.lisp    | 20 ++++++++++++++++++++
 3 files changed, 30 insertions(+)
 create mode 100644 .gitignore
 create mode 100644 "da\304\237.asd"
 create mode 100644 src/main.lisp

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..e4e5f6c
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1 @@
+*~
\ No newline at end of file
diff --git "a/da\304\237.asd" "b/da\304\237.asd"
new file mode 100644
index 0000000..22e5237
--- /dev/null
+++ "b/da\304\237.asd"
@@ -0,0 +1,9 @@
+(defsystem dağ
+  :author "Emre Akan"
+  :description "Web frameworkü"
+  ;; :depends-on ()
+  :pathname "src/"
+  :components ((:file "main")
+               ;; (:module "json"
+               ;;  :components (()))
+               ))
diff --git a/src/main.lisp b/src/main.lisp
new file mode 100644
index 0000000..ccebc55
--- /dev/null
+++ b/src/main.lisp
@@ -0,0 +1,20 @@
+(defun make-server ()
+  (let ((socket (make-instance 'sb-bsd-sockets:inet-socket
+                               :type :stream :protocol :tcp)))
+    (sb-bsd-sockets:socket-bind socket #(127 0 0 1) 8080)
+    (sb-bsd-sockets:socket-listen socket 5)
+    socket))
+
+(defparameter *endl* (format nil "~c~c" #\Return #\Newline))
+(defparameter *message*
+  (format nil "~{~A~}" (list "HTTP/1.1 200 Ok" *endl*
+                             (format nil "Content-Length: ~a" (length "hello there"))
+                             *endl* *endl*
+                             "hello there" *endl*)))
+
+(defun handler (server)
+  (let ((socket (sb-bsd-sockets:socket-accept server))
+        (buf (make-array 1028 :element-type 'character)))
+    (sb-bsd-sockets:socket-receive socket buf nil)
+    (write-sequence buf *standard-output*)
+    (sb-bsd-sockets:socket-send socket *message* nil)))
-- 
cgit v1.2.3