;;; -*- Mode: Lisp -*-

#|CLARITY: Common Lisp Data Alignment Repository
Copyright (c) 2006 Samantha Kleinberg
All rights reserved.

This library is free software; you can redistribute it and/or modify it under the terms of the GNU
Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the 
License, or (at your option) any later version.

This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even 
the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser 
General Public License for more details.

You should have received a copy of the GNU Lesser General Public License along with this library; 
if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

contact: Samantha AT Bioinformatics DOT nyu DOT edu
715 Broadway, 10th floor
New York, NY 10003|#

;;; delivery-script.lisp -- Lispworks dependent delivery script.

(in-package "COMMON-LISP-USER")


;;;===========================================================================
;;; Setting up the environment.

(defvar *_mxa-init-file* (merge-pathnames (make-pathname :name ".lispworks")
                                          (user-homedir-pathname)))

  
(unless (find-package "MAKE")
  (load *_mxa-init-file*)
  )


(defvar *clarity-system-file*
  (pathname "z:/lisp/clarity/clarity.system"))


(loop until (and (or (stringp *clarity-system-file*)
                     (pathnamep *clarity-system-file*))
                 (probe-file *clarity-system-file*))
      do (cerror ";;; Enter the full path of the CLARITY.system file: "
                 ";;; CLARITY system file ~S could not be found."
                 (namestring *clarity-system-file*))
      do (setf *clarity-system-file* (read)))


(defvar *clarity-gui-system-file*
  (pathname "z:/lisp/clarity/gui/impl-dependent/lwcapi/clarity-gui.system"))


(loop until (and (or (stringp *clarity-gui-system-file*)
                     (pathnamep *clarity-gui-system-file*))
                 (probe-file *clarity-gui-system-file*))
      do (cerror ";;; Enter the full path of the CLARITY-GUI.system file: "
                 ";;; CLARITY-GUI system file ~S could not be found."
                 (namestring *clarity-gui-system-file*))
      do (setf *clarity-gui-system-file* (read)))

(defparameter *clarity-application-file* "clarity")

(proclaim '(optimize (debug 1) (speed 3) (space 2))) ; Turn on Tail Merge.


;;;---------------------------------------------------------------------------
;;; Platform dependent initializations.

#+(and macosx cocoa)
(compile-file-if-needed (sys:example-file "configuration/macos-application-bundle")
                        :load t)

#+(and macosx cocoa)
(setf *xssys-application-file*
      (write-macos-application-bundle "~/Applications/XSSYS.app"))


;;;===========================================================================
;;; Loading all the necessary bits and pieces of the application.

;;; Ensure all the features are loaded.

(require "sql")
(require "odbc")

(pushnew :clarity-gui *features*)
(pushnew :clarity *features*)



;;; Load the .system file and compile it.

(load *clarity-system-file*)
(mk:load-system "Clarity")

(load *clarity-gui-system-file*)
(mk:load-system "CLARITY-GUI")


;;; Ensure that the stupid pprinter is loaded.

(format t (formatter "~3%;;;~75,,,'=A~@
                     ;;; Starting delivery.~@
                     ;;; CLARITY system loaded.~%")
        #\=)


;;; Ensure that all the DBS are disconnected.

;(clarity::disconnect-clarity-dbs)


;;; Turn off interactive debugger switches.

;(setf clarity::*clarity-has-debugger-present* nil)


;;; Deliver the 'clarity' application.

(deliver 'clarity::start-clarity-gui 

         *clarity-application-file* 0
         :interface :capi
         :keep-pretty-printer t
         :versioninfo (list :binary-version #x0000000100000000
                            :version-string "CLARITY version 1.0.0.0"
                            :company-name "NYU Courant Bioinformatics Group"
                            :product-name "CLARITY"
                            :file-description
                            (format nil
                                    "CLARITY.")
                            :legal-copyright
                            (format nil "Copyright (c) 2006 Samantha Kleinberg~@
                                         All rights reserved.")
                            )
         :icon-file "clarity-icon-3.ico"
         )
(quit)

;;; end of file -- delivery-script.lisp --