#!/bin/ksh
# $Id$
#-----------------------------------------------#
#- What is host ?   -   w_i_h   -   20/03/2008 -#
#-----------------------------------------------#
w_z=$(uname -s -n -r -m 2>/dev/null);
[[ ${?} != 0 ]] && { exit 1; }
read u_s u_n u_r u_m << !
  $(print - ${w_z})
!
unset w_z;
#-
case ${u_s} in
 ( AIX ) \
  { case ${u_n} in
     ( zahir* )                 DSYS="aix";;
     ( * )                      DSYS="ax_mono";
    esac
  };;
 ( AIXESA )                     DSYS="aixesa";;
 ( ConvexOS )                   DSYS="convex";;
 ( CP486 | dev )                DSYS="sco";;
 ( Darwin )                     DSYS="Darwin";;
 ( HP-UX ) \
  { case ${u_n} in
     ( moon )                   DSYS="eshpux";;
     ( * )                      DSYS="hpux";;
    esac
  };;
 ( IRIX ) \
  { case ${u_r} in
     ( 4\.* )                   DSYS="sgi4";;
     ( * )                      DSYS="sgi5";;
    esac
  };;
 ( IRIX64 )                     DSYS="sgi6";;
 ( Linux ) \
  { case ${u_n} in
     ( asterix* | obelix* )     DSYS="lxiv8";;
     ( argent[0-9]* )           DSYS="argent";;
     ( platine[0-9]* )          DSYS="platine";;
     ( mercure )                DSYS="sx8mercure";;
     ( brodie )                 DSYS="sx8brodie";;
     ( ds[0-9]* )               DSYS="sxdkrz";;
     ( * )                      DSYS="linux";;
    esac
  };;
 ( MIPS )                       DSYS="mips";;
 ( OSF1 )                       DSYS="osf1";;
 ( SunOS ) \
  { case ${u_r} in
     ( 5\.* )                   DSYS="solaris";;
     ( * )                      DSYS="sun";;
    esac
  };;
 ( SUPER-UX )                   DSYS="nec";;
 ( ULTRIX )                     DSYS="ultrix";;
 ( UNICOS | sn4803 | sn4602 )   DSYS="cray";;
 ( UNIX_System_V )              DSYS="fjvpp";;
 (*) \
  { case ${u_m} in
     ( "CRAY T3E" )             DSYS="t3e";;
     ( * )                      DSYS="Unknown";;
    esac
  };;
esac
#-
echo "$DSYS";
unset u_s u_n u_r u_m;
#-
exit 0;