;;;; Blackthorn -- Lisp Game Engine
;;;;
;;;; Copyright (c) 2007-2009, Elliott Slaughter <elliottslaughter@gmail.com>
;;;;
;;;; Permission is hereby granted, free of charge, to any person
;;;; obtaining a copy of this software and associated documentation
;;;; files (the "Software"), to deal in the Software without
;;;; restriction, including without limitation the rights to use, copy,
;;;; modify, merge, publish, distribute, sublicense, and/or sell copies
;;;; of the Software, and to permit persons to whom the Software is
;;;; furnished to do so, subject to the following conditions:
;;;;
;;;; Except as contained in this notice, the name(s) of the above
;;;; copyright holders shall not be used in advertising or otherwise to
;;;; promote the sale, use or other dealings in this Software without
;;;; prior written authorization.
;;;;
;;;; The above copyright notice and this permission notice shall be
;;;; included in all copies or substantial portions of the Software.
;;;;
;;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
;;;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
;;;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
;;;; NONINFRINGEMENT.  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
;;;; HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
;;;; WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
;;;; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
;;;; DEALINGS IN THE SOFTWARE.
;;;;

#+(and sbcl win32) (load-shared-object "msvcr71.dll")

(asdf:oos 'asdf:load-op :atdoc)
(asdf:oos 'asdf:load-op :cl-fad)

#+(and bt-ac (not allegro))
(eval-when (:compile-toplevel :load-toplevel :execute)
  (setf cl:*features* (remove :bt-ac cl:*features*)))

#-(or bt-ac bt-ele bt-nodb)
(eval-when (:compile-toplevel :load-toplevel :execute)
  (pushnew #+allegro :bt-ac #-allegro :bt-ele cl:*features*))

(asdf:oos 'asdf:load-op :blackthorn)

;;; --------------------------------------------------------------------------
;;; Setup directories for build.
;;; --------------------------------------------------------------------------

(defun cwd ()
  (truename (make-pathname)))

(defun append-directory (default-pathname &rest directories)
  (merge-pathnames
   (make-pathname :directory (cons :relative directories))
   default-pathname))

(defconstant +working-dir+ (cwd))

(defconstant +doc-dir+ (append-directory +working-dir+ "atdoc"))

(if (fad:file-exists-p +doc-dir+)
    (fad:delete-directory-and-files +doc-dir+))
(ensure-directories-exist +doc-dir+)

;;; --------------------------------------------------------------------------
;;; Build documentation.
;;; --------------------------------------------------------------------------

(atdoc:generate-documentation
 '(:bt :bt-user)
 +doc-dir+
 :index-title "Blackthorn API Reference"
 :heading "Blackthorn 2D -- Lisp Game Engine")

(#-allegro quit #+allegro exit)