server.lisp

(require 'usocket)

(defun end-string (string how-many)
  (let ((str-length (length string)))
    (if (or (< str-length how-many)
	    (not string))
	string
	(subseq string (- str-length how-many) str-length))))


(defun read-lines (connection)
  (let ((body nil)
	(temp "some"))
    (loop while temp
       do
	 (format t "BODY:~%~a~%" body)
	 (if (string= (end-string body 4) "\r\n\r\n")
	     (progn
	       (format t "Equal~%---------------------~%")
	       body)
	     (progn
	       (format t "Not equal~%------------------------~%")
	       (setq temp (read-line (usocket:socket-stream connection) nil '(\#Return\#linefeed)))
	       (setq body (concatenate 'string body temp '(#\Newline))))))
    (format t "Final Body: ~a~%" body)))


(defun start-simple-server (port)
  "Listening on a port for a message, and print the received message."
  (usocket:with-socket-listener (socket "127.0.0.1" port :reuse-address t)
    (usocket:wait-for-input socket)
    (usocket:with-connected-socket (connection (usocket:socket-accept socket))
      (read-lines connection)
      (format (usocket:socket-stream connection) "OK"))))