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

Privatizing

Browse Source 
svn: r6435
This commit is contained in:
Jay McCarthy 2007-06-01 14:55:38 +00:00
parent 78cc784edd
commit b191bd5a8f
9 changed files with 14 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/web-server/dispatchers/dispatch-servlets.ss
View File

@ -7,7 +7,7 @@
"../private/connection-manager.ss" "../private/connection-manager.ss"
"../private/response.ss" "../private/response.ss"
"../request-structs.ss" "../request-structs.ss"
"../servlet-structs.ss" "../servlet/servlet-structs.ss"
"../response-structs.ss" "../response-structs.ss"
"../servlet/web-cells.ss" "../servlet/web-cells.ss"
"../servlet/web.ss" "../servlet/web.ss"

2
collects/web-server/managers/lru.ss
View File

@ -3,7 +3,7 @@
(lib "contract.ss") (lib "contract.ss")
(lib "kw.ss")) (lib "kw.ss"))
(require "manager.ss" (require "manager.ss"
"../servlet-structs.ss") "../servlet/servlet-structs.ss")
(provide/contract (provide/contract
[create-LRU-manager ((expiration-handler? number? number? (-> boolean?)) any/c . ->* . (manager?))]) [create-LRU-manager ((expiration-handler? number? number? (-> boolean?)) any/c . ->* . (manager?))])

2
collects/web-server/managers/manager.ss
View File

@ -1,6 +1,6 @@
(module manager mzscheme (module manager mzscheme
(require (lib "contract.ss")) (require (lib "contract.ss"))
(require "../servlet-structs.ss") (require "../servlet/servlet-structs.ss")
(define-struct manager (create-instance (define-struct manager (create-instance
adjust-timeout! adjust-timeout!

2
collects/web-server/managers/none.ss
View File

@ -1,7 +1,7 @@
(module none mzscheme (module none mzscheme
(require (lib "contract.ss")) (require (lib "contract.ss"))
(require "manager.ss") (require "manager.ss")
(require "../servlet-structs.ss") (require "../servlet/servlet-structs.ss")
(provide/contract (provide/contract
[create-none-manager (expiration-handler? . -> . manager?)]) [create-none-manager (expiration-handler? . -> . manager?)])

2
collects/web-server/managers/timeouts.ss
View File

@ -3,7 +3,7 @@
(lib "contract.ss")) (lib "contract.ss"))
(require "manager.ss") (require "manager.ss")
(require "../private/timer.ss" (require "../private/timer.ss"
"../servlet-structs.ss") "../servlet/servlet-structs.ss")
(provide/contract (provide/contract
[create-timeout-manager (expiration-handler? number? number? . -> . manager?)]) [create-timeout-manager (expiration-handler? number? number? . -> . manager?)])

2
collects/web-server/private/servlet.ss
View File

@ -1,7 +1,7 @@
(module servlet mzscheme (module servlet mzscheme
(require (lib "contract.ss")) (require (lib "contract.ss"))
(require "../managers/manager.ss" (require "../managers/manager.ss"
"../servlet-structs.ss" "../servlet/servlet-structs.ss"
"connection-structs.ss" "connection-structs.ss"
"../request-structs.ss") "../request-structs.ss")

9
collects/web-server/servlet.ss
View File

@ -5,16 +5,15 @@
"servlet/basic-auth.ss" "servlet/basic-auth.ss"
"servlet/servlet-url.ss" "servlet/servlet-url.ss"
"servlet/web.ss" "servlet/web.ss"
"servlet/servlet-structs.ss"
"response-structs.ss" "response-structs.ss"
"request-structs.ss" "request-structs.ss")
"servlet-structs.ss")
(provide (all-from "servlet/web.ss") (provide (all-from "servlet/web.ss")
(all-from "servlet/web-cells.ss") (all-from "servlet/web-cells.ss")
(all-from "servlet/helpers.ss") (all-from "servlet/helpers.ss")
(all-from "servlet/servlet-url.ss") (all-from "servlet/servlet-url.ss")
(all-from "servlet-structs.ss")
(all-from "servlet/bindings.ss") (all-from "servlet/bindings.ss")
(all-from "servlet/basic-auth.ss") (all-from "servlet/basic-auth.ss")
(all-from "servlet/servlet-structs.ss")
(all-from "response-structs.ss") (all-from "response-structs.ss")
(all-from "request-structs.ss") (all-from "request-structs.ss")))
(all-from "servlet-structs.ss")))

4
collects/web-server/servlet-structs.ss → collects/web-server/servlet/servlet-structs.ss
View File

@ -1,8 +1,8 @@
(module servlet-structs mzscheme (module servlet-structs mzscheme
(require (lib "contract.ss") (require (lib "contract.ss")
(lib "xml.ss" "xml")) (lib "xml.ss" "xml"))
(require "request-structs.ss" (require "../request-structs.ss"
"response-structs.ss") "../response-structs.ss")
(define servlet-response? (define servlet-response?
any/c) any/c)

4
collects/web-server/servlet/web.ss
View File

@ -10,8 +10,8 @@
"../private/servlet.ss" "../private/servlet.ss"
"../servlet/helpers.ss" "../servlet/helpers.ss"
"../servlet/web-cells.ss" "../servlet/web-cells.ss"
"../request-structs.ss" "../servlet/servlet-structs.ss"
"../servlet-structs.ss") "../request-structs.ss")
;; ************************************************************ ;; ************************************************************
;; HELPERS ;; HELPERS