← Back to branch summary

~ubuntu-branches/ubuntu/precise/ghc/precise

« back to all changes in this revision

Viewing changes to utils/parallel/gr2ap.bash

  • Committer: Bazaar Package Importer
  • Author(s): Joachim Breitner
  • Date: 2011-01-17 12:49:24 UTC
  • Revision ID: james.westby@ubuntu.com-20110117124924-do1pym1jlf5o636m
Tags: upstream-7.0.1
Import upstream version 7.0.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
utils/parallel/gr2ap.bash
 
1
#!/usr/local/bin/bash
 
2
##############################################################################
 
3
# Time-stamp: <Wed Jul 24 1996 20:53:36 Stardate: [-31]7859.14 hwloidl>
 
4
#
 
5
# Usage: gr2ap [options] <gr-file>
 
6
#
 
7
# Create a per-thread activity graph from a GrAnSim (or GUM) profile.
 
8
# Transform the log file of a GrAnSim run (a .gr file) into a quasi-parallel
 
9
# profile (a .qp file) using gr2qp and then into a PostScript file using qp2ap.
 
10
# The generated PostScript file shows one horizontal line for each task. The 
 
11
# thickness of the line indicates the state of the thread:
 
12
#  thick ... active,  medium ... suspended,  thin ... fetching remote data
 
13
#
 
14
# Options:
 
15
#  -o <file> ... write .ps file to <file>
 
16
#  -m        ... create mono PostScript file instead a color one.
 
17
#  -O        ... optimise i.e. try to minimise the size of the .ps file.
 
18
#  -v        ... be talkative. 
 
19
#  -h        ... print help message (this header).
 
20
#
 
21
##############################################################################
 
22
 
 
23
progname="`basename $0`"
 
24
args="$*"
 
25
 
 
26
verb=0
 
27
help=0
 
28
mono=""
 
29
apfile=""
 
30
optimise=""
 
31
scale=""
 
32
width=""
 
33
 
 
34
getopts "hvmo:s:w:OD" name
 
35
while [ "$name" != "?" ] ; do
 
36
  case $name in
 
37
   h) help=1;;
 
38
   v) verb=1;;
 
39
   m) mono="-m";;
 
40
   o) apfile="$OPTARG";;
 
41
   s) scale="-s $OPTARG";;
 
42
   w) width="-w $OPTARG";;
 
43
   O) optimise="-O";;
 
44
   D) debug="-D";;
 
45
  esac 
 
46
  getopts "hvmo:s:w:OD" name
 
47
done
 
48
 
 
49
opts="$mono $optimise $scale $width"
 
50
 
 
51
shift $[ $OPTIND - 1 ]
 
52
 
 
53
if [ $help -eq 1 ]
 
54
 then no_of_lines=`cat $0 | awk 'BEGIN { n = 0; } \
 
55
                                 /^$/ { print n; \
 
56
                                        exit; } \
 
57
                                      { n++; }'`
 
58
      echo "`head -$no_of_lines $0`"
 
59
      exit 
 
60
fi
 
61
 
 
62
 
 
63
if [ -z "$1" ]
 
64
 then echo "Usage: $progname [options] file[.gr]"
 
65
      echo "Use -h option for details"
 
66
      exit 1;
 
67
fi
 
68
 
 
69
f="`basename $1 .gr`"
 
70
grfile="$f".gr
 
71
qpfile="${TMPDIR:-.}/$f".qp
 
72
ppfile="${TMPDIR:-.}/$f".pp
 
73
 
 
74
if [ -z "$apfile" ]
 
75
  then apfile="$f"_ap.ps
 
76
fi
 
77
 
 
78
if [ $verb -eq 1 ]
 
79
  then echo "Input file: $grfile"
 
80
       echo "Quasi-parallel file: $qpfile"
 
81
       echo "PostScript file: $apfile"
 
82
       echo "Options forwarded to qp2ap: $opts"
 
83
       if [ "$mono" = "-m" ]
 
84
         then echo "Producing monochrome PS file"
 
85
         else echo "Producing color PS file"
 
86
       fi
 
87
       if [ "$debug" = "-D" ]
 
88
         then echo "Debugging is turned ON"
 
89
         else echo "Debugging is turned OFF"
 
90
       fi
 
91
fi
 
92
 
 
93
 
 
94
#  unset noclobber
 
95
 
 
96
if [ ! -f "$grfile" ] 
 
97
 then
 
98
  echo "$grfile does not exist"
 
99
  exit 1
 
100
 else
 
101
  # rm -f "$qpfile" "$apfile"
 
102
  prog=`head -1 "$grfile" | sed -e 's/Granularity Simulation for //'`
 
103
  echo "$prog" >| "$qpfile"
 
104
  if [ $verb -eq 1 ]
 
105
    then echo "Executed program: $prog"
 
106
  fi
 
107
  date >> "$qpfile"
 
108
  #date="`date`"                     # This is the date of running the script
 
109
  date="`tail +2 $grfile | head -1 | sed -e 's/Start time: //'`"
 
110
  cat "$grfile" | gr2qp >> "$qpfile"
 
111
  # Sorting is part of gr2qp now.
 
112
  #  | ghc-fool-sort | sort -n +0 -1 | ghc-unfool-sort >> "$qpfile"
 
113
  # max=`tail -2 "$qpfile" | awk '!/^Number of threads:/ { print $1; }'`
 
114
  xmax=`tail -1 "$qpfile" | awk '{ print $2; }'`
 
115
  ymax=`tail -1 "$qpfile" | awk '{ print $8; }'`
 
116
  if [ $verb -eq 1 ]
 
117
    then echo "Total runtime: $xmax"
 
118
         echo "Total number of tasks: $ymax"
 
119
  fi
 
120
  tail +3 "$qpfile" | qp2ap $opts "$xmax" "$ymax" "$prog" "$date" >| "$apfile" 
 
121
  rm -f "$qpfile"
 
122
  # Old: qp2ap.pl $mono  $max "$prog" "$date" < "$qpfile" > "$apfile"
 
123
fi
 
124