Commit 291513b3 authored by david's avatar david

Revision: cxml--devel--1.0--patch-93

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Mon Feb  9 16:09:39 CET 2004
Standard-date: 2004-02-09 15:09:39 GMT
Modified-files: domtest.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-93
Summary: <or>

<or>
parent 37aad758
......@@ -181,6 +181,7 @@
("isNull" (translate-is-null element))
("not" (translate-is-null element))
("notNull" (translate-not-null element))
("or" (translate-or element))
("same" (translate-same element))
(t (error "unknown condition: ~A" element))))
......@@ -201,6 +202,9 @@
(with-attributes (|actual| |expected|) element
`(eql ,(%intern actual) ,(parse-java-literal expected))))
(defun translate-or (element)
`(or ,@(map-child-elements 'list #'translate-condition element)))
(defun translate-instance-of (element)
(with-attributes (|obj| |type|) element
`(eq (dom:node-type ,(%intern |obj|))
......@@ -460,7 +464,10 @@
(defun translate-assert-true (element)
(with-attributes (|actual|) element
`(assert ,(%intern |actual|))))
`(assert ,(if |actual|
(%intern |actual|)
(translate-condition
(do-child-elements (c element) (return c)))))))
(defun translate-assert-false (element)
(with-attributes (|actual|) 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