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

exception handling

Browse Source 
svn: r2140
This commit is contained in:
Jay McCarthy 2006-02-06 17:14:09 +00:00
parent a6f8344c09
commit 647fc4e58a
1 changed files with 77 additions and 62 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
collects/web-server/response.ss
View File

@ -114,10 +114,15 @@
;; **************************************************
;; output-response: connection response -> void
(define (ext:output-response conn resp)
(if (connection-close? conn)
(raise 'output-response "Attempt to output on closed connection.")
(with-handlers ([exn? (lambda (exn)
(kill-connection! conn)
(raise exn))])
(call-with-semaphore (connection-mutex conn)
(lambda ()
(output-response conn resp)
(flush-output (connection-o-port conn)))))
(flush-output (connection-o-port conn)))))))
(define (output-response conn resp)
(cond
@ -181,10 +186,15 @@
;; **************************************************
;; output-file: connection path symbol bytes -> void
(define (ext:output-file conn file-path method mime-type)
(if (connection-close? conn)
(raise 'output-response "Attempt to output on closed connection.")
(with-handlers ([exn? (lambda (exn)
(kill-connection! conn)
(raise exn))])
(call-with-semaphore (connection-mutex conn)
(lambda ()
(output-file conn file-path method mime-type)
(flush-output (connection-o-port conn)))))
(flush-output (connection-o-port conn)))))))
(define (output-file conn file-path method mime-type)
(output-headers conn 200 "Okay"
@ -202,10 +212,15 @@
;; output-response/method: connection response/full symbol -> void
;; If it is a head request output headers only, otherwise output as usual
(define (ext:output-response/method conn resp meth)
(if (connection-close? conn)
(raise 'output-response "Attempt to output on closed connection.")
(with-handlers ([exn? (lambda (exn)
(kill-connection! conn)
(raise exn))])
(call-with-semaphore (connection-mutex conn)
(lambda ()
(output-response/method conn resp meth)
(flush-output (connection-o-port conn)))))
(flush-output (connection-o-port conn)))))))
(define (output-response/method conn resp meth)
(cond