[project @ 1996-01-08 20:28:12 by partain]
[ghc.git] / ghc / misc / examples / cats / mangle_times
1 #! /usr/local/bin/perl
2
3 $InputSize = 0;
4
5 while (<>) {
6     chop;
7
8     if ( m,< /users/fp/partain/bib/comp.bib, ) {
9         $InputSize = 625643;
10         print "$_\n";
11     } elsif ( m,\$bghc/lib/libHS_p.a, ) {
12         $InputSize = 9352492;
13         print "$_\n";
14     } elsif ( m,\$bghca/lib/libHS_p.a, ) {
15         $InputSize = 25455204;
16         print "$_\n";
17
18     } elsif ( /^\s*(\d+\.\d+)u (\d+\.\d+)s / ) {
19         $UserSysTime = $1 + $2;
20         $BytesPerSec = $InputSize / $UserSysTime;
21         printf "%.0f\t%s\n", $BytesPerSec, $_;
22     }
23 }