#!/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");+
−
	}+
−