#!/usr/bin/env perl
#
# $Id$
# Author: Makarius
#
# DESCRIPTION: Simple report generator for Poly/ML profiling output.
use strict;
my %log = ();
my @output = ();
while (<ARGV>) {
if (m,^([ 0-9]{10}) (\S+$|GARBAGE COLLECTION.*$),) {
my $count = $1;
my $fun = $2;
$fun =~ s,-?\(\d+\).*$,,g;
$fun =~ s,/\d+$,,g;
if ($count =~ m,^\s*(\d)+$,) {
if (defined($log{$fun})) {
$log{$fun} += $count;
} else {
$log{$fun} = $count;
}
}
}
}
foreach my $fun (keys %log) {
push @output, (sprintf "%14u %s\n", $log{$fun}, $fun);
}
print (sort @output);