source: modipsl/trunk/util/w_i_h @ 578

Last change on this file since 578 was 578, checked in by bellier, 15 years ago

Added elements to use ulam at IDRIS

  • Property svn:executable set to *
  • Property svn:keywords set to Id
File size: 2.1 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     ( 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     ( argent[0-9]* )           DSYS="argent";;
42     ( platine[0-9]* )          DSYS="platine";;
43     ( mercure )                DSYS="sx8mercure";;
44     ( brodie )                 DSYS="sx8brodie";;
45     ( ulam )                   DSYS="ulam";;
46     ( ds[0-9]* )               DSYS="sxdkrz";;
47     ( babel* )                 DSYS="babel";;
48     ( * )                      DSYS="linux";;
49    esac
50  };;
51 ( MIPS )                       DSYS="mips";;
52 ( OSF1 )                       DSYS="osf1";;
53 ( SunOS ) \
54  { case ${u_r} in
55     ( 5\.* )                   DSYS="solaris";;
56     ( * )                      DSYS="sun";;
57    esac
58  };;
59 ( SUPER-UX )                   DSYS="nec";;
60 ( ULTRIX )                     DSYS="ultrix";;
61 ( UNICOS | sn4803 | sn4602 )   DSYS="cray";;
62 ( UNIX_System_V )              DSYS="fjvpp";;
63 (*) \
64  { case ${u_m} in
65     ( "CRAY T3E" )             DSYS="t3e";;
66     ( * )                      DSYS="Unknown";;
67    esac
68  };;
69esac
70#-
71echo "$DSYS";
72unset u_s u_n u_r u_m;
73#-
74exit 0;
Note: See TracBrowser for help on using the repository browser.