(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")) ;;; ;;; for better debugging, print MRS structures readably, by default ;;; #-:debug (setf mrs::*mrs-raw-output-p* nil)