60 lines
2.0 KiB
Racket
60 lines
2.0 KiB
Racket
#lang scribble/doc
|
|
@(require "web-server.rkt")
|
|
|
|
@title[#:tag "servlet"]{Stateful Servlets}
|
|
|
|
@defmodule[web-server/servlet]
|
|
|
|
@section[#:style 'hidden #:tag "servlet-example"]{Example}
|
|
|
|
A stateful servlet should @racket[provide] the following exports:
|
|
|
|
@(require (for-label web-server/http
|
|
(except-in web-server/managers/manager manager)
|
|
"dummy-v2-servlet.rkt")) @; to give a binding context
|
|
@declare-exporting[#:use-sources (web-server/scribblings/dummy-v2-servlet)]
|
|
|
|
@defthing[interface-version (one-of/c 'v2)]{
|
|
This indicates that the servlet is a version two servlet.
|
|
}
|
|
|
|
@defthing[manager manager?]{
|
|
The manager for the continuations of this servlet. See @secref["managers"] for options.
|
|
}
|
|
|
|
@defproc[(start [initial-request request?])
|
|
can-be-response?]{
|
|
This function is called when an instance of this servlet is started.
|
|
The argument is the HTTP request that initiated the instance.
|
|
}
|
|
|
|
An example version 2 module:
|
|
@(require (for-label web-server/managers/none))
|
|
@racketmod[
|
|
racket
|
|
(require web-server/managers/none)
|
|
(provide interface-version manager start)
|
|
|
|
(define interface-version 'v2)
|
|
(define manager
|
|
(create-none-manager
|
|
(lambda (req)
|
|
(response/xexpr
|
|
`(html (head (title "No Continuations Here!"))
|
|
(body (h1 "No Continuations Here!")))))))
|
|
(define (start req)
|
|
(response/xexpr
|
|
`(html (head (title "Hello World!"))
|
|
(body (h1 "Hi Mom!")))))
|
|
]
|
|
|
|
These servlets have an extensive API available to them: @racketmodname[net/url], @racketmodname[web-server/http],
|
|
@racketmodname[web-server/http/bindings], @racketmodname[web-server/servlet/servlet-structs], @racketmodname[web-server/servlet/web],
|
|
@racketmodname[web-server/servlet/web-cells], and @racketmodname[web-server/dispatch].
|
|
Some of these are documented in the subsections that follow.
|
|
|
|
@include-section["contracts.scrbl"]
|
|
@include-section["web.scrbl"]
|
|
@include-section["web-cells.scrbl"]
|
|
@include-section["managers.scrbl"]
|