(in-package :common-lisp-user)

(pushnew :logon *features*)

(defparameter %logon% (system:getenv "LOGONROOT"))
(defparameter %lingo% 
  (namestring (parse-namestring (format nil "~a/lingo" %logon%))))

(load (format nil "~a/lkb/src/general/loadup.lisp" %lingo%))
  
(let* ((target (dir-append 
                (make-pathname :directory (format nil "~a/lkb" %lingo%))
                (list :relative mk::%system-binaries%)))
       (cvs (dir-append target '(:relative "CVS")))
       (cvs- (dir-append target '(:relative :up "CVS-")))
       (lvs (dir-append target '(:relative "LVS")))
       (lvs- (dir-append target '(:relative :up "LVS-")))
       (svn (dir-append target '(:relative ".svn")))
       (svn- (dir-append target '(:relative :up ".svn-"))))

  (when (probe-file cvs) (rename-file cvs cvs-))
  (when (probe-file lvs) (rename-file lvs lvs-))
  (when (probe-file svn) (rename-file svn svn-))
  (when (probe-file target) (excl:delete-directory-and-files target))

  (excl:generate-application 
   "logon" 
   target
   (list :srecord :eli :sock (format nil "~a/lkb/load.lisp" %lingo%))
   :newspace (* 1024 1024 256)
   :oldspace (* 1024 1024 128)
   :lisp-heap-size (* 1024 1024 #-:mswindows 768 #+:mswindows 512)

   ;;
   ;; change heap placement to allow newspace growth (21-may-00  -  oe)
   ;;
   #+:linux86 :lisp-heap-start 
   #+(and :linux86 (not (version>= 6 2))) "1040M" 
   #+(and :linux86 (version>= 6 2)) "1088M"
   #+(and :sparc :solaris2) :c-heap-start #+(and :sparc :solaris2) #xe0000000

   :runtime :standard 
   #+(version>= 6 0) :runtime-bundle #+(version>= 6 0) t

   :include-clim t
   :include-compiler t :discard-compiler t

   :opt-speed 1 :opt-space 1 :opt-safety 3 :opt-debug 3
   :read-init-files '(".clinit.cl" "clinit.cl")

   :include-tpl t
   :include-debugger t
   :include-devel-env nil
   :include-ide nil
   #-(or :mswindows (version>= 6 2)) :include-common-graphics
   #-(or :mswindows (version>= 6 2)) nil
   :include-composer nil
   :include-xcw nil

   :load-xref-info t :record-xref-info t :discard-xref-info nil

   :print-startup-message nil

   :presto nil)
  
  (when (probe-file cvs-) (rename-file cvs- cvs))
  (when (probe-file lvs-) (rename-file lvs- lvs))
  (when (probe-file svn-) (rename-file svn- svn)))

(excl:exit)