Return to %ZOS.m CVS log

Up to [Coherent Logic Development] / freem / contrib

Annotation of freem/contrib/%ZOS.m, revision 1.1.1.1

1.1       snw         1: %ZOS  ;;Stephen G Maher, Netdrive Technology Limited
                      2:  ;;Return the operating specific 'uname' information.
                      3:  ;;
                      4:  Q
                      5: INIT ;
                      6:  N temp,EXEC,%
                      7:  S EXEC="!<uname -a | tr ' ' ':'",temp=""
                      8:  X EXEC
                      9:  I % D
                     10:  . S temp=%(1)
                     11:  . Q
                     12:  Q temp
                     13:  ;
                     14: EXAMPLE ;
                     15:  S OS=$($ZOS,":")
                     16:  I OS="AIX" S ....
                     17:  I OS="SunOS" S....
                     18:  I OS="HP-UX" S......
                     19:  I OS="OSF1" S.....
                     20:  Q
                     21: