/usr/share/doc/racket/future-visualizer/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 59 60 61 62 63 64 65 66 67 68 69 70 71 72 | 1627
((3) 0 () 4 ((q lib "future-visualizer/trace.rkt") (q 2352 . 15) (q lib "future-visualizer/main.rkt") (q 2180 . 5)) () (h ! (equal) ((c form c (c (? . 2) q visualize-futures)) q (0 . 2)) ((c def c (c (? . 0) q timeline-events)) q (2115 . 2)) ((c form c (c (? . 0) q trace-futures)) q (1895 . 2)) ((c def c (c (? . 0) q make-future-event)) c (? . 1)) ((c def c (c (? . 0) q struct:future-event)) c (? . 1)) ((c def c (c (? . 0) q future-event-action)) c (? . 1)) ((c def c (c (? . 0) q future-event-proc-id)) c (? . 1)) ((c def c (c (? . 0) q indexed-future-event-index)) c (? . 3)) ((c def c (c (? . 2) q timeline-pict)) q (221 . 14)) ((c def c (c (? . 2) q creation-tree-pict)) q (988 . 17)) ((c def c (c (? . 2) q visualize-futures-thunk)) q (35 . 3)) ((c def c (c (? . 0) q future-event-time-id)) c (? . 1)) ((c def c (c (? . 0) q future-event-prim-name)) c (? . 1)) ((c def c (c (? . 0) q future-event?)) c (? . 1)) ((c def c (c (? . 0) q future-event-user-data)) c (? . 1)) ((c def c (c (? . 0) q make-indexed-future-event)) c (? . 3)) ((c def c (c (? . 0) q trace-futures-thunk)) q (1926 . 3)) ((c def c (c (? . 0) q indexed-future-event)) c (? . 3)) ((c def c (c (? . 2) q show-visualizer)) q (111 . 3)) ((c def c (c (? . 0) q future-event)) c (? . 1)) ((c def c (c (? . 0) q indexed-future-event?)) c (? . 3)) ((c def c (c (? . 0) q struct:indexed-future-event)) c (? . 3)) ((c def c (c (? . 0) q stop-future-tracing!)) q (2071 . 2)) ((c def c (c (? . 0) q indexed-future-event-event)) c (? . 3)) ((c def c (c (? . 0) q start-future-tracing!)) q (2026 . 2)) ((c def c (c (? . 0) q future-event-future-id)) c (? . 1))))
syntax
(visualize-futures e ...)
procedure
(visualize-futures-thunk thunk) -> any
thunk : (-> any)
procedure
(show-visualizer #:timeline timeline) -> void?
timeline : (listof indexed-future-event?)
procedure
(timeline-pict events
[#:x x
#:y y
#:width width
#:height height
#:selected-event-index selected-event-index])
-> pict?
events : (listof indexed-future-event?)
x : (or #f exact-nonnegative-integer?) = #f
y : (or #f exact-nonnegative-integer?) = #f
width : (or #f exact-nonnegative-integer?) = #f
height : (or #f exact-nonnegative-integer?) = #f
selected-event-index : (or #f exact-nonnegative-integer?) = #f
procedure
(creation-tree-pict events
[#:x x
#:y y
#:width width
#:node-width node-width
#:height height
#:padding padding
#:zoom zoom]) -> pict?
events : (listof indexed-future-event?)
x : (or #f exact-nonnegative-integer?) = #f
y : (or #f exact-nonnegative-integer?) = #f
width : (or #f exact-nonnegative-integer?) = #f
node-width : (or #f exact-nonnegative-integer?) = #f
height : (or #f exact-nonnegative-integer?) = #f
padding : (or #f exact-nonnegative-integer?) = #f
zoom : exact-nonnegative-integer? = 1
syntax
(trace-futures e ...)
procedure
(trace-futures-thunk thunk) -> (listof indexed-future-event?)
thunk : (-> any)
procedure
(start-future-tracing!) -> void?
procedure
(stop-future-tracing!) -> void?
procedure
(timeline-events) -> (listof indexed-future-event?)
struct
(struct indexed-future-event (index event)
#:extra-constructor-name make-indexed-future-event)
index : exact-nonnegative-integer?
event : any
struct
(struct future-event (future-id
proc-id
action
time-id
prim-name
user-data)
#:extra-constructor-name make-future-event
#:prefab)
future-id : (or exact-nonnegative-integer? #f)
proc-id : exact-nonnegative-integer?
action : symbol?
time-id : real?
prim-name : (or symbol? #f)
user-data : (or #f symbol? exact-nonnegative-integer?)
|