;;; -*- mode: lisp; syntax: common-lisp; 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 nil)
    (setf *grammar-directory* (parent-directory)) 
    
    #+acl
    (progn 
      (lkb-load-lisp (great-grandparent-directory) "lingo/lkb/src/tsdb/lisp/pvm.lisp" t nil)
      (lkb-load-lisp (great-grandparent-directory) "lingo/lkb/src/tsdb/lisp/www.lisp" t nil)
      (lkb-load-lisp (great-grandparent-directory) "lingo/lkb/src/tsdb/lisp/process.lisp" t nil)
      )
    
    
    (lkb-load-lisp (this-directory) "globals.lsp" t nil)
    
    (lkb-load-lisp (this-directory) "user-fns.lsp" nil nil)
    
    
    (load-lkb-preferences (this-directory) "user-prefs.lsp")
    
    
    #-:mal
    (defparameter *start-symbol* '(utterance-v-scnd utterance-v-fst utterance-non-v utterance-turn-seq utterance-coord utterance-int-clause)
      "specifing valid parses")


    #+:mal
    (defparameter *start-symbol* '(utterance-v-scnd utterance-v-scnd-nopunct utterance-v-fst utterance-non-v utterance-turn-seq utterance-coord utterance-int-clause mal-utterance-v-scnd mal-utterance-v-fst mal-utterance-non-v mal-utterance-turn-seq mal-utterance-coord mal-utterance-int-clause)
      "specifing valid parses")

    #+:lex
    (defparameter *start-symbol* '(complete-word))

    #+acl
    (lkb-load-lisp (this-directory) "lkb-code-patches.lsp" t nil)

    (setf *check-path-count* 40)
    (lkb-load-lisp (this-directory) "checkpaths.lsp" t nil)
    
    #+:logon
    (progn 
      (lkb-load-lisp (this-directory) "logon-utool-menu.lisp" t nil))

    #+:utool
    (progn 
      (lkb-load-lisp (this-directory) "lkb-utool-menu.lisp" t nil))
    
    (in-package :lkb)
    
    (load-irregular-spellings 
     (list 
      (lkb-pathname (parent-directory) "nx-irregs.tab" )
      (lkb-pathname (parent-directory) "nx-old.tab" )
      (lkb-pathname (parent-directory) "ax-pos-e-irregs.tab" )
;      #+:mal
;      (lkb-pathname (parent-directory) "MAL-irregs.tab" )
      )
     )
    
    
    
    (read-tdl-type-files-aux
     (list (lkb-pathname (parent-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) "punctswitch.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) "coh-list-types.tdl")
	   (lkb-pathname (parent-directory) "lex-rule-types.tdl")
	   (lkb-pathname (parent-directory) "letter-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 (parent-directory) "tmt.tdl")
;;;	   (lkb-pathname (parent-directory) "stag.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) "opt-coh-lex-rules.tdl")
     )
    (read-tdl-lex-rule-file-aux 
     (lkb-pathname (parent-directory) "participle-inflr-lkb.tdl")
     )
;    #+:mal
;    (read-tdl-lex-rule-file-aux
;     (lkb-pathname (parent-directory) "MAL-lex-rules.tdl"))
    
    
    #-:lex
    (progn
      (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-tdl-grammar-file-aux 
       (lkb-pathname (parent-directory) "letter-rules.tdl")
       )  
      )
    
;    #+:mal
;    (read-tdl-grammar-file-aux (lkb-pathname (parent-directory) "MAL-schemata.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) "card-inflr.tdl"))
    
    (read-morph-file-aux (lkb-pathname (parent-directory) "misc-inflr.tdl"))
    
    #-:lex
    (read-morph-file-aux (lkb-pathname (parent-directory) "punct-inflr.tdl"))
    
;    #+:mal
;    (read-morph-file-aux (lkb-pathname (parent-directory) "MAL-inflr.tdl"))
    #+:mal
    (read-morph-file-aux (lkb-pathname (parent-directory) "MAL-np-agr-inflr.tdl"))
;    #+:mal
					;    (read-morph-file-aux (lkb-pathname (parent-directory) "MAL-sv-agr-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 (parent-directory) "mrsglobals.lsp" t nil)

    #+:tsdb
    (lkb-load-lisp (parent-directory "www") "setup.lsp" t nil)

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

    ;;;
    ;;; the mapping from grammar-internal to SEM-I compliant variable properties
    ;;;

    (mt:read-vpm (lkb-pathname (parent-directory) "semi.vpm") :semi)
    
    ;;; another variable property mapping, used only when constructing the SEM-I
    
    (mt:read-vpm (lkb-pathname (parent-directory) "abstract.vpm") :abstract)

    
;;;    (mt:read-transfer-rules 
;;;     ( ;;; list 
;;;      ;;; (lkb-pathname (parent-directory) "external-mrs.mtr")
;;;      )
;;;     "paraphraser"
;;;     :filter nil :task :paraphrase :edges 200)
    
    
 (mt:read-transfer-rules 
  (list 
   ;;;(lkb-pathname (parent-directory) "sel_prep.mtr")
   (lkb-pathname (parent-directory) "generation-test.mtr")
   )
  "generation grammar compliance rules"
  :filter nil :task :fixup :edges 500)

;;;    
;;;    
;;;    

   (mt:read-transfer-rules 
    (list
     (lkb-pathname (parent-directory) "trigger.mtr")
     )
    "generation trigger rules"
     :task :trigger :recurse nil )
    
    
    (if *lexdb-params*
	(progn
	(load-lexdb-from-script)
	  
;	  (read-cached-sublex-if-available "gen-lex-gen"
;					   (lkb-pathname (parent-directory) "gen-lex-gen.tdl"))
;	(read-cached-sublex-if-available "tiger"
;					 (lkb-pathname (parent-directory) "tiger.tdl"))
	  
;;;	(read-cached-sublex-if-available "tiger-nouns"
;;;					 (lkb-pathname (parent-directory) "tiger-nouns.tdl"))
;;;	(read-cached-sublex-if-available "tiger-verbs"
;;;					 (lkb-pathname (parent-directory) "tiger-verbs.tdl"))
;;;	(read-cached-sublex-if-available "tiger-adj"
;;;					 (lkb-pathname (parent-directory) "tiger-adj.tdl"))
;;;	(read-cached-sublex-if-available "tiger-ne"
;;;					 (lkb-pathname (parent-directory) "tiger-ne.tdl"))

	  
	(read-cached-sublex-if-available "skip-lex"
					   (lkb-pathname (parent-directory) "GG.main.skip.tdl"))

	(read-cached-sublex-if-available "gen-lex"
					 (lkb-pathname (parent-directory) "gen-lex.tdl"))
	
	  )	  
      (progn 
	
	
;	(read-cached-sublex-if-available "gen-lex-gen";
;					 (lkb-pathname (parent-directory) "gen-lex-gen.tdl"))
	
;;;	(read-cached-sublex-if-available "tiger"
;;;					 (lkb-pathname (parent-directory) "tiger.tdl"))
;;;	(read-cached-sublex-if-available "tiger-nouns"
;;;					 (lkb-pathname (parent-directory) "tiger-nouns.tdl"))
;;;	(read-cached-sublex-if-available "tiger-verbs"
;;;					 (lkb-pathname (parent-directory) "tiger-verbs.tdl"))
;;;	(read-cached-sublex-if-available "tiger-adj"
;;;					 (lkb-pathname (parent-directory) "tiger-adj.tdl"))
;;;
;;;	(read-cached-sublex-if-available "tiger-ne"
;;;					 (lkb-pathname (parent-directory) "tiger-ne.tdl"))
	
	(read-cached-lex-if-available 
	 (lkb-pathname (parent-directory) "lexicon.tdl")
	 )

	(read-cached-sublex-if-available "newlex"
					 (lkb-pathname (parent-directory) "GG.main.new.tdl"))

	(read-cached-sublex-if-available "skip-lex"
					 (lkb-pathname (parent-directory) "GG.main.skip.tdl"))

	(read-cached-sublex-if-available "gen-lex"
					 (lkb-pathname (parent-directory) "gen-lex.tdl"))
    
    )
  )



;;;
;;; the Regular Expression Pre-Processor (REPP) is now broken up into quite a
;;; number of files.  to ease re-use across the LKB and PET, keep the REPP 
;;; configuration in a separate file.
;;;
(lkb-load-lisp (parent-directory "rpp") "setup.lsp" t nil)

    

#+(and :logon :tsdb)
(defparameter mt::*lm-model* (lkb-pathname (parent-directory) "deWaC.blm"))

#+(and :logon :tsdb)
(tsdb::read-model (lkb-pathname (parent-directory) "tgrp.g.mem"))


;;; #+(and :logon :tsdb)
;;; (setf *unpacking-scoring-hook* #'tsdb::mem-score-configuration)

;;; (setf lkb::*gen-maximal-number-of-realizations* 25)

(setf lkb::*tree-discriminants-mode* :classic)



#+(and :logon :tsdb)
(defparameter tsdb::*process-client-retries* 1)

(index-for-generator)
    
)
)