Updated release notes generation:
Added copyright message
Proper command line parsing
Usage message if inputs are not right
Added explanatory preamble to output
"NEW" FCLs are marked as such
Merge changesets are included in output
#! perl
# Copyright (c) 2009 Symbian Foundation Ltd
# This component and the accompanying materials are made available
# under the terms of the License "Eclipse Public License v1.0"
# which accompanies this distribution, and is available
# at the URL "http://www.eclipse.org/legal/epl-v10.html".
#
# Initial Contributors:
# Symbian Foundation Ltd - initial contribution.
#
# Contributors:
#
# Description:
# Perl script to summarise the R&D binaries listing
use strict;
my %grouped_by_basename;
my $line;
while ($line=<>)
{
# 2009-04-30 11:26:58 D.... 0 0 epoc32\cshlpcmp_template
# 2009-03-20 22:22:18 ..... 72192 16307 epoc32\cshlpcmp_template\cshelp2000.dot
next if (length($line) < 54);
my $dir_attribute = substr($line, 20, 1);
if ($dir_attribute eq ".")
{
chomp $line;
my $fullpath = substr($line, 53);
my $filename = substr($fullpath, rindex($fullpath,"\\")+1);
my $basename = lc substr($filename, 0, index($filename,"."));
if ($basename =~ /^(.*){[0-9a-f]+}$/)
{
# import library
$basename = $1;
}
elsif ($basename =~ /^(.*)_\d+$/)
{
# language variant in basename rather than extension
$basename = $1;
}
elsif ($basename =~ /^(.*)_(aif|reg)$/)
{
# Uikon file grouping
$basename = $1;
}
if (!defined $grouped_by_basename{$basename})
{
$grouped_by_basename{$basename} = ();
}
push @{$grouped_by_basename{$basename}}, $fullpath;
next;
}
}
sub summarise_extensions(@)
{
my @files = @_;
my $resources = 0;
my $exes = 0;
my $dlls = 0;
my $libs = 0;
my $maps = 0;
my $headers = 0;
my $others = 0;
my %what_others;
foreach my $file (@files)
{
my $extension = substr($file,rindex($file, "."));
if ($extension =~ /^.r\d+$/io)
{
$what_others{".rNN"} += 1;
next;
}
if ($extension =~ /^.o\d+$/io)
{
$what_others{".oNNNN"} += 1;
next;
}
$what_others{$extension} += 1;
}
foreach my $extension (sort keys %what_others)
{
printf "%d %s, ", $what_others{$extension}, $extension;
}
print "\n";
}
my $count = 0;
foreach my $basename (sort keys %grouped_by_basename)
{
my @files = @{$grouped_by_basename{$basename}};
next if (! grep /winscw|tools/, @files); # ignore ARMV5 only for now...
printf "%6d\t%s\t", scalar @files, $basename;
summarise_extensions(@files);
$count++;
}
printf "%d distinct missing basenames (from %d total)\n", $count, scalar keys %grouped_by_basename;