;;; 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"))