;;; Demo file for NLP Importunate
;;; Prepared by Nyurguyana Petrova
;;; Based on Vikranth Rao's brachet demo
;;; Fall 2007

;; turn off singular path inference
^(in-package snip)

 ;turn on full forward inferencing:
 ^(defun broadcast-one-report (represent)
    (let (anysent)
      (do.chset (ch *OUTGOING-CHANNELS* anysent)
         (when (isopen.ch ch)
                 (setq anysent
                       (or (try-to-send-report represent ch)
                           anysent)))))
    nil)

 ;re-enter the "sneps" package:
 ^(in-package sneps)



(resetnet t)

;;;
;;; Load requisite files
;;;

^^
(load "pmla.cl")

(load "/projects/robot/Ygdrasil/Princess/newachieve")
(load "/projects/robot/Ygdrasil/Princess/newact")
^^

;;;(intext "/projects/stn2/CVA/demos/rels")
(define a1 a2 a3 a4 after agent against antonym associated before cause 
class direction equiv etime event from in indobj instr into lex location 
manner member mode object on onto part place possessor proper-name 
property rel skf sp-rel stime subclass superclass subset superset synonym time to whole kn_cat)

(demo "/projects/stn2/CVA/demos/paths")

^^
;;;(sneps::sneps-setup)

(atnin "cq.lisp")
(lexin "Klexicon.lisp")

;;;
;;; Declare the primitive actions
;;;

(attach-primaction
 believe believe
  (= (build lex "defnoun") defnoun) defN)

^^

(describe 
  	(assert whenever (build agent *I act (build action (build lex "definingnoun")))
	  do (build action *defnoun object1 "brachet")))


^^(parse )
Someone is named Philip.
Someone is named MissWilkinson.
MissWilkinson makes advances towards Philip.
MissWilkinson is older than Philip.
When Philip is with MissWilkinson then Philip is discomforted.
;;;When he is with her then he is discomforted.
She is importunate.