Commit 07fcebde authored by david's avatar david

Revision: cxml--devel--1.0--patch-33

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Wed Feb  4 15:33:14 CET 2004
Standard-date: 2004-02-04 14:33:14 GMT
Modified-files: domtest.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-33
Summary: Aufruf von Setter-Methoden

Aufruf von Setter-Methoden
parent bd5f42eb
......@@ -287,8 +287,15 @@
`(,(intern-dom name) ,(%intern |obj|) ,@args)))))
(defun translate-get (call name)
(with-attributes (|var| |obj|) call
(maybe-setf (%intern |var|) `(,(intern-dom name) ,(%intern |obj|)))))
(with-attributes (|var| |value| |obj|) call
(cond
(|var| ;get
(maybe-setf (%intern |var|) `(,(intern-dom name) ,(%intern |obj|))))
(|value| ;set
`(setf (,(intern-dom name) ,(%intern |obj|))
,(parse-java-literal |value|)))
(t
(error "oops")))))
(defun translate-has-feature (element)
(with-attributes (|var| |feature| |version|) element
......
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