#!/bin/sh
#
# pvmgetarch.sh
#
# Generate PVM architecture string.
#
# This is a heuristic thing that may need to be tuned from time
# to time.  I don't know of a real solution to determining the
# machine type.  Claims to pick one of:
#   AFX8, ALPHA, BAL, BFLY, BSD386, CM2, CM5, CNVX, CNVXN, CRAY,
#   CRAY2, CRAYSMP, DGAV, E88K, HP300, HPPA, I860, IPSC2, KSR1,
#   MIPS, NEXT, PGON, PMAX, RS6K, RT, SGI, SUN3, SUN4, SUN4SOL2,
#   SYMM, TITN, UVAX, VAX, VCM2,
#   UNKNOWN
# Need to do:
#   IPSC2
#
# Notes:
#   1. Local people mess with things.
#   2. It's good to try a few things for robustness.
#
# 08 Apr 1993  Robert Manchek  manchek@CS.UTK.EDU.
#

#
# begin section that may need to be tuned.
#
ARCH=UNKNOWN

if [ -f /bin/uname ]; then
	os="`/bin/uname -s`"
	ht="`/bin/uname -m`"
	osht="$os,$ht"

	case "$osht" in
	SunOS,sun3* )           ARCH=SUN3 ;;
	SunOS,sun4* )           ARCH=SUN4 ;;
	ULTRIX,RISC )           ARCH=PMAX ;;
	ULTRIX,VAX )            ARCH=UVAX ;;
	AIX,* )                 ARCH=RS6K ;;
	*HP*,9000/[2345]* )     ARCH=HP300 ;;
	*HP*,9000/[78]* )       ARCH=HPPA ;;
	IRIX,* )                ARCH=SGI ;;
	*,alpha )               ARCH=ALPHA ;;
	CRSOS,smp )             ARCH=CRAYSMP ;;
	*,paragon )             ARCH=PGON ;;
	dgux,AViiON )           ARCH=DGAV ;;
	*,88k )                 ARCH=E88K ;;
	*,mips )                ARCH=MIPS ;;
	*,CRAY-2 )              ARCH=CRAY2 ;;
	esac
fi

if [ "$ARCH" = UNKNOWN ]; then
	if [ -f /bin/arch ]; then
		case "`/bin/arch`" in
		ksr1 ) ARCH=KSR1 ;;
		sun2 ) ARCH=SUN2 ;;
		sun3 ) ARCH=SUN3 ;;
		sun4 ) ARCH=SUN4 ;;
		esac
	fi
fi

if [ "$ARCH" = UNKNOWN ]; then

	if [ -f /ultrixboot ]; then
		if [ -f /pcs750.bin ]; then
			ARCH=UVAX
		else
			ARCH=PMAX
		fi
	else
		if [ -f /pcs750.bin ]; then ARCH=VAX; fi
	fi

	if [ -d /usr/alliant ]; then ARCH=AFX8; fi
	if [ -f /usr/bin/cluster ]; then ARCH=BFLY; fi
	if [ -d /usr/convex ]; then ARCH=CNVX; fi
	if [ -f /unicos ]; then ARCH=CRAY; fi
	if [ -f /hp-ux ]; then ARCH=HP300; fi
	if [ -f /usr/bin/getcube ]; then ARCH=I860; fi
	if [ -f /usr/bin/asm56000 ]; then ARCH=NEXT; fi
	if [ -f /etc/vg ]; then ARCH=RS6K; fi
	if [ -d /usr/include/caif ]; then ARCH=RT; fi
	if [ -f /bin/4d ]; then ARCH=SGI; fi
	if [ -f /dynix ]; then ARCH=SYMM; fi
	if [ -f /bin/titan ]; then ARCH=TITN; fi

	if [ -f /usr/bin/machine ]; then
		case "`/usr/bin/machine`" in
		i386 ) ARCH=BSD386 ;;
		esac
	fi

	if [ -f /usr/bin/uname ]; then
		os="`/usr/bin/uname -s`"
		ht="`/usr/bin/uname -m`"
		case "$os,$ht" in
		Linux,i[34]86 ) ARCH=LINUX ;;
		esac
	fi
fi

if [ "$ARCH" = SUN4 ]; then
	rel="`/bin/uname -r`"
	case "$rel" in
	5.* )   ARCH=SUN4SOL2 ;;
	esac
fi
if [ "$ARCH" = SUN4 -a -f /dev/cm ]; then ARCH=CM2; fi
if [ "$ARCH" = SUN4 -a -f /dev/cmni ]; then ARCH=CM5; fi
#if [ "$ARCH" = CNVX ]; then
#	if getsysinfo -f native_default; then
#		ARCH=CNVXN
#	fi
#fi
if [ "$ARCH" = PMAX -a -d /usr/maspar ]; then ARCH=MASPAR; fi

if [ "$ARCH" = SGI ]; then
  AWK=`which awk`
  IRIX=`/bin/uname -r | $AWK -F. '{print $1}'`
  if [ "$IRIX" = 5 ]; then ARCH=SGI5; fi
fi

#
# ugh, done.
#

echo $ARCH
exit

