/usr/share/doc/racket/continue/blueboxes.rktd is in racket-doc 6.7-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 | 2969
((3) 0 () 13 ((q lib "web-server/servlet.rkt") (q lib "web-server/scribblings/tutorial/examples/iteration-1.rkt") (q 0 . 4) (q lib "web-server/scribblings/tutorial/examples/iteration-2.rkt") (q lib "web-server/scribblings/tutorial/examples/iteration-4.rkt") (q lib "web-server/scribblings/tutorial/examples/iteration-9.rkt") (q lib "web-server/scribblings/tutorial/examples/dummy-10.rkt") (q lib "web-server/scribblings/tutorial/examples/iteration-5.rkt") (q 691 . 6) (q 1293 . 4) (q 510 . 3) (q 985 . 6) (q 1244 . 3)) () (h ! (equal) ((c def c (c (? . 3) q can-parse-post?)) q (406 . 2)) ((c def c (c (? . 0) q request-bindings)) q (213 . 2)) ((c def c (c (? . 1) q post)) c (? . 2)) ((c def c (c (? . 5) q blog-posts)) c (? . 11)) ((c def c (c (? . 4) q set-blog-posts!)) q (569 . 2)) ((c def c (c (? . 0) q redirect/get)) q (947 . 2)) ((c def c (c (? . 1) q post-title)) c (? . 2)) ((c def c (c (? . 3) q parse-post)) q (462 . 2)) ((c def c (c (? . 6) q post-id)) c (? . 9)) ((c def c (c (? . 4) q blog-insert-post!)) q (634 . 2)) ((q def ((lib "web-server/scribblings/tutorial/examples/iteration-7.rkt") static-files-path)) q (894 . 2)) ((c def c (c (? . 5) q post-insert-comment!)) q (1175 . 2)) ((c def c (c (? . 1) q post?)) c (? . 2)) ((c def c (c (? . 4) q blog?)) c (? . 10)) ((c def c (c (? . 7) q post?)) c (? . 8)) ((c def c (c (? . 6) q blog?)) c (? . 12)) ((c def c (c (? . 7) q struct:post)) c (? . 8)) ((c def c (c (? . 6) q struct:post)) c (? . 9)) ((c def c (c (? . 7) q set-post-body!)) c (? . 8)) ((c def c (c (? . 7) q set-post-comments!)) c (? . 8)) ((c def c (c (? . 6) q post-blog)) c (? . 9)) ((c def c (c (? . 1) q render-posts)) q (155 . 2)) ((c def c (c (? . 4) q blog)) c (? . 10)) ((c def c (c (? . 0) q exists-binding?)) q (341 . 2)) ((c def c (c (? . 7) q set-post-title!)) c (? . 8)) ((c def c (c (? . 7) q post)) c (? . 8)) ((c def c (c (? . 1) q render-post)) q (108 . 2)) ((c def c (c (? . 1) q blog)) q (77 . 2)) ((c def c (c (? . 7) q post-title)) c (? . 8)) ((c def c (c (? . 5) q blog-insert-post!)) q (1107 . 2)) ((c def c (c (? . 6) q post)) c (? . 9)) ((c def c (c (? . 5) q struct:blog)) c (? . 11)) ((c def c (c (? . 4) q blog-posts)) c (? . 10)) ((c def c (c (? . 6) q struct:blog)) c (? . 12)) ((c def c (c (? . 7) q post-comments)) c (? . 8)) ((c def c (c (? . 4) q struct:blog)) c (? . 10)) ((c def c (c (? . 1) q struct:post)) c (? . 2)) ((c def c (c (? . 6) q blog-db)) c (? . 12)) ((c def c (c (? . 5) q set-blog-home!)) c (? . 11)) ((c def c (c (? . 6) q blog)) c (? . 12)) ((c def c (c (? . 0) q extract-binding/single)) q (270 . 2)) ((c def c (c (? . 7) q post-insert-comment!)) q (832 . 2)) ((c def c (c (? . 5) q blog?)) c (? . 11)) ((c def c (c (? . 5) q blog)) c (? . 11)) ((c def c (c (? . 5) q set-blog-posts!)) c (? . 11)) ((c def c (c (? . 5) q blog-home)) c (? . 11)) ((c def c (c (? . 6) q post?)) c (? . 9)) ((c def c (c (? . 7) q post-body)) c (? . 8)) ((c def c (c (? . 1) q post-body)) c (? . 2))))
struct
(struct post (title body))
title : string?
body : string?
value
blog : (listof post?)
value
render-post : (post? . -> . xexpr/c)
value
render-posts : ((listof post?) . -> . xexpr/c)
value
request-bindings : (request? . -> . bindings?)
value
extract-binding/single : (symbol? bindings? . -> . string?)
value
exists-binding? : (symbol? bindings? . -> . boolean?)
value
can-parse-post? : (bindings? . -> . boolean?)
value
parse-post : (bindings? . -> . post?)
struct
(struct blog (posts))
posts : (listof post?)
value
set-blog-posts! : (blog? (listof post?) . -> . void)
value
blog-insert-post! : (blog? post? . -> . void)
struct
(struct post (title body comments)
#:mutable)
title : string?
body : string?
comments : (listof string?)
value
post-insert-comment! : (post? string? . -> . void)
value
static-files-path : (path-string? -> void)
value
redirect/get : (-> request?)
struct
(struct blog (home posts)
#:mutable
#:prefab)
home : string?
posts : (listof post?)
value
blog-insert-post! : (blog? string? string? . -> . void)
value
post-insert-comment! : (blog? post? string? . -> . void)
struct
(struct blog (db))
db : connection?
struct
(struct post (blog id))
blog : blog?
id : integer?
|