Commit 1ace60cb authored by david's avatar david

Revision: cxml--devel--1.0--patch-65

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Fri Feb  6 17:27:52 CET 2004
Standard-date: 2004-02-06 16:27:52 GMT
New-files: xml/.arch-ids/characters.lisp.id
    xml/characters.lisp
Modified-files: cxml.asd xml/dom-impl.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-65
Summary: verify attribute name syntax in createAttribute

verify attribute name syntax in createAttribute
parent bdba0f42
......@@ -49,7 +49,8 @@
(:file "encodings-data" :depends-on ("package" "encodings"))
(:file "sax-handler")
(:file "dompack")
(:file "dom-impl" :depends-on ("package" "dompack"))
(:file "characters" :depends-on ("package"))
(:file "dom-impl" :depends-on ("package" "dompack" "characters"))
(:file "dom-builder" :depends-on ("package" "dom-impl" "sax-handler"))
(:file "xml-stream" :depends-on ("package"))
(:file "xml-name-rune-p" :depends-on ("package"))
......
......@@ -164,6 +164,8 @@
(defmethod dom:create-attribute ((document document) name)
(setf name (rod name))
(unless (xml::valid-name-p name)
(dom-error :INVALID_CHARACTER_ERR "not a name: ~A" (rod-string name)))
(make-instance 'attribute
:name name
:value ""
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment