;;; -*- 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)
    (setf *grammar-directory* (parent-directory)) 
    
    
    
    (lkb-load-lisp (this-directory) "globals.lsp")
    
    (lkb-load-lisp (this-directory) "user-fns.lsp")
    
    
    (load-lkb-preferences (this-directory) "user-prefs.lsp")
    
    #-: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 utterance-v-scnd-ignp utterance-turn-seq-ignp utterance-coord-ignp utterance-int-clause-ignp)
      "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")
    
    
    (lkb-load-lisp (this-directory) "lkb-code-patches.lsp" t)
    (setf *check-path-count* 32)
    (lkb-load-lisp (this-directory) "checkpaths.lsp" t)
    
    #+:logon
    (progn 
      (lkb-load-lisp (this-directory) "logon-utool-menu.lisp" t))

    #+:utool
    (progn 
      (lkb-load-lisp (this-directory) "lkb-utool-menu.lisp" t))
    
    (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 (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) "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) "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 (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"))
    
    
   
    (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"))
    
    (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 (this-directory) "mrs-initialization.lsp" t)
    #+:tsdb
    (lkb-load-lisp (parent-directory "www") "setup.lsp" t)

    
    #+: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) "paraphrase.mtr")
      )
     "paraphraser"
     :filter nil :task :paraphrase :recurse nil)
    
    
    (mt:read-transfer-rules 
     (list
      (lkb-pathname (parent-directory) "generation.mtr"))
     "generation grammar compliance rules"
     :filter nil :task :comply :recurse nil)
    
    
    
    (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 "skip-lex"
					   (lkb-pathname (parent-directory) "GG.main.skip"))
	  
	(read-cached-sublex-if-available "gen-lex"
					 (lkb-pathname (parent-directory) "gen-lex.tdl"))
	  (read-cached-sublex-if-available "gen-lex-gen"
					   (lkb-pathname (parent-directory) "gen-lex-gen.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"))
	  
	  )	  
      (progn 
	(read-cached-lex-if-available 
	 (lkb-pathname (parent-directory) "lexicon.tdl")
	 )
	
	(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"))
	(read-cached-sublex-if-available "gen-lex"
					 (lkb-pathname (parent-directory) "gen-lex.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-preprocessor (lkb-pathname (parent-directory) "preprocessor.fsr"))
    
    
    #+:smaf
    (setf smaf::*ersatz-carg-path* '(synsem lkeys keytag))
    
    
    
#+:logon
(setf mt::*lm-punctuation-characters* (list #\. #\, #\?))


#+(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* 100)



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

;(index-for-generator)
    
)
)