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/response.ss"
"../request-structs.ss"
"../servlet-structs.ss"
"../servlet/servlet-structs.ss"
"../response-structs.ss"
"../servlet/web-cells.ss"
"../servlet/web.ss"

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

@ -3,7 +3,7 @@
(lib "contract.ss")
(lib "kw.ss"))
(require "manager.ss"
"../servlet-structs.ss")
"../servlet/servlet-structs.ss")
(provide/contract
[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
(require (lib "contract.ss"))
(require "../servlet-structs.ss")
(require "../servlet/servlet-structs.ss")
(define-struct manager (create-instance
adjust-timeout!

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

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

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

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

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

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

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

@ -5,16 +5,15 @@
"servlet/basic-auth.ss"
"servlet/servlet-url.ss"
"servlet/web.ss"
"servlet/servlet-structs.ss"
"response-structs.ss"
"request-structs.ss"
"servlet-structs.ss")
"request-structs.ss")
(provide (all-from "servlet/web.ss")
(all-from "servlet/web-cells.ss")
(all-from "servlet/helpers.ss")
(all-from "servlet/servlet-url.ss")
(all-from "servlet-structs.ss")
(all-from "servlet/bindings.ss")
(all-from "servlet/basic-auth.ss")
(all-from "servlet/servlet-structs.ss")
(all-from "response-structs.ss")
(all-from "request-structs.ss")
(all-from "servlet-structs.ss")))
(all-from "request-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
(require (lib "contract.ss")
(lib "xml.ss" "xml"))
(require "request-structs.ss"
"response-structs.ss")
(require "../request-structs.ss"
"../response-structs.ss")
(define servlet-response?
any/c)

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

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