Commit b01d6d6f authored by david's avatar david

Revision: cxml--devel--1.0--patch-71

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Fri Feb  6 20:00:47 CET 2004
Standard-date: 2004-02-06 19:00:47 GMT
Modified-files: xml/xml-parse.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-71
Summary: hacked my resolve-entity function to return NIL for undefined entities

hacked my resolve-entity function to return NIL for undefined entities
parent 48f214a1
...@@ -2601,14 +2601,17 @@ ...@@ -2601,14 +2601,17 @@
;;; XXX FIXME ;;; XXX FIXME
(defun resolve-entity (name entities) (defun resolve-entity (name entities)
(let ((*handler* (make-instance 'dom-impl::dom-builder)) (if (assoc (list :general name) entities :test #'equalp) ;XXX
(*namespace-bindings* *default-namespace-bindings*) (let ((*handler* (make-instance 'dom-impl::dom-builder))
(*entities* entities) (*namespace-bindings* *default-namespace-bindings*)
(*dtd* (make-dtd))) (*entities* entities)
(declare (special *namespace-bindings*)) ;forward declaration for DEFVAR (*dtd* (make-dtd)))
(sax:start-document *handler*)
(ff (rod name)) (declare (special *namespace-bindings*)) ;forward declaration for DEFVAR
(dom:child-nodes (sax:end-document *handler*)))) (sax:start-document *handler*)
(ff (rod name))
(dom:child-nodes (sax:end-document *handler*)))
nil))
(defun read-att-value-2 (input) (defun read-att-value-2 (input)
(let ((delim (read-rune input))) (let ((delim (read-rune 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