scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
sunet/web-server/root/surflets/test.scm

202 lines
6.6 KiB
Scheme
Raw Normal View History

Rename SERVLET --> SURFLET
2003-01-19 11:57:27 -05:00
(define-structure surflet surflet-interface
fix typo in SERVLETS' open-clause
2002-12-02 03:39:10 -05:00
(open scheme-with-scsh
Rename SERVLET --> SURFLET
2003-01-19 11:57:27 -05:00
surflets
test.scm now shows examples for all surflets-input-fields.
2003-04-16 08:32:24 -04:00
receiving
srfi-1
srfi-13
srfi-14
+ Add annotated callbacks. Callbacks may now be annotated with arbitrary arguments with which the function will be called. See surflets/test.scm for a (non-didactic) example. * The extended callbacks justify an extra structure for callbacks: surflets/callbacks - make-callback was moved from surflets/utilities to surflets/callbacks
2003-04-14 04:30:27 -04:00
surflets/utilities
surflets/callbacks
first shot on adding servlets to HTTPD
2002-09-13 03:21:19 -04:00
httpd-responses)
(begin
test.scm now shows examples for all surflets-input-fields.
2003-04-16 08:32:24 -04:00
(define global 0)
+ export conversion rules from surflets: default-rules (default, text, attribute, plain-html and url) surflet-form-rules (input-field and surflet-form) + according to mainzelm: lowercase URL tag to url in surflet-xml
2003-03-09 15:15:08 -05:00
test.scm now shows examples for all surflets-input-fields.
2003-04-16 08:32:24 -04:00
(define selections (cons '("a" "b" "c")
'("Andreas" "Bernd" "Clara")))
(define radio-elements '(1 2 3 "a" *))
Change names in surflet-input-fields.scm, so that they are both short and descriptive and not misleading. If you have written SUrflets that use the input field feature, you must rename your input field commands to get them work with this change. Contact me, if you want to have a small script that does this for you.
2003-07-08 17:22:06 -04:00
(define select (make-annotated-select
(map make-annotated-select-option
test.scm now shows examples for all surflets-input-fields.
2003-04-16 08:32:24 -04:00
(car selections)
(cdr selections))
#t '(@ (size 2))))
Change names in surflet-input-fields.scm, so that they are both short and descriptive and not misleading. If you have written SUrflets that use the input field feature, you must rename your input field commands to get them work with this change. Contact me, if you want to have a small script that does this for you.
2003-07-08 17:22:06 -04:00
(define select2 (make-select (car selections)))
(define text (make-text-field "yoho"))
(define number (make-number-field 23))
(define hidden (make-hidden-field "value"))
(define password (make-password-field "asdf"))
(define textarea (make-textarea "This
test.scm now shows examples for all surflets-input-fields.
2003-04-16 08:32:24 -04:00
is
a
test"))
Change names in surflet-input-fields.scm, so that they are both short and descriptive and not misleading. If you have written SUrflets that use the input field feature, you must rename your input field commands to get them work with this change. Contact me, if you want to have a small script that does this for you.
2003-07-08 17:22:06 -04:00
(define radio (make-annotated-radio-group))
test.scm now shows examples for all surflets-input-fields.
2003-04-16 08:32:24 -04:00
(define radios (map radio radio-elements))
Change names in surflet-input-fields.scm, so that they are both short and descriptive and not misleading. If you have written SUrflets that use the input field feature, you must rename your input field commands to get them work with this change. Contact me, if you want to have a small script that does this for you.
2003-07-08 17:22:06 -04:00
(define checkbox (make-annotated-checkbox "hooray!"))
MAKE-SELECT-INPUT-FIELD can now create select input fields with multiple selections. INPUT-FIELD-VALUE will always return a (possible empty) list in the multiple case.
2002-10-04 09:56:46 -04:00
Remove image button bug (thanks to Eric Knauel for reporting this): Image buttons return the coordinates where the user clicked la imgbtn321.x=13&imgbtn321.y=12. Thus, we cannot search for the input-field-name of the image button. To remove this bug, we introduce following changes: surflet-input-fields.scm: + make-image-button returns a multi-input-field that searches for its coordinates in the bindings, returning a pair (x y) of it (numbers). + Adapt select-input-fields to interface changes of multi-input-fields: transformers get also their input-fields. returned-via.scm: Don't simply check for the input field name in the binding. Use input-field-value to check for existance of the input field in the bindings input-fields.scm: multi-input-fields get also their input-field as argument web-server/root/surflets/byte-input.scm: Adapt to interface change of multi-input-fields: transformers get also their input-field web-server/root/surflets/test.scm: Check the image-button feature correctly.
2003-05-22 09:32:49 -04:00
(define submit (make-submit-button))
(define image (make-image-button "/img/221.gif"))
(define reset (make-reset-button))
test.scm now shows examples for all surflets-input-fields.
2003-04-16 08:32:24 -04:00
(define (translate-line-breaks text)
(let lp ((result '())
(text text))
(let ((index (string-index text char-set:iso-control)))
(if index
(lp (cons '(br)
(cons (substring/shared text 0 index) result))
;; +2, as we probably have cr+lf
(substring/shared text (+ index 2)))
(reverse (cons text result))))))
(define (cb-result req arg)
(send-html
`(html (title "Result")
(body (h2 "Result")
(p "Returned via callback with arg" (br)
,(format #f "~s" arg))
(hr)
(p (url "test.scm" "Test again.") (br)
(url "/" "Return to main menu."))))))
(define an-cb (make-annotated-callback cb-result))
(define addr (make-annotated-address))
first shot on servlet's new form interface
2002-09-24 12:56:00 -04:00
(define (main req)
test.scm now shows examples for all surflets-input-fields.
2003-04-16 08:32:24 -04:00
(set! global (+ 1 global))
(let* ((req (send-html/suspend
(lambda (new-url)
Let it be a bit more valid as HTML 4.01 Transitional. Among other things, add HEAD tag, give charset information, add TITLE tag and let it start with the "<!DOCTYPE ...>" declaration.
2003-07-04 10:46:31 -04:00
`((plain-html "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">")
(html
(head
(meta (@ (http-equiv "Content-Type")
(content "text/html; charset=ISO-8859-15")))
(title "Test"))
test.scm now shows examples for all surflets-input-fields.
2003-04-16 08:32:24 -04:00
(body
(h1 "This is from SUrflet")
(p "called " ,global " times")
Let it be a bit more valid as HTML 4.01 Transitional. Among other things, add HEAD tag, give charset information, add TITLE tag and let it start with the "<!DOCTYPE ...>" declaration.
2003-07-04 10:46:31 -04:00
(p "Choose an annotated address:")
(ul
Moving SUrflets webserver to top level, adjusting startup scripts and documentation accordingly. Replaced index.html (small & no content) by index2.html.
2004-02-02 12:49:37 -05:00
(li (url ,(addr new-url 13) "ab=ba"))
Let it be a bit more valid as HTML 4.01 Transitional. Among other things, add HEAD tag, give charset information, add TITLE tag and let it start with the "<!DOCTYPE ...>" declaration.
2003-07-04 10:46:31 -04:00
(li (url ,(addr new-url "be<ta") "be<ta"))
(li (url ,(addr new-url) "<nothing>")))
(p "Or choose an annotated callback")
(ul
(li (url ,(an-cb 13) "13"))
(li (url ,(an-cb '(1 2 3)) "'(1 2 3)"))
(li (url ,(an-cb "hello") "hello"))
(li (url ,(an-cb #f) "#f")))
(p "Or choose an input field.")
(surflet-form
,new-url
POST
(table
(tr (td "Selection:") (td ,select))
(tr (td "Selection2:") (td ,select2))
(tr (td "Simple text: ") (td ,text))
(tr (td "Number: " ) (td ,number))
(tr (td "Hidden: " ) (td ,hidden))
(tr (td "Password: " ) (td ,password))
(tr (td "Textarea: " ) (td ,textarea))
(tr (td "Radio:")
(td ,(zip radios
(map (lambda (elem)
(list (format #f "~%~s" elem)
'(nbsp) '(nbsp)))
radio-elements))))
(tr (td "Checkbox:") (td ,checkbox)))
,submit ,reset (br) ,image)
test.scm now shows examples for all surflets-input-fields.
2003-04-16 08:32:24 -04:00
(hr)
Let it be a bit more valid as HTML 4.01 Transitional. Among other things, add HEAD tag, give charset information, add TITLE tag and let it start with the "<!DOCTYPE ...>" declaration.
2003-07-04 10:46:31 -04:00
(p (url "/" "Return to main menu."))))))))
+ export conversion rules from surflets: default-rules (default, text, attribute, plain-html and url) surflet-form-rules (input-field and surflet-form) + according to mainzelm: lowercase URL tag to url in surflet-xml
2003-03-09 15:15:08 -05:00
(bindings (get-bindings req))
test.scm now shows examples for all surflets-input-fields.
2003-04-16 08:32:24 -04:00
(selected (input-field-value select bindings))
(selected2 (input-field-value select2 bindings))
(text-entered (input-field-value text bindings))
(number-entered (input-field-value number bindings))
(hidden-value (input-field-value hidden bindings))
(password-text (input-field-value password bindings))
(textarea-text (input-field-value textarea bindings))
(radio-result (input-field-value (radio #f) bindings))
(checkbox-result (input-field-value checkbox bindings))
Remove image button bug (thanks to Eric Knauel for reporting this): Image buttons return the coordinates where the user clicked la imgbtn321.x=13&imgbtn321.y=12. Thus, we cannot search for the input-field-name of the image button. To remove this bug, we introduce following changes: surflet-input-fields.scm: + make-image-button returns a multi-input-field that searches for its coordinates in the bindings, returning a pair (x y) of it (numbers). + Adapt select-input-fields to interface changes of multi-input-fields: transformers get also their input-fields. returned-via.scm: Don't simply check for the input field name in the binding. Use input-field-value to check for existance of the input field in the bindings input-fields.scm: multi-input-fields get also their input-field as argument web-server/root/surflets/byte-input.scm: Adapt to interface change of multi-input-fields: transformers get also their input-field web-server/root/surflets/test.scm: Check the image-button feature correctly.
2003-05-22 09:32:49 -04:00
(submit-result (returned-via? submit bindings))
(reset-result (returned-via? reset bindings))
(image-result (returned-via image bindings))
+ export conversion rules from surflets: default-rules (default, text, attribute, plain-html and url) surflet-form-rules (input-field and surflet-form) + according to mainzelm: lowercase URL tag to url in surflet-xml
2003-03-09 15:15:08 -05:00
(result
(cond
((returned-via? addr bindings) =>
(lambda (string)
(format #f "returned via annotated string ~s" string)))
(else
Change names in surflet-input-fields.scm, so that they are both short and descriptive and not misleading. If you have written SUrflets that use the input field feature, you must rename your input field commands to get them work with this change. Contact me, if you want to have a small script that does this for you.
2003-07-08 17:22:06 -04:00
(set-text-field-value! text text-entered)
test.scm now shows examples for all surflets-input-fields.
2003-04-16 08:32:24 -04:00
(only-select-selected! select selected (cdr selections))
(only-select-selected! select2 (list selected2) (car selections))
(if number-entered
Change names in surflet-input-fields.scm, so that they are both short and descriptive and not misleading. If you have written SUrflets that use the input field feature, you must rename your input field commands to get them work with this change. Contact me, if you want to have a small script that does this for you.
2003-07-08 17:22:06 -04:00
(set-number-field-value! number number-entered))
(set-hidden-field-value!
test.scm now shows examples for all surflets-input-fields.
2003-04-16 08:32:24 -04:00
hidden
(string-append "value" (number->string global)))
Change names in surflet-input-fields.scm, so that they are both short and descriptive and not misleading. If you have written SUrflets that use the input field feature, you must rename your input field commands to get them work with this change. Contact me, if you want to have a small script that does this for you.
2003-07-08 17:22:06 -04:00
(set-password-field-value! password password-text)
(set-textarea-value! textarea textarea-text)
test.scm now shows examples for all surflets-input-fields.
2003-04-16 08:32:24 -04:00
(if radio-result
(begin
Change names in surflet-input-fields.scm, so that they are both short and descriptive and not misleading. If you have written SUrflets that use the input field feature, you must rename your input field commands to get them work with this change. Contact me, if you want to have a small script that does this for you.
2003-07-08 17:22:06 -04:00
(map uncheck-radio! radios)
(check-radio!
test.scm now shows examples for all surflets-input-fields.
2003-04-16 08:32:24 -04:00
(list-ref radios
(list-index (lambda (a) (equal? a radio-result))
radio-elements)))))
(if checkbox-result
Change names in surflet-input-fields.scm, so that they are both short and descriptive and not misleading. If you have written SUrflets that use the input field feature, you must rename your input field commands to get them work with this change. Contact me, if you want to have a small script that does this for you.
2003-07-08 17:22:06 -04:00
(check-checkbox! checkbox)
(uncheck-checkbox! checkbox))
Remove image button bug (thanks to Eric Knauel for reporting this): Image buttons return the coordinates where the user clicked la imgbtn321.x=13&imgbtn321.y=12. Thus, we cannot search for the input-field-name of the image button. To remove this bug, we introduce following changes: surflet-input-fields.scm: + make-image-button returns a multi-input-field that searches for its coordinates in the bindings, returning a pair (x y) of it (numbers). + Adapt select-input-fields to interface changes of multi-input-fields: transformers get also their input-fields. returned-via.scm: Don't simply check for the input field name in the binding. Use input-field-value to check for existance of the input field in the bindings input-fields.scm: multi-input-fields get also their input-field as argument web-server/root/surflets/byte-input.scm: Adapt to interface change of multi-input-fields: transformers get also their input-field web-server/root/surflets/test.scm: Check the image-button feature correctly.
2003-05-22 09:32:49 -04:00
`(p ,(cond
(image-result (format #f "Returned via image ~s" image-result))
(submit-result "Returned via submit")
(else "Don't know how you did return.")) (br)
test.scm now shows examples for all surflets-input-fields.
2003-04-16 08:32:24 -04:00
"Bindings were: " ,(format #f "~s" bindings) (br)
(table
(@ (valign "top"))
(tr (td "Selected: ") (td ,(format #f "~s" selected)))
(tr (td "Selected2:") (td ,(format #f "~s" selected2)))
(tr (td "Text entered:") (td ,(format #f "~s" text-entered)))
(tr (td "Number entered:")
(td ,(if number-entered
number-entered
"no valid number")))
(tr (td "Hidden:") (td ,hidden-value))
(tr (td "Plain password:") (td ,password-text ))
(tr (td "Textarea:")
(td #\" ,@(translate-line-breaks textarea-text) #\"))
(tr (td "Radio:") (td ,(format #f "~s" radio-result)))
(tr (td "Checkbox:") (td ,(format #f "~s" checkbox-result)))))
))))
(set! global (+ 1 global))
(send-html/suspend
(lambda (continue)
`(html (body (h1 "Result")
(p "called " ,global " times")
,result (br)
(url ,continue "show results again") (br)
(url ,(make-callback main) "continue testing")
(font (@ (size "small"))
"(Note: This is not a browser history link)")
(hr)
(p (url "test.scm" "Test again.") (br)
(url "/" "Return to main menu."))))))
fix typo in SERVLETS' open-clause
2002-12-02 03:39:10 -05:00
test.scm now shows examples for all surflets-input-fields.
2003-04-16 08:32:24 -04:00
(send-html/finish
`(html (body (h1 "Result 2")
(p "called " ,global " times")
,(format #f "~s" (get-bindings req))
(hr)
(p (url "test.scm" "Test again.") (br)
(url "/" "Return to main menu.")))))))
Change argument order in EXTRACT-BINDINGS and EXTRACT-SINGLE-BINDING to fit the one of the equivalent PLT procedure.
2002-10-26 11:40:26 -04:00
test.scm now shows examples for all surflets-input-fields.
2003-04-16 08:32:24 -04:00
(define (only-select-selected! sel-if selected indices)
(for-each (lambda (index)
Change names in surflet-input-fields.scm, so that they are both short and descriptive and not misleading. If you have written SUrflets that use the input field feature, you must rename your input field commands to get them work with this change. Contact me, if you want to have a small script that does this for you.
2003-07-08 17:22:06 -04:00
(unselect-select-option! index sel-if))
test.scm now shows examples for all surflets-input-fields.
2003-04-16 08:32:24 -04:00
(iota (length (cdr selections))))
(for-each (lambda (selected)
Change names in surflet-input-fields.scm, so that they are both short and descriptive and not misleading. If you have written SUrflets that use the input field feature, you must rename your input field commands to get them work with this change. Contact me, if you want to have a small script that does this for you.
2003-07-08 17:22:06 -04:00
(select-select-option!
test.scm now shows examples for all surflets-input-fields.
2003-04-16 08:32:24 -04:00
(list-index (lambda (s) (string=? s selected))
indices)
sel-if))
selected))
Change argument order in EXTRACT-BINDINGS and EXTRACT-SINGLE-BINDING to fit the one of the equivalent PLT procedure.
2002-10-26 11:40:26 -04:00
MAKE-SELECT-INPUT-FIELD can now create select input fields with multiple selections. INPUT-FIELD-VALUE will always return a (possible empty) list in the multiple case.
2002-10-04 09:56:46 -04:00
))