Thanks for reply. So stateless send/suspend will not work unless language is web-server , fine but when I use statefull send/suspend (in "something.rkt") , it still does not work as expected. So what changes should I make so that get-something function returns 'something.
Thanks. On Mon, Sep 5, 2011 at 6:08 PM, Jay McCarthy <jay.mccar...@gmail.com> wrote: > There are two send/suspend functions in the Web server collection. > > The one from web-server/lang/web is the stateless one. This relies on > the program transformation that #lang web-server implements, so it > must be used inside modules that use that language. > > The one from web-server/servlet/web is the stateful one. This is > implemented purely with native continuations, so it can be used > anywhere. > > Jay > > On Mon, Sep 5, 2011 at 12:44 AM, Veer <diggerr...@gmail.com> wrote: >> Can I use send/suspend outside the #lang web-server module ? >> For example , the two modules below don't work , I get something like : >> "Attempt to capture a continuation from within an unsafe context: ...." >> >> For statefull servlets this type of example works fine. >> >> >> "Module test.rkt" >> #lang web-server >> (require web-server/servlet-env) >> (require "something.rkt") >> >> >> (define (start request) >> (show request)) >> >> (define (show request) >> >> (define (gen-resp make-url) >> (response/xexpr >> `(html (body (h1 "testing") >> (a ((href ,(make-url do-something))) "do something"))))) >> >> (define (do-something request) >> >> (define something (get-something)) >> >> >> (cond >> [(request? something) (error 'no-good)] >> [else (error 'ok "~a" something)])) >> >> (send/suspend/dispatch gen-resp)) >> >> (serve/servlet start #:stateless? #t ) >> >> >> "Module something.rkt" >> #lang racket >> (require web-server/lang/web) >> (require web-server/http/xexpr) >> >> (provide get-something) >> >> (define (get-something) >> >> (define req >> (send/suspend >> (lambda (make-url) >> (response/xexpr >> `(html (body (h1 "something") >> (a ((href ,make-url)) "try something"))))))) >> >> (printf "why are we not here\n") >> 'something) >> _________________________________________________ >> For list-related administrative tasks: >> http://lists.racket-lang.org/listinfo/users >> > > > > -- > Jay McCarthy <j...@cs.byu.edu> > Assistant Professor / Brigham Young University > http://faculty.cs.byu.edu/~jay > > "The glory of God is Intelligence" - D&C 93 > _________________________________________________ For list-related administrative tasks: http://lists.racket-lang.org/listinfo/users
