;;; -*- Mode: Lisp, Fill, Save; Package: USER -*-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; The Garnet User Interface Development Environment
;;; Copyright (c) 1989, Carnegie Mellon University
;;; All rights reserved.  The CMU software License Agreement specifies
;;; the terms and conditions for use and redistribution.
;;;
;;; If you want to use this code or anything developed as part of the
;;; Garnet project, please contact Brad Myers (Brad.Myers@CS.CMU.EDU).
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; 
;;; This file prepares to compile all the garnet modules.  Of course, you
;;; need to have write priviledges on all the directories where the files
;;; are stored.  (These directories are set in garnet-loader).
;;; 
;;; First load this file: 	garnet-prepare-compile
;;; Then load 			garnet-loader
;;; Then load 			garnet-compiler
;;;
;;; The result will be that all the files will be compiled and loaded (the
;;; initial files need to be loaded before later files can be compiled
;;; anyway).  Note that this process does *NOT* check for compile errors,
;;; that is up to you.
;;;
;;; ** To prevent certain parts from being compiled, first set
;;;      user::compile-XX-p to NIL.  To compile lapidary, set
;;; 	 compile-lapidary-p to T (the default is not to compile it)
;;; ** To have the demos or lapidary be loaded after they are
;;; 	 compiled, set user::load-demos-p and user::load-lapidary-p
;;; 	 to T (the default is to NOT load these after compiling them
;;; ** To override where something is loaded from, set Garnet-xx-PathName before
;;;      loading this file.
;;;
;;; The controlling variables are:
;;; 
;;;  compile-kr-p           (Default: T   => kr compiled and loaded)
;;;  compile-opal-p         (Default: T   => opal compiled and loaded)
;;;  compile-inter-p        (Default: T   => interactors compiled and loaded)
;;;  compile-aggregadgets-p (Default: T   => aggregadgets compiled & loaded)
;;;  compile-gadgets-p      (Default: T   => gadgets compiled and loaded)
;;;  compile-debug-p        (Default: T   => debug compiled and loaded)
;;;  compile-demos-p        (Default: T   => demos compiled but *not* loaded)
;;;  compile-lapidary-p     (Default: NIL => lapidary *NOT* compiled or loaded)
;;;
;;; To override any particular file name place, it is only necessary to
;;; assign the variable name Garnet-XX-Pathname before this file is loaded
;;; (since they are defined here using defvar, the old name will stay in affect). 
;;;

#|
============================================================
Change log:
         2/27/91 Dilip D'Souza - added everything with #+allegro-v4.0 switches
         12/5/89 Brad Myers - Fixed so works by setting special flag for
				garnet-loader
         10/30/89 Brad Myers - Added Debug
         8/18/89 Brad Myers - Added Toolkit
         6/21/89 Brad Myers - Created
============================================================
|#
#+allegro-v4.0
(setf excl::*cltl1-in-package-compatibility-p* t)
#+allegro-v4.0
(setf comp:*cltl1-compile-file-toplevel-compatibility-p* t)

(in-package "USER" :use '("LISP"))


(defvar compile-kr-p T)
(defvar compile-opal-p T)
(defvar compile-inter-p T)
(defvar compile-aggregadgets-p T)
(defvar compile-gadgets-p T)
(defvar compile-debug-p T)
(defvar compile-demos-p T)
(defvar compile-gilt-p T)
(defvar compile-lapidary-p NIL)


(defparameter load-kr-p-copy (if (boundp 'load-kr-p)
				 load-kr-p T))
(defparameter load-opal-p-copy (if (boundp 'load-opal-p)
				   load-opal-p T))
(defparameter load-inter-p-copy (if (boundp 'load-inter-p)
				    load-inter-p T))
(defparameter load-aggregadgets-p-copy (if (boundp 'load-aggregadgets-p)
					   load-aggregadgets-p T)) 
(defparameter load-aggregraphs-p-copy (if (boundp 'load-aggregraphs-p)
					   load-aggregraphs-p T)) 
(defparameter load-gadgets-p-copy (if (boundp 'load-gadgets-p)
				      load-gadgets-p T))
(defparameter load-debug-p-copy (if (boundp 'load-debug-p)
				    load-debug-p T))
(defparameter load-demos-p-copy (if (boundp 'load-demos-p)
				    load-demos-p NIL))
(defparameter load-gilt-p-copy (if (boundp 'load-gilt-p)
				    load-gilt-p NIL))
(defparameter load-lapidary-p-copy (if (boundp 'load-lapidary-p)
				       load-lapidary-p NIL))


; first, don't load anything, just load garnet-loader to set up file names

(setf load-kr-p NIL)
(setf load-opal-p NIL)
(setf load-inter-p NIL)
(setf load-aggregadgets-p NIL)
(setf load-aggregraphs-p NIL)
(setf load-gadgets-p NIL)
(setf load-debug-p NIL)
(setf load-demos-p NIL)
(setf load-gilt-p NIL)
(setf load-lapidary-p NIL)

;; tell garnet-loader to load the binaries from the same place as the
;; source files.

(defvar *Garnet-Going-To-Compile* T)

(format T "** Now load garnet-loader, and then load garnet-compiler~%")