Commit c1a07d3d authored by david's avatar david

Revision: cxml--devel--1.0--patch-89

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Mon Feb  9 14:38:33 CET 2004
Standard-date: 2004-02-09 13:38:33 GMT
Modified-files: xml/xml-parse.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-89
Summary: public-id und system-id der Entities uebergeben

public-id und system-id der Entities uebergeben
parent ab88aede
......@@ -1572,8 +1572,11 @@
;; XXX was ist mit notation-name?
(ecase (car def)
(:EXTERNAL
;; XXX hier fehlen public-id und system-id
(sax:unparsed-entity-declaration *handler* name nil nil nil))
(let ((id (second def)))
(ecase (car id)
(:PUBLIC
(sax:unparsed-entity-declaration
*handler* name (second id) (third id) nil)))))
(: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