;;; -*- Coding: utf-8 -*- 
(in-package "MRS")

(setf *sem-relation-suffix* "_rel")

(setf *value-feats* `(,(vsym "CARG")))

(setf *feat-priority-list*  
  `( ,(vsym "LTOP") ,(vsym "INDEX") ,(vsym "LBL")
     ,(vsym "ARG0") ,(vsym "ARG1") ,(vsym "ARG2") ,(vsym "ARG3") ,(vsym "ARG4") 
     ,(vsym "RSTR") ,(vsym "BODY")
     ,(vsym "MARG") ,(vsym "CARG")
;     ,(vsym "--arg0")
;     ,(vsym "--lbl")      
     ))

;;;(setf *feat-priority-list*  
;;;  `( ,(vsym "INDEX") ,(vsym "LBL)
;;;     ,(vsym "ARG0") ,(vsym "ARG1") ,(vsym "ARG2") ,(vsym "ARG3") ,(vsym "ARG4") 
;;;     ,(vsym "RSTR") ,(vsym "BODY")
;;;     ,(vsym "MARG") ,(vsym "CARG"),(vsym "CFROM"),(vsym "CTO")))

(setf *ignored-sem-features* ())

(setf *ignored-sem-features* 
  (append *ignored-sem-features* 
	  `( ,(vsym "PARAMS") 
	     ,(vsym "WLINK") 
	     ,(vsym "VTYPE") 
	     ,(vsym "ORD") 
	     ,(vsym "DAY") 
	     ,(vsym "MONTH")
	     ,(vsym "DIM")
	     ,(vsym "NAMED")
	     ,(vsym "VREF")
	     ,(vsym "VALUE")
	     ,(vsym "PSORT")
	     ,(vsym "PCASE")     
	     ,(vsym "CFROM")
	     ,(vsym "CTO")
	     ,(vsym "--arg0")
	     ,(vsym "--lbl")      
 )))

(setf *scoping-ignored-roles* (list (vsym "TPC") 
				    (vsym "PSV")
			       ))

(setf *ignored-extra-features* 
  (append
   *ignored-extra-features*
   (list (vsym "SORT")
	 (vsym "INSTLOC")
	 )))


(setf *ignored-extra-features* 
  (cons (vsym "MSORT") *ignored-extra-features*))



;(setf *top-level-rel-types*  `(
;			       ,(vsym "named_rel") 
;			       ,(vsym "pron_rel") 
;			       ,(vsym "def_rel")))

(setf *top-level-rel-types*  nil)


;;; features for extracting semantics from expanded lexical entries

;(setf *dummy-relations* `(,(vsym "NO_REL") ,(vsym "MESSAGE")))

(defparameter *mrs-to-vit* nil)

(defparameter *mrs-for-language* 'german)

(defparameter *mrs-scoping* nil)
(setf *scoping-call-limit* 100000)

(setf *initial-semantics-path* 
  `(,(vsym "SYNSEM") ,(vsym "LOC") ,(vsym "CONT") ))

(setf *main-semantics-path* 
  `(,(vsym "SYNSEM") ,(vsym "LOC") ,(vsym "CONT") 
    ,(vsym "RELS") ,(vsym "LIST")))

(setf *construction-semantics-path*
  `(,(vsym "C-CONT") ,(vsym "RELS") ,(vsym "LIST")))

(setf *psoa-top-h-path* 
  `( ,(vsym "hook") ,(vsym "ltop")))

(defparameter *psoa-index-path* 
  `( ,(vsym "hook") ,(vsym "INDEX"))
  "path to get an index from a psoa")

(defparameter *psoa-event-path* `(,(vsym "INDEX")))
(defparameter *psoa-liszt-path* `(,(vsym "RELS") ,(vsym "LIST")))
(defparameter *psoa-rh-cons-path* `(,(vsym "HCONS") ,(vsym "LIST")))

(defparameter *rel-handel-path*
    `(,(vsym "LBL"))
  "path to get the handel from a relation")

(defparameter *sc-arg-feature* (vsym "HARG")
  "the feature in a qeq that leads to the first argument")

(defparameter *outscpd-feature* (vsym "LARG")
  "the feature in a qeq that leads to the second argument")

(defparameter *quant-rel-types* nil)

(defparameter *bv-feature* (vsym "ARG0"))

(defparameter *scope-feat* (vsym "BODY"))

(setf *top-semantics-type* 
  (vsym "*sort*"))

(defparameter *rel-name-path* `(,(vsym "PRED") ))


(defparameter *mrs-rule-condition-path* (list (vsym "CONTEXT")))


;;; types for variable naming in mrsoutput

(defparameter *event-type* (vsym "event"))
(defparameter *event_or_index-type* (vsym "individual"))
(defparameter *non_expl-ind-type* (vsym "ref-ind"))
(defparameter *handle-type* (vsym "handle"))
(defparameter *ref-ind-type* (vsym "ref-ind"))
(defparameter *deg-ind-type* (vsym "deg-ind"))


;;; the following are needed only for the detection of fragments
;;; indicated in the LinGO gramar by the value of ROOT

(setf *root-path* `(,(vsym "ROOT")))

(setf *false-type* (vsym "-"))

(setf *true-type* (vsym "+"))

; DPF Upped from 100 to 200
; DPF 1-Jul-03 Upped from 200 to 500 due to treatment of unspec_loc_rel for
; e.g. free relatives.  Maybe should make this generic rel more specific.
;(setf *maximum-genindex-relations* 500)

(defparameter *slash-semantics-path* 
    `(,(vsym "SYNSEM") ,(vsym "NONLOC") 
      ,(vsym "_SLASH") ,(vsym "LIST") ,(vsym "FIRST") 
      ,(vsym "CONT"))
  "This path is used for filtering the edges in the generator to improve efficiency")



(setf %mrs-extras-filter%
  ;;
  ;; _fix_me_
  ;; even without the full SEMI, we should compute these.  (21-nov-03; oe)
  ;;
  (list
   (cons (mrs::vsym "PNG") (mrs::vsym "p-n-g"))
   (cons (mrs::vsym "MASS-UNIT") (mrs::vsym "bool"))
   (cons (mrs::vsym "--PSV") (mrs::vsym "bool"))
   (cons (mrs::vsym "--TPC") (mrs::vsym "tpc"))
   (cons (mrs::vsym "E.STATIVE") (mrs::vsym "bool"))
   (cons (mrs::vsym "E.PERFECTIVE") (mrs::vsym "bool"))
   (cons (mrs::vsym "E.TENSE") (mrs::vsym "tense"))
   (cons (mrs::vsym "E.MOOD") (mrs::vsym "mood"))
   ))



(defparameter %mrs-extras-defaults%
  (list
   (cons (vsym "--TPC") (vsym "tpc-subj"))
   (cons (vsym "--PSV") (vsym "-"))
   ))


;(setf *no-inst-arg-roles* `(DIM))