#!/bin/sh
#
# DataVision Install v1.0

echo DataVision Install 1.0
echo

llength () {
   lnumber=$#
}

lindex1 () {
   lelem1=$1
}

if test "$WISHX_PATH" = ""; then

   # get path of wishx
   #
   whichresult=`which wishx`
   lindex1 $whichresult
   llength $whichresult

   if test $lnumber != "1"; then
      echo Error: \'wishx\' does not exist or ist not executable\!
      echo DataVision is written for tcl7.3/tk3.6/tclx.
      echo Please install that version and start \'dvinstall\' again.
      exit
   fi 

   WISHX_PATH=$lelem1
   export WISHX_PATH
fi

# install DataVision
#
$WISHX_PATH -f install/dvinstall.tcl -name dvinstall
