;;; -*- Package: LKB; -*-

;;; Authors: 
;;; 1997-2000 Walter Kasper & Stefan Müller
;;; 2000-2002 Stefan Müller
;;; 2002-2006 Berthold Crysmann

;;; Copyright: DFKI GmbH



(in-package "LKB")



(setf lkb-tmp-dir 
  (concatenate
      'string (namestring (user-homedir-pathname)) "tmp/"))

(time
 (progn
   (lkb-load-lisp (parent-directory) "Version.lisp" t)
   (setf *grammar-directory* (parent-directory)) 
   
   
   
   (lkb-load-lisp (this-directory) "globals.lsp")

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

   
;   (install-gc-strategy nil :tenure t :burst nil :verbose t)

   
   (load-lkb-preferences (this-directory) "user-prefs.lsp")
   
   (lkb-load-lisp (this-directory) "lkb-code-patches.lsp" t)
   (lkb-load-lisp (this-directory) "checkpaths.lsp" t)
   
   #+:utool
   (progn (lkb-load-lisp (this-directory) "lkb-utool-menu.lisp" t)
	  (in-package "UTOOL")
	  (setf *equivalences* "<equivalences style="GG"> <equivalencegroup> <quantifier label="def_q" hole="1"/> <quantifier label="udef_q" hole="1"/> <quantifier label="_def_q" hole="1"/> <quantifier label="_dergleiche_q" hole="1"/> <quantifier label="_derjenige_q" hole="1"/> <quantifier label="_derselbe_q" hole="1"/> <quantifier label="_dies_q" hole="1"/> <quantifier label="_jen_q" hole="1"/> <quantifier label="_ein_q" hole="0"/> <quantifier label="_ein_q" hole="1"/> <quantifier label="_indef_q" hole="0"/> <quantifier label="_indef_q" hole="1"/> <quantifier label="_einig_q_qua" hole="0"/> <quantifier label="_einig_q_qua" hole="1"/> <quantifier label="_etlich_q" hole="0"/> <quantifier label="_etlich_q" hole="1"/> <quantifier label="_solch+ein_q" hole="0"/> <quantifier label="_solch+ein_q" hole="1"/> <quantifier label="_so+ein_q" hole="0"/> <quantifier label="_so+ein_q" hole="1"/> <quantifier label="_sowas_q" hole="0"/> <quantifier label="_sowas_q" hole="1"/> <quantifier label="_etwas_q" hole="0"/> <quantifier label="_etwas_q" hole="1"/> <quantifier label="_manch+ein_q" hole="0"/> <quantifier label="_manch+ein_q" hole="1"/> <quantifier label="_manche_q" hole="0"/> <quantifier label="_manche_q" hole="1"/> <quantifier label="_ein-paar_q" hole="0"/> <quantifier label="_ein-paar_q" hole="1"/> <quantifier label="_ein-wenig_q" hole="0"/> <quantifier label="_ein-wenig_q" hole="1"/> <quantifier label="_ein-bisschen_q" hole="0"/> <quantifier label="_ein-bisschen_q" hole="1"/> <quantifier label="_mehr_q_qua" hole="0"/> <quantifier label="_mehr_q_qua" hole="1"/> <quantifier label="_mehrere_q" hole="0"/> <quantifier label="_mehrere_q" hole="1"/> <quantifier label="_irgendein_q" hole="0"/> <quantifier label="_irgendein_q" hole="1"/> <quantifier label="_irgendwelch_q" hole="0"/> <quantifier label="_irgendwelch_q" hole="1"/> </equivalencegroup> <equivalencegroup> <quantifier label="_all_q" hole="1" /> <quantifier label="_jed_q" hole="1" /> <quantifier label="_jeglich_q" hole="1" /> </equivalencegroup> <permutesWithEverything label="pronoun_q" hole="1"/></equivalences>"))
	  
   (in-package "LKB")

   (load-irregular-spellings 
    (list 
     (lkb-pathname (parent-directory) "nx-irregs.tab" )
     (lkb-pathname (parent-directory) "ax-pos-e-irregs.tab" )
     )
    )


   
   (read-tdl-type-files-aux
    (list (lkb-pathname (this-directory) "extra.tdl")
	  (lkb-pathname (parent-directory) "sorts.tdl")
	  (lkb-pathname (parent-directory) "some-tdl-built-ins.tdl")
	  (lkb-pathname (parent-directory) "intro-types.tdl")
	  (lkb-pathname (parent-directory) "morph.tdl")
	  (lkb-pathname (parent-directory) "ont.tdl")
	  (lkb-pathname (parent-directory) "mrsbasic.tdl")
	  (lkb-pathname (parent-directory) "sem-types.tdl")
	  (lkb-pathname (parent-directory) "synsem-types.tdl")
	  (lkb-pathname (parent-directory) "linking-types.tdl")
	  (lkb-pathname (parent-directory) "lexsem-types.tdl")
	  (lkb-pathname (parent-directory) "types.tdl")
	  (lkb-pathname (parent-directory) "incoh-types.tdl")
	  (lkb-pathname (parent-directory) "principles.tdl")
	  (lkb-pathname (parent-directory) "rule-types.tdl")
	  (lkb-pathname (parent-directory) "lkb-list-types.tdl")
	  (lkb-pathname (parent-directory) "cross-list-types.tdl")
	  (lkb-pathname (parent-directory) "opt-list-types.tdl")
	  (lkb-pathname (parent-directory) "lex-rule-types.tdl")
	  (lkb-pathname (parent-directory) "mw-types.tdl")
	  (lkb-pathname (parent-directory) "sp-types.tdl")
          (lkb-pathname (parent-directory) "le-types.tdl")
          (lkb-pathname (parent-directory) "pn.tdl")
          (lkb-pathname (parent-directory) "mtr.tdl")
	  )
    (lkb-pathname (this-directory) "settings.lsp"))
   

   (read-tdl-lex-rule-file-aux 
    (lkb-pathname (parent-directory) "lex-rules.tdl")
    )
   (read-tdl-lex-rule-file-aux 
    (lkb-pathname (parent-directory) "pvp-lex-rules.tdl")
    )
   (read-tdl-lex-rule-file-aux 
    (lkb-pathname (parent-directory) "opt-coh-lex-rules.tdl")
    )
   (read-tdl-lex-rule-file-aux 
    (lkb-pathname (parent-directory) "participle-inflr-lkb.tdl")
    )
   
   
   
   (read-tdl-grammar-file-aux 
    (lkb-pathname (parent-directory) "schemata.tdl")
    )
   (read-tdl-grammar-file-aux 
    (lkb-pathname (parent-directory) "aux-flip-schemata.tdl")
    )
   (read-tdl-grammar-file-aux 
    (lkb-pathname (parent-directory) "interj-q-tag-schemata.tdl")
    )   
   (read-tdl-grammar-file-aux 
    (lkb-pathname (parent-directory) "left-dislocation-schema.tdl")
    )  
   (read-tdl-grammar-file-aux 
    (lkb-pathname (parent-directory) "topic-drop-comp-schemata.tdl")
    )
   (read-tdl-grammar-file-aux 
    (lkb-pathname (parent-directory) "pvp-schemata.tdl")
    )
   (read-tdl-grammar-file-aux 
    (lkb-pathname (parent-directory) "appo.tdl")
    )
   (read-tdl-grammar-file-aux 
    (lkb-pathname (parent-directory) "sgf-schemata.tdl")
    )
   (read-tdl-grammar-file-aux 
    (lkb-pathname (parent-directory) "relx-schemata.tdl")
    )
   
   ;; zu-inf, comp-am ...
   (read-tdl-grammar-file-aux 
    (lkb-pathname (parent-directory) "mw-rules.tdl")
    )  

   
   (read-morph-file-aux (lkb-pathname (parent-directory) "general-inflr.tdl"))


   (read-morph-file-aux (lkb-pathname (parent-directory) "noun-inflr.tdl"))
   
   (read-morph-file-aux (lkb-pathname (parent-directory) "adj-inflr.tdl"))
   
   (read-morph-file-aux (lkb-pathname (parent-directory) "verb-inflr.tdl"))
   
   (read-morph-file-aux (lkb-pathname (parent-directory) "irr-spelling-verb-inflr.tdl"))

   
   (read-morph-file-aux (lkb-pathname (parent-directory) "part-inflr.tdl"))

   (read-morph-file-aux (lkb-pathname (parent-directory) "misc-inflr.tdl"))


   
   (read-tdl-psort-file-aux 
    (lkb-pathname (parent-directory) "roots.tdl"))
   
   (read-tdl-parse-node-file-aux 
    (lkb-pathname (parent-directory) "parse-nodes.tdl"))
   
   (lkb-load-lisp (this-directory) "mrs-initialization.lsp" t)




(mt:read-transfer-rules 
 (list
  (lkb-pathname (parent-directory) "generation.mtr")
  (lkb-pathname (parent-directory) "aux.mtr")
    (lkb-pathname (parent-directory) "expl-refl.mtr")
    (lkb-pathname (parent-directory) "prep-comp.mtr"))
 "Generation Trigger Rules"
 :filter nil :task :trigger :recurse nil )


(if  *lexdb-params*
    (progn
      (load-lexdb-from-script)
  
      (read-cached-sublex-if-available "skip-lex"
				       (lkb-pathname (parent-directory) "GG.main.skip"))
      
      (read-cached-sublex-if-available "gen-lex-gen"
				       (lkb-pathname (parent-directory) "gen-lex-gen.tdl"))
      
       (index-for-generator)

      )
  (progn 
    (read-cached-lex-if-available 
     (list
      (lkb-pathname (parent-directory) "lexicon.tdl")
      (lkb-pathname (parent-directory) "gen-lex-gen.tdl")					
;;;      (lkb-pathname (parent-directory) "GG.main.skip")
;;;      (lkb-pathname (parent-directory) "gen-lex.tdl")
      )
     )
    )
  )



;(mt:read-transfer-rules 
;(list
; (lkb-pathname (parent-directory) "transfer.mtr")
;)
;"Paraphraser"
;:filter nil :task :paraphrase :recurse nil )




#+:logon
(mt:read-vpm (lkb-pathname (parent-directory) "semi.vpm") :semi)


(read-preprocessor (lkb-pathname (parent-directory) "preprocessor.fsr"))


;#+:tsdb
;(tsdb::read-mem (lkb-pathname (parent-directory) "eiche-03-morph.mem"))


;(install-gc-strategy
; nil :tenure nil :burst t :verbose t)

)




)