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

moving dispatchers in

Browse Source 
svn: r3219
This commit is contained in:
Jay McCarthy 2006-06-04 22:11:22 +00:00
parent cff35de4c9
commit f14f1e190b
11 changed files with 36 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/web-server/dispatch-files.ss → collects/web-server/dispatchers/dispatch-files.ss
View File

@ -3,9 +3,9 @@
(lib "xml.ss" "xml") (lib "xml.ss" "xml")
(lib "list.ss")) (lib "list.ss"))
(require "dispatch.ss" (require "dispatch.ss"
"util.ss" "../util.ss"
"mime-types.ss" "../mime-types.ss"
"response.ss") "../response.ss")
(provide interface-version (provide interface-version
gen-dispatcher) gen-dispatcher)

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

@ -1,6 +1,6 @@
(module dispatch-host mzscheme (module dispatch-host mzscheme
(require "dispatch.ss" (require "dispatch.ss"
"servlet-helpers.ss") "../servlet-helpers.ss")
(provide interface-version (provide interface-version
gen-dispatcher) gen-dispatcher)

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

@ -4,7 +4,7 @@
(lib "async-channel.ss") (lib "async-channel.ss")
(lib "plt-match.ss")) (lib "plt-match.ss"))
(require "dispatch.ss" (require "dispatch.ss"
"servlet-helpers.ss") "../servlet-helpers.ss")
(provide interface-version (provide interface-version
gen-dispatcher) gen-dispatcher)

8
collects/web-server/dispatch-passwords.ss → collects/web-server/dispatchers/dispatch-passwords.ss
View File

@ -1,9 +1,9 @@
(module dispatch-passwords mzscheme (module dispatch-passwords mzscheme
(require "dispatch.ss" (require "dispatch.ss"
"util.ss" (all-except "../util.ss" translate-escapes)
"servlet-helpers.ss" "../servlet-helpers.ss"
"connection-manager.ss" "../connection-manager.ss"
"response.ss") "../response.ss")
(provide interface-version (provide interface-version
gen-dispatcher) gen-dispatcher)

4
collects/web-server/dispatch-pathprocedure.ss → collects/web-server/dispatchers/dispatch-pathprocedure.ss
View File

@ -1,7 +1,7 @@
(module dispatch-pathprocedure mzscheme (module dispatch-pathprocedure mzscheme
(require "dispatch.ss" (require "dispatch.ss"
"util.ss" "../util.ss"
"response.ss") "../response.ss")
(provide interface-version (provide interface-version
gen-dispatcher) gen-dispatcher)

4
collects/web-server/dispatch-sequencer.ss → collects/web-server/dispatchers/dispatch-sequencer.ss
View File

@ -1,6 +1,6 @@
(module dispatch-sequencer mzscheme (module dispatch-sequencer mzscheme
(require "dispatch.ss" (require (lib "list.ss"))
(lib "list.ss")) (require "dispatch.ss")
(provide interface-version (provide interface-version
gen-dispatcher) gen-dispatcher)

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

@ -3,17 +3,17 @@
(lib "plt-match.ss") (lib "plt-match.ss")
(lib "unitsig.ss")) (lib "unitsig.ss"))
(require "dispatch.ss" (require "dispatch.ss"
"web-server-structs.ss" "../web-server-structs.ss"
"connection-manager.ss" "../connection-manager.ss"
"response.ss" "../response.ss"
"servlet.ss" "../servlet.ss"
"sig.ss" "../sig.ss"
"util.ss" (all-except "../util.ss" translate-escapes)
"managers/manager.ss" "../managers/manager.ss"
"managers/timeouts.ss" "../managers/timeouts.ss"
"private/url.ss" "../private/url.ss"
"private/servlet.ss" "../private/servlet.ss"
"private/cache-table.ss") "../private/cache-table.ss")
(provide interface-version (provide interface-version
gen-dispatcher) gen-dispatcher)

6
collects/web-server/dispatch.ss → collects/web-server/dispatchers/dispatch.ss
View File

@ -1,7 +1,7 @@
(module dispatch mzscheme (module dispatch mzscheme
(require "connection-structs.ss" (require "../connection-structs.ss"
"request-structs.ss" "../request-structs.ss"
"response-structs.ss") "../response-structs.ss")
(require (lib "contract.ss") (require (lib "contract.ss")
(lib "list.ss")) (lib "list.ss"))

2
collects/web-server/request-structs.ss
View File

@ -37,7 +37,7 @@
[filename bytes?] [filename bytes?]
[content bytes?])]) [content bytes?])])
(define-struct request (method uri headers bindings/raw (define-struct request (method uri headers/raw bindings/raw
host-ip host-port client-ip)) host-ip host-port client-ip))
(provide/contract (provide/contract
[struct request ([method symbol?] [uri url?] [struct request ([method symbol?] [uri url?]

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

@ -23,7 +23,7 @@
(all-from "request-structs.ss") (all-from "request-structs.ss")
request-bindings request-bindings
request-headers request-headers
translate-escapes) translate-escapes)
(define (request-headers request) (define (request-headers request)
(map (match-lambda (map (match-lambda

14
collects/web-server/web-server-unit.ss
View File

@ -7,13 +7,13 @@
"private/cache-table.ss" "private/cache-table.ss"
(rename "private/request.ss" (rename "private/request.ss"
the-read-request read-request)) the-read-request read-request))
(require (prefix sequencer: "dispatch-sequencer.ss") (require (prefix sequencer: "dispatchers/dispatch-sequencer.ss")
(prefix passwords: "dispatch-passwords.ss") (prefix passwords: "dispatchers/dispatch-passwords.ss")
(prefix files: "dispatch-files.ss") (prefix files: "dispatchers/dispatch-files.ss")
(prefix servlets: "dispatch-servlets.ss") (prefix servlets: "dispatchers/dispatch-servlets.ss")
(prefix path-procedure: "dispatch-pathprocedure.ss") (prefix path-procedure: "dispatchers/dispatch-pathprocedure.ss")
(prefix log: "dispatch-log.ss") (prefix log: "dispatchers/dispatch-log.ss")
(prefix host: "dispatch-host.ss")) (prefix host: "dispatchers/dispatch-host.ss"))
(require (lib "tcp-sig.ss" "net") (require (lib "tcp-sig.ss" "net")
(lib "unitsig.ss") (lib "unitsig.ss")
(lib "string.ss") (lib "string.ss")