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

-xmltest/not-wf/sa/170.xml [not validating:] FAILED:

Browse Source 
-  well-formedness violation not detected
-[
-    Four byte UTF-8 encodings can encode UCS-4 characters
-    which are beyond the range of legal XML characters
-    (and can't be expressed in Unicode surrogate pairs).
-    This document holds such a character.  ]
This commit is contained in:
dlichteblau
2005-11-27 17:34:22 +00:00
parent 11f2514116
commit b95f1ef093
2 changed files with 6 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
XMLCONF
View File

@ -167,13 +167,7 @@ xmltest/not-wf/sa/166.xml [not validating:] not-wf [validating:] invalid
xmltest/not-wf/sa/167.xml [not validating:] not-wf [validating:] invalid
xmltest/not-wf/sa/168.xml [not validating:] not-wf [validating:] invalid
xmltest/not-wf/sa/169.xml [not validating:] not-wf [validating:] invalid
xmltest/not-wf/sa/170.xml [not validating:] FAILED:
well-formedness violation not detected
[
Four byte UTF-8 encodings can encode UCS-4 characters
which are beyond the range of legal XML characters
(and can't be expressed in Unicode surrogate pairs).
This document holds such a character. ]
xmltest/not-wf/sa/170.xml [not validating:] not-wf [validating:] invalid
xmltest/not-wf/sa/171.xml [not validating:] FAILED:
well-formedness violation not detected
[
@ -1862,4 +1856,4 @@ ibm/valid/P86/ibm86v01.xml [not validating:] input [validating:] input
ibm/valid/P87/ibm87v01.xml [not validating:] input [validating:] input
ibm/valid/P88/ibm88v01.xml [not validating:] input [validating:] input
ibm/valid/P89/ibm89v01.xml [not validating:] input [validating:] input
15/1786 tests failed; 376 tests were skipped
14/1786 tests failed; 376 tests were skipped

6
runes/encodings.lisp
View File

@ -160,8 +160,10 @@
`((lambda (x)
(when (or (<= #xD800 x #xDBFF)
(<= #xDC00 x #xDFFF))
(xerror "surrogate encoded in UTF-8: #x~x." x))
(cond ((%> x #xFFFF)
(xerror "surrogate encoded in UTF-8: #x~X." x))
(cond ((%> x #x10FFFF)
(xerror "not a valid code point: #x~X" x))
((%> x #xFFFF)
(setf (aref out (%+ 0 wptr)) (%+ #xD7C0 (ash x -10))
(aref out (%+ 1 wptr)) (%ior #xDC00 (%and x #x3FF)))
(setf wptr (%+ wptr 2)))