--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/williamr/check_sources_csv.pl	Wed Feb 10 16:59:46 2010 +0000
@@ -0,0 +1,107 @@
+#!/usr/bin/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:
+# Update sources.csv files in a subtree of interim/fbf/projects/packages,
+# based on a sources.csv file from the corresponding interim/fbf/projects/platforms 
+# definition. Will use "hg remove" to get rid of dirs for obsolete packages
+#
+# Stand in the root of the tree in packages, e.g. Symbian3, and run this script
+# supplying the single model sources.csv file as input, e.g. 
+# platforms/Symbian3/single/sources_fcl.csv
+
+use strict;
+
+my $headerline = <>;
+my $line;
+
+my %dirs;
+while ($line =<>)
+	{
+	if ($line =~ /\/(oss|sfl)\/(MCL|FCL)\/sf\/([^,]+)\/,/)
+		{
+		my $license = $1;
+		my $codeline = $2;
+		my $path = $3;
+		
+		$dirs{$path} = $line;
+		next;
+		}
+	}
+
+sub update_csv_file($)
+	{
+	my ($path) = @_;
+	open FILE, "<$path/sources.csv";
+	my @lines = <FILE>;
+	close FILE;
+	
+	# replace the existing lines with ones from the main sources.csv
+	my @newlines;
+	foreach my $line (@lines)
+		{
+		if ($line =~ /\/(oss|sfl)\/(MCL|FCL)\/sf\/([^,]+)\/,/)
+			{
+			my $license = $1;
+			my $codeline = $2;
+			my $package = $3;
+			
+			push @newlines, $dirs{$package};
+			next;
+			}
+		push @newlines, $line;
+		}
+	
+	open FILE, ">$path/sources.csv";
+	print FILE @newlines;
+	close FILE;
+	}
+
+my %found_dirs;
+my @listing = `dir /s/b sources.csv`;
+foreach $line (@listing)
+	{
+	# G:\system_model\packages\CompilerCompatibility\app\commonemail\sources.csv
+	if ($line =~ /\\([^\\]+)\\([^\\]+)\\sources.csv/)
+		{
+		my $layer = $1;
+		my $package = $2;
+		my $path = "$layer/$package";
+		
+		if (defined $dirs{$path})
+			{
+			if (!-e "$path/package_definition.xml")
+				{
+				print "$path needs a package_definition.xml file\n";
+				}
+			update_csv_file($path);
+			$found_dirs{$path} = 1;
+			next;
+			}
+		else
+			{
+			system("hg", "remove", "$layer//$package");
+			}
+		}
+	}
+
+foreach my $path (sort keys %dirs)
+	{
+	next if $found_dirs{$path};
+	
+	mkdir $path;
+	open FILE, ">$path/sources.csv";
+	print FILE $headerline, $dirs{$path};
+	close FILE;
+	system("hg", "add", "$path/sources.csv");
+	}
\ No newline at end of file