Hello again,
Oops, I took a closer look at the run stack of Jess and compared it with what I get with Jess6a5, the Jess60FCS is not working the same as I previously thought it had.
 
Here is the stack from Jess6a5 where it works fine continuing from the last assert onwards:
==========================================================================
Jess> (batch config/rsntdomain/spe/spe.clp)
TRUE
Jess> (watch all)
TRUE
Jess> (bind ?*debug-mode* TRUE)
TRUE
Jess> (assert (enabled spe-component))
(assert (app (id 1) (resourceClass "node") (resourceInstanceId "1") (status "STA
TUS_UP")))
(assert (app (id 2) (resourceClass "node") (resourceInstanceId "2") (status "STA
TUS_UP")))
(assert (tier (id 10) (resourceClass "/tier") (resourceInstanceId "web") (status
 "STATUS_UNKNOWN")))
(assert (service (id 100) (resourceClass "/service")  (resourceInstanceId "tradi
ng") (status "STATUS_UNKNOWN")))
(assert (contains (containerId 10) (ids 1 2)))
(assert (containedBy (parentId 10) (childId 1)))
(assert (containedBy (parentId 10) (childId 2)))
(assert (contains (containerId 100) (ids 10)))
 ==> f-2 (enabled spe-component)
<Fact-2>
Jess>  ==> f-3 (app (id 1) (status "STATUS_UP") (admin-status nil) (resourceInst
anceId "1") (resourceClass "node") (statusRuleType 1))
<Fact-3>
Jess>  ==> f-4 (app (id 2) (status "STATUS_UP") (admin-status nil) (resourceInst
anceId "2") (resourceClass "node") (statusRuleType 1))
<Fact-4>
Jess>  ==> f-5 (tier (id 10) (status "STATUS_UNKNOWN") (admin-status nil) (resou
rceInstanceId "web") (resourceClass "/tier") (statusRuleType 1))
<Fact-5>
Jess>  ==> f-6 (service (id 100) (status "STATUS_UNKNOWN") (admin-status nil) (r
esourceInstanceId "trading") (resourceClass "/service") (statusRuleType 1))
<Fact-6>
Jess>  ==> f-7 (contains (containerId 10) (ids 1 2))
<Fact-7>
Jess>  ==> f-8 (containedBy (parentId 10) (childId 1))
<Fact-8>
Jess>  ==> f-9 (containedBy (parentId 10) (childId 2))
<Fact-9>
Jess>  ==> f-10 (contains (containerId 100) (ids 10))
<Fact-10>
Jess> (assert (containedBy (parentId 100) (childId 10)))
 ==> f-11 (containedBy (parentId 100) (childId 10))
 ==> f-12 (__query-trigger-search-for-object 1)
 <== f-12 (__query-trigger-search-for-object 1)
 ==> f-13 (__query-trigger-search-for-object 2)
 <== f-13 (__query-trigger-search-for-object 2)
==> Activation: entire-tier-is-up :  f-2, f-6, f-11, f-7, f-5, f-3, f-8,
 ==> f-14 (__query-trigger-search-for-object 1)
 <== f-14 (__query-trigger-search-for-object 1)
 ==> f-15 (__query-trigger-search-for-object 2)
 <== f-15 (__query-trigger-search-for-object 2)
==> Activation: entire-tier-is-up :  f-2, f-6, f-11, f-7, f-5, f-4, f-9,
 ==> f-16 (__query-trigger-search-for-object 1)
 <== f-16 (__query-trigger-search-for-object 1)
 ==> f-17 (__query-trigger-search-for-object 1)
 <== f-17 (__query-trigger-search-for-object 1)
 ==> f-18 (__query-trigger-search-for-object 2)
 <== f-18 (__query-trigger-search-for-object 2)
 ==> f-19 (__query-trigger-search-for-object 2)
 <== f-19 (__query-trigger-search-for-object 2)
 ==> f-20 (__query-trigger-search-for-object 1)
 <== f-20 (__query-trigger-search-for-object 1)
 ==> f-21 (__query-trigger-search-for-object 1)
 <== f-21 (__query-trigger-search-for-object 1)
 ==> f-22 (__query-trigger-search-for-object 2)
 <== f-22 (__query-trigger-search-for-object 2)
 ==> f-23 (__query-trigger-search-for-object 2)
 <== f-23 (__query-trigger-search-for-object 2)
<Fact-11>
Jess> (run)
FIRE 1 entire-tier-is-up f-2, f-6, f-11, f-7, f-5, f-4, f-9,
<== Activation: entire-tier-is-up :  f-2, f-6, f-11, f-7, f-5, f-3, f-8,
 

Reply via email to