(lkb-load-lisp (parent-directory) "Version.lsp" t) (lkb-load-lisp (this-directory) "globals.lsp") (lkb-load-lisp (this-directory) "user-fns.lsp") ;; MRS GLOBALS (lkb-load-lisp (this-directory) "mrsglobals.lisp" t) ;; TYPES (read-tdl-type-files-aux (list (lkb-pathname (parent-directory) "sorts_basic.tdl") (lkb-pathname (parent-directory) "types_basic.tdl") (lkb-pathname (parent-directory) "types_head.tdl") (lkb-pathname (parent-directory) "types_mrs.tdl") (lkb-pathname (parent-directory) "types_rules_phrasal.tdl") (lkb-pathname (parent-directory) "types_rules_lexical.tdl") (lkb-pathname (parent-directory) "types_lexical.tdl") (lkb-pathname (parent-directory) "types_lexical_verb.tdl") (lkb-pathname (parent-directory) "tmt.tdl") ) ) ;; LEXICON (read-tdl-lex-file-aux (list (lkb-pathname (parent-directory) "lexicon_core.tdl") (lkb-pathname (parent-directory) "lexicon_static.tdl") ) ) ;; WORD FORMS (load-irregular-spellings (list (lkb-pathname (parent-directory) "irregs_static.tab") ) ) ;; RULE INSTANCES (read-tdl-grammar-file-aux (lkb-pathname (parent-directory) "rules_phrasal.tdl")) (read-tdl-lex-rule-file-aux (lkb-pathname (parent-directory) "rules_lexical.tdl")) (read-morph-file-aux (lkb-pathname (parent-directory) "rules_infl.tdl")) ;; LABELS (read-tdl-parse-node-file-aux (lkb-pathname (parent-directory) "labels.tdl")) ;; ROOTS (read-tdl-start-file-aux (lkb-pathname (parent-directory) "roots.tdl")) ;;; ;;; as of September 2008, REPP supports `ensembles' of rule sets, where select ;;; modules (XML or LaTeX markup normalization, for example) can be activated ;;; in the REPP environment or top-level repp() call. by default, turn on the ;;; XML and ASCII modules. ;;; (read-repp (lkb-pathname (parent-directory "rpp") "xml.rpp")) (read-repp (lkb-pathname (parent-directory "rpp") "latex.rpp")) (read-repp (lkb-pathname (parent-directory "rpp") "ascii.rpp")) (read-repp (lkb-pathname (parent-directory "rpp") "wiki.rpp")) (read-repp (lkb-pathname (parent-directory "rpp") "tokenizer.rpp")) (setf *repp-calls* '(:xml :ascii)) (setf *repp-characterize-p* t) (setf *repp-interactive* '(:tokenizer :xml :ascii)) (setf *repp-debug-p* nil)