This file is indexed.

/usr/share/doc/racket/xml/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
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
7311
((3) 0 () 21 ((q lib "xml/main.rkt") (q 1621 . 6) (q 0 . 6) (q 529 . 4) (q 281 . 5) (q lib "xml/private/xexpr-core.rkt") (q 1825 . 5) (q 2108 . 4) (q 1254 . 6) (q 2456 . 4) (q 2347 . 4) (q 971 . 4) (q lib "xml/path.rkt") (q 1446 . 6) (q 672 . 3) (q 786 . 6) (q 1072 . 5) (q lib "xml/plist.rkt") (q 2236 . 4) (q 2585 . 3) (q 414 . 4)) () (h ! (equal) ((c def c (c (? . 0) q make-document-type)) c (? . 15)) ((c def c (c (? . 5) q xml-encode-attribute)) q (4421 . 3)) ((c def c (c (? . 0) q eliminate-whitespace)) q (4492 . 5)) ((c def c (c (? . 0) q write-xml)) q (3240 . 4)) ((c def c (c (? . 0) q make-element)) c (? . 1)) ((c def c (c (? . 0) q struct:exn:invalid-xexpr)) c (? . 9)) ((c def c (c (? . 0) q external-dtd/system)) c (? . 14)) ((c def c (c (? . 0) q xexpr->string)) q (4289 . 3)) ((c def c (c (? . 0) q xml->xexpr)) q (4151 . 3)) ((c def c (c (? . 17) q plist-value?)) q (5602 . 3)) ((c def c (c (? . 0) q source-start)) c (? . 4)) ((c def c (c (? . 0) q entity?)) c (? . 7)) ((c def c (c (? . 0) q string->xexpr)) q (4357 . 3)) ((c def c (c (? . 0) q cdata?)) c (? . 10)) ((c def c (c (? . 0) q struct:element)) c (? . 1)) ((c def c (c (? . 0) q location-offset)) c (? . 2)) ((c def c (c (? . 0) q struct:location)) c (? . 2)) ((c def c (c (? . 0) q struct:document)) c (? . 13)) ((c def c (c (? . 0) q struct:external-dtd/public)) c (? . 3)) ((c def c (c (? . 0) q external-dtd/public)) c (? . 3)) ((c def c (c (? . 0) q element-content)) c (? . 1)) ((c def c (c (? . 0) q html-empty-tags)) q (5108 . 2)) ((c def c (c (? . 0) q read-xml/document)) q (2846 . 3)) ((c def c (c (? . 0) q prolog?)) c (? . 8)) ((c def c (c (? . 0) q attribute?)) c (? . 6)) ((c def c (c (? . 0) q element?)) c (? . 1)) ((c def c (c (? . 0) q source-stop)) c (? . 4)) ((c def c (c (? . 0) q make-external-dtd/public)) c (? . 3)) ((c def c (c (? . 0) q comment)) c (? . 11)) ((c def c (c (? . 0) q syntax:read-xml/element)) q (3137 . 3)) ((c def c (c (? . 5) q correct-xexpr?)) q (4741 . 5)) ((c def c (c (? . 0) q make-attribute)) c (? . 6)) ((c def c (c (? . 0) q entity)) c (? . 7)) ((c def c (c (? . 0) q external-dtd/public-public)) c (? . 3)) ((c def c (c (? . 0) q prolog)) c (? . 8)) ((c def c (c (? . 0) q display-xml)) q (3492 . 4)) ((c def c (c (? . 0) q permissive/c)) q (2018 . 2)) ((c def c (c (? . 0) q make-exn:invalid-xexpr)) c (? . 9)) ((c def c (c (? . 0) q make-prolog)) c (? . 8)) ((c def c (c (? . 0) q cdata-string)) c (? . 10)) ((c def c (c (? . 5) q xexpr?)) q (2676 . 3)) ((c def c (c (? . 0) q struct:comment)) c (? . 11)) ((c def c (c (? . 12) q se-path?)) q (5890 . 2)) ((c def c (c (? . 0) q element-attributes)) c (? . 1)) ((c def c (c (? . 0) q make-cdata)) c (? . 10)) ((c def c (c (? . 5) q xexpr/c)) q (2728 . 2)) ((c def c (c (? . 0) q p-i-target-name)) c (? . 16)) ((c def c (c (? . 0) q location?)) c (? . 2)) ((c def c (c (? . 12) q se-path*/list)) q (5919 . 4)) ((c def c (c (? . 0) q read-comments)) q (5266 . 4)) ((c def c (c (? . 0) q read-xml/element)) q (2945 . 3)) ((c def c (c (? . 0) q content/c)) q (1988 . 2)) ((c def c (c (? . 0) q misc/c)) q (1227 . 2)) ((c def c (c (? . 0) q permissive-xexprs)) q (4057 . 4)) ((c def c (c (? . 0) q document)) c (? . 13)) ((c def c (c (? . 0) q document-element)) c (? . 13)) ((c def c (c (? . 0) q external-dtd)) c (? . 20)) ((c def c (c (? . 0) q prolog-misc2)) c (? . 8)) ((c def c (c (? . 0) q struct:entity)) c (? . 7)) ((c def c (c (? . 0) q external-dtd/system?)) c (? . 14)) ((c def c (c (? . 12) q se-path*)) q (6010 . 4)) ((c def c (c (? . 0) q comment?)) c (? . 11)) ((c def c (c (? . 0) q cdata)) c (? . 10)) ((c def c (c (? . 0) q syntax:read-xml)) q (3042 . 3)) ((c def c (c (? . 0) q document-type-inlined)) c (? . 15)) ((c def c (c (? . 0) q exn:xml?)) c (? . 19)) ((c def c (c (? . 0) q make-comment)) c (? . 11)) ((c def c (c (? . 0) q source)) c (? . 4)) ((c def c (c (? . 0) q document-type-name)) c (? . 15)) ((c def c (c (? . 0) q entity-text)) c (? . 7)) ((c def c (c (? . 0) q exn:invalid-xexpr)) c (? . 9)) ((c def c (c (? . 0) q exn:invalid-xexpr?)) c (? . 9)) ((c def c (c (? . 0) q xml-count-bytes)) q (5368 . 4)) ((c def c (c (? . 0) q struct:document-type)) c (? . 15)) ((c def c (c (? . 0) q element-name)) c (? . 1)) ((c def c (c (? . 0) q struct:p-i)) c (? . 16)) ((c def c (c (? . 0) q write-xml/content)) q (3358 . 4)) ((c def c (c (? . 0) q location-char)) c (? . 2)) ((c def c (c (? . 0) q make-location)) c (? . 2)) ((c def c (c (? . 17) q read-plist)) q (5725 . 3)) ((c def c (c (? . 0) q p-i-instruction)) c (? . 16)) ((c def c (c (? . 0) q collapse-whitespace)) q (5152 . 4)) ((c def c (c (? . 0) q pcdata-string)) c (? . 18)) ((c def c (c (? . 0) q element)) c (? . 1)) ((c def c (c (? . 0) q document-prolog)) c (? . 13)) ((c def c (c (? . 0) q attribute-value)) c (? . 6)) ((c def c (c (? . 0) q location)) c (? . 2)) ((c def c (c (? . 0) q document-misc)) c (? . 13)) ((c def c (c (? . 0) q make-p-i)) c (? . 16)) ((c def c (c (? . 0) q external-dtd/public?)) c (? . 3)) ((c def c (c (? . 17) q write-plist)) q (5793 . 4)) ((c def c (c (? . 0) q read-xml)) q (2756 . 3)) ((c def c (c (? . 0) q exn:invalid-xexpr-code)) c (? . 9)) ((c def c (c (? . 0) q location-line)) c (? . 2)) ((c def c (c (? . 17) q plist-dict?)) q (5664 . 3)) ((c def c (c (? . 0) q document-type?)) c (? . 15)) ((c def c (c (? . 0) q make-pcdata)) c (? . 18)) ((c def c (c (? . 0) q p-i)) c (? . 16)) ((c def c (c (? . 0) q prolog-misc)) c (? . 8)) ((c def c (c (? . 0) q struct:attribute)) c (? . 6)) ((c def c (c (? . 0) q make-document)) c (? . 13)) ((c def c (c (? . 0) q xexpr-drop-empty-attributes)) q (5480 . 4)) ((c def c (c (? . 0) q p-i?)) c (? . 16)) ((c def c (c (? . 0) q document-type)) c (? . 15)) ((c def c (c (? . 0) q pcdata?)) c (? . 18)) ((c def c (c (? . 0) q pcdata)) c (? . 18)) ((c def c (c (? . 0) q attribute)) c (? . 6)) ((c def c (c (? . 0) q struct:external-dtd/system)) c (? . 14)) ((c def c (c (? . 0) q document?)) c (? . 13)) ((c def c (c (? . 0) q display-xml/content)) q (3612 . 4)) ((c def c (c (? . 5) q struct:exn:xml)) c (? . 19)) ((c def c (c (? . 0) q external-dtd?)) c (? . 20)) ((c def c (c (? . 0) q source?)) c (? . 4)) ((c def c (c (? . 0) q xexpr->xml)) q (4222 . 3)) ((c def c (c (? . 0) q struct:pcdata)) c (? . 18)) ((c def c (c (? . 0) q location/c)) q (250 . 2)) ((c def c (c (? . 0) q comment-text)) c (? . 11)) ((c def c (c (? . 0) q prolog-dtd)) c (? . 8)) ((c def c (c (? . 5) q validate-xexpr)) q (4687 . 3)) ((c def c (c (? . 0) q external-dtd-system)) c (? . 20)) ((c def c (c (? . 0) q empty-tag-shorthand)) q (4898 . 5)) ((c def c (c (? . 0) q struct:external-dtd)) c (? . 20)) ((c def c (c (? . 5) q make-exn:xml)) c (? . 19)) ((c def c (c (? . 0) q make-source)) c (? . 4)) ((c def c (c (? . 0) q struct:prolog)) c (? . 8)) ((c def c (c (? . 5) q exn:xml)) c (? . 19)) ((c def c (c (? . 0) q document-type-external)) c (? . 15)) ((c def c (c (? . 0) q make-external-dtd)) c (? . 20)) ((c def c (c (? . 0) q make-external-dtd/system)) c (? . 14)) ((c def c (c (? . 0) q write-xexpr)) q (3748 . 7)) ((c def c (c (? . 0) q attribute-name)) c (? . 6)) ((c def c (c (? . 0) q struct:cdata)) c (? . 10)) ((c def c (c (? . 0) q make-entity)) c (? . 7)) ((c def c (c (? . 0) q struct:source)) c (? . 4)) ((c def c (c (? . 0) q valid-char?)) q (2051 . 3))))
struct
(struct location (line char offset)
    #:extra-constructor-name make-location)
  line : (or/c false/c exact-nonnegative-integer?)
  char : (or/c false/c exact-nonnegative-integer?)
  offset : exact-nonnegative-integer?
value
location/c : contract?
struct
(struct source (start stop)
    #:extra-constructor-name make-source)
  start : location/c
  stop : location/c
struct
(struct external-dtd (system)
    #:extra-constructor-name make-external-dtd)
  system : string?
struct
(struct external-dtd/public external-dtd (public)
    #:extra-constructor-name make-external-dtd/public)
  public : string?
struct
(struct external-dtd/system external-dtd ()
    #:extra-constructor-name make-external-dtd/system)
struct
(struct document-type (name external inlined)
    #:extra-constructor-name make-document-type)
  name : symbol?
  external : external-dtd?
  inlined : false/c
struct
(struct comment (text)
    #:extra-constructor-name make-comment)
  text : string?
struct
(struct p-i source (target-name instruction)
    #:extra-constructor-name make-p-i)
  target-name : symbol?
  instruction : string?
value
misc/c : contract?
struct
(struct prolog (misc dtd misc2)
    #:extra-constructor-name make-prolog)
  misc : (listof misc/c)
  dtd : (or/c document-type false/c)
  misc2 : (listof misc/c)
struct
(struct document (prolog element misc)
    #:extra-constructor-name make-document)
  prolog : prolog?
  element : element?
  misc : (listof misc/c)
struct
(struct element source (name attributes content)
    #:extra-constructor-name make-element)
  name : symbol?
  attributes : (listof attribute?)
  content : (listof content/c)
struct
(struct attribute source (name value)
    #:extra-constructor-name make-attribute)
  name : symbol?
  value : (or/c string? permissive/c)
value
content/c : contract?
value
permissive/c : contract?
procedure
(valid-char? x) -> boolean?
  x : any/c
struct
(struct entity source (text)
    #:extra-constructor-name make-entity)
  text : (or/c symbol? valid-char?)
struct
(struct pcdata source (string)
    #:extra-constructor-name make-pcdata)
  string : string?
struct
(struct cdata source (string)
    #:extra-constructor-name make-cdata)
  string : string?
struct
(struct exn:invalid-xexpr exn:fail (code)
    #:extra-constructor-name make-exn:invalid-xexpr)
  code : any/c
struct
(struct exn:xml exn:fail:read ()
    #:extra-constructor-name make-exn:xml)
procedure
(xexpr? v) -> boolean?
  v : any/c
value
xexpr/c : contract?
procedure
(read-xml [in]) -> document?
  in : input-port? = (current-input-port)
procedure
(read-xml/document [in]) -> document?
  in : input-port? = (current-input-port)
procedure
(read-xml/element [in]) -> element?
  in : input-port? = (current-input-port)
procedure
(syntax:read-xml [in]) -> syntax?
  in : input-port? = (current-input-port)
procedure
(syntax:read-xml/element [in]) -> syntax?
  in : input-port? = (current-input-port)
procedure
(write-xml doc [out]) -> void?
  doc : document?
  out : output-port? = (current-output-port)
procedure
(write-xml/content content [out]) -> void?
  content : content/c
  out : output-port? = (current-output-port)
procedure
(display-xml doc [out]) -> void?
  doc : document?
  out : output-port? = (current-output-port)
procedure
(display-xml/content content [out]) -> void?
  content : content/c
  out : output-port? = (current-output-port)
procedure
(write-xexpr  xe                                        
             [out                                       
              #:insert-newlines? insert-newlines?]) -> void?
  xe : xexpr/c
  out : output-port? = (current-output-port)
  insert-newlines? : any/c = #f
parameter
(permissive-xexprs) -> boolean?
(permissive-xexprs v) -> void?
  v : any/c
procedure
(xml->xexpr content) -> xexpr/c
  content : content/c
procedure
(xexpr->xml xexpr) -> content/c
  xexpr : xexpr/c
procedure
(xexpr->string xexpr) -> string?
  xexpr : xexpr/c
procedure
(string->xexpr str) -> xexpr/c
  str : string?
procedure
(xml-encode-attribute str) -> string?
  str : string?
procedure
((eliminate-whitespace [tags choose]) elem) -> element?
  tags : (listof symbol?) = empty
  choose : (boolean? . -> . boolean?) = (λ (x) x)
  elem : element?
procedure
(validate-xexpr v) -> #t
  v : any/c
procedure
(correct-xexpr? v success-k fail-k) -> any/c
  v : any/c
  success-k : (-> any/c)
  fail-k : (exn:invalid-xexpr? . -> . any/c)
parameter
(empty-tag-shorthand)
 -> (or/c (one-of/c 'always 'never) (listof symbol?))
(empty-tag-shorthand shorthand) -> void?
  shorthand : (or/c (one-of/c 'always 'never) (listof symbol?))
value
html-empty-tags : (listof symbol?)
parameter
(collapse-whitespace) -> boolean?
(collapse-whitespace collapse?) -> void?
  collapse? : any/c
parameter
(read-comments) -> boolean?
(read-comments preserve?) -> void?
  preserve? : any/c
parameter
(xml-count-bytes) -> boolean?
(xml-count-bytes count-bytes?) -> void?
  count-bytes? : any/c
parameter
(xexpr-drop-empty-attributes) -> boolean?
(xexpr-drop-empty-attributes drop?) -> void?
  drop? : any/c
procedure
(plist-value? any/c) -> boolean?
  any/c : v
procedure
(plist-dict? any/c) -> boolean?
  any/c : v
procedure
(read-plist in) -> plist-value?
  in : input-port?
procedure
(write-plist dict out) -> void?
  dict : plist-value?
  out : output-port?
value
se-path? : contract?
procedure
(se-path*/list p xe) -> (listof any/c)
  p : se-path?
  xe : xexpr?
procedure
(se-path* p xe) -> any/c
  p : se-path?
  xe : xexpr?