You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
73 lines
1.7 KiB
Racket
73 lines
1.7 KiB
Racket
#lang racket/base
|
|
(require sugar/define (prefix-in xml: xml) racket/match)
|
|
(provide (all-defined-out) cdata? cdata xexpr->string xexpr?)
|
|
|
|
; Section 2.2 of XML 1.1
|
|
; (XML 1.0 is slightly different and more restrictive)
|
|
(define (valid-char? i)
|
|
(and (exact-nonnegative-integer? i)
|
|
(or (<= #x1 i #xD7FF)
|
|
(<= #xE000 i #xFFFD)
|
|
(<= #x10000 i #x10FFFF))))
|
|
|
|
(define (xexpr? x)
|
|
(or (txexpr? x) (xml:xexpr? x) (valid-char? x)))
|
|
|
|
(define cdata xml:cdata)
|
|
(define cdata? xml:cdata?)
|
|
(define xexpr->string xml:xexpr->string)
|
|
|
|
(define (txexpr-short? x)
|
|
(match x
|
|
[(list (? symbol? name) (? xexpr?) ...) #t]
|
|
[else #f]))
|
|
|
|
(define (txexpr? x)
|
|
(or (txexpr-short? x)
|
|
(match x
|
|
[(list (? symbol?) (list (list (? symbol?) (? string?)) ...) (? xexpr?) ...) #t]
|
|
[else #f])))
|
|
|
|
(define (txexpr-tag? x)
|
|
(symbol? x))
|
|
|
|
(define (txexpr-tags? x)
|
|
(and (list? x) (andmap txexpr-tag? x)))
|
|
|
|
(define (txexpr-attr? x)
|
|
(match x
|
|
[(list (? symbol?) (? string?)) #t]
|
|
[else #f]))
|
|
|
|
|
|
(define (txexpr-attrs? x)
|
|
(and (list? x) (andmap txexpr-attr? x)))
|
|
|
|
(define (txexpr-element? x)
|
|
(xexpr? x))
|
|
|
|
(define (txexpr-elements? x)
|
|
(and (list? x) (andmap txexpr-element? x)))
|
|
|
|
(define (txexpr-attr-key? x)
|
|
(symbol? x))
|
|
|
|
(define (can-be-txexpr-attr-key? x)
|
|
(or (symbol? x) (string? x)))
|
|
|
|
(define (txexpr-attr-value? x)
|
|
(string? x))
|
|
|
|
(define (txexpr-attr-values? x)
|
|
(and (list? x) (andmap txexpr-attr-value? x)))
|
|
|
|
(define (can-be-txexpr-attr-value? x)
|
|
(or (symbol? x) (string? x)))
|
|
|
|
(define (can-be-txexpr-attrs? x)
|
|
(ormap (λ(test) (test x)) (list txexpr-attr? txexpr-attrs? can-be-txexpr-attr-key? can-be-txexpr-attr-value?)))
|
|
|
|
(define (list-of-can-be-txexpr-attrs? xs)
|
|
(and (list? xs) (andmap can-be-txexpr-attrs? xs)))
|
|
|