透明思考

Servlet with Scheme: One Input Form- -

                                      

(require (lib "unitsig.ss")
         (lib "servlet-sig.ss" "web-server"))

;; return value of a servlet unig/sig will be displayed as a web page
(unit/sig () (import servlet^)
  
  (define (get-name)
    (extract-binding/single
      'name
      (request-bindings (send/suspend (input-name-page)))))

  (define (input-name-page)
    (lambda (k-url)
      `(html (head (title "Enter Your Name"))
             (body ([bgcolor "white"])
                   (form ([action ,k-url] [method "post"])
                         "Enter Your Name Please: "
                         (input ([type "text"] [name "name"] [value ""]))
                         (input ([type "submit"] [name "enter"] [value "Enter"])))))))

  ;; When generating output x-expression,
  ;; the function (get-name) is called,
  ;; which invoke (input-name-page) to generate a page with input form.
  ;; This should surprise you.
  ;; If not, please wait for my next entry :>
  `(html (head (title ,the-text))
         (body ([bgcolor "white"])
               (p, "Hello, ", (get-name)))))

- 作者： 透明 2005年08月9日, 星期二 13:38