;;; -*- Mode: Lisp; Syntax: Common-lisp; Package: User; Base: 10.; -*-

;;; Copyright (c) 1987, Massachusetts Institute of Technology
;;; Author: Walter Gillett

;;; System definition (under Release 7) for a collection of utilities written
;;; by Mike Drumheller and Walter Gillett.

;;;*****************************************************************************
;;; CHANGE HISTORY
;;;
;;;  9/29/87 WEG  Created.
;;;
;;;  10/9/87 WEG  Image-utils merged into utils.
;;;
;;;  1/12/88 PEO  Calibration added.
;;;
;;;*****************************************************************************

(in-package :user)

;;; Load the Connection Machine Vision system.
(unless #+symbolics (sct:find-system-named 'cmv nil t nil)
	#-symbolics t
  (warn "System CMV is not loaded.  It is required for MIKE-UTILS7."))

;;; Load head-eye software, which loads lxb-color system.
(unless (member "HEAD-EYE" *modules* :test #'string-equal)
  (warn "HEAD-EYE code not loaded.  It is required for MIKE-UTILS7.
It can be found in vision:xbus-devices;interfaces;unet;head-eye;driver")
  (unless (find-package "HEAD-EYE")
    (make-package "HEAD-EYE" :nicknames '("H-E" "HE") :use '(lisp))))

(unless (find-package "*LISP")
  (error "MIKE-UTILS7 requires *Lisp.  This is not *Lisp."))
	  
(hst:define-system MIKE-UTILS7
    (:pretty-name "Mike's Utilities"
     :short-name "mu7"
     :default-package mu
     :default-pathname ;"vision:vm;stereo;mike-utils7;"
     #+lispm "mw:/projects/vision/code/stereo/VM/utils/"
     #-lispm "/projects/vision/code/stereo/VM/utils/"
     :default-module-type :lisp
     :initial-status :experimental
     :maintaining-sites :ai
     :source-category :basic
     :distribute-sources t
     :distribute-binaries t
     )
  (:serial
    (:system cmv)
    "packages"
    (:parallel

      ;; Color display support
     (:serial "color"
	      (:parallel
	       #+symbolics "color-lxb"
	       #+clx "color-clx"))      

      "init-color"
      "utils"
      "grabber"
      ;; "head"
      ;; "calibration"
      "saving-stuff-on-disk"
      ;;"draw-line"
      ;;"1b-region-label"
      )))