From f8dd838409e4c8e1e9dc13da9b5c8e20397d2399 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 29 May 2007 18:02:20 +0000 Subject: [PATCH] dispatcher svn: r6383 --- .../prototype-web-server/dispatch-servlets2.ss | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/collects/web-server/prototype-web-server/dispatch-servlets2.ss b/collects/web-server/prototype-web-server/dispatch-servlets2.ss index a687787425..6a79c310ed 100644 --- a/collects/web-server/prototype-web-server/dispatch-servlets2.ss +++ b/collects/web-server/prototype-web-server/dispatch-servlets2.ss @@ -1,27 +1,29 @@ (module dispatch-servlets2 mzscheme (require (lib "kw.ss") - "../private/configuration.ss" + (lib "contract.ss") (lib "connection-manager.ss" "web-server" "private") (lib "request-structs.ss" "web-server") (lib "response-structs.ss" "web-server") (lib "response.ss" "web-server" "private") (lib "util.ss" "web-server" "private") (lib "url.ss" "net") - (lib "list.ss") (lib "plt-match.ss") (lib "dispatch.ss" "web-server" "dispatchers") (lib "session.ss" "web-server" "prototype-web-server" "private") (only "private/web.ss" initialize-servlet) (lib "web-cells.ss" "web-server" "prototype-web-server" "lang-api") + "../private/configuration.ss" "private/utils.ss") + (provide/contract + [interface-version dispatcher-interface-version?]) (provide make) (define myprint #;printf (lambda _ (void))) (define top-cust (current-custodian)) - + (define make-servlet-namespace (make-make-servlet-namespace #:to-be-copied-module-specs @@ -31,6 +33,7 @@ (lib "session.ss" "web-server" "prototype-web-server" "private") (lib "request.ss" "web-server" "private")))) + (define interface-version 'v1) (define/kw (make #:key [htdocs-path "servlets"] [timeouts-servlet-connection (* 60 60 24)]