source: modipsl/trunk/util/w_i_h @ 1585

Last change on this file since 1585 was 1368, checked in by aclsce, 13 years ago

Lines removed during previous commit : corrected.

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