Commit a8d2451a authored by david's avatar david

Revision: cxml--devel--1.0--patch-82

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Mon Feb  9 11:53:08 CET 2004
Standard-date: 2004-02-09 10:53:08 GMT
Modified-files: xml/dom-builder.lisp xml/sax-handler.lisp
    xml/xml-parse.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-82
Summary: dom:notations fuellen

dom:notations fuellen
parent bf47a620
......@@ -90,3 +90,11 @@
:public-id public-id
:system-id system-id
:notation-name notation-name)))
(defmethod sax:notation-declaration
((handler dom-builder) name public-id system-id)
(dom:set-named-item (dom:notations (dom:doctype (document handler)))
(make-instance 'dom-impl::notation
:name name
:public-id public-id
:system-id system-id)))
......@@ -71,7 +71,8 @@
#:end-cdata
#:start-dtd
#:end-dtd
#:unparsed-entity-declaration))
#:unparsed-entity-declaration
#:notation-declaration))
(in-package :sax)
......@@ -250,3 +251,11 @@ other textual content.")
(:method ((handler t) name public-id system-id notation-name)
(declare (ignore name public-id system-id notation-name))
nil))
(defgeneric notation-declaration
(handler name public-id system-id)
(:documentation
"Called when a notation declaration is seen while parsing a DTD.")
(:method ((handler t) name public-id system-id)
(declare (ignore name public-id system-id))
nil))
......@@ -1772,6 +1772,12 @@
(setf id (p/external-id input t))
(p/S? input)
(expect input :\>)
(case (car id)
;; XXX are these right?
(:SYSTEM
(sax:notation-declaration *handler* name nil (cadr id)))
(:PUBLIC
(sax:notation-declaration *handler* name (cadr id) (caddr id))))
(list :notation-decl name id)))
;;;
......
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