ack/first/ckpath

rm -f ../bin/x_tpath x_tpath
echo 'Checking out your $PATH; . and $ACK/bin should be in front ...'
echo "echo $$" >../bin/x_tpath
rm -f x_tpath
chmod +x ../bin/x_tpath
case x`(x_tpath) 2>/dev/null`
in
x$$)	
	STAT=0 ;;
x)
	(cd ../bin ; echo Sorry, `pwd` is not in your shell PATH" ($PATH)")
	STAT=1 ;;
*)
	echo "Sorry, there is something wrong with your PATH ($PATH)" ;;
esac
echo "echo t_$$" > X_Y_Z_
chmod +x X_Y_Z_
case x`X_Y_Z_`
in
xt_$$)
	;;
x)
	(cd ../bin ; echo Sorry, . is not in your shell PATH" ($PATH)")
	STAT=2 ;;
*)
	echo "Sorry, there is something wrong with your PATH ($PATH)" ;;
esac
rm -f X_Y_Z_
case $STAT
in
2)
	;;
*)
	hash -r ;;
esac
echo "echo l_$$" >x_tpath
chmod +x x_tpath
case x`(x_tpath) 2>/dev/null`
in
xl_$$)
	;;
x)
	(cd ../bin ; echo Sorry, . is not in your shell PATH" ($PATH)")
	STAT=2 ;;
x$$)	
	echo Sorry, . is not in your PATH" ($PATH)" or after the ACK bin directory
	STAT=3 ;;
*)
	echo "Sorry, there is something wrong with your PATH ($PATH)"
	STAT=4 ;;
esac
rm -f ../bin/x_tpath x_tpath
echo "echo 93" > ../bin/cat
chmod +x ../bin/cat
hash -r
case x`cat < /dev/null 2>/dev/null`
in
x93)
	rm -f ../bin/cat
	;;
*)
	rm -f ../bin/cat
	(cd ../bin ; echo Sorry, `pwd` comes too late in your PATH" ($PATH)" )
	STAT=13
	;;
esac
exit $STAT