#!/bin/sh

# $Header$

#

#

# startup script for smalltalk

# actually, simply calls stx, passing all arguments.

#

# In previous versions, smalltalk used to be the executable itself.

# This lead to problems on systems, where things like LD_LIBRARY_PATH

# should be set in advance. 

# Now, here is a place to do such things ...

#

# -x name specifies an explicit executable

#         to avoid executing another stx from some directory along the PATH

#         (i.e to force use: ./smalltalk -x ./stx)

#

# -X name specifies an explicit path to the stx executable 

#         to avoid executing another stx from some directory along the PATH

#         (i.e to force use: ./smalltalk -X .)

#         [almost the same as above]

#

# -ldd    show ldd-output (to debug, which libs are loaded)

#

# all other args go to stx & the user classes

#

if [ "$1" = "--help" ]

then

    echo

    echo "usage: smalltalk [-x prog] [-X dir] [-ldd] stx-args"

    echo

    echo "Args to the smalltalk startup shell script:"

    echo "   -x prog    use prog instead of stx as executable"

    echo "   -X dir     use stx from dir instead of default (PATH)"

    echo "   -ldd       show which shared libraries are used"

    echo "   stx-args   stx arguments as follows."

    echo

    echo "STX args:"

fi

STX=stx

if test -z "$STX_LIBDIR"

then

	bindir=`dirname $0`

	case "$bindir" in

	    /* )

		;;

	    .* )

		bindir=`( cd $bindir; pwd ) 2> /dev/null`

		;;

	esac

	STX_LIBDIR=${bindir}/../lib

fi

export STX_LIBDIR

if test -x `dirname $0`/stx; then

	STX=`dirname $0`/stx

fi

if [ "$1" = "-x" ]

then

    shift

    STX=$1

    shift

fi

if [ "$1" = "-X" ]

then

    shift

    STX=$1/stx

    shift

fi

if [ "$1" = "-ldd" ]

then

    shift

    DEBUGLIB=yes

fi

#

#

# some have Xlibs in /usr/openwin/lib ...

#

if [ -d /usr/openwin/lib ]

then

    if [ "$LD_LIBRARY_PATH" != "" ]

    then

	LD_LIBRARY_PATH=$LD_LIBRARY_PATH:/usr/openwin/lib:/usr/local/lib/smalltalk/lib

    else

	LD_LIBRARY_PATH=/usr/openwin/lib:/usr/local/lib/smalltalk/lib

    fi

    if [ "$SHLIB_PATH" != "" ]

    then

	SHLIB_PATH=$SHLIB_PATH:/usr/openwin/lib:/usr/local/lib/smalltalk/lib

    else

	SHLIB_PATH=/usr/openwin/lib:/usr/local/lib/smalltalk/lib

    fi

else

    if [ "$LD_LIBRARY_PATH" != "" ]

    then

	LD_LIBRARY_PATH=$LD_LIBRARY_PATH:/usr/local/lib/smalltalk/lib

    else

	LD_LIBRARY_PATH=/usr/local/lib/smalltalk/lib

    fi

    if [ "$SHLIB_PATH" != "" ]

    then

	SHLIB_PATH=$SHLIB_PATH:/usr/local/lib/smalltalk/lib

    else

	SHLIB_PATH=/usr/local/lib/smalltalk/lib

    fi

fi

#

# my own libs may be found in STX_LIBDIR/lib

# STX_LIBDIR is to be set to the top of the smalltalk installation

# (i.e. where all the .rc files are located)

#

if [ "$STX_LIBDIR" != "" ]

then

    if [ "$STX_LIBDIR" != "/usr/local/smalltalk" ]

    then

	LD_LIBRARY_PATH=$STX_LIBDIR/lib:$LD_LIBRARY_PATH

	SHLIB_PATH=$STX_LIBDIR/lib:$SHLIB_PATH

    fi

fi

LD_LIBRARY_PATH=.:./lib:$LD_LIBRARY_PATH

SHLIB_PATH=.:./lib:$SHLIB_PATH

export LD_LIBRARY_PATH

export SHLIB_PATH

#

# if started via ./smalltalk, prepend . to the PATH 

# (to allow test of ./stx even when stx is found along the PATH)

#

case $0 in

    ./*)

	PATH=.:$PATH

	export PATH

	;;

esac

#

# debugging which stx & shared libs are used ...

#

if [ "$STX" = "stx" ]

then

  if [ -f stx ]

  then

    whichOne=`/bin/sh -c "type stx"`

    if [ "$whichOne" != "stx is ./stx" ]

    then

      echo "************* WARNING the executed" $whichOne

      echo "************* (may not be appropriate for used shared libs)"

      echo "************* Try './smalltalk -ldd' for more details"

      echo "************* or force the local stx to be used with"

      echo "************* './smalltalk -x ./stx'"

      echo

    fi

  fi

fi

if [ "$DEBUGLIB" = "yes" ]

then

  echo "used LD_LIBRARY_PATH is " $LD_LIBRARY_PATH

  echo "used SHLIB_PATH is " $SHLIB_PATH

  echo "used STX_LIBDIR is " $STX_LIBDIR

  case `uname` in

    HP-UX*)

      chatr $STX

      ;;

    *)

      ldd -r $STX

      ;;

  esac

fi

#

# how did HP mess up things so badly ?

# It takes a veeeery long time for stx to start

# (the spinning wheel is shown when stx's main 

#  starts to run - all the time in between is

#  spent in the systems loader ...)

#

if [ "`uname`" = "HP-UX" ]

then

    echo "Please be patient - hp systems are very slow."

fi

PATH=$PATH:.

export PATH

exec $STX ${1+"$@"}