#!/bin/sh
#
########################################################################
#
# Script for using orb in standalone format for unix
#
# Robert Boyko
# Mar 2004 - completely revised
#
########################################################################
 
#
# the next line restarts using wish \
exec wish "$0" "$@"

##########################################################################

set VERSION		"v2.0"
set NAME		"orb-$VERSION"

#
# look for installation directory if not set 
#
if [ catch {set PROG_HOME [exec printenv ORB_HOME]} err] {
	set path "/usr/local/$NAME"
	set path "/Applications/$NAME $path"
	if ![ catch {set MY_HOME [exec printenv HOME]} err] {
		set path "$MY_HOME/Desktop/$NAME $path"
		set path "$MY_HOME/$NAME $path"
	}

	# look for the software
	set PROG_HOME 0
	foreach loc $path {
		if [file isdirectory $loc] {
			set PROG_HOME $loc
			break
		}
	}

	# didn't find it
	if { $PROG_HOME == 0 } {
		error "Cannot find $NAME. Set ORB_HOME environment variable."
	}
}

# add main tcl modules
source $PROG_HOME/tcl/orb.tcl
source $PROG_HOME/tcl/xalign.tcl

#
# decide where working directory is
#
if [ catch {set WORKSPACE [exec printenv PWD]} err] {
	if [ catch {set WORKSPACE [exec printenv HOME]} err] {
		set WORKSPACE "/tmp"
	}
}

# disable default tcl window when wish is invoked 
wm title . "orb"
wm withdraw .

# start up my window instead, write files to the current workspace
orb_main $PROG_HOME $WORKSPACE
destroy .