;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: Penman -*-

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;COPYRIGHT (C) UNIVERSITY OF SOUTHERN CALIFORNIA, 1987                         ;
;UNIVERSITY OF SOUTHERN CALIFORNIA, INFORMATION SCIENCES INSTITUTE             ;
;4676 ADMIRALTY WAY                                                            ;
;MARINA DEL REY, CALIFORNIA 90292                                              ;
;                                                                              ;
;THIS SOFTWARE WAS PARTIALLY DEVELOPED UNDER NATIONAL SCIENCE FOUNDATION       ;
;GRANT IST-8408726, FEDERAL CONTRACT NUMBERS MDA903-81-C-0335,                 ;
;MDA903-87-C-0641, F49620-84-C-0100, AND F49620-87-C-0005, AND THE             ;
;GOVERNMENT HOLDS LICENSE RIGHTS UNDER DAR 7-104.9 (A)(C)(1).  IT IS           ;
;TRANSMITTED OUTSIDE OF THE UNIVERSITY OF SOUTHERN CALIFORNIA ONLY UNDER       ;
;WRITTEN LICENSE AGREEMENTS OR SOFTWARE EXCHANGE AGREEMENTS, AND ITS USE       ;
;IS LIMITED BY THESE AGREEMENTS.  AT NO TIME SHALL ANY RECIPIENT USE THIS      ;
;SOFTWARE IN ANY MANNER WHICH CONFLICTS OR INTERFERES WITH THE                 ;
;GOVERNMENTAL LICENSE RIGHTS OR OTHER PROVISIONS OF THE GOVERNING              ;
;AGREEMENT UNDER WHICH IT IS OBTAINED.  IT IS SUPPLIED "AS IS," WITHOUT        ;
;ANY WARRANTIES OF ANY KIND.  IT IS FURNISHED ONLY ON THE BASIS THAT ANY       ;
;PARTY WHO RECEIVES IT INDEMNIFIES AND HOLDS HARMLESS THE PARTIES WHO          ;
;FURNISH AND ORIGINATE IT AGAINST ANY CLAIMS, DEMANDS OR LIABILITIES           ;
;CONNECTED WITH USING IT, FURNISHING IT TO OTHERS OR PROVIDING IT TO A         ;
;THIRD PARTY.  THIS NOTICE MUST NOT BE REMOVED FROM THE SOFTWARE, AND IN       ;
;THE EVENT THAT THE SOFTWARE IS DIVIDED, IT SHOULD BE ATTACHED TO EVERY        ;
;PART.                                                                         ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(in-package "PENMAN")

;;; MACRO TO ELIMINATE INTERPRETATION OF :event-time as SPECIAL KEYWORD

(defspl-macro :event-time
	      ((?
		 :reference-time-id ?
;; R3-beta-4 following removed since the inquiry appears to have died...
;;		 :temporal-definiteness-q definite
		 :temporal-definiteness-specification-q specified)))


;;; EXAMPLE SPL DEFAULT DEFINITIONS

(defspl-default present-tense
  ; :tense present
  :speaking-time-id (DEFAULT-ST / time
		      :time-in-relation-to-speaking-time-id DEFAULT-ET
		      :same-as-q (DEFAULT-ST DEFAULT-ET) same
		      :precede-q (DEFAULT-ST DEFAULT-ET) notprecedes)
  :event-time (DEFAULT-ET / time
		:precede-q (DEFAULT-ET DEFAULT-ST) notprecedes))


(defspl-default basic-assertion
  :speech-act-id (DEFAULT-ASSERT / Assertion)
  :polarity-id (DEFAULT-POSITIVE / Positive))
