;;; -*- Mode: LISP; Syntax: Common-Lisp; Package: COMMON-LISP-USER; Base: 10 -*-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;         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. ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;
;;;  3.0-patches/patch-compiler.lisp
;;;


;;;  CHANGE LOG:
;;;
;;;  07/18/95 Andrew Mickish - Added features.lisp
;;;  04/17/95 Andrew Mickish - Added process.lisp
;;;  03/09/95 Andrew Mickish - Added kr.lisp
;;;  01/30/95 Andrew Mickish - Created


;;; Before loading this file, install the patch files as instructed in
;;; the README file.
;;;
;;; This file automates the process of generating new binaries for the
;;; patch files.  Start a fresh lisp and load garnet-loader.lisp.
;;; Then load this file.


(in-package "USER")


(format t "~%~%***~%")
(format t "*** NOTE:  This compiler script assumes that you have already~%")
(format t "***        installed the patched files in the appropriate Garnet~%")
(format t "***        directories, and that you are loading this script into~%")
(format t "***        a fresh lisp image with Garnet already loaded.~%")
(format t "***~%~%")
(format t "Compiling Garnet 3.0 Patches...~%")


;; check first to see if pathname variable is set
(unless (boundp 'Garnet-Gilt-PathName)
  (error "Load 'Garnet-Loader' first to set Garnet-Gilt-PathName before loading this file."))



;;;;;;;;;;;
;;;;;;;;;;;   Load dependent gadget files
;;;;;;;;;;;

;; Only loads this file when not compiling all of Garnet.
(unless (or (get :garnet-modules :multifont)
	    (and (boundp 'user::compile-opal-p) user::compile-opal-p
		 (boundp 'user::compile-inter-p) user::compile-inter-p))
  (garnet-load "opal:multifont-loader"))

;; Only loads these file when not compiling all of Garnet.
(dolist (pair '((:text-buttons "text-buttons-loader")
		(:x-buttons "x-buttons-loader")
		(:radio-buttons "radio-buttons-loader")
		(:labeled-box "labeled-box-loader")
		(:scrolling-labeled-box "scrolling-labeled-box-loader")
		(:multi-selection "multi-selection-loader")
		(:motif-text-buttons "motif-text-buttons-loader")
		(:motif-check-buttons "motif-check-buttons-loader")
		(:motif-radio-buttons "motif-radio-buttons-loader")
		(:motif-v-scroll-bar "motif-v-scroll-loader")
		(:motif-h-scroll-bar "motif-h-scroll-loader")
		(:motif-slider "motif-slider-loader")
		(:motif-menu "motif-menu-loader")
		(:motif-gauge "motif-gauge-loader")
		(:motif-scrolling-labeled-box "motif-scrolling-labeled-box-loader")
		(:motif-error-gadget "motif-error-gadget-loader")
		(:motif-prop-sheet-win "motif-prop-sheet-win-loader")
		(:motif-scrolling-window "motif-scrolling-window-loader")
		(:motif-menubar "motif-menubar-loader")
		(:motif-trill-device "motif-trill-device-loader")
		(:standard-edit "standard-edit-loader")
		))
    (unless (get :garnet-modules (car pair))
      (garnet-load (concatenate 'string "gadgets:" (cadr pair)))))


;;;;;;;;;;;
;;;;;;;;;;;   Load Gestures
;;;;;;;;;;;

(garnet-load "gesture:gesture-loader")


;;;;;;;;;;;
;;;;;;;;;;;   Load Gilt
;;;;;;;;;;;

(garnet-load "gilt:gilt-loader")



;;;;;;;;;;;
;;;;;;;;;;;   Compile patches
;;;;;;;;;;;

(garnet-compile "kr:kr")
(garnet-compile "opal:x")
(garnet-compile "opal:process")
(garnet-compile "inter:i-windows")
(garnet-compile "gesture:gesture-compiler")
(garnet-compile "gilt:gilt")
(garnet-compile "gilt:gilt-gadgets")
(garnet-compile "gilt:motif-gilt-gadgets")



;;;;;;;;;;;
;;;;;;;;;;;   Exit
;;;;;;;;;;;

(format t "...Finished Compiling Garnet 3.0 Patches~%~%")
(format t "~%***~%")
(format t "*** Now exit lisp and restart, then load Garnet and Gilt to get~%")
(format t "*** the new version of the Gilt files.~%")
(format t "***~%")