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

up

Browse Source 
svn: r4679
This commit is contained in:
Jay McCarthy 2006-10-24 16:05:37 +00:00
parent c9fabb7568
commit 607362b87f
5 changed files with 17 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -61,8 +61,8 @@
(open (new-config : web-config/local^)))))
(provide/contract
[complete-configuration (path? configuration-table? . -> . configuration?)]
[get-configuration (string? . -> . configuration-table?)]
[complete-configuration (path-string? configuration-table? . -> . configuration?)]
[get-configuration (path-string? . -> . configuration-table?)]
; XXX contract
[build-developer-configuration (list? . -> . configuration?)]
; XXX contract
@ -70,5 +70,5 @@
[default-configuration-table-path path?]
[update-configuration (configuration? (listof (cons/c symbol? any/c)) . -> . configuration?)]
[load-configration-sexpr (list? . -> . configuration?)]
[load-configuration (path? . -> . configuration?)]
[load-developer-configuration (path? . -> . configuration?)]))
[load-configuration (path-string? . -> . configuration?)]
[load-developer-configuration (path-string? . -> . configuration?)]))

7
collects/web-server/private/configuration-structures.ss
View File

@ -36,11 +36,8 @@
[struct host
([indices (listof string?)]
[log-format symbol?]
[log-path (or/c false/c path? string?)]
[passwords (or/c false/c path? string?)]
#;[passwords (listof (cons/c string?
(cons/c string?
(listof (list/c symbol? string?)))))]
[log-path (or/c false/c path-string?)]
[passwords (or/c false/c path-string?)]
[responders responders?]
[timeouts timeouts?]
[paths paths?])]

14
collects/web-server/private/configuration-table-structs.ss
View File

@ -46,10 +46,10 @@
[file-per-byte number?]
[file-base number?])]
[struct paths
([conf (or/c false/c path? string?)]
[host-base (or/c false/c path? string?)]
[log (or/c false/c path? string?)]
[htdocs (or/c false/c path? string?)]
[servlet (or/c false/c path? string?)]
[mime-types (or/c false/c path? string?)]
[passwords (or/c false/c path? string?)])]))
([conf (or/c false/c path-string?)]
[host-base (or/c false/c path-string?)]
[log (or/c false/c path-string?)]
[htdocs (or/c false/c path-string?)]
[servlet (or/c false/c path-string?)]
[mime-types (or/c false/c path-string?)]
[passwords (or/c false/c path-string?)])]))

4
collects/web-server/private/configuration-util.ss
View File

@ -58,6 +58,6 @@
'truncate))
(provide/contract
[write-configuration-table (configuration-table? (or/c path? string?) . -> . void)]
[write-configuration-table (configuration-table? path-string? . -> . void)]
[format-host (host-table? . -> . list?)]
[write-to-file ((or/c path? string?) list? . -> . void)]))
[write-to-file (path-string? list? . -> . void)]))

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

@ -224,8 +224,8 @@
(provide/contract
[build-configuration (configuration-table? host-table? . -> . configuration?)]
[complete-configuration (path? configuration-table? . -> . configuration?)]
[complete-developer-configuration (path? configuration-table? . -> . configuration?)])
[complete-configuration (path-string? configuration-table? . -> . configuration?)]
[complete-developer-configuration (path-string? configuration-table? . -> . configuration?)])
; XXX contract
(provide
complete-developer-configuration/vhosts)