I have theoretcial class structure of:

interface object.Shape

object.Circle implements shape
object.Square implements shape

And I have rules:

(defrule find-square
  (object.Square)
=>
  (printout t "Square" crlf)
)

(defrule find-circle
  (object.Circle)
=>
  (printout t "Circle" crlf)
)


What I'd really like to do is:


(defrule find-shape
  ?f <-(object.Shape)=>
  (printout t (call ?f getType) crlf) )


Except that I can't seem to match on an interface.


Any help would be appreciated.

-m

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