Commit c01d9b87 authored by david's avatar david

Revision: cxml--devel--1.0--patch-87

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Mon Feb  9 14:17:32 CET 2004
Standard-date: 2004-02-09 13:17:32 GMT
Modified-files: xml/string-dom.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-87
Summary: public-id und system-id in string-dom aufgenommen

public-id und system-id in string-dom aufgenommen
parent c74b1b79
......@@ -7,7 +7,7 @@
(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:set-attribute cdom:public-id cdom:system-id))
:string-dom
:cdom))
(symbol (intern (symbol-name var) home-package)))
......@@ -46,3 +46,9 @@
(defun string-dom:set-attribute (elt name value)
(cdom:set-attribute elt (glisp:rod name) (glisp:rod value)))
(defun string-dom:public-id (node)
(rod-to-string (cdom:public-id node)))
(defun string-dom:system-id (node)
(rod-to-string (cdom:system-id node)))
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