#!?SHELL_EXECUTION?

# ==============================================================================
# COPYRIGHT (C) 1991 - 2003  EDF R&D                  WWW.CODE-ASTER.ORG
# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
# IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
# (AT YOUR OPTION) ANY LATER VERSION.
#
# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
#
# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
#    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ==============================================================================

set_prefix() {
    local this=`readlink -n -f $1`
    local bin=`dirname $this`
    prefix=`dirname $bin`
}

set_prefix $0

ASTER_ROOT=$prefix
ASTER_ETC=$ASTER_ROOT/etc
if [ "$ASTER_ROOT" = "/usr" ]; then
    ASTER_ETC=/etc
fi
export ASTER_ROOT
export ASTER_ETC

# set environment
if [ -f $ASTER_ETC/codeaster/profile.sh ]; then
    . $ASTER_ETC/codeaster/profile.sh
fi

# start tcl/tk interpreter
if [ -z "$WISHEXECUTABLE" ]; then
   WISHEXECUTABLE=wish
fi

$WISHEXECUTABLE $ASTER_ROOT/lib/astk/astk.tcl -- $* &

