#! /usr/bin/perl -w
#
# changelog-checker - a silly tool to analyze ChangeLog file.
#
# Copyright (C) 1999 Satoru Takabayashi <satoru-t@is.aist-nara.ac.jp>
#     All rights reserved.
#     This is free software with ABSOLUTELY NO WARRANTY.
#
# You can redistribute it and/or modify it under the terms of 
# the GNU General Public License version 2.
#

use strict;

my $date_and_name = undef;
my $cnt = 0;

while (<>) {
    next if /^\s*$/;
    chomp;

    if (/^\d/) {
	if (defined $date_and_name) {
	    printf "%8d  $date_and_name\n", $cnt;
	}
	$date_and_name = $_;
	$cnt = 0;
    } elsif (/^\s+\*/) {
	$cnt++;
    }
}
printf "%8d  $date_and_name\n", $cnt;