;;;;
;;;; build.lisp
;;;;
;;;; Copyright (C) 2006, Jack D. Unrue
;;;; All rights reserved.
;;;;
;;;; Redistribution and use in source and binary forms, with or without
;;;; modification, are permitted provided that the following conditions
;;;; are met:
;;;; 
;;;;     1. Redistributions of source code must retain the above copyright
;;;;        notice, this list of conditions and the following disclaimer.
;;;; 
;;;;     2. Redistributions in binary form must reproduce the above copyright
;;;;        notice, this list of conditions and the following disclaimer in the
;;;;        documentation and/or other materials provided with the distribution.
;;;; 
;;;;     3. Neither the names of the authors nor the names of its contributors
;;;;        may be used to endorse or promote products derived from this software
;;;;        without specific prior written permission.
;;;; 
;;;; THIS SOFTWARE IS PROVIDED BY THE AUTHORS AND CONTRIBUTORS "AS IS" AND ANY
;;;; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
;;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DIS-
;;;; CLAIMED.  IN NO EVENT SHALL THE AUTHORS AND CONTRIBUTORS BE LIABLE FOR ANY
;;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
;;;; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
;;;; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
;;;; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
;;;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
;;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
;;;;

;;; NOTE: This is local build configuration that I (Jack Unrue)
;;; use for development purposes only. It's not intended for
;;; public use.
;;;

(load "c:/projects/public/graphic-forms/config.lisp")

(in-package #:graphic-forms-system)

(defvar *library-root*      "c:/projects/third_party/")
(defvar *asdf-repo-root*    (concatenate 'string *library-root* "asdf-repo/"))
(defvar *project-root*      "c:/projects/public/")

(setf   *cffi-dir*          (concatenate 'string *asdf-repo-root* "cffi-0.9.0/"))
(setf   *closer-mop-dir*    (concatenate 'string *asdf-repo-root* "closer-mop/"))
(setf   *imagemagick-dir*   "c:/Program Files/ImageMagick-6.2.6-Q16/")
(setf   *lw-compat-dir*     (concatenate 'string *asdf-repo-root* "lw-compat/"))
(setf   *gf-dir*            (concatenate 'string *project-root* "graphic-forms/"))
(setf   *lisp-unit-file*    (concatenate 'string *library-root* "lisp-unit"))

(defvar *asdf-system-connections-dir* (concatenate 'string *asdf-repo-root* "asdf-system-connections/"))
(defvar *cl-containers-dir* (concatenate 'string *asdf-repo-root* "cl-containers/"))
(defvar *cl-graph-dir*      (concatenate 'string *asdf-repo-root* "cl-graph/"))
(defvar *cl-mathstats-dir*  (concatenate 'string *asdf-repo-root* "cl-mathstats/"))
(defvar *metabang-bind-dir* (concatenate 'string *asdf-repo-root* "metabang-bind/"))
(defvar *metatilities-dir*  (concatenate 'string *asdf-repo-root* "metatilities/"))
(defvar *moptilities-dir*   (concatenate 'string *asdf-repo-root* "moptilities/"))
(defvar *tinaa-dir*         (concatenate 'string *asdf-repo-root* "tinaa/"))

(defvar *gf-tests-dir*      (concatenate 'string *gf-dir* "src/tests/uitoolkit/"))

(defun build ()
  (setf cl-user::*asdf-cache* "c:/projects/public/build/")
  (configure-asdf)
  (pushnew *gf-dir* asdf:*central-registry* :test #'equal)
#|
  (pushnew *tinaa-dir* asdf:*central-registry* :test #'equal)
  (pushnew *cl-graph-dir* asdf:*central-registry* :test #'equal)
  (pushnew *asdf-system-connections-dir* asdf:*central-registry* :test #'equal)
  (pushnew *cl-mathstats-dir* asdf:*central-registry* :test #'equal)
  (pushnew *cl-containers-dir* asdf:*central-registry* :test #'equal)
  (pushnew *metatilities-dir* asdf:*central-registry* :test #'equal)
  (pushnew *moptilities-dir* asdf:*central-registry* :test #'equal)
  (pushnew *metabang-bind-dir* asdf:*central-registry* :test #'equal)
  (asdf:operate 'asdf:load-op :tinaa)
|#
  (asdf:operate 'asdf:load-op :graphic-forms-uitoolkit))

#|
  (tinaa:document-system 'asdf :graphic-forms-uitoolkit "c:/projects/public/testing/")
|#