#! /bin/csh -f
#
#/*****************************************************************************
#                Copyright Carnegie Mellon University 1992
#
#                      All Rights Reserved
#
# Permission to use, copy, modify, and distribute this software and its
# documentation for any purpose and without fee is hereby granted,
# provided that the above copyright notice appear in all copies and that
# both that copyright notice and this permission notice appear in
# supporting documentation, and that the name of CMU not be
# used in advertising or publicity pertaining to distribution of the
# software without specific, written prior permission.
#
# CMU DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
# ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
# CMU BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
# ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
# WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
# ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
# SOFTWARE.
#*****************************************************************************/
#
#
# SYNTAX
#   miro-editor
#
# SYNOPSIS
#   So long as a new lisp core image for the editor is not being
#   built, start a new lisp with the core file /usr/miro/lib/miro.core
#
set miro_lib = /usr/miro/lib
if (-e $miro_lib/.installing-editor) then
  echo "The Miro editor is temporarily out of service.  A new core image"
  echo "is being installed. Please try again in a few minutes."
else if (! -e $miro_lib/miro.core) then
  echo "Cannot find editor core file ${miro_lib}/miro.core."
else
  echo "Loading miro.core...  Please be patient."
  unlimit datasize

# CMU Common Lisp
# exec lisp -core $miro_lib/miro.core

# Allegro Common Lisp
  exec $miro_lib/miro.core
endif

