Ensuring compat libraries provide all old functions too

This commit is contained in:
Jay McCarthy 2010-12-04 08:05:10 -07:00
parent f5e9e0dad1
commit 5832758c5e
10 changed files with 51 additions and 13 deletions

View File

@ -0,0 +1,9 @@
#lang racket/base
(require web-server/dispatch/syntax
"dispatch/serve.rkt"
web-server/dispatch/url-patterns
web-server/dispatch/container)
(provide (all-from-out web-server/dispatch/syntax
"dispatch/serve.rkt"
web-server/dispatch/url-patterns
web-server/dispatch/container))

View File

@ -5,4 +5,7 @@
(define (make d)
(new:make (λ (req) (normalize-response (d req)))))
(provide (all-defined-out))
(provide
(rename-out
[new:interface-version interface-version])
(all-defined-out))

View File

@ -5,4 +5,7 @@
(define (make p d)
(new:make p (λ (req) (normalize-response (d req)))))
(provide (all-defined-out))
(provide
(rename-out
[new:interface-version interface-version])
(all-defined-out))

View File

@ -1,7 +1,12 @@
#lang racket/base
(require web-server/http/xexpr)
(require (prefix-in new: web-server/http/cookie)
web-server/http/xexpr)
(define (xexpr-response/cookies cs xe)
(response/xexpr xe #:cookies cs))
(provide (all-from-out))
(provide
(rename-out
[new:make-cookie make-cookie]
[new:cookie->header cookie->header])
(all-from-out))

View File

@ -1,5 +1,6 @@
#lang racket/base
(require racket/contract
(prefix-in new: web-server/http/response-structs)
web-server/http/response-structs
web-server/http/xexpr
racket/list
@ -65,6 +66,8 @@
[else
(response/xexpr r)]))
(provide (except-out (all-defined-out)
BODIES
GENS))
(provide
(rename-out [new:TEXT/HTML-MIME-TYPE TEXT/HTML-MIME-TYPE])
(except-out (all-defined-out)
BODIES
GENS))

View File

@ -7,4 +7,8 @@
(define (output-response/method conn r meth)
(new:output-response/method conn (normalize-response r) meth))
(provide (all-defined-out))
(provide
(rename-out
[new:print-headers print-headers]
[new:output-file output-file])
(all-defined-out))

View File

@ -10,4 +10,5 @@
kw-args
(λ (req) (normalize-response (gen req)))))))
(provide (all-defined-out))
(provide (rename-out [new:serve/launch/wait serve/launch/wait])
(all-defined-out))

View File

@ -3,13 +3,13 @@
web-server/servlet/web-cells
web-server/http/bindings
"http.rkt"
web-server/dispatch
"dispatch.rkt"
web-server/servlet/servlet-structs
"servlet/web.rkt")
(provide (all-from-out net/url
web-server/servlet/web-cells
web-server/http/bindings
"http.rkt"
web-server/dispatch
"dispatch.rkt"
web-server/servlet/servlet-structs
"servlet/web.rkt"))

View File

@ -29,4 +29,14 @@
(define-ssd-like new:send/suspend/dispatch send/suspend/dispatch)
(define-ssd-like new:send/suspend/url/dispatch send/suspend/url/dispatch)
(provide (all-defined-out))
(provide
(rename-out [new:servlet-prompt servlet-prompt]
[new:continuation-url? continuation-url?]
[new:current-servlet-continuation-expiration-handler
current-servlet-continuation-expiration-handler]
[new:redirect/get redirect/get]
[new:redirect/get/forget redirect/get/forget]
[new:adjust-timeout! adjust-timeout!]
[new:clear-continuation-table! clear-continuation-table!]
[new:with-errors-to-browser with-errors-to-browser])
(all-defined-out))

View File

@ -1,4 +1,4 @@
#lang racket
#lang racket/base
(require web-server/dispatch/syntax
web-server/dispatch/serve
web-server/dispatch/url-patterns