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

Cleaning make-connection call

Browse Source 
svn: r647
This commit is contained in:
Jay McCarthy 2005-08-24 16:02:37 +00:00
parent a817635bb6
commit 8a9da56f23
1 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/web-server/connection-manager.ss
View File

@ -26,17 +26,13 @@
;; new-connection: number i-port o-port custodian -> connection
;; ask the connection manager for a new connection
(define (new-connection time-to-live i-port o-port cust close?)
(let ([mutex (make-semaphore 1)])
(letrec ([conn
(make-connection
(start-timer time-to-live
(lambda ()
(call-with-semaphore
mutex
(lambda ()
(close-output-port o-port)
(close-input-port i-port)
(custodian-shutdown-all cust)))))
i-port o-port cust close? mutex)))
(lambda () (kill-connection! conn)))
i-port o-port cust close?
(make-semaphore 1))])
conn))
;; kill-connection!: connection -> void
;; kill this connection
@ -46,6 +42,7 @@
(lambda ()
(close-output-port (connection-o-port conn-demned))
(close-input-port (connection-i-port conn-demned))
(set-connection-close?! conn-demned #t)
(custodian-shutdown-all (connection-custodian conn-demned)))))
;; adjust-connection-timeout!: connection number -> void