#! /bin/sh
# $Id: eclipse.in,v 1.10 2005/02/10 23:45:44 ihatchondo Exp $
#
# This file starts the eclipse window manager
#
# Modified for steeldump.
unset SBCL_HOME

usage () { 
    printf "\nusage: eclipse [options]\n\n"
    printf "   --display=dpy specifies the X server to use.\n"
    printf "   --sm-client-id=id specifies the sesion manager id to use.\n"
    printf "   --activate-log specifies that errors must be logged.\n\n" 
    exit 1;
}

display_spec=""
sm_client_id=""
activate_log=""
options=""

## Parse and collect options.

if [ $# -gt 3 ] ; then usage ; fi

while [ $# -gt 0 ] ; do
  case "$1" in
      --display=*)
	  tmp=`echo $1 | cut -d'=' -f2`
	  display_spec=":display \"$tmp\"" ;
	  shift ;
	  ;;
      --sm-client-id=*)
	  tmp=`echo $1 | cut -d'=' -f2`
	  sm_client_id=":sm-client-id \"$tmp\"";
	  shift ;
	  ;;
      --activate-log)
	  activate_log=":activate-log t";
	  shift ;
	  ;;
      -* | *) 
	  printf "\n $1 unknow option \n";
	  usage ;;
  esac
done

options="$display_spec $sm_client_id $activate_log"

exec /opt/steeldump/bin/sbcl \
	--noinform \
	--userinit /dev/null \
	--disable-debugger \
        --eval '(setf sb-heapdump:*dumpload-verbose* nil)' \
	--eval '(require :eclipse)' \
	--eval "(progn (eclipse:eclipse ${options}) (sb-ext:quit))"