OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

character range pruefen

Browse Source
This commit is contained in:
dlichteblau
2005-11-27 12:39:36 +00:00
parent 5378f023e3
commit d428a31245
2 changed files with 47 additions and 134 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
xml/xml-parse.lisp
View File

@ -1217,7 +1217,7 @@
(%put-unicode-char data collect)))))))
(t
(unread-rune c input)
(values :CDATA (read-cdata input))) ))))))))
(values :CDATA (read-cdata input)))))))))))
(defun read-pe-reference (zinput)
(let* ((input (car (zstream-input-stack zinput)))
@ -3158,6 +3158,18 @@
(defun read-cdata (input)
(read-data-until* ((lambda (rune)
(declare (type rune rune))
(when (or (and (%rune< rune #/U+0020)
(not (or (%rune= rune #/U+0009)
(%rune= rune #/U+000a)
(%rune= rune #/U+000d))))
;; Surrogates nicht ausschliessen, denn wir
;; haben ja UTF-16 Runen.
#+(or)
(and (%rune<= #/U+D800 rune)
(%rune< rune #/U+E000))
(%rune= rune #/U+FFFE)
(%rune= rune #/U+FFFF))
(wf-error "code point invalid: ~A" rune))
(or (%rune= rune #/<) (%rune= rune #/&)))
input
source start end)