70 lines
2.8 KiB
Scheme
70 lines
2.8 KiB
Scheme
(module response-structs mzscheme
|
|
(require (lib "contract.ss")
|
|
(lib "xml.ss" "xml"))
|
|
|
|
(define TEXT/HTML-MIME-TYPE #"text/html; charset=utf-8")
|
|
|
|
;; **************************************************
|
|
;; (make-response/basic number string number string (listof (cons symbol string)))
|
|
(define-struct response/basic (code message seconds mime extras))
|
|
;; (make-response/full ... (listof string))
|
|
(define-struct (response/full response/basic) (body))
|
|
;; (make-response/incremental ... ((string* -> void) -> void))
|
|
(define-struct (response/incremental response/basic) (generator))
|
|
|
|
; response = (cons string (listof string)), where the first string is a mime-type
|
|
; | x-expression
|
|
; | (make-response/full ... (listof string))
|
|
; | (make-response/incremental ... ((string* -> void) -> void))
|
|
|
|
;; **************************************************
|
|
;; response?: any -> boolean
|
|
;; Determine if an object is a response
|
|
(define (response? x)
|
|
(or (and (response/basic? x)
|
|
(number? (response/basic-code x))
|
|
(string? (response/basic-message x))
|
|
(number? (response/basic-seconds x))
|
|
(bytes? (response/basic-mime x))
|
|
(and (list? (response/basic-extras x))
|
|
(andmap
|
|
(lambda (p)
|
|
(and (pair? p)
|
|
(symbol? (car p))
|
|
(string? (cdr p))))
|
|
(response/basic-extras x))))
|
|
; this could fail for dotted lists - rewrite andmap
|
|
(and (pair? x) (pair? (cdr x)) (andmap
|
|
(lambda (x)
|
|
(or (string? x)
|
|
(bytes? x)))
|
|
x))
|
|
; insist that the xexpr has a root element
|
|
(and (pair? x) (xexpr? x))))
|
|
|
|
|
|
(provide/contract
|
|
[struct response/basic
|
|
([code number?]
|
|
[message string?]
|
|
[seconds number?]
|
|
[mime bytes?]
|
|
[extras (listof (cons/c symbol? string?))])]
|
|
[struct (response/full response/basic)
|
|
([code number?]
|
|
[message string?]
|
|
[seconds number?]
|
|
[mime bytes?]
|
|
[extras (listof (cons/c symbol? string?))]
|
|
[body (listof (or/c string?
|
|
bytes?))])]
|
|
[struct (response/incremental response/basic)
|
|
([code number?]
|
|
[message string?]
|
|
[seconds number?]
|
|
[mime bytes?]
|
|
[extras (listof (cons/c symbol? string?))]
|
|
[generator ((() (listof (or/c bytes? string?)) . ->* . any) . ->
|
|
. any)])]
|
|
[response? (any/c . -> . boolean?)]
|
|
[TEXT/HTML-MIME-TYPE bytes?])) |