Commit a8d2451a authored by david's avatar david

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

Creator: David Lichteblau <>
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
Summary: dom:notations fuellen

dom:notations fuellen
parent bf47a620
...@@ -90,3 +90,11 @@ ...@@ -90,3 +90,11 @@
:public-id public-id :public-id public-id
:system-id system-id :system-id system-id
:notation-name notation-name))) :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 @@ ...@@ -71,7 +71,8 @@
#:end-cdata #:end-cdata
#:start-dtd #:start-dtd
#:end-dtd #:end-dtd
#:unparsed-entity-declaration)) #:unparsed-entity-declaration
(in-package :sax) (in-package :sax)
...@@ -250,3 +251,11 @@ other textual content.") ...@@ -250,3 +251,11 @@ other textual content.")
(:method ((handler t) name public-id system-id notation-name) (:method ((handler t) name public-id system-id notation-name)
(declare (ignore name public-id system-id notation-name)) (declare (ignore name public-id system-id notation-name))
nil)) nil))
(defgeneric notation-declaration
(handler name public-id system-id)
"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))
...@@ -1772,6 +1772,12 @@ ...@@ -1772,6 +1772,12 @@
(setf id (p/external-id input t)) (setf id (p/external-id input t))
(p/S? input) (p/S? input)
(expect input :\>) (expect input :\>)
(case (car id)
;; XXX are these right?
(sax:notation-declaration *handler* name nil (cadr id)))
(sax:notation-declaration *handler* name (cadr id) (caddr id))))
(list :notation-decl name 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