[cxml-cvs] CVS update: cxml/xml/xml-parse.lisp

[David Lichteblau]

Update of /project/cxml/cvsroot/cxml/xml
In directory common-lisp.net:/tmp/cvs-serv12710/xml

Modified Files:
	xml-parse.lisp 
Log Message:
eof in cdata section pruefen

Date: Sun Nov 27 13:13:52 2005
Author: dlichteblau

Index: cxml/xml/xml-parse.lisp
diff -u cxml/xml/xml-parse.lisp:1.22 cxml/xml/xml-parse.lisp:1.23
--- cxml/xml/xml-parse.lisp:1.22	Sun Nov 27 13:06:29 2005
+++ cxml/xml/xml-parse.lisp	Sun Nov 27 13:13:52 2005
@@ -1601,6 +1601,8 @@
       (tagbody
        state-1
         (setf d (read-rune input))
+	(when (eq d :eof)
+	  (eox input))
         (unless (data-rune-p d)
           (wf-error "Illegal char: ~S." d))
         (when (rune= d #/\]) (go state-2))
@@ -1608,6 +1610,8 @@
         (go state-1)
        state-2 ;; #/] seen
         (setf d (read-rune input))
+	(when (eq d :eof)
+	  (eox input))
         (unless (data-rune-p d)
           (wf-error "Illegal char: ~S." d))
         (when (rune= d #/\]) (go state-3))
@@ -1616,6 +1620,8 @@
         (go state-1)
        state-3 ;; #/\] #/\] seen
         (setf d (read-rune input))
+	(when (eq d :eof)
+	  (eox input))
         (unless (data-rune-p d)
           (wf-error "Illegal char: ~S." d))
         (when (rune= d #/>)