--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tools/packages_in_rom.pl	Fri Oct 08 18:10:20 2010 +0100
@@ -0,0 +1,98 @@
+# Copyright (c) 2010 Symbian Foundation Ltd.
+# All rights reserved.
+# 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 - initial contribution.
+#
+# Contributors:
+#
+# Description: 
+# This package is to identify the packages which contributed to a ROM image
+# dir /s/b build_info\logs\releaseables\*.tsv | perl packages_in_rom.pl romfile.dir -
+
+use strict;
+
+my %romfiles;
+
+sub scan_rom_dir_file($)
+	{
+	my ($romdirfile) = @_;
+	
+  my $line;
+  open FILE, "<$romdirfile" or print "Failed to read $romdirfile: $!\n" and return;
+  while ($line = <FILE>)
+  	{
+  	next if ($line !~ /\t/);
+  	
+  	chomp $line;
+  	my ($romdest,$srcfile) = split /\t/,$line;
+  	$romdest =~ s/\s*$//;		# strip off trailing spaces
+    $srcfile =~ s/\\/\//g;	# Unix directory separators please
+    
+    $srcfile =~ s/^\[0x[0-9a-fA-F]+\]//;	# remove HVID, if present
+    $srcfile = lc $srcfile; 	# sigh...
+    
+  	$romfiles{$srcfile} = $romdest;
+		}
+	close FILE;
+	}
+
+my %packages;
+my %packagenames;
+my %package_by_romfile;
+
+sub scan_tsv($)
+  {
+  my ($tsvfile) = @_;
+  return if ($tsvfile !~ /\/(([^\/]+)\/([^\/]+))\/info.tsv$/i);
+  my $packagename = $1;
+  $packagename =~ s/\\/\//g;
+  $packagenames{$packagename} = 1;
+  
+  my $line;
+  open FILE, "<$tsvfile" or print "Failed to read $tsvfile: $!\n" and return;
+  while ($line = <FILE>)
+    {
+    chomp $line;
+    my ($filename,$type,$config) = split /\t/,$line;
+    
+    $filename = lc $filename;		# sigh...
+    if (defined $romfiles{$filename})
+    	{
+    	$package_by_romfile{$filename} = $packagename;
+    	}
+    }
+  }
+
+my $romlisting = shift @ARGV;
+scan_rom_dir_file($romlisting);
+
+my $tsvfile;
+while ($tsvfile = <>)
+  {
+  chomp $tsvfile;
+  if ($tsvfile =~ /info.tsv$/)
+    {
+    $tsvfile =~ s/\\/\//g;
+    scan_tsv($tsvfile);
+    }
+  }
+
+print "File\tPackage\n";
+my $unknowns = 0;
+foreach my $file (sort keys %romfiles)
+	{
+	my $package = $package_by_romfile{$file};
+	if (!defined $package)
+		{
+		$package = "(unknown)";
+		$package_by_romfile{$file} = $package;
+		$unknowns += 1;
+		}
+	printf "%s\t%s\n", $file, $package;
+	}
+printf "\n%d files in %s, %d unknowns\n", scalar keys %romfiles, $romlisting, $unknowns;