| 1 | #!/bin/bash |
|---|
| 2 | # $Id$ |
|---|
| 3 | #-----------------------------------------------# |
|---|
| 4 | #--- What is host ? - w_i_h - 21/07/2009 ---# |
|---|
| 5 | #-----------------------------------------------# |
|---|
| 6 | w_z=$(uname -s -n -r -m 2>/dev/null); |
|---|
| 7 | [[ ${?} != 0 ]] && { exit 1; } |
|---|
| 8 | read u_s u_n u_r u_m <<< ${w_z} |
|---|
| 9 | unset w_z; |
|---|
| 10 | #- |
|---|
| 11 | d_n=$(dirname ${0}); |
|---|
| 12 | #- |
|---|
| 13 | case ${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 | ( ada* ) DSYS="ada";; |
|---|
| 41 | ( asterix* | obelix* ) DSYS="lxiv8";; |
|---|
| 42 | ( ciclad* ) DSYS="ifort_CICLAD";; |
|---|
| 43 | ( camelot*|loholt*|merlin*)DSYS="ifort_CICLAD";; |
|---|
| 44 | ( argent[0-9]* ) DSYS="argent";; |
|---|
| 45 | ( cesium[0-9]* ) DSYS="cesium";; |
|---|
| 46 | ( platine[0-9]* ) DSYS="platine";; |
|---|
| 47 | ( titane[0-9]* ) DSYS="titane";; |
|---|
| 48 | ( mercure* ) \ |
|---|
| 49 | { DSYS="sx8mercure" |
|---|
| 50 | u_l=$(/usr/bin/modulecmd bash list -t 2>&1) |
|---|
| 51 | for h in ${u_l} |
|---|
| 52 | do |
|---|
| 53 | [[ ${h} = 'SX9' ]] && { DSYS="sx9mercure"; break; } |
|---|
| 54 | done |
|---|
| 55 | unset u_l h |
|---|
| 56 | };; |
|---|
| 57 | ( brodie ) DSYS="sx8brodie";; |
|---|
| 58 | ( ulam ) DSYS="ulam";; |
|---|
| 59 | ( ds[0-9]* ) DSYS="sxdkrz";; |
|---|
| 60 | ( babel* ) DSYS="babel";; |
|---|
| 61 | ( curie* ) DSYS="curie";; |
|---|
| 62 | ( irene170 | irene171 | irene190 | irene191 | irene192 | irene193 ) DSYS="irene";; |
|---|
| 63 | ( irene172 | irene173 | irene194 | irene195 ) DSYS="irene-amd";; |
|---|
| 64 | ( jean-zay* ) DSYS="jeanzay";; |
|---|
| 65 | ( occigen* ) DSYS="occigen";; |
|---|
| 66 | ( * ) DSYS="linux";; |
|---|
| 67 | esac |
|---|
| 68 | };; |
|---|
| 69 | ( MIPS ) DSYS="mips";; |
|---|
| 70 | ( OSF1 ) DSYS="osf1";; |
|---|
| 71 | ( SunOS ) \ |
|---|
| 72 | { case ${u_r} in |
|---|
| 73 | ( 5\.* ) DSYS="solaris";; |
|---|
| 74 | ( * ) DSYS="sun";; |
|---|
| 75 | esac |
|---|
| 76 | };; |
|---|
| 77 | ( SUPER-UX ) DSYS="nec";; |
|---|
| 78 | ( ULTRIX ) DSYS="ultrix";; |
|---|
| 79 | ( UNICOS | sn4803 | sn4602 ) DSYS="cray";; |
|---|
| 80 | ( UNIX_System_V ) DSYS="fjvpp";; |
|---|
| 81 | (*) \ |
|---|
| 82 | { case ${u_m} in |
|---|
| 83 | ( "CRAY T3E" ) DSYS="t3e";; |
|---|
| 84 | ( * ) DSYS="Unknown";; |
|---|
| 85 | esac |
|---|
| 86 | };; |
|---|
| 87 | esac |
|---|
| 88 | #- |
|---|
| 89 | echo "$DSYS"; |
|---|
| 90 | unset u_s u_n u_r u_m; |
|---|
| 91 | #- |
|---|
| 92 | exit 0; |
|---|
| 93 | |
|---|
