# 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: 
# Read a list of "static dependency" lines and tag them in rom_content.csv

use strict;
use Getopt::Long;

my $newcmd = "";
my $who;
my $marking;
my $other_exes = 0;
GetOptions(
  "c|command=s" => \$newcmd,    # value for the What colum (can be blank)
  "m|message=s" => \$marking,   # comment to add to the CSV lines
  "u|user=s" => \$who,          # value for the Who column
  "x" => \$other_exes,          # marking is applied to exes NOT listed
  );

die("must specify a value for the Why column with the -m option") if (!defined $marking);
die("must specify a value for the Who column with the -u option") if (!defined $who);

my %romfiles;
my $mark_count = 0;
my $line;
while ($line=<>)
	{
	# PRIVATE\10003A3F\IMPORT\APPS\musui_reg.rsc	/epoc32/data/z/private/10003a3f/apps/musui_reg.rsc	sys\bin\musui.exe
	if ($line =~ /^\S+\t\S+\t(\S+)/)
		{
		my $romfile = $1;
		$romfiles{lc $romfile} = 1;
		next;
		}

	my ($romfile,$hostfile,$ibyfile,$package,$cmd,@rest) = split /,/, $line;
	if (!defined $cmd)
		{
		if ($line =~ /^(\S+)$/)
			{
			# guess that this is a preserved executable
			my $exe = "sys\\bin\\". lc $1;
			$romfiles{$exe} = 1;
			# print STDERR "Preserving $exe\n";
			}
		next;
		}
	
	if ($cmd ne "" && $cmd !~ /_/)
		{
		print $line;	# already marked, so leave it alone
		next;
		}

	my $mark_me = 0;
	if ($other_exes)
		{
		if ($romfile =~ /^sys.bin.(.*)$/i)
			{
			# this is an exe - are we tagging it?
			if (!defined $romfiles{lc $romfile})
				{
				# print STDERR "Marking $romfile\n";
				$mark_me = 1;
				}
			}
		}
	elsif (defined $romfiles{lc $romfile})
		{
		$mark_me = 1;
		}

	if ($mark_me)
		{
		print STDERR "Overriding $cmd for $romfile\n" if ($cmd ne "" && lc $cmd ne lc $newcmd);
		$mark_count += 1;
		print join(",", $romfile,$hostfile,$ibyfile,$package,$newcmd,$who,$marking), "\n";
		}
	else
		{
		print $line;
		}
	}

print STDERR "Marked $mark_count lines\n";