CODEWITHSUNDEEP
clips
SSD
SSD

Reputation: 369

How to printout all matches facts in a rule

I have a rule like below and I want to print all facts(here objct) that are compatible to this rule. I have a fact objct and there are some of these "objct"s that follow the rule. how I can do it? The printout below just prints the latest objct that player got. However I want to printout all of them. Any idea?

(defrule have_objcts   
?input <- (input have|possession)
   (objct (name ?n) (location player) (used 0))
   =>          
 ;WHAT SHOULD I WRITE HERE TO PRINTOUT those OBJCT's BELONG TO 
PALYER???????????
 (printout t crlf ?n)
   (retract ?input))

Upvotes: 0

Views: 457

Answers (1)

Gary Riley
Gary Riley

Reputation: 10757

Use the matches command:

CLIPS> 
(deftemplate objct
   (slot name)
   (slot location)
   (slot used))
CLIPS>    
(deffacts initial
   (objct (name x) (location player) (used 0))
   (objct (name y) (location elsewhere) (used 1))
   (objct (name z) (location player) (used 0))
   (input have)
   (input want)
   (input possession)
   (input thing))
CLIPS>    
(defrule have_objcts   
   ?input <- (input have|possession)
   (objct (name ?n) (location player) (used 0))
   =>       
   (retract ?input)) 
CLIPS> (reset)
CLIPS> (matches have_objcts)
Matches for Pattern 1
f-4
f-6
Matches for Pattern 2
f-1
f-3
Partial matches for CEs 1 - 2
f-6,f-3
f-6,f-1
f-4,f-3
f-4,f-1
Activations
f-6,f-3
f-6,f-1
f-4,f-3
f-4,f-1
(4 4 4)
CLIPS> (run)
CLIPS> (matches have_objcts)
Matches for Pattern 1
 None
Matches for Pattern 2
f-1
f-3
Partial matches for CEs 1 - 2
 None
Activations
 None
(2 0 0)
CLIPS>

Upvotes: 2

Related Questions