一、
CLIPS (Quicksilver Beta 09/24/07)
CLIPS> (clear)
CLIPS> (defmodule MAIN
(export deftemplate initial-fact))
CLIPS> (defmodule DETECTION
(import MAIN deftemplate initial-fact))
CLIPS> (defrule DETECTION::test
(declare (auto-focus TRUE))=>)
CLIPS> (watch focus)
CLIPS> (reset)
<== Focus DETECTION to MAIN
<== Focus MAIN
==> Focus MAIN
==> Focus DETECTION from MAIN
CLIPS>
二、(declare (auto-focus TRUE))=>),使当test
规则被触发时,模块被自动聚焦到DETECTION。
自动可以看到