suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Clarifying function contracts for s/s/d callers

Browse Source
This commit is contained in:
Jay McCarthy 2011-06-21 13:31:47 -06:00
parent 73f6a2b392
commit 39aea2e6c1
15 changed files with 48 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/web-server/scribblings/tutorial/continue.scrbl
View File

@ -393,7 +393,7 @@ web-server/insta
(define (start request) (define (start request)
(show-counter 0 request)) (show-counter 0 request))
@code:comment{show-counter: number request -> doesn't} @code:comment{show-counter: number request -> doesn't return}
@code:comment{Displays a number that's hyperlinked: when the link is pressed,} @code:comment{Displays a number that's hyperlinked: when the link is pressed,}
@code:comment{returns a new page with the incremented number.} @code:comment{returns a new page with the incremented number.}
(define (show-counter n request) (define (show-counter n request)
@ -1205,7 +1205,7 @@ And @racket[(formlet-process new-post-formlet _request)] where @racket[_request]
We can use @racket[new-post-formlet] in @racket[render-blog-page] as follows: We can use @racket[new-post-formlet] in @racket[render-blog-page] as follows:
@racketblock[ @racketblock[
@code:comment{render-blog-page: blog request -> doesn't} @code:comment{render-blog-page: blog request -> doesn't return}
@code:comment{Sends an HTML page of the content of the} @code:comment{Sends an HTML page of the content of the}
@code:comment{blog.} @code:comment{blog.}
(define (render-blog-page a-blog request) (define (render-blog-page a-blog request)

8
collects/web-server/scribblings/tutorial/examples/dummy-10.rkt
View File

@ -2,7 +2,7 @@
(require "dummy-3.rkt") (require "dummy-3.rkt")
;; start: request -> doesn't ;; start: request -> doesn't return
;; Consumes a request and produces a page that displays ;; Consumes a request and produces a page that displays
;; all of the web content. ;; all of the web content.
(define (start request) (define (start request)
@ -12,7 +12,7 @@
"the-blog-data.sqlite")) "the-blog-data.sqlite"))
request)) request))
;; render-blog-page: blog request -> doesn't ;; render-blog-page: blog request -> doesn't return
;; Produces an HTML page of the content of the ;; Produces an HTML page of the content of the
;; blog. ;; blog.
(define (render-blog-page a-blog request) (define (render-blog-page a-blog request)
@ -38,7 +38,7 @@
(send/suspend/dispatch response-generator))) (send/suspend/dispatch response-generator)))
;; render-post-detail-page: post request -> doesn't ;; render-post-detail-page: post request -> doesn't return
;; Consumes a post and produces a detail page of the post. ;; Consumes a post and produces a detail page of the post.
;; The user will be able to either insert new comments ;; The user will be able to either insert new comments
;; or go back to render-blog-page. ;; or go back to render-blog-page.
@ -75,7 +75,7 @@
(send/suspend/dispatch response-generator))) (send/suspend/dispatch response-generator)))
;; render-confirm-add-comment-page : ;; render-confirm-add-comment-page :
;; blog comment post request -> doesn't ;; blog comment post request -> doesn't return
;; Consumes a comment that we intend to add to a post, as well ;; Consumes a comment that we intend to add to a post, as well
;; as the request. If the user follows through, adds a comment ;; as the request. If the user follows through, adds a comment
;; and goes back to the display page. Otherwise, goes back to ;; and goes back to the display page. Otherwise, goes back to

8
collects/web-server/scribblings/tutorial/examples/iteration-10.rkt
View File

@ -2,7 +2,7 @@
(require "model-3.rkt") (require "model-3.rkt")
;; start: request -> doesn't ;; start: request -> doesn't return
;; Consumes a request and produces a page that displays ;; Consumes a request and produces a page that displays
;; all of the web content. ;; all of the web content.
(define (start request) (define (start request)
@ -12,7 +12,7 @@
"the-blog-data.sqlite")) "the-blog-data.sqlite"))
request)) request))
;; render-blog-page: blog request -> doesn't ;; render-blog-page: blog request -> doesn't return
;; Produces an HTML page of the content of the ;; Produces an HTML page of the content of the
;; blog. ;; blog.
(define (render-blog-page a-blog request) (define (render-blog-page a-blog request)
@ -38,7 +38,7 @@
(send/suspend/dispatch response-generator))) (send/suspend/dispatch response-generator)))
;; render-post-detail-page: post request -> doesn't ;; render-post-detail-page: post request -> doesn't return
;; Consumes a post and produces a detail page of the post. ;; Consumes a post and produces a detail page of the post.
;; The user will be able to either insert new comments ;; The user will be able to either insert new comments
;; or go back to render-blog-page. ;; or go back to render-blog-page.
@ -75,7 +75,7 @@
(send/suspend/dispatch response-generator))) (send/suspend/dispatch response-generator)))
;; render-confirm-add-comment-page : ;; render-confirm-add-comment-page :
;; blog comment post request -> doesn't ;; blog comment post request -> doesn't return
;; Consumes a comment that we intend to add to a post, as well ;; Consumes a comment that we intend to add to a post, as well
;; as the request. If the user follows through, adds a comment ;; as the request. If the user follows through, adds a comment
;; and goes back to the display page. Otherwise, goes back to ;; and goes back to the display page. Otherwise, goes back to

8
collects/web-server/scribblings/tutorial/examples/iteration-11.rkt
View File

@ -3,7 +3,7 @@
(require web-server/formlets (require web-server/formlets
"model-3.rkt") "model-3.rkt")
;; start: request -> doesn't ;; start: request -> doesn't return
;; Consumes a request and produces a page that displays ;; Consumes a request and produces a page that displays
;; all of the web content. ;; all of the web content.
(define (start request) (define (start request)
@ -21,7 +21,7 @@
,{input-string . => . body}) ,{input-string . => . body})
(values title body))) (values title body)))
;; render-blog-page: blog request -> doesn't ;; render-blog-page: blog request -> doesn't return
;; Produces an HTML page of the content of the ;; Produces an HTML page of the content of the
;; blog. ;; blog.
(define (render-blog-page a-blog request) (define (render-blog-page a-blog request)
@ -49,7 +49,7 @@
(define new-comment-formlet (define new-comment-formlet
input-string) input-string)
;; render-post-detail-page: post request -> doesn't ;; render-post-detail-page: post request -> doesn't return
;; Consumes a post and produces a detail page of the post. ;; Consumes a post and produces a detail page of the post.
;; The user will be able to either insert new comments ;; The user will be able to either insert new comments
;; or go back to render-blog-page. ;; or go back to render-blog-page.
@ -83,7 +83,7 @@
(send/suspend/dispatch response-generator))) (send/suspend/dispatch response-generator)))
;; render-confirm-add-comment-page : ;; render-confirm-add-comment-page :
;; blog comment post request -> doesn't ;; blog comment post request -> doesn't return
;; Consumes a comment that we intend to add to a post, as well ;; Consumes a comment that we intend to add to a post, as well
;; as the request. If the user follows through, adds a comment ;; as the request. If the user follows through, adds a comment
;; and goes back to the display page. Otherwise, goes back to ;; and goes back to the display page. Otherwise, goes back to

4
collects/web-server/scribblings/tutorial/examples/iteration-3.rkt
View File

@ -10,7 +10,7 @@
(list (post "First Post" "This is my first post") (list (post "First Post" "This is my first post")
(post "Second Post" "This is another post"))) (post "Second Post" "This is another post")))
;; start: request -> doesn't ;; start: request -> doesn't return
;; Consumes a request and produces a page that displays all of the ;; Consumes a request and produces a page that displays all of the
;; web content. ;; web content.
(define (start request) (define (start request)
@ -22,7 +22,7 @@
(post (extract-binding/single 'title bindings) (post (extract-binding/single 'title bindings)
(extract-binding/single 'body bindings))) (extract-binding/single 'body bindings)))
;; render-blog-page: blog request -> doesn't ;; render-blog-page: blog request -> doesn't return
;; Consumes a blog and a request, and produces an HTML page ;; Consumes a blog and a request, and produces an HTML page
;; of the content of the blog. ;; of the content of the blog.
(define (render-blog-page a-blog request) (define (render-blog-page a-blog request)

4
collects/web-server/scribblings/tutorial/examples/iteration-4.rkt
View File

@ -21,7 +21,7 @@
(set-blog-posts! a-blog (set-blog-posts! a-blog
(cons a-post (blog-posts a-blog)))) (cons a-post (blog-posts a-blog))))
;; start: request -> doesn't ;; start: request -> doesn't return
;; Consumes a request and produces a page that displays ;; Consumes a request and produces a page that displays
;; all of the web content. ;; all of the web content.
(define (start request) (define (start request)
@ -33,7 +33,7 @@
(post (extract-binding/single 'title bindings) (post (extract-binding/single 'title bindings)
(extract-binding/single 'body bindings))) (extract-binding/single 'body bindings)))
;; render-blog-page: request -> doesn't ;; render-blog-page: request -> doesn't return
;; Produces an HTML page of the content of the BLOG. ;; Produces an HTML page of the content of the BLOG.
(define (render-blog-page request) (define (render-blog-page request)
(local [(define (response-generator make-url) (local [(define (response-generator make-url)

8
collects/web-server/scribblings/tutorial/examples/iteration-5.rkt
View File

@ -35,14 +35,14 @@
a-post a-post
(append (post-comments a-post) (list a-comment)))) (append (post-comments a-post) (list a-comment))))
;; start: request -> doesn't ;; start: request -> doesn't return
;; Consumes a request, and produces a page that displays ;; Consumes a request, and produces a page that displays
;; all of the web content. ;; all of the web content.
(define (start request) (define (start request)
(render-blog-page request)) (render-blog-page request))
;; render-blog-page: request -> doesn't ;; render-blog-page: request -> doesn't return
;; Produces an doesn't page of the content of the ;; Produces an HTML page of the content of the
;; BLOG. ;; BLOG.
(define (render-blog-page request) (define (render-blog-page request)
(local [(define (response-generator make-url) (local [(define (response-generator make-url)
@ -71,7 +71,7 @@
(send/suspend/dispatch response-generator))) (send/suspend/dispatch response-generator)))
;; render-post-detail-page: post request -> doesn't ;; render-post-detail-page: post request -> doesn't return
;; Consumes a post and request, and produces a detail page ;; Consumes a post and request, and produces a detail page
;; of the post. The user will be able to insert new comments. ;; of the post. The user will be able to insert new comments.
(define (render-post-detail-page a-post request) (define (render-post-detail-page a-post request)

8
collects/web-server/scribblings/tutorial/examples/iteration-6.rkt
View File

@ -35,13 +35,13 @@
a-post a-post
(append (post-comments a-post) (list a-comment)))) (append (post-comments a-post) (list a-comment))))
;; start: request -> doesn't ;; start: request -> doesn't return
;; Consumes a request and produces a page that displays ;; Consumes a request and produces a page that displays
;; all of the web content. ;; all of the web content.
(define (start request) (define (start request)
(render-blog-page request)) (render-blog-page request))
;; render-blog-page: request -> doesn't ;; render-blog-page: request -> doesn't return
;; Produces an HTML page of the content of the ;; Produces an HTML page of the content of the
;; BLOG. ;; BLOG.
(define (render-blog-page request) (define (render-blog-page request)
@ -71,7 +71,7 @@
(send/suspend/dispatch response-generator))) (send/suspend/dispatch response-generator)))
;; render-post-detail-page: post request -> doesn't ;; render-post-detail-page: post request -> doesn't return
;; Consumes a post and produces a detail page of the post. ;; Consumes a post and produces a detail page of the post.
;; The user will be able to either insert new comments ;; The user will be able to either insert new comments
;; or go back to render-blog-page. ;; or go back to render-blog-page.
@ -107,7 +107,7 @@
(send/suspend/dispatch response-generator))) (send/suspend/dispatch response-generator)))
;; render-confirm-add-comment-page : ;; render-confirm-add-comment-page :
;; comment post request -> doesn't ;; comment post request -> doesn't return
;; Consumes a comment that we intend to add to a post, as well ;; Consumes a comment that we intend to add to a post, as well
;; as the request. If the user follows through, adds a comment ;; as the request. If the user follows through, adds a comment
;; and goes back to the display page. Otherwise, goes back to ;; and goes back to the display page. Otherwise, goes back to

10
collects/web-server/scribblings/tutorial/examples/iteration-7.rkt
View File

@ -35,14 +35,14 @@
a-post a-post
(append (post-comments a-post) (list a-comment)))) (append (post-comments a-post) (list a-comment))))
;; start: request -> doesn't ;; start: request -> doesn't return
;; Consumes a request and produces a page that displays ;; Consumes a request and produces a page that displays
;; all of the web content. ;; all of the web content.
(define (start request) (define (start request)
(render-blog-page request)) (render-blog-page request))
;; render-blog-page: request -> doesn't ;; render-blog-page: request -> doesn't return
;; Produces an doesn't page of the content of the ;; Produces an HTML page of the content of the
;; BLOG. ;; BLOG.
(define (render-blog-page request) (define (render-blog-page request)
(local [(define (response-generator make-url) (local [(define (response-generator make-url)
@ -71,7 +71,7 @@
(send/suspend/dispatch response-generator))) (send/suspend/dispatch response-generator)))
;; render-post-detail-page: post request -> doesn't ;; render-post-detail-page: post request -> doesn't return
;; Consumes a post and produces a detail page of the post. ;; Consumes a post and produces a detail page of the post.
;; The user will be able to either insert new comments ;; The user will be able to either insert new comments
;; or go back to render-blog-page. ;; or go back to render-blog-page.
@ -107,7 +107,7 @@
(send/suspend/dispatch response-generator))) (send/suspend/dispatch response-generator)))
;; render-confirm-add-comment-page : ;; render-confirm-add-comment-page :
;; comment post request -> doesn't ;; comment post request -> doesn't return
;; Consumes a comment that we intend to add to a post, as well ;; Consumes a comment that we intend to add to a post, as well
;; as the request. If the user follows through, adds a comment ;; as the request. If the user follows through, adds a comment
;; and goes back to the display page. Otherwise, goes back to ;; and goes back to the display page. Otherwise, goes back to

8
collects/web-server/scribblings/tutorial/examples/iteration-8.rkt
View File

@ -2,13 +2,13 @@
(require "model.rkt") (require "model.rkt")
;; start: request -> doesn't ;; start: request -> doesn't return
;; Consumes a request and produces a page that displays ;; Consumes a request and produces a page that displays
;; all of the web content. ;; all of the web content.
(define (start request) (define (start request)
(render-blog-page request)) (render-blog-page request))
;; render-blog-page: request -> doesn't ;; render-blog-page: request -> doesn't return
;; Produces an HTML page of the content of the ;; Produces an HTML page of the content of the
;; BLOG. ;; BLOG.
(define (render-blog-page request) (define (render-blog-page request)
@ -38,7 +38,7 @@
(send/suspend/dispatch response-generator))) (send/suspend/dispatch response-generator)))
;; render-post-detail-page: post request -> doesn't ;; render-post-detail-page: post request -> doesn't return
;; Consumes a post and produces a detail page of the post. ;; Consumes a post and produces a detail page of the post.
;; The user will be able to either insert new comments ;; The user will be able to either insert new comments
;; or go back to render-blog-page. ;; or go back to render-blog-page.
@ -74,7 +74,7 @@
(send/suspend/dispatch response-generator))) (send/suspend/dispatch response-generator)))
;; render-confirm-add-comment-page : ;; render-confirm-add-comment-page :
;; comment post request -> doesn't ;; comment post request -> doesn't return
;; Consumes a comment that we intend to add to a post, as well ;; Consumes a comment that we intend to add to a post, as well
;; as the request. If the user follows through, adds a comment ;; as the request. If the user follows through, adds a comment
;; and goes back to the display page. Otherwise, goes back to ;; and goes back to the display page. Otherwise, goes back to

8
collects/web-server/scribblings/tutorial/examples/iteration-9.rkt
View File

@ -2,7 +2,7 @@
(require "model-2.rkt") (require "model-2.rkt")
;; start: request -> doesn't ;; start: request -> doesn't return
;; Consumes a request and produces a page that displays ;; Consumes a request and produces a page that displays
;; all of the web content. ;; all of the web content.
(define (start request) (define (start request)
@ -12,7 +12,7 @@
"the-blog-data.db")) "the-blog-data.db"))
request)) request))
;; render-blog-page: blog request -> doesn't ;; render-blog-page: blog request -> doesn't return
;; Produces an HTML page of the content of the ;; Produces an HTML page of the content of the
;; blog. ;; blog.
(define (render-blog-page a-blog request) (define (render-blog-page a-blog request)
@ -38,7 +38,7 @@
(send/suspend/dispatch response-generator))) (send/suspend/dispatch response-generator)))
;; render-post-detail-page: post request -> doesn't ;; render-post-detail-page: post request -> doesn't return
;; Consumes a post and produces a detail page of the post. ;; Consumes a post and produces a detail page of the post.
;; The user will be able to either insert new comments ;; The user will be able to either insert new comments
;; or go back to render-blog-page. ;; or go back to render-blog-page.
@ -75,7 +75,7 @@
(send/suspend/dispatch response-generator))) (send/suspend/dispatch response-generator)))
;; render-confirm-add-comment-page : ;; render-confirm-add-comment-page :
;; blog comment post request -> doesn't ;; blog comment post request -> doesn't return
;; Consumes a comment that we intend to add to a post, as well ;; Consumes a comment that we intend to add to a post, as well
;; as the request. If the user follows through, adds a comment ;; as the request. If the user follows through, adds a comment
;; and goes back to the display page. Otherwise, goes back to ;; and goes back to the display page. Otherwise, goes back to

8
collects/web-server/scribblings/tutorial/examples/iteration-9s.rkt
View File

@ -2,7 +2,7 @@
(require "model-2.rkt") (require "model-2.rkt")
;; start: request -> doesn't ;; start: request -> doesn't return
;; Consumes a request and produces a page that displays ;; Consumes a request and produces a page that displays
;; all of the web content. ;; all of the web content.
(define (start request) (define (start request)
@ -12,7 +12,7 @@
"the-blog-data.db")) "the-blog-data.db"))
request)) request))
;; render-blog-page: blog request -> doesn't ;; render-blog-page: blog request -> doesn't return
;; Sends an HTML page of the content of the ;; Sends an HTML page of the content of the
;; blog. ;; blog.
(define (render-blog-page a-blog request) (define (render-blog-page a-blog request)
@ -38,7 +38,7 @@
(send/suspend/dispatch response-generator)) (send/suspend/dispatch response-generator))
;; render-post-detail-page: post request -> doesn't ;; render-post-detail-page: post request -> doesn't return
;; Consumes a post and produces a detail page of the post. ;; Consumes a post and produces a detail page of the post.
;; The user will be able to either insert new comments ;; The user will be able to either insert new comments
;; or go back to render-blog-page. ;; or go back to render-blog-page.
@ -75,7 +75,7 @@
(send/suspend/dispatch response-generator)) (send/suspend/dispatch response-generator))
;; render-confirm-add-comment-page : ;; render-confirm-add-comment-page :
;; blog comment post request -> doesn't ;; blog comment post request -> doesn't return
;; Consumes a comment that we intend to add to a post, as well ;; Consumes a comment that we intend to add to a post, as well
;; as the request. If the user follows through, adds a comment ;; as the request. If the user follows through, adds a comment
;; and goes back to the display page. Otherwise, goes back to ;; and goes back to the display page. Otherwise, goes back to

4
collects/web-server/scribblings/tutorial/examples/no-use-redirect.rkt
View File

@ -14,11 +14,11 @@
(define ROSTER (roster '("kathi" "shriram" "dan"))) (define ROSTER (roster '("kathi" "shriram" "dan")))
;; start: request -> doesn't ;; start: request -> doesn't return
(define (start request) (define (start request)
(show-roster request)) (show-roster request))
;; show-roster: request -> doesn't ;; show-roster: request -> doesn't return
(define (show-roster request) (define (show-roster request)
(local [(define (response-generator make-url) (local [(define (response-generator make-url)
(response/xexpr (response/xexpr

2
collects/web-server/scribblings/tutorial/examples/send-suspend-2.rkt
View File

@ -3,7 +3,7 @@
(define (start request) (define (start request)
(show-counter 0)) (show-counter 0))
;; show-counter: number -> doesn't ;; show-counter: number -> doesn't return
(define (show-counter n) (define (show-counter n)
(send/suspend/dispatch (send/suspend/dispatch
(lambda (make-url) (lambda (make-url)

4
collects/web-server/scribblings/tutorial/examples/use-redirect.rkt
View File

@ -14,11 +14,11 @@
(define ROSTER (roster '("kathi" "shriram" "dan"))) (define ROSTER (roster '("kathi" "shriram" "dan")))
;; start: request -> doesn't ;; start: request -> doesn't return
(define (start request) (define (start request)
(show-roster request)) (show-roster request))
;; show-roster: request -> doesn't ;; show-roster: request -> doesn't return
(define (show-roster request) (define (show-roster request)
(local [(define (response-generator make-url) (local [(define (response-generator make-url)
(response/xexpr (response/xexpr