#!/bin/sh
# $Id: fmarch,v 1.4 1993/05/11 22:32:34 eeg Exp $
# Copyright (c) 1989-1993 Frame Technology Corp. All rights reserved.
#
# fmarch - Determine the machine type and architecture.

[ -d '`node_data' ] && {
    os=bsd
    echo $SYSTYPE | grep sys5 > /dev/null 2>&1
    [ $? = 0 ] && os=s5
    echo apll.$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

    os=os
    [ -x /bin/uname ] && {
       x=`/bin/uname -r` 2> /dev/null
       [ "$x" -ge 5 ] && os=s5
    }
    echo sunxm.$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.ulx.mips;;
    VAX)
	echo dec.ulx.vax;;
    sun*)
       # Catch Suns with no /bin/arch command
       os=os
       processor=`/bin/uname -m`
       case $processor in
	  sun4*) processor=sparc ;;
       esac
       x=`/bin/uname -r` 2> /dev/null
       [ "$x" -ge 5 ] && os=s5
       echo sunxm.$os.$processor  ;;

    i386)
	if [ -d /usr/lib/sco ]; then
	    echo sco.s5.i386
	else
	    echo $sysname
	fi;;
    *)
	osname=`/bin/uname -s`

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

[ -f /bin/machine ] && {
    # Dec.
    sysname=`/bin/machine`
    if [ "$sysname" = "mips" ]; then
	echo dec.ulx.mips
    else
	echo dec.ulx.$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
