#!/bin/sh
# Determine the machine type and architecture.
# $Id: fmarch,v 1.1 1992/10/02 22:23:17 eeg Exp $

[ -d '`node_data' ] && {
    os=bsd
    status=`echo $SYSTYPE | grep sys5 > /dev/null 2>&1`
    [ $status = 0 ] && os=sysV
    echo apollo.$os.m68k
    exit 0
}

[ -f /bin/arch ] && {
    # Sun.
    sysname=`/bin/arch | sed -e s/Sun/sun/`
    processor=""
    case $sysname in
       sun4*) processor=sparc ;;
       sun386) processor=i386 ;;
       sun3) processor=m68k ;;
    esac
    ui=sv
    ps -ax | awk '{ print $5 }' > /tmp/fmarch.$$
    grep -s "^X$" /tmp/fmarch.$$
    [ $? = 0 ] && ui=x
    rm -f /tmp/fmarch.$$
    os=sunos
    [ -x /bin/uname ] && os=sysv
    echo sun$ui.$os.$processor
    exit 0
}


[ -f /bin/uname ] && {
    # Lots -o- machines.
    sysname=`/bin/uname -m`

    case $sysname in
    9000/8*|9000/7*)
	echo hp.hpux.pa;;
    9000/3*|9000/4*)
	echo hp.hpux.m68k;;
    AViiON)
	echo dg;;
    mips)
	echo mips;;
    UTek|Tek*|XD88/30)
	echo tek;;
    IP6)
	echo sgi.irix.mips;;
    MIPS|RISC)
	echo dec.ultrix.mips;;
    VAX)
	echo dec.ultrix.vax;;
    i386)
	if [ -d /usr/lib/sco ]; then
	    echo sco.scounix.i386
	else
	    echo $sysname
	fi;;
    *)
	osname=`/bin/uname -s`

	case $osname in
	AIX*)
	    # Maybe this will get all the IBM RS6000s!
	    echo ibm.rs6000;;
	*)
	    echo $sysname;;
	esac
    esac
    exit 0
}

[ -f /bin/machine ] && {
    # Dec.
    sysname=`/bin/machine`
    if [ "$sysname" = "mips" ]; then
	echo dec.ultrix.mips
    else
	echo dec.ultrix.$sysname
    fi
    exit 0

}

[ ${machine-none} != 'none' ] && {
    # Sony.
    case $machine in
    news1*|news8*)
	echo sony.m68k;;
    news3*)
	echo sony.r3k;;
    *)
	echo $machine;;
    esac
    exit 0
}

# Woops!
echo unknown
exit 1
