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

Limiting the size of s/s/d continuations

Browse Source 
svn: r11455
This commit is contained in:
Jay McCarthy 2008-08-27 15:21:01 +00:00
parent 744df67d4e
commit a13dcf2c36
3 changed files with 23 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
collects/web-server/servlet/web.ss
View File

@ -2,8 +2,7 @@
(require net/url
mzlib/list
mzlib/plt-match
scheme/contract
mzlib/etc)
scheme/contract)
(require "../managers/manager.ss"
"../private/util.ss"
"../private/servlet.ss"
@ -113,8 +112,8 @@
;; send/suspend: (url -> response) [(request -> response)] -> request
;; send a response and apply the continuation to the next request
(define send/suspend
(opt-lambda (response-generator [expiration-handler (current-servlet-continuation-expiration-handler)])
(define (send/suspend response-generator
[expiration-handler (current-servlet-continuation-expiration-handler)])
(with-frame-after
(call-with-composable-continuation
(lambda (k)
@ -129,14 +128,14 @@
(list* instance-id k-embedding)
(request-uri (execution-context-request ctxt)))))
(send/back (response-generator k-url)))
servlet-prompt))))
servlet-prompt)))
;; send/forward: (url -> response) [(request -> response)] -> request
;; clear the continuation table, then behave like send/suspend
(define send/forward
(opt-lambda (response-generator [expiration-handler (current-servlet-continuation-expiration-handler)])
(define (send/forward response-generator
[expiration-handler (current-servlet-continuation-expiration-handler)])
(clear-continuation-table!)
(send/suspend response-generator expiration-handler)))
(send/suspend response-generator expiration-handler))
;; send/suspend/dispatch : ((proc -> url) -> response) [(request -> response)] -> request
;; send/back a response generated from a procedure that may convert
@ -150,10 +149,14 @@
(lambda (k0)
(send/back
(response-generator
(opt-lambda (proc [expiration-handler (current-servlet-continuation-expiration-handler)])
(lambda (proc [expiration-handler (current-servlet-continuation-expiration-handler)])
(let/ec k1
(let ([new-request (send/suspend k1 expiration-handler)])
(k0 (lambda () (proc new-request)))))))))
; This makes the second continuation captured by send/suspend smaller
(call-with-continuation-prompt
(lambda ()
(let ([new-request (send/suspend k1 expiration-handler)])
(k0 (lambda () (proc new-request)))))
servlet-prompt))))))
servlet-prompt)])
(thunk)))

2
collects/web-server/template/examples/basic.html
View File

@ -2,7 +2,7 @@
<head><title>@title </title></head>
<body>
<table>
@for/list[([c @clients])]{
@in[c @clients]{
@t{
<tr>
<td>@(client-surname c), @(client-firstname c)</td>

9
collects/web-server/template/examples/run.ss
View File

@ -42,14 +42,21 @@
e ...)
(get-output-string os))]))
; XXX Want to have this instead of every begin, but perhaps should make a list rather than use show directly
(define-syntax begin/show
(syntax-rules ()
[(_ e) e]
[(_ e ...)
; XXX If scribble/text shared "show", then I would use it here
(begin (display e) ...)]))
(begin (text:show e) ...)]))
(define t list)
(define-syntax in
(syntax-rules ()
[(_ x xs e ...)
(for/list ([x xs])
e ...)]))
; Examples
(include-template "static.html")