suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Clarify API point

Browse Source 
svn: r6407
This commit is contained in:
Jay McCarthy 2007-05-30 15:43:55 +00:00
parent 2b6ba365bd
commit 03836a6825
2 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/web-server/servlet.ss
View File

@ -7,12 +7,20 @@
"private/url.ss"
"servlet/helpers.ss"
"servlet/web-cells.ss"
"servlet-structs.ss")
(require "servlet/servlet-url.ss")
"servlet/bindings.ss"
"servlet/basic-auth.ss"
"servlet/servlet-url.ss"
"response-structs.ss"
"request-structs.ss"
"servlet-structs.ss")
(provide (all-from "servlet/web-cells.ss")
(all-from "servlet/helpers.ss")
(all-from "servlet/servlet-url.ss")
(all-from "servlet-structs.ss"))
(all-from "servlet-structs.ss")
(all-from "servlet/bindings.ss")
(all-from "servlet/basic-auth.ss")
(all-from "response-structs.ss")
(all-from "request-structs.ss"))
;; ************************************************************
;; HELPERS

6
collects/web-server/servlet/helpers.ss
View File

@ -4,14 +4,8 @@
(lib "plt-match.ss")
(lib "uri-codec.ss" "net"))
(require "../private/util.ss"
"bindings.ss"
"basic-auth.ss"
"../request-structs.ss"
"../response-structs.ss")
(provide (all-from "bindings.ss")
(all-from "basic-auth.ss")
(all-from "../response-structs.ss")
(all-from "../request-structs.ss"))
(define (request-headers request)
(map (match-lambda