--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/williamr/summarise_rnd_binaries.pl	Mon Jun 01 15:26:59 2009 +0100
@@ -0,0 +1,106 @@
+#! 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;