8064
#hash(((def ((lib "xml/main.rkt") prolog-misc2)) . ((1236 . 6))) ((def ((lib "xml/main.rkt") p-i?)) . ((1052 . 5))) ((def ((lib "xml/main.rkt") write-xml/content)) . ((3358 . 4))) ((def ((lib "xml/main.rkt") external-dtd-system)) . ((384 . 4))) ((def ((lib "xml/main.rkt") struct:prolog)) . ((1236 . 6))) ((def ((lib "xml/main.rkt") display-xml/content)) . ((3612 . 4))) ((def ((lib "xml/main.rkt") content/c)) . ((1978 . 2))) ((def ((lib "xml/main.rkt") struct:external-dtd/system)) . ((646 . 3))) ((def ((lib "xml/main.rkt") pcdata-string)) . ((2228 . 4))) ((def ((lib "xml/main.rkt") prolog-dtd)) . ((1236 . 6))) ((def ((lib "xml/main.rkt") permissive/c)) . ((2008 . 2))) ((def ((lib "xml/main.rkt") make-prolog)) . ((1236 . 6))) ((def ((lib "xml/main.rkt") empty-tag-shorthand)) . ((4646 . 5))) ((def ((lib "xml/main.rkt") location/c)) . ((218 . 2))) ((def ((lib "xml/main.rkt") make-comment)) . ((949 . 4))) ((def ((lib "xml/main.rkt") make-pcdata)) . ((2228 . 4))) ((def ((lib "xml/main.rkt") make-external-dtd/public)) . ((501 . 4))) ((def ((lib "xml/main.rkt") xml->xexpr)) . ((3958 . 3))) ((def ((lib "xml/main.rkt") location?)) . ((0 . 6))) ((def ((lib "xml/main.rkt") display-xml)) . ((3492 . 4))) ((def ((lib "xml/path.rkt") se-path*)) . ((5646 . 4))) ((def ((lib "xml/main.rkt") prolog?)) . ((1236 . 6))) ((def ((lib "xml/main.rkt") html-empty-tags)) . ((4856 . 2))) ((def ((lib "xml/main.rkt") exn:invalid-xexpr-code)) . ((2452 . 4))) ((def ((lib "xml/main.rkt") attribute-name)) . ((1813 . 5))) ((def ((lib "xml/main.rkt") pcdata)) . ((2228 . 4))) ((def ((lib "xml/main.rkt") external-dtd/public?)) . ((501 . 4))) ((def ((lib "xml/main.rkt") pcdata?)) . ((2228 . 4))) ((def ((lib "xml/private/xexpr-core.rkt") struct:exn:xml)) . ((2583 . 3))) ((def ((lib "xml/main.rkt") document-type-name)) . ((762 . 6))) ((def ((lib "xml/main.rkt") collapse-whitespace)) . ((4900 . 4))) ((def ((lib "xml/main.rkt") prolog-misc)) . ((1236 . 6))) ((def ((lib "xml/main.rkt") external-dtd)) . ((384 . 4))) ((def ((lib "xml/main.rkt") comment?)) . ((949 . 4))) ((def ((lib "xml/main.rkt") valid-char?)) . ((2041 . 3))) ((def ((lib "xml/main.rkt") external-dtd/public-public)) . ((501 . 4))) ((def ((lib "xml/main.rkt") make-location)) . ((0 . 6))) ((def ((lib "xml/main.rkt") struct:document-type)) . ((762 . 6))) ((def ((lib "xml/main.rkt") read-comments)) . ((5014 . 4))) ((def ((lib "xml/path.rkt") se-path?)) . ((5526 . 2))) ((def ((lib "xml/main.rkt") struct:document)) . ((1430 . 6))) ((def ((lib "xml/main.rkt") external-dtd?)) . ((384 . 4))) ((def ((lib "xml/main.rkt") external-dtd/system)) . ((646 . 3))) ((def ((lib "xml/main.rkt") struct:pcdata)) . ((2228 . 4))) ((def ((lib "xml/main.rkt") struct:external-dtd/public)) . ((501 . 4))) ((def ((lib "xml/private/xexpr-core.rkt") xexpr/c)) . ((2728 . 2))) ((def ((lib "xml/plist.rkt") write-plist)) . ((5429 . 4))) ((def ((lib "xml/main.rkt") make-entity)) . ((2098 . 4))) ((def ((lib "xml/main.rkt") entity-text)) . ((2098 . 4))) ((def ((lib "xml/main.rkt") document)) . ((1430 . 6))) ((def ((lib "xml/main.rkt") element-name)) . ((1607 . 6))) ((def ((lib "xml/main.rkt") make-external-dtd)) . ((384 . 4))) ((def ((lib "xml/main.rkt") entity)) . ((2098 . 4))) ((def ((lib "xml/main.rkt") document-type-external)) . ((762 . 6))) ((def ((lib "xml/main.rkt") external-dtd/public)) . ((501 . 4))) ((def ((lib "xml/main.rkt") xexpr->xml)) . ((4029 . 3))) ((def ((lib "xml/main.rkt") document-type)) . ((762 . 6))) ((def ((lib "xml/main.rkt") struct:entity)) . ((2098 . 4))) ((def ((lib "xml/plist.rkt") plist-dict?)) . ((5300 . 3))) ((def ((lib "xml/main.rkt") make-cdata)) . ((2341 . 4))) ((def ((lib "xml/main.rkt") struct:p-i)) . ((1052 . 5))) ((def ((lib "xml/main.rkt") element-content)) . ((1607 . 6))) ((def ((lib "xml/main.rkt") comment-text)) . ((949 . 4))) ((def ((lib "xml/main.rkt") make-document-type)) . ((762 . 6))) ((def ((lib "xml/main.rkt") xexpr->string)) . ((4096 . 3))) ((def ((lib "xml/main.rkt") entity?)) . ((2098 . 4))) ((def ((lib "xml/main.rkt") source-stop)) . ((249 . 5))) ((def ((lib "xml/main.rkt") cdata-string)) . ((2341 . 4))) ((def ((lib "xml/main.rkt") cdata?)) . ((2341 . 4))) ((def ((lib "xml/main.rkt") read-xml)) . ((2756 . 3))) ((def ((lib "xml/main.rkt") p-i)) . ((1052 . 5))) ((def ((lib "xml/main.rkt") element?)) . ((1607 . 6))) ((def ((lib "xml/main.rkt") struct:comment)) . ((949 . 4))) ((def ((lib "xml/main.rkt") document?)) . ((1430 . 6))) ((def ((lib "xml/main.rkt") document-type-inlined)) . ((762 . 6))) ((def ((lib "xml/private/xexpr-core.rkt") exn:xml)) . ((2583 . 3))) ((def ((lib "xml/plist.rkt") read-plist)) . ((5361 . 3))) ((def ((lib "xml/main.rkt") string->xexpr)) . ((4164 . 3))) ((def ((lib "xml/main.rkt") struct:source)) . ((249 . 5))) ((def ((lib "xml/main.rkt") source?)) . ((249 . 5))) ((def ((lib "xml/main.rkt") struct:cdata)) . ((2341 . 4))) ((def ((lib "xml/main.rkt") cdata)) . ((2341 . 4))) ((def ((lib "xml/main.rkt") read-xml/document)) . ((2846 . 3))) ((def ((lib "xml/main.rkt") p-i-target-name)) . ((1052 . 5))) ((def ((lib "xml/main.rkt") element-attributes)) . ((1607 . 6))) ((def ((lib "xml/path.rkt") se-path*/list)) . ((5555 . 4))) ((def ((lib "xml/main.rkt") document-element)) . ((1430 . 6))) ((def ((lib "xml/main.rkt") prolog)) . ((1236 . 6))) ((def ((lib "xml/main.rkt") source)) . ((249 . 5))) ((def ((lib "xml/main.rkt") source-start)) . ((249 . 5))) ((def ((lib "xml/main.rkt") make-source)) . ((249 . 5))) ((def ((lib "xml/main.rkt") syntax:read-xml)) . ((3042 . 3))) ((def ((lib "xml/main.rkt") read-xml/element)) . ((2945 . 3))) ((def ((lib "xml/main.rkt") document-prolog)) . ((1430 . 6))) ((def ((lib "xml/main.rkt") make-element)) . ((1607 . 6))) ((def ((lib "xml/main.rkt") make-document)) . ((1430 . 6))) ((def ((lib "xml/main.rkt") element)) . ((1607 . 6))) ((def ((lib "xml/main.rkt") attribute)) . ((1813 . 5))) ((def ((lib "xml/main.rkt") permissive-xexprs)) . ((3864 . 4))) ((def ((lib "xml/main.rkt") comment)) . ((949 . 4))) ((def ((lib "xml/main.rkt") exn:invalid-xexpr?)) . ((2452 . 4))) ((def ((lib "xml/main.rkt") syntax:read-xml/element)) . ((3137 . 3))) ((def ((lib "xml/private/xexpr-core.rkt") correct-xexpr?)) . ((4489 . 5))) ((def ((lib "xml/main.rkt") make-p-i)) . ((1052 . 5))) ((def ((lib "xml/main.rkt") struct:element)) . ((1607 . 6))) ((def ((lib "xml/main.rkt") document-misc)) . ((1430 . 6))) ((def ((lib "xml/main.rkt") document-type?)) . ((762 . 6))) ((def ((lib "xml/main.rkt") struct:location)) . ((0 . 6))) ((def ((lib "xml/main.rkt") write-xexpr)) . ((3748 . 4))) ((def ((lib "xml/main.rkt") struct:exn:invalid-xexpr)) . ((2452 . 4))) ((def ((lib "xml/main.rkt") struct:attribute)) . ((1813 . 5))) ((def ((lib "xml/main.rkt") make-exn:invalid-xexpr)) . ((2452 . 4))) ((def ((lib "xml/main.rkt") external-dtd/system?)) . ((646 . 3))) ((def ((lib "xml/private/xexpr-core.rkt") validate-xexpr)) . ((4423 . 3))) ((def ((lib "xml/main.rkt") location-line)) . ((0 . 6))) ((def ((lib "xml/main.rkt") location-offset)) . ((0 . 6))) ((def ((lib "xml/plist.rkt") plist-value?)) . ((5238 . 3))) ((def ((lib "xml/main.rkt") exn:xml?)) . ((2583 . 3))) ((def ((lib "xml/main.rkt") eliminate-whitespace)) . ((4228 . 5))) ((def ((lib "xml/main.rkt") location)) . ((0 . 6))) ((def ((lib "xml/main.rkt") attribute?)) . ((1813 . 5))) ((def ((lib "xml/main.rkt") exn:invalid-xexpr)) . ((2452 . 4))) ((def ((lib "xml/main.rkt") make-external-dtd/system)) . ((646 . 3))) ((def ((lib "xml/private/xexpr-core.rkt") xexpr?)) . ((2676 . 3))) ((def ((lib "xml/private/xexpr-core.rkt") make-exn:xml)) . ((2583 . 3))) ((def ((lib "xml/main.rkt") location-char)) . ((0 . 6))) ((def ((lib "xml/main.rkt") p-i-instruction)) . ((1052 . 5))) ((def ((lib "xml/main.rkt") write-xml)) . ((3240 . 4))) ((def ((lib "xml/main.rkt") xexpr-drop-empty-attributes)) . ((5116 . 4))) ((def ((lib "xml/main.rkt") struct:external-dtd)) . ((384 . 4))) ((def ((lib "xml/main.rkt") attribute-value)) . ((1813 . 5))) ((def ((lib "xml/main.rkt") misc/c)) . ((1209 . 2))) ((def ((lib "xml/main.rkt") make-attribute)) . ((1813 . 5))))
struct
(struct location (line char offset)
        #:extra-constructor-name make-location)
  line : exact-nonnegative-integer?
  char : 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]) -> void?
  xe : xexpr/c
  out : output-port? = (current-output-port)
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
((eliminate-whitespace [tags choose]) elem) -> element?
  tags : (listof symbol?) = empty
  choose : (boolean? . -> . boolean?) = (λ (x) x)
  elem : element?
procedure
(validate-xexpr v) -> (one-of/c #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
(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?
