fix typo in SERVLETS' open-clause

This commit is contained in:
interp 2002-12-02 08:39:10 +00:00
parent 543dbdf9ab
commit ba04964918
3 changed files with 31 additions and 20 deletions

View File

@ -180,7 +180,7 @@
(define-structure servlets servlets-interface
(open servlet-handler/servlet
httpd-responses
httpd-request ; HTTP-URL:SEARCH
httpd-requests ; HTTP-URL:SEARCH
url ; REQUEST:URL
parse-html-forms
sxml-to-html ; SXML->HTML
@ -189,7 +189,6 @@
(subset srfi-13 (string-index))
sxml-tree-trans
url
httpd-request
define-record-types
weak ;MAKE-WEAK-POINTER
locks

View File

@ -193,7 +193,7 @@ exec scsh -lm $sunet/packages.scm -lm $ssax/lib/packages.scm -lm $sunet/httpd/se
; (cons "cgi-bin" (cgi-handler cgi-bin-dir))
(cons "source" (rooted-file-or-directory-handler servlet-dir))
(cons "img" (rooted-file-handler images-dir))
(cons "servlet" (servlet-handler servlet-dir "/servlet/")))
(cons "servlet" (servlet-handler servlet-dir)))
(rooted-file-or-directory-handler htdocs-dir)))))))))))
))
))

View File

@ -1,6 +1,5 @@
(define-structure servlet servlet-interface
(open scsh
scheme
(open scheme-with-scsh
servlets
httpd-responses)
(begin
@ -17,21 +16,34 @@
,(make-submit-button))
(hr)
(p (URL "/" "Return to main menu."))
))))))
(send-html/suspend
(lambda (continue)
`(html (body (h1 "Result")
,(format #f "~s" (get-bindings req)) (br)
(URL ,continue "show results again")
(hr)
(p (URL "test.scm" "Test again.") (br)
(URL "/" "Return to main menu."))))))
)))))
(save-k #f)
(done? #f))
(call-with-current-continuation
(lambda (k)
(set! save-k k)
13))
(if (not done?)
(begin
(send-html/suspend
(lambda (continue)
`(html (body (h1 "Result")
,(format #f "~s" (get-bindings req)) (br)
(URL ,continue "show results again")
(hr)
(p (URL "test.scm" "Test again.") (br)
(URL "/" "Return to main menu."))))))
(set! done? #t)
(save-k 13))
(send-html/finish
`(html (body (h1 "Result 2")
,(format #f "~s" (get-bindings req))
(hr)
(p (URL "test.scm" "Test again.") (br)
(URL "/" "Return to main menu.")))))))
(send-html/finish
`(html (body (h1 "Result 2")
,(format #f "~s" (get-bindings req))
(hr)
(p (URL "test.scm" "Test again.") (br)
(URL "/" "Return to main menu."))))))))
))