78 lines
3.1 KiB
Racket
78 lines
3.1 KiB
Racket
#lang scribble/doc
|
|
@(require "web-server.ss")
|
|
|
|
@title[#:tag "setup.ss"]{Setting Up Servlets}
|
|
@(require (for-label web-server/servlet/setup
|
|
web-server/http
|
|
web-server/private/servlet
|
|
web-server/managers/manager
|
|
web-server/configuration/namespace))
|
|
|
|
@defmodule[web-server/servlet/setup]{
|
|
|
|
This module is used internally to build and load servlets. It may be useful to those who are trying to extend the server.
|
|
|
|
@defproc[(make-v1.servlet [directory path-string?]
|
|
[timeout integer?]
|
|
[start (request? . -> . response/c)])
|
|
servlet?]{
|
|
Creates a version 1 servlet that uses @scheme[directory] as its current directory, a timeout manager with a @scheme[timeout] timeout, and @scheme[start] as the request handler.
|
|
}
|
|
|
|
@defproc[(make-v2.servlet [directory path-string?]
|
|
[manager manager?]
|
|
[start (request? . -> . response/c)])
|
|
servlet?]{
|
|
Creates a version 2 servlet that uses @scheme[directory] as its current directory, a @scheme[manager] as the continuation manager, and @scheme[start] as the request handler.
|
|
}
|
|
|
|
@defproc[(make-stateless.servlet [directory path-string?]
|
|
[start (request? . -> . response/c)])
|
|
servlet?]{
|
|
Creates a stateless @schememodname[web-server] servlet that uses @scheme[directory] as its current directory and @scheme[start] as the request handler.
|
|
}
|
|
|
|
@defthing[default-module-specs (listof module-path?)]{
|
|
The modules that the Web Server needs to share with all servlets.
|
|
}
|
|
|
|
@defthing[path->servlet/c contract?]{
|
|
Equivalent to @scheme[(path? . -> . servlet?)].
|
|
}
|
|
|
|
@defproc[(make-default-path->servlet
|
|
[#:make-servlet-namespace
|
|
make-servlet-namespace
|
|
make-servlet-namespace/c
|
|
(make-make-servlet-namespace)]
|
|
[#:timeouts-default-servlet
|
|
timeouts-default-servlet
|
|
integer?
|
|
30])
|
|
path->servlet/c]{
|
|
Constructs a procedure that loads a servlet from the path in a namespace created with @scheme[make-servlet-namespace],
|
|
using a timeout manager with @scheme[timeouts-default-servlet] as the default timeout (if no manager is given.)
|
|
}
|
|
|
|
}
|
|
|
|
@section{Internal Servlet Representation}
|
|
|
|
@defmodule[web-server/private/servlet]{
|
|
@defstruct[servlet ([custodian custodian?]
|
|
[namespace namespace?]
|
|
[manager manager?]
|
|
[directory path-string?]
|
|
[handler (request? . -> . response/c)])
|
|
#:mutable]{
|
|
Instances of this structure hold the necessary parts of a servlet:
|
|
the @scheme[custodian] responsible for the servlet's resources,
|
|
the @scheme[namespace] the servlet is executed within,
|
|
the @scheme[manager] responsible for the servlet's continuations,
|
|
the current @scheme[directory] of the servlet,
|
|
and the @scheme[handler] for all requests to the servlet.
|
|
}
|
|
}
|
|
|
|
|