#!/bin/bash

# $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

# 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)

#

#         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

#

STX_EXE=stx

STX_BIN_DIR=$(dirname $0)

DEBUGGER=

if ! test -f "$STX_BIN_DIR/Make.proto"; then

	STX_LIBDIR="$STX_TOPDIR/lib"

	STX_PACKAGEDIR="$STX_TOPDIR%/packages"

	STX_EXE="$STX_TOPDIR/bin/stx-bin"

fi

if [ "$STX_LIBDIR" != "" ]

then

    if [ ! -f $STX_LIBDIR/smalltalk.rc ]

    then

       echo "smalltalk [warning]: ignore wrong STX_LIBDIR setting ($STX_LIBDIR)"

       STX_LIBDIR=""

    fi

fi

# notice: STXLIBDIR is filled in here by install-sh script

if test -z "$STX_LIBDIR"

then

    bindir=`dirname $0`

    case "$bindir" in

        /* )

        ;;

        .* )

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

        ;;

    esac

    if [ -d ${bindir}/../lib ]

    then

        STX_LIBDIR=`cd ${bindir}/../lib ; pwd`

    fi

fi

if [ -z "$STX_LIBDIR" ]

then

    if [ -d ../lib ]

    then

        STX_LIBDIR=`cd ../lib ; pwd`

    fi

fi

if [ ! -d "$STX_LIBDIR" ]

then

    if [ -d ../lib ]

    then

        STX_LIBDIR=`cd ../lib ; pwd`

    fi

fi

if test -z "$STX_TOPDIR"

then

    if [ -f ../lib/smalltalk.rc ]

    then

        STX_TOPDIR=`cd .. ; pwd`

    else

       if [ -f $STX_LIBDIR/../lib/smalltalk.rc ]

       then

           STX_TOPDIR=`cd $STX_LIBDIR/.. ; pwd`

       else

           if [ -f $STX_BIN_DIR/smalltalk.rc ]

           then

              STX_TOPDIR=`cd $STX_BIN_DIR/../.. ; pwd`

           fi

       fi

    fi

fi

# echo STX_LIBDIR is $STX_LIBDIR

# echo STX_TOPDIR is $STX_TOPDIR

export STX_LIBDIR STX_TOPDIR

# echo STX is $STX_EXE

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

    echo "

args to startup script:

   -x prog ................ use prog instead of stx as executable

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

   --ldd .................. show which shared libraries are used

   --gdb .................. run with gdb-Debugger (type r in debugger to start)

   --gdb .................. run with Visual / VM Debugger

   --cgdb ................. run with cgdb-Debugger (type r in debugger to start)

   --callgrind ............ run under callgrind profiler tool with profiling off -

                            use this to profile some benchmark

   --callgrind-startup .... run under callgrind profiler tool with profiling on

                            - use this to profile VM startup

                            stap -c 'stx ...' Systemtap may not be compiled in.

"

fi

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

then

    shift

    STX_EXE=$1

    shift

fi

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

then

    shift

    STX_EXE=$1/stx

    shift

fi

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

then

    shift

    DEBUGGER="gdb --args"

fi

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

then

    if which "vdb"; then

        VDB=vdb

    elif [ -x "$STX_BIN_DIR/../../../jv/vdb/application/vdb" ]; then

        VDB="$STX_BIN_DIR/../../../jv/vdb/application/vdb"

    else

        echo "$0: could not find Visual / VM Debugger (vdb)"

        exit 1

    fi

    shift

    DEBUGGER="$VDB"

fi

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

then

    shift

    DEBUGGER="cgdb --args"

fi

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

then

    shift

    DEBUGGER="valgrind --tool=callgrind --instr-atstart=no"

fi

if [ "$1" = "--callgrind-startup" ]

then

    shift

    DEBUGGER="valgrind --tool=callgrind"

fi

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

then

    shift

        echo "--stap requires systemtap script to run"

        exit 1

    fi

    if [ ! -r "$1" ]; then

        echo "$1 is not a readable systemtap script"

        echo "--stap requires systemtap script to run"

        exit 1

    fi

    STAPSCRIPT=$1

    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

#

# (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 ...

#

whichOne=`/bin/sh -c "type $STX"`

if [ "$STX_EXE" = "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 " $whichOne

  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

#  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:$STX_BIN_DIR

export PATH

# echo PATH is $PATH

# echo DISPLAY is $DISPLAY

if [ ! -z "$STAPSCRIPT" ]; then

    echo "$STX_TOPDIR/stx/hacking/tapset"

    CMD="$STX_EXE $@"

    echo "$CMD"

    exec stap --unprivileged $STAPSCRIPT -I "$STX_TOPDIR/hacking/tapset" -c "$CMD"

fi

exec $DEBUGGER $STX_EXE ${1+"$@"}