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

Rearranging prototype

Browse Source 
svn: r6437
This commit is contained in:
Jay McCarthy 2007-06-01 15:29:15 +00:00
parent 16f76ddefe
commit 1090572e21
10 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/web-server/prototype-web-server/dispatch-servlets2.ss
View File

@ -3,7 +3,7 @@
(lib "contract.ss")
(lib "url.ss" "net")
(lib "session.ss" "web-server" "prototype-web-server" "private")
(only "private/web.ss"
(only "lang-api/web.ss"
initialize-servlet)
(lib "web-cells.ss" "web-server" "prototype-web-server" "lang-api")
"../private/request-structs.ss"
@ -62,7 +62,7 @@
(define ns (make-servlet-namespace
#:additional-specs
'((lib "web-cells.ss" "web-server" "prototype-web-server" "lang-api")
(lib "abort-resume.ss" "web-server" "prototype-web-server" "private")
(lib "abort-resume.ss" "web-server" "prototype-web-server" "lang")
(lib "session.ss" "web-server" "prototype-web-server" "private")
(lib "request-structs.ss" "web-server" "private"))))
(define ses (new-session cust ns (make-session-url uri (map path->string url-servlet-path))))

8
collects/web-server/prototype-web-server/lang-api.ss
View File

@ -3,8 +3,8 @@
"../private/request-structs.ss"
"../private/response-structs.ss"
"../servlet/helpers.ss"
"private/abort-resume.ss"
"private/web.ss"
"lang/abort-resume.ss"
"lang-api/web.ss"
"lang-api/web-cells.ss"
"lang-api/web-param.ss"
"lang-api/file-box.ss"
@ -14,8 +14,8 @@
(all-from "../private/request-structs.ss")
(all-from "../private/response-structs.ss")
(all-from "../servlet/helpers.ss")
(all-from "private/abort-resume.ss")
(all-from "private/web.ss")
(all-from "lang/abort-resume.ss")
(all-from "lang-api/web.ss")
(all-from "lang-api/web-cells.ss")
(all-from "lang-api/web-param.ss")
(all-from "lang-api/file-box.ss")

6
collects/web-server/prototype-web-server/private/stuff-url.ss → collects/web-server/prototype-web-server/lang-api/stuff-url.ss
View File

@ -2,9 +2,9 @@
(require (lib "contract.ss")
(lib "url.ss" "net")
(lib "serialize.ss")
"utils.ss"
"url-param.ss"
"mod-map.ss")
"../private/utils.ss"
"../private/url-param.ss"
"../private/mod-map.ss")
; XXX url: first try continuation, then turn into hash

2
collects/web-server/prototype-web-server/lang-api/web-extras.ss
View File

@ -1,6 +1,6 @@
(module web-extras mzscheme
(require (lib "url.ss" "net")
"../private/web.ss"
"web.ss"
"../../servlet/helpers.ss")
(provide send/suspend/dispatch
redirect/get)

6
collects/web-server/prototype-web-server/private/web.ss → collects/web-server/prototype-web-server/lang-api/web.ss
View File

@ -3,10 +3,10 @@
(lib "plt-match.ss")
(lib "url.ss" "net")
"../../private/request-structs.ss"
"abort-resume.ss"
"session.ss"
"../lang/abort-resume.ss"
"../private/session.ss"
"stuff-url.ss"
"url-param.ss")
"../private/url-param.ss")
(provide
;; Server Interface

4
collects/web-server/prototype-web-server/private/abort-resume.ss → collects/web-server/prototype-web-server/lang/abort-resume.ss
View File

@ -1,8 +1,8 @@
(module abort-resume mzscheme
(require "define-closure.ss"
(lib "list.ss")
(require (lib "list.ss")
(lib "plt-match.ss")
(lib "serialize.ss")
"../private/define-closure.ss"
"../lang-api/web-cells.ss")
(provide

2
collects/web-server/prototype-web-server/lang/elim-callcc.ss
View File

@ -1,6 +1,6 @@
(module elim-callcc mzscheme
(require-for-template mzscheme
"../private/abort-resume.ss")
"../lang/abort-resume.ss")
(require (lib "kerncase.ss" "syntax")
"util.ss")
(provide elim-callcc)

2
collects/web-server/prototype-web-server/lang/elim-letrec.ss
View File

@ -1,6 +1,6 @@
(module elim-letrec mzscheme
(require-for-template mzscheme
"../private/abort-resume.ss")
"../lang/abort-resume.ss")
(require (lib "kerncase.ss" "syntax")
(lib "etc.ss")
(lib "list.ss")

2
collects/web-server/prototype-web-server/tests/stuff-url-tests.ss
View File

@ -1,5 +1,5 @@
(module stuff-url-tests mzscheme
(require (lib "stuff-url.ss" "web-server" "prototype-web-server" "private")
(require (lib "stuff-url.ss" "web-server" "prototype-web-server" "lang-api")
(lib "mod-map.ss" "web-server" "prototype-web-server" "private")
(planet "test.ss" ("schematics" "schemeunit.plt" 2))
(lib "url.ss" "net")

4
collects/web-server/prototype-web-server/tests/util.ss
View File

@ -7,7 +7,7 @@
[(_ (module m-id . rest))
#'(let ([ns (make-namespace)])
(parameterize ([current-namespace ns])
(eval '(require (lib "abort-resume.ss" "web-server" "prototype-web-server" "private")
(eval '(require (lib "abort-resume.ss" "web-server" "prototype-web-server" "lang")
(lib "serialize.ss")))
(eval '(module m-id . rest))
(eval '(require m-id)))
@ -21,7 +21,7 @@
(define (make-eval/mod-path pth)
(let ([ns (make-namespace)])
(parameterize ([current-namespace ns])
(eval `(require (lib "abort-resume.ss" "web-server" "prototype-web-server" "private")
(eval `(require (lib "abort-resume.ss" "web-server" "prototype-web-server" "lang")
(lib "serialize.ss")
,pth)))
(lambda (expr)