#!/bin/bash

### Written by Mark Nielsen
### Started 6_25_2002 for Perl and Python line command. 

CUR_DIR=`pwd`
Command=''
if [ ! -f "$CUR_DIR/lib/Gupps.exist" ] ; then 
  echo "You don't seem to be in the main directory for GUPPS, aborting."
  echo "You are in $CUR_DIR."
  echo "Unable to find $CUR_DIR/lib/Gupps.exist"
  exit
fi

#----------------------------------------------------------------------
### Check if files exist, if not, exit.
Pre() {
  if [ -f GUPPS.bat ] ; then  rm -rf GUPPS.bat 
  fi

  echo "#!/bin/bash" >> $CUR_DIR/GUPPS.bat
  cat License >> $CUR_DIR/GUPPS.bat
  echo "GUPPS_HOME=$CUR_DIR" >> $CUR_DIR/GUPPS.bat
  echo "export GUPPS_HOME" >> $CUR_DIR/GUPPS.bat
}

Post() {
  Extra='$@'
  echo "$Command $Extra " >> $CUR_DIR/GUPPS.bat
  chmod 755 $CUR_DIR/GUPPS.bat
}


#---------------------------------
Perl() {
Pre
Command="$CUR_DIR/lib/GUPPS.pl"
Post
echo "Done installing GUPPS for Perl. File at '$CUR_DIR/GUPPS.bat'."
exit
}
#---------------------------------
Python() {
Pre
Command="$CUR_DIR/lib/GUPPS.py"
Post
echo "Done installing GUPPS for Python. File at '$CUR_DIR/GUPPS.bat'."
exit
}
#---------------------------------
Php() {
echo "Php is not implemented yet."
exit
Pre
Command='test'
Post
echo "Done installing GUPPS for PHP. File at '$CUR_DIR/GUPPS.bat'."
exit
}

#---------------------------------
Java() {
echo "Java is not implemented yet."
exit
Pre
Command='test'
Post
echo "Done installing GUPPS for Java. File at '$CUR_DIR/GUPPS.bat'."
exit
}


#--------------------------------------------------------------

case "$1" in
  perl)
        Perl
        ;;
  php)
        Php
        ;;
  python)
        Python
        ;;
  java)
        Java
        ;;
  *)
        echo $"Usage: $0 {perl|python|php|java}"
        exit 1

esac

exit $?