/usr/share/doc/racket/2d/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 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 | 736
((3) 0 () 2 ((q lib "2d/dir-chars.rkt") (q lib "2d/readtable.rkt")) () (h ! (equal) ((q form ((lib "2d/cond.rkt") 2dcond)) q (0 . 33)) ((c def c (c (? . 0) q double-barred-chars)) q (3794 . 2)) ((c def c (c (? . 1) q make-readtable)) q (2901 . 2)) ((c def c (c (? . 0) q dn-chars)) q (3875 . 2)) ((c def c (c (? . 0) q rt-chars)) q (3945 . 2)) ((q form ((lib "2d/match.rkt") 2dmatch)) q (1127 . 22)) ((c def c (c (? . 1) q 2d-readtable-dispatch-proc)) q (2944 . 17)) ((q def ((lib "2d/lexer.rkt") 2d-lexer)) q (3692 . 3)) ((c def c (c (? . 0) q adjustable-chars)) q (3751 . 2)) ((c def c (c (? . 0) q lt-chars)) q (3910 . 2)) ((c def c (c (? . 0) q up-chars)) q (3840 . 2)) ((q form ((lib "2d/tabular.rkt") 2dtabular)) q (1961 . 26))))
syntax
(2dcond cond-content)
cond-content = question-row
body-row
⋮
| question-row
body-row
⋮
else-row
question-row = empty-cell question-cell ⋯
| empty-cell question-cell ⋯ else-cell
body-row = question-cell exprs-cell ⋯
else-row = question-cell exprs-cell ⋯ else-cell
question-cell = ╔═════════════╗
║question-expr║
╚═════════════╝
empty-cell = ╔═══╗
║ ║
╚═══╝
exprs-cell = ╔═════════════╗
║expr expr ...║
╚═════════════╝
else-cell = ╔══════╗
║ else ║
╚══════╝
syntax
(2dmatch match-content)
match-content = match-first-row
match-row
⋮
match-first-row = two-expr-cell match-pat-cell ⋯
match-row = match-pat-cell exprs-cell ⋯
two-expr-cell = ╔═════════════════╗
║col-expr row-expr║
╚═════════════════╝
match-pat-cell = ╔═════╗
║ pat ║
╚═════╝
exprs-cell = ╔═════════════╗
║expr expr ...║
╚═════════════╝
syntax
(2dtabular tabular-content)
tabular-content = tabular-row
⋮
| tabular-row
⋮
style-cell
tabular-row = tabular-cell ⋯
tabular-cell = ╔════════════════╗
║tabular-expr ...║
╚════════════════╝
style-cell = ╔═════════════════╗
║style-content ...║
╚═════════════════╝
style-content = #:style style-expr
| #:sep sep-expr
| #:ignore-first-row
style-expr : style?
sep-expr : (or/c block? content? #f)
tabular-expr : (or/c block? content?)
procedure
(make-readtable) -> readtable?
procedure
(2d-readtable-dispatch-proc char
port
source
line
column
position
/recursive
readtable) -> any/c
char : char?
port : input-port?
source : any/c
line : (or/c exact-positive-integer? #f)
column : (or/c exact-nonnegative-integer? #f)
position : (or/c exact-positive-integer? #f)
/recursive : (-> input-port? any/c (or/c readtable? #f) any/c)
readtable : (or/c #f readtable?)
procedure
(2d-lexer sub) -> lexer/c
sub : lexer/c
value
adjustable-chars : (listof char?)
value
double-barred-chars : (listof char?)
value
up-chars : (listof char?)
value
dn-chars : (listof char?)
value
lt-chars : (listof char?)
value
rt-chars : (listof char?)
|