#! /usr/bin/perl -wn
#
# $Id$
#
# Copyright 1989-2016 MINES ParisTech
#
# This file is part of PIPS.
#
# PIPS is free software: you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# any later version.
#
# PIPS is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or
# FITNESS FOR A PARTICULAR PURPOSE.
#
# See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with PIPS.  If not, see <http://www.gnu.org/licenses/>.
#

# Accumulate counts reported in a file of format: 
# "<what is counted...>: <number>\n"
#
# Exemple of usage:
#
# cumulate_statistics.pl y.database/*/*.loop_stats
#
# Any question to Fabien Coelho;-) and Youcef;-)
#

($nom, $nombre) = split /: /;
$stats{$nom} += $nombre;

END {
    print "Accumulation of statistics:\n";
    foreach $k (sort keys %stats) {
	print "$k: $stats{$k}\n";
    }
}