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

HAX namespace stuff

Browse Source 
* xml/sax-handler.lisp (HAX:START-ELEMENT, HAX:END-ELEMENT):
	Declare and undeclare the xhtml namespace on elements called
	"HTML".
This commit is contained in:
dlichteblau
2007-10-14 20:19:35 +00:00
parent 378af1f38a
commit cdbe1682b7
1 changed files with 12 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
xml/sax-handler.lisp
View File

@ -429,6 +429,15 @@ Setting this variable has no effect unless both
(defmethod hax:start-element ((handler abstract-handler) name attributes) (defmethod hax:start-element ((handler abstract-handler) name attributes)
(setf name (runes:rod-downcase name)) (setf name (runes:rod-downcase name))
(when (equal name "html")
(sax:start-prefix-mapping handler "" "http://www.w3.org/1999/xhtml")
(when *include-xmlns-attributes*
(push (make-attribute :namespace-uri "http://www.w3.org/2000/xmlns/"
:local-name nil
:qname "xmlns"
:value "http://www.w3.org/1999/xhtml"
:specified-p t)
attributes)))
(sax:start-element handler (sax:start-element handler
"http://www.w3.org/1999/xhtml" "http://www.w3.org/1999/xhtml"
name name
@ -440,7 +449,9 @@ Setting this variable has no effect unless both
(sax:end-element handler (sax:end-element handler
"http://www.w3.org/1999/xhtml" "http://www.w3.org/1999/xhtml"
name name
name)) name)
(when (equal name "html")
(sax:end-prefix-mapping handler "")))
(defmethod hax:characters ((handler abstract-handler) data) (defmethod hax:characters ((handler abstract-handler) data)
(sax:characters handler data)) (sax:characters handler data))