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

Separating web-server signatures

Browse Source 
svn: r6391
This commit is contained in:
Jay McCarthy 2007-05-29 21:29:46 +00:00
parent 9e7877d538
commit e9cc4026b9
13 changed files with 29 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/handin-server/web-status-server.ss
View File

@ -6,7 +6,8 @@
(lib "file.ss")
(lib "etc.ss")
(lib "web-server-unit.ss" "web-server")
(lib "sig.ss" "web-server")
(lib "web-server-sig.ss" "web-server")
(lib "web-config-sig.ss" "web-server")
(lib "configuration.ss" "web-server")
"private/config.ss")

3
collects/help/private/link.ss
View File

@ -1,6 +1,7 @@
(module link mzscheme
(require (lib "web-server-unit.ss" "web-server")
(lib "sig.ss" "web-server")
(lib "web-server-sig.ss" "web-server")
(lib "web-config-sig.ss" "web-server")
(lib "unit.ss")

3
collects/help/private/main.ss
View File

@ -1,6 +1,5 @@
(module main (lib "a-unit.ss")
(require (lib "sig.ss" "web-server")
(lib "framework.ss" "framework")
(require (lib "framework.ss" "framework")
(lib "mred.ss" "mred")
(lib "class.ss")
(lib "external.ss" "browser")

2
collects/help/private/tcp-intercept.ss
View File

@ -3,7 +3,7 @@
(require (lib "unit.ss")
(lib "etc.ss")
(lib "sig.ss" "web-server")
(lib "web-server-sig.ss" "web-server")
(lib "tcp-sig.ss" "net")
(lib "url-sig.ss" "net")
"internal-hp.ss")

2
collects/web-server/configuration.ss
View File

@ -7,7 +7,7 @@
"private/configuration-table-structs.ss"
"private/util.ss"
"private/parse-table.ss"
"sig.ss")
"web-config-sig.ss")
(define default-configuration-table-path
(build-path (collection-path "web-server") "configuration-table"))

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

@ -8,7 +8,7 @@
"configuration-table-structs.ss"
"util.ss"
"cache-table.ss"
"../sig.ss"
"../web-config-sig.ss"
"../response-structs.ss")
; : str configuration-table -> configuration

5
collects/web-server/private/launch.ss
View File

@ -3,9 +3,10 @@
(lib "pregexp.ss")
(lib "unit.ss")
(lib "tcp-sig.ss" "net"))
(require "util.ss"
(require "util.ss"
"../web-config-sig.ss"
"../web-server-unit.ss"
"../sig.ss"
"../web-server-sig.ss"
"../configuration.ss")
(define configuration@

17
collects/web-server/sig.ss
View File

@ -1,17 +0,0 @@
(module sig mzscheme
(require (lib "unit.ss"))
(require "private/dispatch-server-sig.ss")
(provide ; XXX contract signature
(rename dispatch-server^ web-server^)
web-config^)
(define-signature web-config^
(max-waiting
virtual-hosts
access
scripts
initial-connection-timeout
port
listen-ip
instances
make-servlet-namespace)))

2
collects/web-server/tools/servlet-env.ss
View File

@ -3,7 +3,7 @@
(lib "unit.ss"))
(require "../configuration.ss"
"../web-server.ss"
"../sig.ss"
"../web-config-sig.ss"
"../private/util.ss"
"../response-structs.ss"
"../managers/timeouts.ss"

10
collects/web-server/web-config-sig.ss Normal file
View File

@ -0,0 +1,10 @@
(module web-config-sig (lib "a-signature.ss")
max-waiting
virtual-hosts
access
scripts
initial-connection-timeout
port
listen-ip
instances
make-servlet-namespace)

3
collects/web-server/web-server-sig.ss Normal file
View File

@ -0,0 +1,3 @@
(module web-server-sig mzscheme
(require "private/dispatch-server-sig.ss")
(provide (rename dispatch-server^ web-server^)))

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

@ -1,7 +1,8 @@
(module web-server-unit mzscheme
(require (lib "tcp-sig.ss" "net")
(lib "unit.ss"))
(require "sig.ss"
(require "web-server-sig.ss"
"web-config-sig.ss"
"private/dispatch-server-unit.ss"
"private/dispatch-server-sig.ss"
"private/web-server-structs.ss"

3
collects/web-server/web-server.ss
View File

@ -2,7 +2,8 @@
(require (lib "tcp-sig.ss" "net")
(lib "unit.ss")
(lib "contract.ss")
"sig.ss"
"web-config-sig.ss"
"web-server-sig.ss"
"web-server-unit.ss"
"configuration.ss"
"private/configuration-structures.ss")