1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
#lang racket/base
(require racket/contract
racket/serialize
racket/match
racket/promise
net/url-structs
web-server/private/util)
(define-serializable-struct header (field value) #:transparent)
(define (headers-assq* f hs)
(match hs
[(list)
#f]
[(list-rest (and h (struct header (af aw))) hs)
(if (bytes-ci=? af f)
h
(headers-assq* f hs))]))
(define (headers-assq f hs)
(match hs
[(list)
#f]
[(list-rest (and h (struct header (af av))) hs)
(if (bytes=? af f)
h
(headers-assq f hs))]))
(provide/contract
[headers-assq (bytes? (listof header?) . -> . (or/c false/c header?))]
[headers-assq* (bytes? (listof header?) . -> . (or/c false/c header?))]
[struct header ([field bytes?]
[value bytes?])])
(define-serializable-struct binding
(id) #:transparent)
(define-serializable-struct (binding:form binding)
(value) #:transparent)
(define-serializable-struct (binding:file binding)
(filename headers content) #:transparent)
(define (bindings-assq ti bs)
(match bs
[(list)
#f]
[(list-rest (and b (struct binding (i))) bs)
(if (equal? ti i)
b
(bindings-assq ti bs))]))
(define (bindings-assq-all ti bs)
(for/list ([b (in-list bs)]
#:when (and (binding? b) (equal? ti (binding-id b))))
b))
(provide/contract
[bindings-assq (bytes? (listof binding?) . -> . (or/c false/c binding?))]
[bindings-assq-all (bytes? (listof binding?) . -> . (listof binding?))]
[struct binding ([id bytes?])]
[struct (binding:form binding) ([id bytes?]
[value bytes?])]
[struct (binding:file binding) ([id bytes?]
[filename bytes?]
[headers (listof header?)]
[content bytes?])])
(define-serializable-struct
request
(method uri headers/raw bindings/raw-promise post-data/raw
host-ip host-port client-ip)
#:transparent)
(define (request-bindings/raw r)
(force (request-bindings/raw-promise r)))
(provide/contract
[request-bindings/raw (request? . -> . (listof binding?))]
[struct request ([method bytes?]
[uri url?]
[headers/raw (listof header?)]
[bindings/raw-promise (promise/c (listof binding?))]
[post-data/raw (or/c false/c bytes?)]
[host-ip string?] [host-port number?]
[client-ip string?])])
|
