#|
Loader for ErunticLab. See ErunticLab README for more details.
Lee Spector, January 1995

Load this file to load the ErunticLab system.

|#


#+:CMU(declaim (optimize (extensions:inhibit-warnings 3)))
#+:MCL(require :resources)

(setq *load-verbose* t
      *compile-verbose* t)

;; set up the "elab-dir"logical directory
#+:MCL(defparameter *elab-dir*
        (ccl::mac-directory-namestring ccl::*loading-file-source-file*))
#-:MCL(defparameter *elab-dir*
        "")

;; the files in the project
(defparameter *elab-core-files*
  '(;; the core ErunticLab files
    "CodeStepper-v2-1"
    "Parameters"
    "ErunticLab"
    "Soup"
    ))

(defparameter *elab-core-files-to-compile*
  '(;; the core ErunticLab files
    "CodeStepper-v2-1"
    "ErunticLab"
    ))

(defparameter *elab-mac-files*
  '(;; the Macintosh user interface
    "Mac:McCartney-library 1.1:@load-McCartney"
    "Mac:ErunticPlotInterface"
    "Mac:ControlWindoid"
    "Mac:PopulateDialog"
    "Mac:DataDialog"
    "Mac:InfoDialog"
    "Mac:about-box:resource-utils"
    "Mac:about-box:pict-dialog-item"
    "Mac:about-box:eruntic-resources"
    "Mac:about-box:about-box"
    "Mac:about-box:elab-menu"
    ))

(defparameter *elab-mac-files-to-compile*
  '(;; the Macintosh user interface
    "Mac:ErunticPlotInterface"
    "Mac:ControlWindoid"
    "Mac:PopulateDialog"
    "Mac:DataDialog"
    "Mac:InfoDialog"
    "Mac:about-box:resource-utils"
    "Mac:about-box:pict-dialog-item"
    "Mac:about-box:eruntic-resources"
    "Mac:about-box:about-box"
    "Mac:about-box:elab-menu"
    ))

(defparameter *elab-files* *elab-core-files*)
(defparameter *elab-files-to-compile* *elab-core-files-to-compile*)

#|
#+:MCL(setq *elab-files*
            (append *elab-files* *elab-mac-files*))

#+:MCL(setq *elab-files-to-compile*
            (append *elab-files-to-compile* *elab-mac-files-to-compile*))
|#

(defun load-elab ()
  (dolist (file *elab-files*)
    (load (concatenate 'string *elab-dir* file)))
  ;;#+:CMU(purify)
  (format t "~%Welcome to ErunticLab!~%"))

(defun compile-elab ()
  #+:CMU(declaim (optimize (extensions:inhibit-warnings 3)))
  (dolist (file *elab-files-to-compile*)
    (compile-file (concatenate 'string *elab-dir* file ".lisp"))))


(load-elab)
;; (compile-elab)


;; #-:MCL
(defun about-eruntic ()
  (format t "~%ErunticLab: an artificial life environment")
  (format t "~%Lee Spector, 1995")
  (format t "~%~%Edit and load StartupScript.lisp to set up a run.")
  (format t "~%You may also want to edit Parameters.lisp or Soup.lisp.")
  (format t "~%Use (run-world <num-cycles>) to run the world.")
  (format t "~%Set *trace-verbose* to t to see more info at runtime.")
  (format t "~%Use (save-data <zone-number>) to save data to a file.")
  (format t "~%Use (compile-elab) to re-compile all source files")
  (format t "~%  [after re-compiling do (load-elab)]")
  (format t "~%Use (about-eruntic) to redisplay this message.")
  (format t "~%"))
             
(about-eruntic)