remove bogus link, set svn:eol-style
svn: r6108
This commit is contained in:
Eli Barzilay
parent
0ef215c58c
commit
f7da18826d
|
|
@ -7,4 +7,4 @@
|
|||
(define (start initial-request)
|
||||
(send/back
|
||||
`(html (a ([href url])
|
||||
"Title")))))
|
||||
"Title")))))
|
||||
|
|
|
|||
|
|
@ -11,4 +11,4 @@
|
|||
(define (start request)
|
||||
(send/suspend/callback
|
||||
`(html (body (p (a ([href ,start]) "Forward"))
|
||||
(p (a ([href ,end]) "End")))))))
|
||||
(p (a ([href ,end]) "End")))))))
|
||||
|
|
|
|||
|
|
@ -6,4 +6,4 @@
|
|||
(define timeout +inf.0)
|
||||
(define (start initial-request)
|
||||
(let ([b (new button% (label "Button"))])
|
||||
(list #"text/plain" "Button"))))
|
||||
(list #"text/plain" "Button"))))
|
||||
|
|
|
|||
|
|
@ -1 +0,0 @@
|
|||
/Users/jay/Development/Projects/papers/web-cells/cell-example.ss
|
||||
|
|
@ -43,4 +43,4 @@
|
|||
(lambda _
|
||||
(counter)
|
||||
(main-page)))])
|
||||
"View Counter"))))))
|
||||
"View Counter"))))))
|
||||
|
|
|
|||
|
|
@ -33,4 +33,4 @@
|
|||
(counter
|
||||
(lambda (v)
|
||||
(main-page)))))])
|
||||
"View Counter"))))))
|
||||
"View Counter"))))))
|
||||
|
|
|
|||
|
|
@ -32,4 +32,4 @@
|
|||
(lambda _
|
||||
(counter)
|
||||
(main-page)))])
|
||||
"View Counter"))))))
|
||||
"View Counter"))))))
|
||||
|
|
|
|||
|
|
@ -13,4 +13,3 @@
|
|||
(p ,(if (eq? (current-custodian) servlet-cust)
|
||||
"It didn't work."
|
||||
"It did work."))))))
|
||||
|
||||
|
|
@ -33,4 +33,3 @@
|
|||
`(html (head (title "Expiration demo"))
|
||||
(body (p (a ([href ,k-url]) "Forget the past.")))))))))])
|
||||
"Prepare to forget the past."))))))))))
|
||||
|
||||
|
|
@ -9,4 +9,4 @@
|
|||
(lambda (k-url)
|
||||
`(a ([href ,k-url]) "Click")))
|
||||
(set! X (add1 X))
|
||||
(format "~a" "fault")))
|
||||
(format "~a" "fault")))
|
||||
|
|
|
|||
|
|
@ -25,4 +25,4 @@
|
|||
`(html
|
||||
(body
|
||||
(pre
|
||||
,(get-output-string sport))))))
|
||||
,(get-output-string sport))))))
|
||||
|
|
|
|||
|
|
@ -21,4 +21,4 @@
|
|||
[enctype "multipart/form-data"])
|
||||
(h3 "Submit for an Assignment")
|
||||
(input ([name "file"] [type "file"] [size "30"]))
|
||||
(input ([type "submit"] [value "Submit"]))))))))
|
||||
(input ([type "submit"] [value "Submit"]))))))))
|
||||
|
|
|
|||
|
|
@ -12,4 +12,4 @@
|
|||
(send/suspend
|
||||
(lambda (k-url)
|
||||
`(html (a ([href ,k-url]) "Error"))))
|
||||
(/ 1 0)))
|
||||
(/ 1 0)))
|
||||
|
|
|
|||
|
|
@ -16,4 +16,4 @@
|
|||
(form ([method "POST"]
|
||||
[action ,k-url])
|
||||
(input ([type "text"] [name "test:case"]))
|
||||
(input ([type "submit"])))))))))))))
|
||||
(input ([type "submit"])))))))))))))
|
||||
|
|
|
|||
|
|
@ -10,4 +10,4 @@
|
|||
(* 1000 1)))
|
||||
(lambda _
|
||||
(printf "One second has passed.~n"))))
|
||||
(loop)))
|
||||
(loop)))
|
||||
|
|
|
|||
|
|
@ -9,4 +9,4 @@
|
|||
(define (start initial-request)
|
||||
`(html (head (title "A Test Page"))
|
||||
(body ([bgcolor "white"])
|
||||
(p "This is a simple module servlet.")))))
|
||||
(p "This is a simple module servlet.")))))
|
||||
|
|
|
|||
|
|
@ -21,4 +21,4 @@
|
|||
`(html (head (title "Instance expiration demo"))
|
||||
(body (p "Reload in a few minutes.")
|
||||
(p "(or change the instance id to something made up.")))))])
|
||||
"Click this link."))))))))
|
||||
"Click this link."))))))))
|
||||
|
|
|
|||
|
|
@ -20,4 +20,4 @@
|
|||
`(html (head (title "Instance expiration demo"))
|
||||
(body (p "Reload in a few minutes.")
|
||||
(p "(or change the instance id to something made up.")))))])
|
||||
"Click this link."))))))))
|
||||
"Click this link."))))))))
|
||||
|
|
|
|||
|
|
@ -8,4 +8,4 @@
|
|||
(define (get-time)
|
||||
(web-cell:local-ref load-time))
|
||||
|
||||
(web-cell:local-set! load-time (current-seconds)))
|
||||
(web-cell:local-set! load-time (current-seconds)))
|
||||
|
|
|
|||
|
|
@ -11,4 +11,4 @@
|
|||
(report-errors-to-browser send/finish)
|
||||
`(html (head (title "Servlet Parameter Test"))
|
||||
(body (h1 "Servlet Parameter Test")
|
||||
,(number->string (get-time))))))
|
||||
,(number->string (get-time))))))
|
||||
|
|
|
|||
|
|
@ -6,4 +6,4 @@
|
|||
(define (get-time)
|
||||
(load-time))
|
||||
|
||||
(load-time (current-seconds)))
|
||||
(load-time (current-seconds)))
|
||||
|
|
|
|||
|
|
@ -7,4 +7,4 @@
|
|||
(thread-wait
|
||||
(thread
|
||||
(lambda ()
|
||||
(printf "~S~n" (start 'foo))))))
|
||||
(printf "~S~n" (start 'foo))))))
|
||||
|
|
|
|||
|
|
@ -11,4 +11,4 @@
|
|||
(report-errors-to-browser send/finish)
|
||||
`(html (head (title "Servlet Parameter Test"))
|
||||
(body (h1 "Servlet Parameter Test")
|
||||
,(number->string (get-time))))))
|
||||
,(number->string (get-time))))))
|
||||
|
|
|
|||
|
|
@ -21,4 +21,4 @@
|
|||
"Fast")))))))
|
||||
(define (second label)
|
||||
`(html (body ,label
|
||||
,(number->string (current-seconds))))))
|
||||
,(number->string (current-seconds))))))
|
||||
|
|
|
|||
|
|
@ -7,4 +7,4 @@
|
|||
(lambda (failed-request)
|
||||
`(html (body (h2 "Error"))))))
|
||||
(define (start initial-request)
|
||||
`(html (body (h2 "Look Ma, No Instance!")))))
|
||||
`(html (body (h2 "Look Ma, No Instance!")))))
|
||||
|
|
|
|||
|
|
@ -25,4 +25,4 @@
|
|||
`(html
|
||||
(body
|
||||
(pre
|
||||
,(get-output-string sport))))))
|
||||
,(get-output-string sport))))))
|
||||
|
|
|
|||
|
|
@ -5,4 +5,4 @@
|
|||
(define interface-version 'v1)
|
||||
(define timeout 120)
|
||||
(define (start ireq)
|
||||
(send/finish '(("paul") "..."))))
|
||||
(send/finish '(("paul") "..."))))
|
||||
|
|
|
|||
|
|
@ -16,4 +16,4 @@
|
|||
(define r (extract-binding/single `x (request-bindings q)))
|
||||
(send/suspend
|
||||
(build-suspender `("Result of test")
|
||||
(list r)))))
|
||||
(list r)))))
|
||||
|
|
|
|||
|
|
@ -9,4 +9,4 @@
|
|||
(define-serializable-struct foo ())
|
||||
(define (start req)
|
||||
(deserialize (serialize (make-foo)))
|
||||
`(html (body "Made it"))))
|
||||
`(html (body "Made it"))))
|
||||
|
|
|
|||
|
|
@ -16,4 +16,4 @@
|
|||
(- time start-time)
|
||||
(- time last-time)))
|
||||
(input ((type "submit")))))))
|
||||
(loop time)))))
|
||||
(loop time)))))
|
||||
|
|
|
|||
|
|
@ -7,4 +7,4 @@
|
|||
|
||||
(define (start initial-request)
|
||||
;(report-errors-to-browser send/back)
|
||||
(/ 1 0)))
|
||||
(/ 1 0)))
|
||||
|
|
|
|||
|
|
@ -15,4 +15,4 @@
|
|||
(lambda (r)
|
||||
`(html (head) (body ,i))))])
|
||||
,(number->string i))))
|
||||
`(1 2 3 4 5 6 7 8 9 0)))))))))
|
||||
`(1 2 3 4 5 6 7 8 9 0)))))))))
|
||||
|
|
|
|||
|
|
@ -6,4 +6,4 @@
|
|||
(define (start initial-request)
|
||||
(list
|
||||
#"text/html"
|
||||
"<html><head></head><body>Foo</body><html>")))
|
||||
"<html><head></head><body>Foo</body><html>")))
|
||||
|
|
|
|||
|
|
@ -8,4 +8,4 @@
|
|||
(send/back
|
||||
`(html (head)
|
||||
(body
|
||||
(h1 "Hey"))))))
|
||||
(h1 "Hey"))))))
|
||||
|
|
|
|||
|
|
@ -14,4 +14,4 @@
|
|||
(body
|
||||
(form ([action ,k-url])
|
||||
(input ([type "text"] [name "name"]))
|
||||
(input ([type "submit"])))))))))))
|
||||
(input ([type "submit"])))))))))))
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user