34 lines
1.3 KiB
Racket
34 lines
1.3 KiB
Racket
#lang web-server
|
|
(define interface-version 'stateless)
|
|
(provide start interface-version)
|
|
|
|
(define (start initial-request)
|
|
(define counter1 0)
|
|
(define counter2 0)
|
|
(send/suspend/url/dispatch
|
|
(lambda (embed/url)
|
|
(let*-values ([(inc1 next-counter1 next-counter2) (include-counter counter1 counter2 embed/url)]
|
|
[(inc2 next-counter2 next-counter1) (include-counter next-counter2 next-counter1 embed/url)])
|
|
(response/xexpr
|
|
`(html
|
|
(body (h2 "Web Cell Test")
|
|
(div (h3 "First") ,(inc1 next-counter1 next-counter2))
|
|
(div (h3 "Second") ,(inc2 next-counter2 next-counter1)))))))))
|
|
|
|
(define (include-counter my-counter other-counter embed/url)
|
|
(let/cc k
|
|
(letrec ([include
|
|
(lambda (next-my-counter next-other-counter)
|
|
`(div (h3 ,(number->string next-my-counter))
|
|
(a ([href
|
|
,(url->string
|
|
(embed/url
|
|
(lambda _
|
|
(k include
|
|
(add1 next-my-counter)
|
|
next-other-counter))))])
|
|
"Increment")))])
|
|
(values include
|
|
my-counter
|
|
other-counter))))
|