changes

• server.slate :: line 4

  Http define: #Request &parents: {Cloneable} &slots: {#method. #uri. #protocol. #headers. #stream}.
  

  Http define: #Request &parents: {Cloneable} &slots: {#protocol. #method. #uri. #headers. #stream}.
  Http define: #Response &parents: {Cloneable} &slots: {#protocol. #status. #headers. #body}.
  

• server.slate :: line 25

  [ | line chunks |
    line: p source next.
    chunks: (line splitWith: $ ).
  

  [ | chunks |
    chunks: (p source next splitWith: $ ).
  

• server.slate :: line 29

      protocol: (chunks at: 2).
  

• server.slate :: line 32

      protocol: (chunks at: 2).
  

• server.slate :: line 36

  r@(Http Request traits) respond: status
  [ r respond: status body: '' ].
  
  r@(Http Request traits) respond: status body: body
  

  rq@(Http Request traits) respondWith: rs@(Http Response traits)
  

• server.slate :: line 38

    reply: (body as: ByteArray).
    r stream nextPutAll: (('HTTP/1.1 ' ; (status as: String) ; '\r\nServer: Slate/0.0\r\nContent-Type: text/html; charset=UTF-8\r\n'
                             ; 'Content-Length: '; reply length printString
                             ; '\r\nConnection: keep-alive\r\nKeep-Alive: timeout=10\r\n\r\n') as: ByteArray) ; reply.
  

    reply: '' writer.
    reply ; (rs protocol) ; ' ' ; (rs status as: String) ; '\r\n'.
  
    rs headers do: [ | :header | reply ; header key ; ': ' ; header value ; '\r\n'. ].
  

• server.slate :: line 43

    reply ; 'Content-Length: ' ; (rs body length as: String) ; '\r\n'.
    reply ; '\r\n'.
    reply ; rs body.
  
    rq stream nextPutAll: (reply contents as: ByteArray).
  

• server.slate :: line 51

  "An example handler. Override me."
  r@(Http Request traits) handle
  [ r respondWith: (Http Response new `>> [ protocol: 'HTTP/1.1'.
                                            status: Http StatusResponse OK.
                                            headers: Dictionary new.
                                            body: '<h1>OK!</h1>'. ]).
  ].
  
  

• server.slate :: line 72

      request respond: Http StatusResponse NotFound body: '<h1>404 Not Found</h1>'.
  

      request handle.