;;; Hey, emacs(1), this is -*- Mode: Common-Lisp; Package: LKB; -*- got it?

;;;
;;; First, load a number of LKB-specific settings; typically no need to look
;;; too closely here
;;;
(lkb-load-lisp (parent-directory) "Version.lsp" t)
(lkb-load-lisp (this-directory) "globals.lsp")
(lkb-load-lisp (this-directory) "user-fns.lsp")

(read-tdl-type-files-aux
  (list 
   (lkb-pathname (parent-directory) "mrs.tdl")))

;;;
;;; A few more LKB-specific settings, this time for MRS post-processing and
;;; generation; also, we always compute the generation index (while we have
;;; small lexica) in the hope that the generator will be used frequently.
;;;
(lkb-load-lisp (this-directory) "mrsglobals.lsp" t)

;;;
;;; finally, use the new transfer component: initially, we need a dedicated
;;; call to freshly initialize the transfer component and then load any number
;;; of rule sets, each in a separate file, associated with its identifier.
;;; the following loading sequence covered the first phase of the TE
(mt:initialize-transfer)

;;; the transfer set-up was changes to accomodate three stages,
;;; first norgram specifics are read in so comes core transfer
;;; followed by erg accomodation -- adopted from /uio/noen
;;; 11-03

;;; the old set-up
;(mt:read-transfer-rules 
; (list
;  (lkb-pathname (parent-directory) "mwe.mtr")
;  (lkb-pathname (parent-directory) "names.mtr")
;  (lkb-pathname (parent-directory) "test.mtr")
;  (lkb-pathname (parent-directory) "tur.mtr"))
; "core transfer phase")

(mt:read-transfer-rules 
 (list
  (lkb-pathname (parent-directory) "norgram.mtr"))
 "NorGram accomodation phase"
 :filter nil)

(mt:read-transfer-rules 
 (list
  (lkb-pathname (parent-directory) "mwe.mtr")
  (lkb-pathname (parent-directory) "names.mtr")
  (lkb-pathname (parent-directory) "test.mtr")
  (lkb-pathname (parent-directory) "tur.mtr"))
 "core transfer phase"
 :filter t)

(mt:read-transfer-rules 
 (list
  (lkb-pathname (parent-directory) "erg.mtr"))
 "ERG accomodation phase"
 :filter nil)