source: modipsl/trunk/util/w_i_h @ 316

Last change on this file since 316 was 316, checked in by mafoipsl, 16 years ago

add babel (Blue Gene) and bgfe (Blue Gene Front End) in modipsl tools.

  • Property svn:executable set to *
  • Property svn:keywords set to Id
File size: 2.0 KB
Line 
1#!/bin/ksh
2# $Id$
3#-----------------------------------------------#
4#- What is host ?   -   w_i_h   -   20/03/2008 -#
5#-----------------------------------------------#
6w_z=$(uname -s -n -r -m 2>/dev/null);
7[[ ${?} != 0 ]] && { exit 1; }
8read u_s u_n u_r u_m << !
9  $(print - ${w_z})
10!
11unset w_z;
12#-
13case ${u_s} in
14 ( AIX ) \
15  { case ${u_n} in
16     ( zahir* )                 DSYS="aix";;
17     ( * )                      DSYS="ax_mono";
18    esac
19  };;
20 ( AIXESA )                     DSYS="aixesa";;
21 ( ConvexOS )                   DSYS="convex";;
22 ( CP486 | dev )                DSYS="sco";;
23 ( Darwin )                     DSYS="Darwin";;
24 ( HP-UX ) \
25  { case ${u_n} in
26     ( moon )                   DSYS="eshpux";;
27     ( * )                      DSYS="hpux";;
28    esac
29  };;
30 ( IRIX ) \
31  { case ${u_r} in
32     ( 4\.* )                   DSYS="sgi4";;
33     ( * )                      DSYS="sgi5";;
34    esac
35  };;
36 ( IRIX64 )                     DSYS="sgi6";;
37 ( Linux ) \
38  { case ${u_n} in
39     ( asterix* | obelix* )     DSYS="lxiv8";;
40     ( argent[0-9]* )           DSYS="argent";;
41     ( platine[0-9]* )          DSYS="platine";;
42     ( mercure )                DSYS="sx8mercure";;
43     ( brodie )                 DSYS="sx8brodie";;
44     ( ds[0-9]* )               DSYS="sxdkrz";;
45     ( babel* )                  DSYS="babel";;
46     ( * )                      DSYS="linux";;
47    esac
48  };;
49 ( MIPS )                       DSYS="mips";;
50 ( OSF1 )                       DSYS="osf1";;
51 ( SunOS ) \
52  { case ${u_r} in
53     ( 5\.* )                   DSYS="solaris";;
54     ( * )                      DSYS="sun";;
55    esac
56  };;
57 ( SUPER-UX )                   DSYS="nec";;
58 ( ULTRIX )                     DSYS="ultrix";;
59 ( UNICOS | sn4803 | sn4602 )   DSYS="cray";;
60 ( UNIX_System_V )              DSYS="fjvpp";;
61 (*) \
62  { case ${u_m} in
63     ( "CRAY T3E" )             DSYS="t3e";;
64     ( * )                      DSYS="Unknown";;
65    esac
66  };;
67esac
68#-
69echo "$DSYS";
70unset u_s u_n u_r u_m;
71#-
72exit 0;
Note: See TracBrowser for help on using the repository browser.