;; -*- clips -*-

(defclass aaa Aaa)
(deftemplate aaa (slot name)(slot count)(slot OBJECT))
(defclass bbb Bbb)
(deftemplate bbb (slot name)(slot count)(slot OBJECT))

(defrule cycle
        (aaa (name ?name) (count ?count&:(< ?count 100))(OBJECT ?aaa))
        ?b <- (bbb (name ?name) (count ?count&:(< ?count 1))(OBJECT ?bbb))
        =>
        (set ?aaa count (+ ?count 1))
        (retract ?b)
        (assert (bbb (name "bbb")(count 0))) 
        (printout t "count = " ?count crlf))

This rule only fires once. Since object aaa is changing [its count is being
updated] I would expect the rule to fire 100 times. How can I get the rule
to refresh itself and be put back on the agenda? 
[I'm trying to time assert/rule fire/retract cycles]

thanks
John Mela

---------------------------------------------------------------------
To unsubscribe, send the words 'unsubscribe jess-users [EMAIL PROTECTED]'
in the BODY of a message to [EMAIL PROTECTED], NOT to the
list (use your own address!) List problems? Notify [EMAIL PROTECTED]
---------------------------------------------------------------------

Reply via email to