#!/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);