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

Adding web cells and web parameters to API

Browse Source 
svn: r6324
This commit is contained in:
Jay McCarthy 2007-05-25 22:38:47 +00:00
parent bea1ee3cec
commit daec269009
5 changed files with 17 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,6 +1,12 @@
(module lang-api mzscheme
(require "private/abort-resume.ss"
"private/persistent-web-interaction.ss")
(provide (all-from "private/abort-resume.ss")
(all-from-except mzscheme #%module-begin)
(all-from "private/persistent-web-interaction.ss")))
"private/persistent-web-interaction.ss"
"lang-api/web-cells.ss"
"lang-api/web-param.ss"
"lang-api/file-box.ss")
(provide (all-from-except mzscheme #%module-begin)
(all-from "private/abort-resume.ss")
(all-from "private/persistent-web-interaction.ss")
(all-from "lang-api/web-cells.ss")
(all-from "lang-api/web-param.ss")
(all-from "lang-api/file-box.ss")))

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

@ -1,9 +1,9 @@
(module web-cells mzscheme
(require "../private/closure.ss"
(lib "serialize.ss")
(require (lib "serialize.ss")
(lib "list.ss")
(lib "plt-match.ss")
(lib "contract.ss"))
(lib "contract.ss")
"../private/closure.ss")
;; Implementation: Have a distinguished frame variable that is read and captured by send/suspend,
;; installed on invocations of continuations by the server (and NOT from other continuation invocations)
@ -77,10 +77,8 @@
(env-replace (primitive-wc-id wc) nv
(frame-env (current-frame))))))
(provide make-web-cell
make-web-cell*)
(provide make-web-cell)
(provide/contract
#;[make-web-cell* (symbol? any/c . -> . web-cell?)]
[web-cell? (any/c . -> . boolean?)]
[web-cell-ref (web-cell? . -> . any/c)]
[web-cell-mask (web-cell? any/c . -> . void)]))
[web-cell-mask (web-cell? any/c . -> . void)]))

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

@ -2,7 +2,6 @@
(require "../private/closure.ss"
(lib "list.ss"))
(provide make-web-parameter
next-web-parameter-id
web-parameter?
web-parameterize)

3
collects/web-server/prototype-web-server/servlets/wc-comp.ss
View File

@ -1,6 +1,5 @@
(module wc-comp (lib "lang.ss" "web-server" "prototype-web-server")
(require (lib "web-cells.ss" "web-server" "prototype-web-server" "lang-api")
(lib "web-cell-component.ss" "web-server" "prototype-web-server" "lang-api")
(require (lib "web-cell-component.ss" "web-server" "prototype-web-server" "lang-api")
(lib "url.ss" "net"))
(provide start)

3
collects/web-server/prototype-web-server/servlets/wc.ss
View File

@ -1,6 +1,5 @@
(module wc (lib "lang.ss" "web-server" "prototype-web-server")
(require (lib "web-cells.ss" "web-server" "prototype-web-server" "lang-api")
(lib "url.ss" "net"))
(require (lib "url.ss" "net"))
(provide start)
(define (start initial-request)