2 # Convert several .gr files (from the same GUM run) into a single
3 # .gr file with all times adjusted relative to the earliest start
10 open(GR, $i) || die "Can't read $i\n";
13 ($pe, $timestamp) = ($start =~ /PE\s+(\d+) \[(\d+)\]/);
14 die "PE $pe too high\n" if $pe > $#ARGV;
15 $proc[$count++] = $pe;
17 $time[$pe] = $timestamp;
18 close(GR) || die "Can't close $i\n";
23 for($i = 0; $i < $count; $i++) {
25 die "PE $pe missing?\n" if !defined($time[$pe]);
26 die "Mismatched .gr files\n" if $pe > 0 && $prog[$pe] ne $prog[$pe - 1];
27 $basetime = $time[$pe] if $basetime == 0 || $basetime > $time[$pe];
32 for($i = 0; $i < $count; $i++) {
34 $delta = $time[$pe] - $basetime;
35 open(GR, $ARGV[$i]) || die "Can't read $ARGV[i]\n";
39 /PE\s+(\d+) \[(\d+)\]/;
40 printf "PE %2u [%lu]%s", $1, $2 + $delta, $';
42 close(GR) || die "Can't close $ARGV[$i]\n";