(in-package :mt)

;;; At present, these get directly inserted by the GG accomodation phase. 
;;; No need to translate. 
(setf *transfer-interlingua-predicates* '(lkb::focus_d_rel lkb::parg_d_rel))

(setf *semi-test* '(:predicates :properties))


(setf *transfer-tm*
  (namestring (make-pathname 
               :directory (namestring
                           (dir-append 
                            (get-sources-dir "mt") '(:relative "mt")))
               :name "mrs.blm")))

(defun preprocess (mrs)
  (loop
      for ep in (mrs:psoa-liszt mrs)
      do (setf (mrs:rel-pred ep) (format nil "~(de:~a~)" (mrs:rel-pred ep))))
  mrs)


(setf *transfer-ignore* nil)
;
;(setf *transfer-ignore*
;  (list
;   (mrs:vsym "conj_ques_ef")
;   (mrs:vsym "conj_comm_ef")   
;   (mrs:vsym "conj_prop_ef")
;   ))