#!/bin/sh
#
# Start PVM 3 application (HOST-program)
#
# Usage :    pvmrun [-h hostfile] [-t] PVM_host_program_name [parameters]
# 
#--------------------------------------------------------------------------
# Author: Sami Saarinen
#         Center for Scientific Computing (CSC)
#         P.O.Box 405, Tietotie 6
#         FIN-02101 Espoo, Finland
#       >>e-mail: Sami.Saarinen@csc.fi
#
# Date:   11-NOV-1993
#--------------------------------------------------------------------------

if [ $# = 0 ]
then
	head -6 $0 | tail -5
	exit 1
fi

set -- `getopt h:t $*`

#
# Default values
#

HOSTFILE=
HOSTEXE=

#
# Parse parameters
#

while [ $1 != "--" ]
do
	case $1 in
	 -h) HOSTFILE=$2;
	     shift;;
	 -t) EASY_PICLTRACE=on; export EASY_PICLTRACE;
	esac
	shift
done

shift
HOSTEXE="$*"

if [ "$HOSTEXE" = "" ] ; then
  echo "pvmrun: Nothing to run."
  exit 1
fi

if [ "$HOSTFILE" != "" -a "$HOSTFILE" != "/dev/null" ] ; then
  if [ ! -f "$HOSTFILE" ] ; then
    echo "pvmrun: Hostfile '${HOSTFILE}' not found."
    exit 1
  fi
fi

trap pvmclean 2

#echo "pvmrun% pvminit $HOSTFILE"
pvminit $HOSTFILE 
RC=$?
if [ "$RC" != 0 ] ; then
  pvmclean
  exit $RC
fi

PATH=.:$PATH
export PATH

#echo "pvmrun% $HOSTEXE"
$HOSTEXE
RC=$?
if [ "$RC" != 0 ] ; then
  pvmclean
  exit $RC
fi

#echo "pvmrun% pvmclean"
pvmclean

exit 0
