#!/usr/bin/perl -s

use lib 'lib';
use Conclave::Utils::ICollector;
use Data::Dumper;

our $simple;

my $filename = shift;
die 'Usage: conc-icollector <filename>' unless $filename;

my $collector = Conclave::Utils::ICollector->new();
my @result = $collector->process($filename);

print $collector->pprint(@result);



__END__
if ($simple) {
  for (split /\n+/, $result) {
    $_ =~ /(\w)\((.*?)\).*?F\((.*?):(\d+)\)\s*RAW:(.*)/;
    my ($type, $name, $file, $line, $raw) = (lc $1, $2, $3, $4, $5);
    printf "%s__RAW:%s\n", join("\t", $type, $name, $file, $line), $raw;
  }
}
else {
  print $result;
}