Removed buildlayout35 package as this is empty and causing errors when running clone all
#! 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;