Commit f55ccb88 authored by david's avatar david

Revision: cxml--devel--1.0--patch-90

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Mon Feb  9 15:15:11 CET 2004
Standard-date: 2004-02-09 14:15:11 GMT
Modified-files: xml/string-dom.lisp xml/xml-parse.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-90
Summary: notation-name in string-dom aufgenommen

notation-name in string-dom aufgenommen
parent c1a07d3d
......@@ -7,7 +7,8 @@
(if (member var '(cdom:data cdom:name cdom:value cdom:tag-name
cdom:node-name cdom:node-value
cdom:substring-data cdom:get-attribute
cdom:set-attribute cdom:public-id cdom:system-id))
cdom:set-attribute cdom:public-id cdom:system-id
cdom:notation-name))
:string-dom
:cdom))
(symbol (intern (symbol-name var) home-package)))
......@@ -52,3 +53,6 @@
(defun string-dom:system-id (node)
(rod-to-string (cdom:system-id node)))
(defun string-dom:notation-name (node)
(rod-to-string (cdom:notation-name node)))
......@@ -1572,11 +1572,11 @@
;; XXX was ist mit notation-name?
(ecase (car def)
(:EXTERNAL
(let ((id (second def)))
(destructuring-bind (id notation) (cdr def)
(ecase (car id)
(:PUBLIC
(sax:unparsed-entity-declaration
*handler* name (second id) (third id) nil)))))
*handler* name (second id) (third id) notation)))))
(:INTERNAL
(sax:unparsed-entity-declaration *handler* name nil nil nil))))
(p/S? input)
......
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