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>
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,
==> 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,
