;;; File: fake-pp.lisp
;;; Last saved in emacs: Time-stamp: <97/01/22 23:04:20 jlitchfi>

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Allow phrases like "every day", ie, "I go to school every day."         ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(system
 :NAME                   ON
 :INPUTS                 (OR WEAK-INCLUSIVE
			     (AND ONE-TWO-DIMENSIONS REST-PROCESS))
 :OUTPUTS                ((0.5 ON (LEXIFY MINORPROCESS ON))
			  (0.5 ON-ELLIPSIS (LEXIFY MINORPROCESS ZERO)))
 :chooser                on-chooser
 :REGION                 PPSPATIOTEMPORAL
 :METAFUNCTION           IDEATIONAL
 )

(chooser 
 :name on-chooser
 :definition ((ask (on-q minirange)
		   (on (choose on))
		   (ellipsis (choose on-ellipsis))))
 )

(askoperator
 :name on-q
 :domain tp
 :parameters (relation)
 :english ("Should "
	   RELATION
	   " be represented as a nominal group or a prepositional phrase?")
 :operatorcode trivialdefaultcode
 :parameterassociationtypes (concept)
 :answerset (on ellipsis)
 :trivialdefault on
 )