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

Modified Files: package.lisp xml-parse.lisp Log Message: parse-string in parse-rod umbenannt und exportiert

Date: Thu Dec 29 00:18:06 2005 Author: dlichteblau

Index: cxml/xml/package.lisp diff -u cxml/xml/package.lisp:1.9 cxml/xml/package.lisp:1.10 --- cxml/xml/package.lisp:1.9 Thu Dec 29 00:11:46 2005 +++ cxml/xml/package.lisp Thu Dec 29 00:18:05 2005 @@ -34,8 +34,7 @@

#:parse-file #:parse-stream - ;; XXX encoding is mis-handled by parse-string, don't export it - ;; #:parse-string + #:parse-rod #:parse-octets

#:make-octet-vector-sink

Index: cxml/xml/xml-parse.lisp diff -u cxml/xml/xml-parse.lisp:1.56 cxml/xml/xml-parse.lisp:1.57 --- cxml/xml/xml-parse.lisp:1.56 Tue Dec 27 21:01:19 2005 +++ cxml/xml/xml-parse.lisp Thu Dec 29 00:18:05 2005 @@ -3025,12 +3025,10 @@ (p/ext-subset zstream) (dtd *ctx*)))))

-(defun parse-string (string handler) - ;; XXX this function mis-handles encoding +(defun parse-rod (string handler) (parse-xstream (string->xstream string) handler))

(defun string->xstream (string) - ;; XXX encoding is mis-handled by this kind of stream (make-rod-xstream (string-rod string)))

(defclass octet-input-stream