Changeset 33896 in project for release/4/intarweb/trunk/intarweb.scm

Timestamp:

03/19/17 20:02:53 (4 years ago)

Author:

sjamaan

Message:

Intarweb: Add chunking support for request parsing as well

File:

• release/4/intarweb/trunk/intarweb.scm (modified) (3 diffs)

release/4/intarweb/trunk/intarweb.scm

@@ -2 +2 @@
 ;;; Intarweb is an improved HTTP library for Chicken
 ;;;
-;; Copyright (c) 2008-2015, Peter Bex
+;; Copyright (c) 2008-2017, Peter Bex
 ;; All rights reserved.
 ;;
@@ -587 +587 @@
                  (headers (read-headers in)))
         (let* ((wildcard (string=? uri-string "*"))
-               (uri (and (not wildcard) (normalized-uri uri-string))))
+               (uri (and (not wildcard) (normalized-uri uri-string)))
+               ;; HTTP/1.0 has no chunking
+               (port (if (and (or (> major 1) (>= minor 1))
+                              (memq 'chunked
+                                    (header-values
+                                     'transfer-encoding headers)))
+                         (chunked-input-port in)
+                         in)))
           ;; HTTP/1.1 allows several "things" as "URI" (RFC2616, 5.1.2):
           ;; Request-URI = "*" | absoluteURI | abs_path | authority
@@ -607 +614 @@
                              major: major minor: minor
                              headers: headers
-                             port: in)))))))
+                             port: port)))))))
 
 (define request-parsers   ; order matters here