(in-package :mrs)

;;;
;;; these are general MRS variables, irrespective of the AVM encoding used in
;;; a particular grammar.
;;; 

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

(setf *rel-handel-path* (list (vsym "LBL")))

(setf *sc-arg-feature* (vsym "HARG"))

(setf *outscpd-feature* (vsym "LARG"))

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

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

;;;
;;; _fix_me_
;;; for now, suppress LNK roles post-transfer this way; the right solution, i
;;; think, would be recording surface positions in a dedicated slot in the EP
;;; structure, analoguous to characterization information.    (30-jun-04; oe)
;;;
(setf *ignored-sem-features* 
  (list (vsym "LNK")))

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

(setf *value-feats* 
  (list
   (vsym "CARG") (vsym "LNK")))

;;;
;;; the following are grammar-specific paths
;;;

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

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

(setf *initial-semantics-path* nil)

(setf *main-semantics-path* 
  (append *initial-semantics-path* (list (vsym "RELS"))))

(setf *construction-semantics-path* nil)

(setf *psoa-top-h-path* (list (vsym "LTOP")))

(setf *psoa-index-path* (list (vsym "INDEX")))

(setf *psoa-liszt-path* (list (vsym "RELS")))

(setf *psoa-rh-cons-path* (list (vsym "HCONS")))


;;;
;;; types for variable naming in output (copy from `.../src/mrs/mrsglobals.lsp'
;;; but here to remind us to adapt them, as appropriate).
;;;

(setf *event_or_index-type* (vsym "i"))
(setf *non_event-type* (vsym "p"))
(setf *handle-type* (vsym "h"))
(setf *event-type* (vsym "e"))
(setf *ref-ind-type* (vsym "x"))

;;;
;;; interim solution for MRS `unfilling' until we construct a proper SEM-I
;;;
(setf %mrs-extras-filter%
  ;;
  ;; _fix_me_
  ;; even without the full SEMI, we should compute these.  (21-nov-03; oe)
  ;;
  (list
   (cons (mrs::vsym "NUM") (mrs::vsym "number"))
   (cons (mrs::vsym "PERS") (mrs::vsym "person"))
   (cons (mrs::vsym "NATGEND") (mrs::vsym "gender"))
   (cons (mrs::vsym "TENSE") (mrs::vsym "tense"))
   (cons (mrs::vsym "PROG") (mrs::vsym "luk"))
   (cons (mrs::vsym "PERF") (mrs::vsym "luk"))
   (cons (mrs::vsym "STATIVE") (mrs::vsym "luk"))
   (cons (mrs::vsym "BOUNDED") (mrs::vsym "luk"))
   (cons (mrs::vsym "E.TENSE") (mrs::vsym "tense"))
   (cons (mrs::vsym "E.TENSE") (mrs::vsym "basic_tense"))
   (cons (mrs::vsym "E.ASPECT.PROGR") (mrs::vsym "luk"))
   (cons (mrs::vsym "E.ASPECT.PERF") (mrs::vsym "luk"))
   (cons (mrs::vsym "E.MOOD") (mrs::vsym "mood"))
   (cons (mrs::vsym "PNG.GEN") (mrs::vsym "gender"))
   (cons (mrs::vsym "PNG.GEN") (mrs::vsym "real_gender"))
   (cons (mrs::vsym "PNG.PN") (mrs::vsym "pernum"))
   (cons (mrs::vsym "DIVISIBLE") (mrs::vsym "bool"))
   (cons (mrs::vsym "PRONTYPE") (mrs::vsym "prontype"))))

;;;
;;; for better debugging, print MRS structures readably, by default
;;;
#-:debug
(setf mrs::*mrs-raw-output-p* nil)