;;; ORIGINAL TRY FOR "fold" passage
;;; Written by Masashi Sato

(resetnet t)

; Don't trace infer <--- by Scott T Napieralski.
^(setq snip:*infertrace* nil)

;------------------------------------------------------------------------
;;; Following two commands are developed by Matthew Sweeney
;;; Please refer to <http://www.cse.buffalo.edu/~sweeney4/code/estuary.demo>
;;; turn off singular path inference
^(in-package snip)

;;; redefine function to return nil
;;; so that forward inference will not be limited
^(defun broadcast-one-report (rep)
	(let (anysent)
	  (do.chset (ch *OUTGOING-CHANNELS* anysent)
		(when (isopen.ch ch)
		   (setq anysent (or (try-to-send-report rep ch) anysent)))))
	nil)
;----------------------------------------------------------------------------

; Load the verb algorithm developed by Justin Del Vecchio
^(load "/home/esldue/msato/CVA/preliminary_modified.lisp")


; Define all necessary relations
(intext "/home/esldue/msato/CVA/rels")


; Load its background knowledge
;##########BEGINNING OF BACKGROUND KNOWLEDGE#########

(demo "/home/esldue/msato/CVA/fold_bk.demo")

;##########END OF BACKGROUND KNOWLEDGE###########


; Time duration was the early 1930s.
; <-> Time duration refers to initial part of the super-interval of 1930's
(describe
(add super-interval (build lex "1930s")
     initial-sub-interval #InitialSubInterval))

;-----------------------------------------------------------------------------------------------------------------------
; During the early 1930s, many small businesses folded(fold: to go out of business) OR large corporations bought them up.
;-----------------------------------------------------------------------------------------------------------------------
; Many small business folded.
(describe
(add agent (build lex "many small business")
     act (build action (build lex "fold"))) = f)
                                                                                                                                                             
; Fold: to go out of business.
; "fold" is a synnonym of "go out of business".
(describe
(add synonym (build lex "fold") 
     synonym (build lex "go out of business")))

                                                                                                                                                             
(describe
(add agent (build lex "large corporation")
     act (build action (build lex "buy up")
                object (build lex "many small business"))) = bu)


(describe
(add min 1 max 2
     arg (build etime *InitialSubInterval
		eaffair *f)
     arg (build etime *InitialSubInterval
		eaffair *bu)))



;;; What does "fold" mean?? <-- I need to make sure where we could find its algorithm for verbs.
^(defineVerb 'fold 1)