(in-package :lkb)

(defparameter *grammar-version* "spanish (03-oct-01)")

(lkb-load-lisp (this-directory) "globals.lsp")
(lkb-load-lisp (this-directory) "mrs-globals.lisp")
(lkb-load-lisp (this-directory) "user-fns.lsp")
(lkb-load-lisp (this-directory) "lkb-code-patches" t)
(load-irregular-spellings (lkb-pathname (parent-directory) "irregs.tab"))
(read-tdl-type-files-aux
 (list (lkb-pathname (this-directory) "extra.tdl")
       (lkb-pathname (parent-directory) "semantics.tdl")
       (lkb-pathname (parent-directory) "lrule-types.tdl")
       (lkb-pathname (parent-directory) "grule-types.tdl")
       (lkb-pathname (parent-directory) "types.tdl"))
 (lkb-pathname (this-directory) "settings.lsp"))
(read-tdl-lex-file-aux (lkb-pathname (parent-directory) "lexicon.tdl"))
(read-tdl-grammar-file-aux (lkb-pathname (parent-directory) "grules.tdl"))
(read-morph-file-aux (lkb-pathname (parent-directory) "inflr.tdl"))
(read-tdl-psort-file-aux (lkb-pathname (parent-directory) "roots.tdl"))
(read-tdl-lex-rule-file-aux (lkb-pathname (parent-directory) "lrules.tdl"))
(read-tdl-parse-node-file-aux 
  (lkb-pathname (parent-directory) "parse-nodes.tdl"))

; (time (batch-check-lexicon))

