;;; -*- mode: lisp; syntax: common-lisp; package: lkb -*-

;;; authors: 
;;; 2011 Berthold Crysmann

;;; Startup script for running the generation fixup rules externally
;;; for debugging

(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 (parent-directory) "mrsglobals.lsp")
    
    
    (load-lkb-preferences (this-directory) "user-prefs.lsp")
    
    

    
    ; #+: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)
    
    (read-tdl-type-files-aux
     (list (lkb-pathname (parent-directory) "extra.tdl")
	   (lkb-pathname (parent-directory) "sorts.tdl")
	   (lkb-pathname (parent-directory) "mtr-null-type.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) "linking-types.tdl")
	   (lkb-pathname (parent-directory) "pn.tdl")
	   (lkb-pathname (parent-directory) "mtr.tdl")	
	   )
     )
    

    (lkb-load-lisp (parent-directory "rpp") "setup.lsp" t nil)

    
    ;;;
    ;;; mapping from SEM-I compliant to grammar-internal variable properties 
    ;;;
    (mt:read-vpm (lkb-pathname (parent-directory) "in.vpm") :in)
 
    ;;; and back again, after fixup, retaining performance features
    (mt:read-vpm (lkb-pathname (parent-directory) "out.vpm") :out)
    
    
    (mt:read-transfer-rules 
     (list
      (lkb-pathname (parent-directory) "sel_prep.mtr")
      (lkb-pathname (parent-directory) "generation.mtr")
      )
     "generation grammar compliance rules"
     :filter nil  
     :edges 500 
     :in :in 
     :out :out
     )

    


    (setf *translate-grid* '(nil . (:de)))

    )   
)