initial commit for version 1.6.x patch release
[OpenFOAM-1.6.x.git] / bin / foamProcessInfo
blobdc8a9e650ceb2f05457e3cf268de9525fc173b83
1 #!/bin/sh
2 #------------------------------------------------------------------------------
3 # ========= |
4 # \\ / F ield | OpenFOAM: The Open Source CFD Toolbox
5 # \\ / O peration |
6 # \\ / A nd | Copyright (C) 1991-2009 OpenCFD Ltd.
7 # \\/ M anipulation |
8 #-------------------------------------------------------------------------------
9 # License
10 # This file is part of OpenFOAM.
12 # OpenFOAM is free software; you can redistribute it and/or modify it
13 # under the terms of the GNU General Public License as published by the
14 # Free Software Foundation; either version 2 of the License, or (at your
15 # option) any later version.
17 # OpenFOAM is distributed in the hope that it will be useful, but WITHOUT
18 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
19 # FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
20 # for more details.
22 # You should have received a copy of the GNU General Public License
23 # along with OpenFOAM; if not, write to the Free Software Foundation,
24 # Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
26 # Script
27 # foamProcessInfo
29 # Description
30 # Collects user's process status information into file. File contains one
31 # line per process:
33 # pid state command
35 # state is one of 'RUNN' 'SUSP' 'OTHR',
36 # command is the argv[0]
38 # Tested on Linux,IRIX,SunOS
40 #-------------------------------------------------------------------------------
42 PROGNAME=`basename $0`
43 TMPFILE=/tmp/${PROGNAME}$$.tmp
44 AWKFILE=/tmp/${PROGNAME}$$.awk
46 if [ `uname -s` = Linux ]
47 then
48 ECHO='echo -e'
49 else
50 ECHO='echo'
54 if [ $# -ne 1 ]
55 then
56 echo "Error : $PROGNAME : insufficient arguments" 1>&2
57 exit 1
61 outputFile=$1
62 rm -f $outputFile
65 ARCH=`uname`
67 #-- Force standards behaving ps
68 # Get info on all $USER processes
69 case $ARCH in
70 HP-UX*)
71 UNIX95=a; export UNIX95
73 IRIX*)
74 _XPG=1; export _XPG
76 esac
78 case $ARCH in
79 SunOS*)
80 ps -e -o 'pid,f,s,comm' > $TMPFILE
82 HP-UX*)
83 ps -e -o 'pid,flags,state,comm' > $TMPFILE
86 ps -e -o 'pid,flag,state,comm' > $TMPFILE
87 esac
90 rm -f $AWKFILE; touch $AWKFILE
91 case $ARCH in
92 IRIX*)
93 echo '($2 == 40) || ($3 == "T") {print $1 " SUSP // " $4; next}' >> $AWKFILE
94 echo '($3 == "R") || ($3 == "S") || ($3 == "D") {print $1 " RUNN // " $4; next}' >> $AWKFILE
95 echo '{print $1 " OTHR // " $4}' >> $AWKFILE
97 Linux*)
98 echo '($3 == "T") {print $1 " SUSP // " $4; next}' >> $AWKFILE
99 echo '($3 == "R") || ($3 == "S") || ($3 == "D") {print $1 " RUNN // " $4; next}' >> $AWKFILE
100 echo '{print $1 " OTHR // " $4}' >> $AWKFILE
102 SunOS*)
103 echo '($3 == "T") {print $1 " SUSP // " $4; next}' >> $AWKFILE
104 echo '($3 == "O") || ($3 == "S") || ($3 == "R") {print $1 " RUNN // " $4; next}' >> $AWKFILE
105 echo '{print $1 " OTHR // " $4}' >> $AWKFILE
108 echo "Error : $PROGNAME : unsupported achitecture $ARCH"
110 esac
112 $ECHO "(" > $outputFile
113 tail +2 $TMPFILE | awk -f $AWKFILE >> $outputFile
114 $ECHO ")" >> $outputFile
116 rm -f $TMPFILE $AWKFILE
118 #------------------------------------------------------------------------------