Commit 5f9519a2 authored by david's avatar david

Revision: cxml--devel--1.0--patch-4

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Thu Jan  8 22:54:29 CET 2004
Standard-date: 2004-01-08 21:54:29 GMT
New-files: xml/.arch-ids/string-dom.lisp.id
    xml/string-dom.lisp
Modified-files: cxml.asd xml/dom-builder.lisp
    xml/dom-impl.lisp xml/package.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-4
Summary: renamed dom to cdom, added string-dom
Keywords:

  - renamed package dom to cdom
  - use cl-package-aliases to access the package under the name "dom" anyway
  - added string-dom, which wraps around cdom and converts rods to strings
  - fixed import-node in dom-impl
parent 87469da2
......@@ -44,15 +44,17 @@
"xml/"
(make-pathname :name nil :type nil :defaults *load-truename*))
:components
((:file "package")
((:file "package" :depends-on ("dompack"))
(:file "encodings" :depends-on ("package"))
(:file "encodings-data" :depends-on ("package" "encodings"))
(:file "sax-handler")
(:file "dompack" :depends-on ("package"))
(:file "dompack")
(:file "dom-impl" :depends-on ("dompack"))
(:file "dom-builder" :depends-on ("dom-impl" "sax-handler"))
(:file "xml-stream" :depends-on ("package"))
(:file "xml-name-rune-p" :depends-on ("package"))
(:file "xml-parse" :depends-on ("package" "dompack" "sax-handler"))
(:file "xml-canonic" :depends-on ("package" "dompack" "xml-parse")))
:depends-on (:glisp))
(:file "xml-canonic" :depends-on ("package" "dompack" "xml-parse"))
#+(and allegro ics)
(:file "string-dom" :depends-on ("dom-impl")))
:depends-on (:cl-package-aliases :glisp))
......@@ -22,10 +22,10 @@
(defmethod sax:start-element ((handler dom-builder) namespace-uri local-name qname attributes)
(with-slots (document element-stack) handler
(let ((element (dom:create-element document qname))
(let ((element (cdom:create-element document qname))
(parent (car element-stack)))
(dolist (attr attributes)
(dom:set-attribute element (xml::attribute-qname attr) (xml::attribute-value attr)))
(cdom:set-attribute element (xml::attribute-qname attr) (xml::attribute-value attr)))
(setf (slot-value element 'dom-impl::parent) parent)
(push element (slot-value parent 'dom-impl::children))
(push element element-stack))))
......@@ -37,10 +37,10 @@
(defmethod sax:characters ((handler dom-builder) data)
(with-slots (document element-stack) handler
(let ((node (dom:create-text-node document data)))
(let ((node (cdom:create-text-node document data)))
(push node (slot-value (car element-stack) 'dom-impl::children)))))
(defmethod sax:processing-instruction ((handler dom-builder) target data)
(with-slots (document element-stack) handler
(let ((node (dom:create-processing-instruction document target data)))
(let ((node (cdom:create-processing-instruction document target data)))
(push node (slot-value (car element-stack) 'dom-impl::children)))))
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