(use srfi-13)
(use srfi-18)
(use tcp)
(use posix)
(use utils)
; (require-extension intarweb)

(require "response")
(require "request")

(define real-handle
  (lambda (in out handler)
    ; We're lazy- we can find out everything about the request that we care
    ; about from it's first line
    (let ((line (read-line in)))
      (if (not (equal? line #!eof))
        (let ((request-path (get-request-path line))
           (request-method (get-request-method line))
           (request '((path . request-path) (method . request-method)))
           (response (make-response)))
      (write-response
        (handler request response)
        out)))
      (close-input-port in)
      (close-output-port out))))

(define handle
  (if threaded?
    real-handle
    (lambda (in out) (thread-start! (make-thread (lambda () (real-handle in out)))))))

(define start
  (lambda (port handler)
    (letrec ((sock (tcp-listen (string->number (get-environment-variable "PORT"))))
      (mainloop (lambda ()
        (let-values (((s-in s-out) (tcp-accept sock)))
          (handle s-in s-out handler)
          (mainloop)))))
      (mainloop))))