;;; -*- Mode: Lisp, Fill, Save; Package: COMMON-LISP-USER -*- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; The Garnet User Interface Development Environment. ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; This code was written as part of the Garnet project at ;;; ;;; Carnegie Mellon University, and has been placed in the public ;;; ;;; domain. If you are using this code or any part of Garnet, ;;; ;;; please contact garnet@cs.cmu.edu to be put on the mailing list. ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; 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-utils-p (Default: T => utils compiled and loaded) ;;; compile-kr-p (Default: T => kr compiled and loaded) ;;; compile-gem-p (Default: T => gem compiled and loaded) ;;; compile-opal-p (Default: T => opal compiled and loaded) ;;; compile-inter-p (Default: T => interactors compiled and loaded) ;;; compile-gesture-p (Default: T => gestures compiled and loaded) ;;; compile-ps-p (Default: T => PS module 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: T => lapidary compiled and loaded) ;;; compile-gilt-p (Default: T => gilt compiled and loaded) ;;; compile-c32-p (Default: T => C32 compiled and 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: 11/10/93 Andrew Mickish - Added Gem 4/ 5/93 Dave Kosbie - Added Garnet-Utils 6/24/92 Andrew Mickish - Added C32 5/14/92 Pedro Szekely - Initialize launch-process-p to NIL. 5/4/92 Russell Almond - Added allegro-v4.1 switches 4/29/92 VanderZanden - Released lapidary. 4/2/92 McDaniel - New multifont. 3/19/92 Andrew Mickish - Changed setf's to defvar's 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 ============================================================ |# ;; Set up *features* list so we can use #+/-has-cl and #+/-has-cl-user ;; #-has-cl ;; <-- this prevents putting :has-cl on the list multiple times (when (find-package :COMMON-LISP) (push :has-cl *features*)) #-has-cl-user ;; <-- this prevents putting :has-cl on the list multiple times (when (find-package :COMMON-LISP-USER) (push :has-cl-user *features*)) ;; Main in-package statement ;; #+has-cl-user (in-package :COMMON-LISP-USER) #-has-cl-user (in-package :USER) (defvar compile-utils-p T) (defvar compile-kr-p T) (defvar compile-gworld-p T) (defvar compile-gem-p T) (defvar compile-opal-p T) (defvar compile-inter-p T) (defvar compile-gesture-p T) (defvar compile-ps-p T) (defvar compile-aggregadgets-p T) (defvar compile-gadgets-p T) (defvar compile-debug-p T) (defvar compile-demos-p T) (defvar compile-lapidary-p T) (defvar compile-gilt-p T) (defvar compile-c32-p T) ; first, don't load anything, just load garnet-loader to set up file names (defvar load-utils-p NIL) (defvar load-kr-p NIL) (defvar load-gworld-p NIL) (defvar load-gem-p NIL) (defvar load-opal-p NIL) (defvar load-inter-p NIL) (defvar load-multifont-p NIL) (defvar load-gesture-p NIL) (defvar load-ps-p NIL) (defvar load-aggregadgets-p NIL) (defvar load-aggregraphs-p NIL) (defvar load-gadgets-p NIL) (defvar load-debug-p NIL) (defvar load-demos-p NIL) (defvar load-lapidary-p NIL) (defvar load-gilt-p NIL) (defvar load-c32-p NIL) (defparameter load-utils-p-copy (if (boundp 'load-utils-p) load-utils-p T)) (defparameter load-kr-p-copy (if (boundp 'load-kr-p) load-kr-p T)) (defparameter load-gworld-p-copy (if (boundp 'load-gworld-p) load-gworld-p T)) (defparameter load-gem-p-copy (if (boundp 'load-gem-p) load-gem-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-multifont-p-copy (if (boundp 'load-multifont-p) load-multifont-p T)) (defparameter load-gesture-p-copy (if (boundp 'load-inter-p) load-gesture-p T)) (defparameter load-ps-p-copy (if (boundp 'load-ps-p) load-ps-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-lapidary-p-copy (if (boundp 'load-lapidary-p) load-lapidary-p NIL)) (defparameter load-gilt-p-copy (if (boundp 'load-gilt-p) load-gilt-p NIL)) (defparameter load-c32-p-copy (if (boundp 'load-gilt-p) load-gilt-p NIL)) ;; tell garnet-loader to not launch the main event loop process. (defvar launch-process-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~%")