(in-package :common-lisp-user)

(load "~/logon/lingo/lkb/src/general/loadup.lisp")

(let ((target (dir-append 
               (make-pathname :directory (concatenate 'string (sys:getenv "LOGONROOT") "/uib/bin"))
               (list :relative mk::%system-binaries%))))
  
  #+(and :allegro-version>= (version>= 5 0) :excl)
  (ignore-errors (excl:make-directory target))

  #+disabled
  (progn
    (let ((app-dir (dir-append target '(:relative "cgp-server"))))
      (when (probe-file app-dir) (delete-directory-and-files app-dir)))

    ;; build cgp-server
    (excl:generate-application ;;excl:build-lisp-image
     ;; (merge-pathnames "cgp.dxl" target)
     "cgp-server"
     (merge-pathnames "cgp-server/" target)
     ;;:lisp-files
     (list #p"~/logon/uib/lisp/projects/xle/cgp/load-cgp-server.lisp")
     :application-files nil ;;'("~/logon/flat/cgp/cgp.cfg")
     :restart-app-function 'cl-user::start-local-tag-server
     :newspace (* 1024 1024 128)
     :oldspace (* 1024 1024 64)
     :lisp-heap-size (* 1024 1024 #-:mswindows 768 #+:mswindows 512)
     ;;
     ;; change heap placement to allow immense 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

     :include-clim nil
     :include-compiler t
     :discard-compiler t
     :opt-speed 2 :opt-space 1 :opt-safety 2 :opt-debug 2
     :init-file-names nil ;;'("cgp.cfg")
     :read-init-files :nohome
     :include-tpl t
     :include-debugger nil
     :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 nil :record-xref-info nil :discard-xref-info t

     :print-startup-message nil

     :presto nil))
  
  (progn
    (let ((app-dir (dir-append target '(:relative "morph-server"))))
      (when (probe-file app-dir) (delete-directory-and-files app-dir)))
    ;; build morph-server
    (excl:generate-application
     "morph-server"
     (merge-pathnames "morph-server/" target)
     (list #p"~/lisp/projects/xle/cgp/load-morph-server.lisp")
     ;;(list #p"~/logon/uib/lisp/projects/xle/cgp/load-morph-server.lisp")
     :application-files '()
     :restart-app-function 'cl-user::start-server-processes
     :newspace (* 1024 1024 128)
     :oldspace (* 1024 1024 64)
     :lisp-heap-size (* 1024 1024 #-:mswindows 768 #+:mswindows 512)
     ;;
     ;; change heap placement to allow immense 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

     :include-clim nil
     :include-compiler t
     :discard-compiler t
     :opt-speed 2 :opt-space 1 :opt-safety 2 :opt-debug 2
     :init-file-names nil
     :read-init-files :nohome
     :include-tpl t
     :include-debugger nil
     :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 nil :record-xref-info nil :discard-xref-info t

     :print-startup-message nil

     :presto nil)))

(excl:exit)