Commit a8d2451a authored by david's avatar david
Browse files

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 @@
: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 @@
(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))
(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 @@
(setf id (p/external-id input t))
(p/S? 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)))
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