@@ -4,9 +4,11 @@

   :description "Describe http-streams here"

   :author "Your Name <your.name@example.com>"

   :license "Specify license here"

-  :depends-on (#:fwoar.lisputils

+  :depends-on (#:fwoar-lisputils

                #:alexandria

-               #:serapeum)

+               #:serapeum

+	             #:cl+ssl

+	             #:usocket)

   :serial t

   :components ((:file "package")

                (:file "http-streams")))

@@ -17,6 +17,20 @@

   `(prog1 ,form

      (end-line ,stream)))

+(defun lookup-status (status)

+  (ecase status

+    (200 "OK")

+    (400 "Bad Request")

+    (404 "Not Found")

+    (301 "Moved Permanently")

+    (302 "Moved Temporarily")

+    ))

+

+(defun response (status out-stream)

+  (with-line (out-stream)

+    (format out-stream "HTTP/1.1 ~d ~a" status (lookup-status status)))

+  out-stream)

+

 (defun request (method path out-stream)

   (with-line (out-stream)

     (format out-stream "~a ~a HTTP/1.1" method path))

@@ -117,38 +131,3 @@

 	      headers

 	      content-length))))

-

-#|

-(defun get-subreddit-feed ()

-  (usocket:with-client-socket (so st "reddit.com" 443 :element-type '(unsigned-byte 8))

-    (let* ((ssl-stream (cl+ssl:make-ssl-client-stream st :hostname "reddit.com"))

-	   (char-stream (flexi-streams:make-flexi-stream ssl-stream :external-format :iso-8859-1)))

-      (unwind-protect (locally (declare (optimize (debug 3)))

-			(progn (build-subreddit-request :GET "lisp" char-stream)

-			       (finish-output char-stream)

-			       (multiple-value-bind (result headers) (read-in-header char-stream)

-				 (let ((reply-buf (make-string (parse-integer (cadr (assoc "Content-Length" headers

-											   :test 'equalp))))))

-				   (values reply-buf

-					   result

-					   headers

-					   (read-sequence reply-buf char-stream))))))

-	(close ssl-stream)))))

-

-(defparameter *old-readtable* (copy-readtable *readtable*))

-(set-macro-character #\] 'identity nil)

-(set-dispatch-macro-character

- #\# #\[

- (lambda (s c n)

-   (let ((list (read-delimited-list #\] s t)))

-     (fw.lu:rollup-list

-      (loop with result = ()

-	 for (arg op) on list by #'cddr

-	 while op

-	 do

-	   (push `(,op ,arg)

-		 result)

-	 finally

-	   (push arg result)

-	   (return (nreverse result)))))))

-|#