/usr/share/doc/racket/macro-debugger/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 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 | 1141
((3) 0 () 7 ((q lib "macro-debugger/analysis/show-dependencies.rkt") (q lib "macro-debugger/syntax-browser.rkt") (q lib "macro-debugger/stepper.rkt") (q lib "macro-debugger/emit.rkt") (q lib "macro-debugger/expand.rkt") (q lib "macro-debugger/analysis/check-requires.rkt") (q lib "macro-debugger/stepper-text.rkt")) () (h ! (equal) ((c def c (c (? . 0) q get-dependencies)) q (3106 . 9)) ((c def c (c (? . 5) q check-requires)) q (1640 . 11)) ((c def c (c (? . 2) q expand/step)) q (0 . 3)) ((c def c (c (? . 3) q emit-local-step)) q (983 . 5)) ((c def c (c (? . 1) q browse-syntax)) q (1502 . 3)) ((c def c (c (? . 4) q expand/hide)) q (259 . 4)) ((c def c (c (? . 0) q show-dependencies)) q (2572 . 10)) ((c def c (c (? . 1) q browse-syntaxes)) q (1564 . 3)) ((c def c (c (? . 2) q expand-module/step)) q (58 . 3)) ((c def c (c (? . 6) q expand/step-text)) q (1115 . 5)) ((c def c (c (? . 3) q emit-remark)) q (497 . 10)) ((c def c (c (? . 4) q expand/show-predicate)) q (378 . 4)) ((c def c (c (? . 5) q show-requires)) q (2310 . 6)) ((c def c (c (? . 4) q expand-only)) q (130 . 4)) ((c def c (c (? . 6) q stepper-text)) q (1303 . 5))))
procedure
(expand/step stx) -> void?
stx : any/c
procedure
(expand-module/step mod) -> void?
mod : module-path?
procedure
(expand-only stx transparent-macros) -> syntax?
stx : any/c
transparent-macros : (listof identifier?)
procedure
(expand/hide stx hidden-macros) -> syntax?
stx : any/c
hidden-macros : (listof identifier?)
procedure
(expand/show-predicate stx show?) -> syntax?
stx : any/c
show? : (-> identifier? boolean?)
procedure
(emit-remark fragment ... [#:unmark? unmark?]) -> void?
fragment : (letrec ([emit-arg/c
(recursive-contract
(or/c string?
syntax?
(listof emit-arg/c)
(-> emit-arg/c)))])
emit-arg/c)
unmark? : boolean? = (syntax-transforming?)
procedure
(emit-local-step before after #:id id) -> void?
before : syntax?
after : syntax?
id : identifier?
procedure
(expand/step-text stx [show?]) -> void?
stx : any/c
show? : (or/c (-> identifier? boolean?) = (lambda (x) #t)
(listof identifier?))
procedure
(stepper-text stx [show?]) -> (symbol? -> void?)
stx : any/c
show? : (or/c (-> identifier? boolean?) = (lambda (x) #t)
(listof identifier?))
procedure
(browse-syntax stx) -> void?
stx : syntax?
procedure
(browse-syntaxes stxs) -> void?
stxs : (listof syntax?)
procedure
(check-requires module-to-analyze
[#:show-keep? show-keep?
#:show-bypass? show-bypass?
#:show-drop? show-drop?
#:show-uses? show-uses?]) -> void?
module-to-analyze : module-path?
show-keep? : boolean? = #t
show-bypass? : boolean? = #t
show-drop? : boolean? = #t
show-uses? : boolean? = #f
KEEP req-module at req-phase
exp-name at use-phase (mode ...) [RENAMED TO ref-name]
BYPASS req-module at req-phase
TO repl-module at repl-phase [WITH RENAMING]
DROP req-module at req-phase
procedure
(show-requires module-name)
-> (listof (list/c 'keep module-path? number?)
(list/c 'bypass module-path? number? list?)
(list/c 'drop module-path? number?))
module-name : module-path?
procedure
(show-dependencies root
...
[#:exclude exclude
#:exclude-deps exclude-deps
#:show-context? show-context?]) -> void?
root : module-path?
exclude : (listof module-path?) = null
exclude-deps : (listof module-path?) = null
show-context? : boolean? = #f
dep-module [<- (direct-dependent ...)]
procedure
(get-dependencies root
...
[#:exclude exclude
#:exclude-deps exclude-deps])
-> (listof (list module-path? (listof module-path?)))
root : module-path?
exclude : (listof module-path?) = null
exclude-deps : (listof module-path?) = null
|