;; $Id: jess.clp,v 1.1 2001/03/24 07:42:51 mdean Exp $

(batch "hacked-gedcom-relations.clp")

(reset)

(load-facts "/daml/jess/mdean.facts")

;; find Mike
(defrule mike
  (http://www.daml.org/2001/01/gedcom/gedcom#givenName ?mike "Michael Anthony")
  (http://www.daml.org/2001/01/gedcom/gedcom#surname ?mike "Dean")
  =>
  (assert (mike ?mike)))

(defrule print-mike
  (mike ?mike)
  => (printout t "Mike is " ?mike crlf))

;; find Mike's uncles
(defrule mikes-uncle
  (mike ?mike)
  (http://www.daml.org/2001/01/gedcom/gedcom#uncle ?mike ?uncle)
  (http://www.daml.org/2001/01/gedcom/gedcom#givenName ?uncle ?given)
  (http://www.daml.org/2001/01/gedcom/gedcom#surname ?uncle ?surname)
  =>
  (assert (uncle ?mike ?uncle))
  (printout t "Mike has uncle " ?given " " ?surname crlf))

; (watch all)

(printout t "running" crlf)

(run)

(exit)