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

new units

Browse Source 
svn: r5057
This commit is contained in:
Jay McCarthy 2006-12-07 18:13:49 +00:00
parent fdfdf1bc92
commit 01d27f8ab3
2 changed files with 61 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3,7 +3,7 @@
(require (lib "cmdline.ss") (require (lib "cmdline.ss")
(lib "pregexp.ss") (lib "pregexp.ss")
(lib "contract.ss") (lib "contract.ss")
(lib "unitsig.ss") (lib "unit.ss")
(lib "tcp-sig.ss" "net")) (lib "tcp-sig.ss" "net"))
(require "util.ss" (require "util.ss"
"configuration-structures.ss" "configuration-structures.ss"
@ -51,14 +51,17 @@
flags)) flags))
'())) '()))
(define-values/invoke-unit/sig web-server^ (define-compound-unit launch@
(compound-unit/sig (import (T : tcp^))
(import (T : net:tcp^)) (export S)
(link (link
[C : web-config^ (configuration@)] [((C : web-config^)) configuration@]
[S : web-server^ (web-server@ T C)]) [((S : web-server^)) web-server@ T C]))
(export (open S)))
#f net:tcp^) (define-values/invoke-unit
launch@
(import tcp^)
(export web-server^))
(provide ; XXX contract (provide ; XXX contract
serve)) serve))