;;; 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, but note that several settings files exist in two forms,
;;; one in the global Transfer MatriX directory, another per language pair.
;;;
(lkb-load-lisp (parent-directory) "Version.lsp" t)
(lkb-load-lisp (grandparent-directory) "globals.lsp")
(lkb-load-lisp (this-directory) "globals.lsp")
(lkb-load-lisp (this-directory) "user-fns.lsp")

;;;
;;; next load the common transfer type hierarchy (the Transfer MatriX) ...
;;;
(read-tdl-type-files-aux
  (list 
   (lkb-pathname (grandparent-directory) "mrs.tdl")
   (lkb-pathname (grandparent-directory) "mtr.tdl")
   (lkb-pathname (grandparent-directory) "predicates.tdl")
   (lkb-pathname (grandparent-directory) "predicates.erg.tdl")
   (lkb-pathname (grandparent-directory) "predicates.gg.tdl")
   ;;; Apparently, not all ERG predicates are already defined...
   (lkb-pathname (parent-directory) "predicates.erg.tdl")
   ;;
   ;; ... plus additional MRS and MTR type definitions for this language pair
   ;;
   (lkb-pathname (parent-directory) "mrs.tdl")
   (lkb-pathname (parent-directory) "mtr.tdl")
   (lkb-pathname (parent-directory) "predicates.tdl")))

;;;
;;; a few more LKB-specific settings, this time for MRS post-processing,
;;; generation, and transfer.
;;;
(lkb-load-lisp (grandparent-directory) "mrsglobals.lsp" t)
(lkb-load-lisp (this-directory) "mrsglobals.lsp" t)
(lkb-load-lisp (this-directory) "mt.lsp")

(lkb-load-lisp (parent-directory "www") "setup.lsp" t)


;;;
;;; read the `in' and `out' variable property mappings (VPMs), adjusting index
;;; properties in input and output MRSs, respectively.
;;;
(mt:read-vpm (lkb-pathname (parent-directory) "in.vpm") :in)
(mt:read-vpm (lkb-pathname (parent-directory) "out.vpm") :out)


;;;
;;; also read the target language SEM-I, so as to filter transfer ouputs that
;;; are doomed to fail downstream.
;;;
(mt:read-semi
 (lkb-pathname (great-grandparent-directory "lingo/erg/") "erg.smi"))

;;;
;;; transfer operates in three phases: (i) GG-specific accomodation, (ii) core
;;; transfer, and (iii) ERG-specific accomodation.
;;;


;;; First phase
(mt:read-transfer-rules 
 (list
  (lkb-pathname (parent-directory) "gg.mtr")
  (lkb-pathname (parent-directory) "compound-split.mtr"))
 "GG accomodation phase"
 :filter nil :in :in :before "preprocess")

;;; Main phase

(mt:read-transfer-rules 
 (list
  ;;; Complex translations (mostly)
  (lkb-pathname (parent-directory) "mrs.mtr")
  ;;; Straightforward translations (mostly 1 to 1)
  (lkb-pathname (parent-directory) "quantifiers.mtr")
  (lkb-pathname (parent-directory) "prepositions.mtr")
  (lkb-pathname (parent-directory) "verbs.mtr")
  (lkb-pathname (parent-directory) "adjectives.mtr")
  (lkb-pathname (parent-directory) "nouns.mtr")
  ;;
  ;; at this point, for further fine-tuning, infuse information from the TL
  ;; SEM-I, thus marking predicates that are strictly countable or strictly
  ;; non-countable.  then invoke the global `snugging' rules (which provide
  ;; reasonably generic mechanisms for processes like splitting up or joining
  ;; variables), followed by further snugging rules, specific to this language
  ;; pair.
  ;;
  (lkb-pathname (grandparent-directory) "semi.erg.mtr")
  (lkb-pathname (grandparent-directory) "snug.mtr")
  (lkb-pathname (parent-directory) "snug.mtr"))
 "core transfer phase"
 :filter t)


;;; ERG accomodation phase

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

;;; Read preprocessor rules for :cheap and :gg cpus

(read-preprocessor (lkb-pathname (great-grandparent-directory "dfki/gg/") "preprocessor.fsr"))