suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Allow different HTTP versions

Browse Source
This commit is contained in:
Jay McCarthy 2013-08-27 09:03:54 -06:00
parent fbccbd8ad3
commit 41901397a7
2 changed files with 23 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pkgs/racket-pkgs/racket-doc/net/scribblings/http-client.scrbl
View File

@ -62,14 +62,16 @@ Closes @racket[hc] if it is live.
}
@defproc[(http-conn-send! [hc http-conn-live?] [uri (or/c bytes? string?)]
[#:version version (or/c bytes? string?) #"1.1"]
[#:method method (or/c bytes? string? symbol?) #"GET"]
[#:headers headers (listof (or/c bytes? string?)) empty]
[#:data data (or/c false/c bytes? string?) #f])
void?]{
Sends an HTTP request to @racket[hc] to the URI @racket[uri] using the
method @racket[method] and the additional headers given in
@racket[headers] and the additional data @racket[data].
Sends an HTTP request to @racket[hc] to the URI @racket[uri] using
HTTP version @racket[version] the method @racket[method] and the
additional headers given in @racket[headers] and the additional data
@racket[data].
}
@ -90,6 +92,7 @@ to do so.
}
@defproc[(http-conn-sendrecv! [hc http-conn-live?] [uri (or/c bytes? string?)]
[#:version version (or/c bytes? string?) #"1.1"]
[#:method method (or/c bytes? string? symbol?) #"GET"]
[#:headers headers (listof (or/c bytes? string?)) empty]
[#:data data (or/c false/c bytes? string?) #f]
@ -103,6 +106,7 @@ Calls @racket[http-conn-send!] and @racket[http-conn-recv!] in sequence.
@defproc[(http-sendrecv [host (or/c bytes? string?)] [uri (or/c bytes? string?)]
[#:ssl? ssl? (or/c boolean? ssl-client-context? symbol?) #f]
[#:port port (between/c 1 65535) (if ssl? 443 80)]
[#:version version (or/c bytes? string?) #"1.1"]
[#:method method (or/c bytes? string? symbol?) #"GET"]
[#:headers headers (listof (or/c bytes? string?)) empty]
[#:data data (or/c false/c bytes? string?) #f])

24
racket/collects/net/http-client.rkt
View File

@ -70,11 +70,12 @@
(set-http-conn-abandon-p! hc #f))
(define (http-conn-send! hc url-bs
#:version [version-bs #"1.1"]
#:method [method-bss #"GET"]
#:headers [headers-bs empty]
#:data [data-bsf #f])
(match-define (http-conn host to from _) hc)
(fprintf to "~a ~a HTTP/1.1\r\n" method-bss url-bs)
(fprintf to "~a ~a HTTP/~a\r\n" method-bss url-bs version-bs)
(fprintf to "Host: ~a\r\n" host)
(define data
(if (string? data-bsf)
@ -183,11 +184,13 @@
(values status headers response-port))
(define (http-conn-sendrecv! hc url-bs
#:version [version-bs #"1.1"]
#:method [method-bss #"GET"]
#:headers [headers-bs empty]
#:data [data-bsf #f]
#:close? [close? #f])
(http-conn-send! hc url-bs
#:version version-bs
#:method method-bss
#:headers headers-bs
#:data data-bsf)
@ -196,11 +199,13 @@
(define (http-sendrecv host-bs url-bs
#:ssl? [ssl? #f]
#:port [port (if ssl? 443 80)]
#:version [version-bs #"1.1"]
#:method [method-bss #"GET"]
#:headers [headers-bs empty]
#:data [data-bsf #f])
(define hc (http-conn-open host-bs #:ssl? ssl? #:port port))
(http-conn-sendrecv! hc url-bs
#:version version-bs
#:method method-bss
#:headers headers-bs
#:data data-bsf
@ -227,9 +232,10 @@
[http-conn-send!
(->*
(http-conn-live? (or/c bytes? string?))
(#:method (or/c bytes? string? symbol?)
#:headers (listof (or/c bytes? string?))
#:data (or/c false/c bytes? string?))
(#:version (or/c bytes? string?)
#:method (or/c bytes? string? symbol?)
#:headers (listof (or/c bytes? string?))
#:data (or/c false/c bytes? string?))
void)]
;; Derived
[http-conn-open
@ -243,15 +249,17 @@
(values bytes? (listof bytes?) input-port?))]
[http-conn-sendrecv!
(->* (http-conn-live? (or/c bytes? string?))
(#:method (or/c bytes? string? symbol?)
#:headers (listof (or/c bytes? string?))
#:data (or/c false/c bytes? string?)
#:close? boolean?)
(#:version (or/c bytes? string?)
#:method (or/c bytes? string? symbol?)
#:headers (listof (or/c bytes? string?))
#:data (or/c false/c bytes? string?)
#:close? boolean?)
(values bytes? (listof bytes?) input-port?))]
[http-sendrecv
(->* ((or/c bytes? string?) (or/c bytes? string?))
(#:ssl? (or/c boolean? ssl-client-context? symbol?)
#:port (between/c 1 65535)
#:version (or/c bytes? string?)
#:method (or/c bytes? string? symbol?)
#:headers (listof (or/c bytes? string?))
#:data (or/c false/c bytes? string?))