From 0c604fbc4f2b28bdfebfcd6b937e14f74e567fe3 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Wed, 30 May 2007 15:36:41 +0000
Subject: [PATCH] Creating servlet-api directory for documentation purposes

svn: r6405
---
 collects/web-server/dispatchers/dispatch-passwords.ss         | 2 +-
 collects/web-server/private/parse-table.ss                    | 2 +-
 .../web-server/prototype-web-server/lang-api/web-extras.ss    | 2 +-
 collects/web-server/{private => servlet}/basic-auth.ss        | 0
 collects/web-server/{private => servlet}/bindings.ss          | 0
 .../{private/servlet-helpers.ss => servlet/helpers.ss}        | 4 ++--
 collects/web-server/{private => servlet}/servlet-url.ss       | 2 +-
 collects/web-server/{private => servlet}/web-cells.ss         | 0
 8 files changed, 6 insertions(+), 6 deletions(-)
 rename collects/web-server/{private => servlet}/basic-auth.ss (100%)
 rename collects/web-server/{private => servlet}/bindings.ss (100%)
 rename collects/web-server/{private/servlet-helpers.ss => servlet/helpers.ss} (97%)
 rename collects/web-server/{private => servlet}/servlet-url.ss (98%)
 rename collects/web-server/{private => servlet}/web-cells.ss (100%)

diff --git a/collects/web-server/dispatchers/dispatch-passwords.ss b/collects/web-server/dispatchers/dispatch-passwords.ss
index fe37d4225f..8ad3c485c2 100644
--- a/collects/web-server/dispatchers/dispatch-passwords.ss
+++ b/collects/web-server/dispatchers/dispatch-passwords.ss
@@ -5,7 +5,7 @@
            "../private/util.ss"
            "../private/configuration.ss"
            "../request-structs.ss"
-           "../private/basic-auth.ss"
+           "../servlet/basic-auth.ss"
            "../private/connection-manager.ss"
            "../private/response.ss")  
   (provide/contract
diff --git a/collects/web-server/private/parse-table.ss b/collects/web-server/private/parse-table.ss
index 560964f1c2..2e5b05d987 100644
--- a/collects/web-server/private/parse-table.ss
+++ b/collects/web-server/private/parse-table.ss
@@ -2,7 +2,7 @@
   (require (lib "list.ss")
            (lib "contract.ss"))
   (require "configuration-table-structs.ss"
-           "bindings.ss")
+           "../servlet/bindings.ss")
   
   (define (get-binding key bindings default)
     (first (get-binding* key bindings (list default))))
diff --git a/collects/web-server/prototype-web-server/lang-api/web-extras.ss b/collects/web-server/prototype-web-server/lang-api/web-extras.ss
index 209ee6b693..15953825cf 100644
--- a/collects/web-server/prototype-web-server/lang-api/web-extras.ss
+++ b/collects/web-server/prototype-web-server/lang-api/web-extras.ss
@@ -1,7 +1,7 @@
 (module web-extras mzscheme
   (require (lib "url.ss" "net")
            "../private/web.ss"
-           (only "../../private/servlet-helpers.ss"
+           (only "../../servlet/helpers.ss"
                  extract-user-pass
                  redirect-to
                  permanently
diff --git a/collects/web-server/private/basic-auth.ss b/collects/web-server/servlet/basic-auth.ss
similarity index 100%
rename from collects/web-server/private/basic-auth.ss
rename to collects/web-server/servlet/basic-auth.ss
diff --git a/collects/web-server/private/bindings.ss b/collects/web-server/servlet/bindings.ss
similarity index 100%
rename from collects/web-server/private/bindings.ss
rename to collects/web-server/servlet/bindings.ss
diff --git a/collects/web-server/private/servlet-helpers.ss b/collects/web-server/servlet/helpers.ss
similarity index 97%
rename from collects/web-server/private/servlet-helpers.ss
rename to collects/web-server/servlet/helpers.ss
index 73bdd627d1..87a3fc03fa 100644
--- a/collects/web-server/private/servlet-helpers.ss
+++ b/collects/web-server/servlet/helpers.ss
@@ -1,9 +1,9 @@
-(module servlet-helpers mzscheme
+(module helpers mzscheme
   (require (lib "contract.ss")
            (lib "kw.ss")
            (lib "plt-match.ss")
            (lib "uri-codec.ss" "net"))
-  (require "util.ss"
+  (require "../private/util.ss"
            "bindings.ss"
            "basic-auth.ss"
            "../request-structs.ss"
diff --git a/collects/web-server/private/servlet-url.ss b/collects/web-server/servlet/servlet-url.ss
similarity index 98%
rename from collects/web-server/private/servlet-url.ss
rename to collects/web-server/servlet/servlet-url.ss
index 4652cd20fb..66bd802a89 100644
--- a/collects/web-server/private/servlet-url.ss
+++ b/collects/web-server/servlet/servlet-url.ss
@@ -4,7 +4,7 @@
            (lib "contract.ss")
            (lib "url.ss" "net")
            (lib "struct.ss"))
-  (require "url.ss"
+  (require "../private/url.ss"
            "../request-structs.ss")
   
   (define-struct servlet-url (protocol host port
diff --git a/collects/web-server/private/web-cells.ss b/collects/web-server/servlet/web-cells.ss
similarity index 100%
rename from collects/web-server/private/web-cells.ss
rename to collects/web-server/servlet/web-cells.ss