#|

This is a highly artifical grammar that is intended to be used to test
various aspects of the morphology system.  The main interest is in the
various inflr-*.tdl files, which are not mutually compatible.  This script 
is intended to be called with the global variable *infl-variant* set
in order to load whichever set of rules is appropriate.  See testing.lisp


|#


(lkb-load-lisp (this-directory) "globals.lsp")
(lkb-load-lisp (this-directory) "user-fns.lsp")
(load-lkb-preferences (this-directory) "user-prefs.lsp")

(load-irregular-spellings (lkb-pathname (this-directory) "irregs.lisp"))

(read-tdl-type-files-aux
     (list (lkb-pathname (this-directory) "types.tdl")))
(read-tdl-lex-file-aux 
     (lkb-pathname (this-directory) "lexicon.tdl"))

;;; 

(let ((inflr-filename 
       (concatenate 'string "inflr-" *infl-variant* ".tdl")))
        (read-morph-file-aux 
           (lkb-pathname (this-directory) inflr-filename)))

(batch-check-lexicon)

(read-tdl-grammar-file-aux 
     (lkb-pathname (this-directory) "rules.tdl"))
(read-tdl-start-file-aux 
     (lkb-pathname (this-directory) "start.tdl"))