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
#cs(module servlet mzscheme
(require (lib "servlet-env.ss" "web-server" "tools")
(require (lib "servlet-env.ss" "web-server")
(lib "error.ss" "htdp")
(lib "xml.ss" "xml")
(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))
; 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 -----------------------------------------------------------------------
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 "list.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

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

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