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

Moving servlet-env

Browse Source 
svn: r6422
This commit is contained in:
Jay McCarthy 2007-05-30 22:35:34 +00:00
parent bcdceb46b3
commit 229cf60278
3 changed files with 13 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/htdp/servlet.ss
View File

@ -1,10 +1,10 @@
; Author: Paul Graunke ; Author: Paul Graunke
#cs(module servlet mzscheme #cs(module servlet mzscheme
(require (lib "servlet-env.ss" "web-server" "tools") (require (lib "servlet-env.ss" "web-server")
(lib "error.ss" "htdp") (lib "error.ss" "htdp")
(lib "xml.ss" "xml") (lib "xml.ss" "xml")
(lib "etc.ss")) (lib "etc.ss"))
(provide (all-from (lib "servlet-env.ss" "web-server" "tools")) (provide (all-from (lib "servlet-env.ss" "web-server"))
(rename wrapped-build-suspender build-suspender)) (rename wrapped-build-suspender build-suspender))
; build-suspender : (listof html) (listof html) [(listof (cons sym str))] [(listof (cons sym str))] -> str -> response ; build-suspender : (listof html) (listof html) [(listof (cons sym str))] [(listof (cons sym str))] -> str -> response

4
collects/htdp/servlet2.ss
View File

@ -2,11 +2,11 @@
#| TODO ----------------------------------------------------------------------- #| TODO -----------------------------------------------------------------------
buttons: multiple points of returns: continuation functions buttons: multiple points of returns: continuation functions
|# |#
(require (lib "servlet-env.ss" "web-server" "tools") (require (lib "servlet-env.ss" "web-server")
(lib "error.ss" "htdp") (lib "error.ss" "htdp")
(lib "list.ss") (lib "list.ss")
(lib "etc.ss")) (lib "etc.ss"))
(provide (all-from (lib "servlet-env.ss" "web-server" "tools")) (provide (all-from (lib "servlet-env.ss" "web-server"))
single-query ; FormElement -> Answer single-query ; FormElement -> Answer

19
collects/web-server/tools/servlet-env.ss → collects/web-server/servlet-env.ss
View File

@ -1,17 +1,16 @@
(module servlet-env mzscheme (module servlet-env mzscheme
(require (lib "sendurl.ss" "net") (require (lib "sendurl.ss" "net")
(lib "unit.ss")) (lib "unit.ss"))
(require "../web-server.ss" (require "web-server.ss"
"../web-config-unit.ss" "web-config-unit.ss"
"../web-config-sig.ss" "web-config-sig.ss"
"../private/util.ss" "private/util.ss"
"../response-structs.ss" "managers/timeouts.ss"
"../managers/timeouts.ss" "private/servlet.ss"
"../private/servlet.ss" "private/cache-table.ss")
"../private/cache-table.ss") (require "servlet.ss")
(require "../servlet.ss")
(provide (rename on-web:syntax on-web) (provide (rename on-web:syntax on-web)
(all-from "../servlet.ss")) (all-from "servlet.ss"))
(define-syntax (on-web:syntax stx) (define-syntax (on-web:syntax stx)
(syntax-case stx () (syntax-case stx ()