Update of /project/closure/cvsroot/closure/src/gui In directory clnet:/tmp/cvs-serv9505/src/gui

Modified Files: clue-gui.lisp Log Message:

Use CXML's rune implementation and XML parser.

--- /project/closure/cvsroot/closure/src/gui/clue-gui.lisp 2005/03/13 18:01:37 1.3 +++ /project/closure/cvsroot/closure/src/gui/clue-gui.lisp 2006/12/29 21:29:27 1.4 @@ -115,7 +115,7 @@ ((member mime-type (list (netlib:find-mime-type "text/html"))) (sgml::parse-html input charset)) ((member mime-type (list (netlib:find-mime-type "text/xml"))) - (xml::parse-stream input)) + (cxml:parse-stream input (cxml-dom:make-dom-builder) :recode nil))

((or t #+NIL @@ -214,6 +214,10 @@ (serial :initarg :serial) (dumpee :initarg :dumpee :initform nil) ) )

+(defmethod runes::figure-encoding ((stream glisp:gstream)) + ;; For HTML iso-8859-1 is the default + (values (cxml::find-encoding :iso-8859-1) nil)) + (defmethod g/read-byte ((stream pb-stream) &optional (eof-error-p t) eof-value) (with-slots (nread ntotal proxee dumpee) stream (let ((res (g/read-byte proxee eof-error-p eof-value)))