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

Reformating

Browse Source 
svn: r6393
This commit is contained in:
Jay McCarthy 2007-05-29 22:25:07 +00:00
parent 833c9cced8
commit 8916fa9652
1 changed files with 22 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
collects/web-server/prototype-web-server/dispatch-servlets2.ss
View File

@ -63,27 +63,27 @@
;; begin-session: connection request
(define (begin-session conn req)
(let ([uri (request-uri req)])
(let-values ([(a-path url-servlet-path url-path-suffix)
(url->servlet-path htdocs-path uri)])
(if a-path
(parameterize ([current-directory (directory-part a-path)])
(let* ([cust (make-custodian top-cust)]
[ns (make-servlet-namespace)]
[ses (new-session cust ns (make-session-url uri url-servlet-path))])
(parameterize ([current-custodian cust]
[current-namespace ns]
[current-session ses])
(let ([module-name `(file ,(path->string a-path))])
(let ([start (dynamic-require module-name 'start)])
(set-session-servlet! ses
(initialize-servlet start)))))
(resume-session (session-id ses)
conn req)))
(output-response/method
conn
(responders-file-not-found uri)
(request-method req))))))
(define uri (request-uri req))
(define-values (a-path url-servlet-path url-path-suffix)
(url->servlet-path htdocs-path uri))
(if a-path
(parameterize ([current-directory (directory-part a-path)])
(define cust (make-custodian top-cust))
(define ns (make-servlet-namespace))
(define ses (new-session cust ns (make-session-url uri url-servlet-path)))
(parameterize ([current-custodian cust]
[current-namespace ns]
[current-session ses])
(define start
(dynamic-require `(file ,(path->string a-path))
'start))
(set-session-servlet! ses (initialize-servlet start)))
(resume-session (session-id ses)
conn req))
(output-response/method
conn
(responders-file-not-found uri)
(request-method req))))
; same-servlet? : url? url? -> boolean?
(define (same-servlet? req ses)
@ -121,8 +121,7 @@
conn
(responders-servlet (request-uri req) the-exn)
(request-method req)))])
(output-response conn
((session-servlet ses) req))))
(output-response conn ((session-servlet ses) req))))
(begin-session conn req)))]
[else
(begin-session conn req)]))