32 lines
1.2 KiB
Racket
32 lines
1.2 KiB
Racket
#lang scribble/doc
|
|
@require["../web-server.ss"]
|
|
|
|
@title[#:tag "servlet-env.ss"
|
|
#:style 'toc]{Environment}
|
|
@require[(for-label web-server/servlet-env)]
|
|
|
|
@defmodule[web-server/servlet-env]
|
|
|
|
The @web-server provides a means of running Scheme servlets
|
|
from within DrScheme, or any other REPL.
|
|
|
|
@filepath{servlet-env.ss} provides the servlet API from @filepath{servlet.ss}
|
|
as well as the following:
|
|
|
|
@defthing[send-url (parameter/c ([url string?] [separate-window? boolean?] . -> . void))]{
|
|
Should open @scheme[url]. In another window if @scheme[separate-window?] is true.
|
|
By default this is from @scheme[(lib "sendurl.ss" "net")].
|
|
}
|
|
|
|
@defform*[[(on-web servlet-expr)
|
|
(on-web port servlet-expr)]]{
|
|
|
|
The first form expands to @scheme[(on-web 8000 servlet-expr)].
|
|
|
|
Constructs a small servlet, where the body of the @scheme[start] procedure is
|
|
@scheme[servlet-expr], runs the @web-server on port @scheme[port], and calls
|
|
@scheme[send-url] with a URL for the constructed servlet. The call blocks until the
|
|
servlet finishes its computation, i.e. @scheme[servlet-expr] is evaluated, and
|
|
returns its result. @scheme[servlet-expr] may use the entire Scheme servlet API.
|
|
}
|