--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tools/bulk_marking.pl	Wed Oct 13 22:27:53 2010 +0100
@@ -0,0 +1,58 @@
+# 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 $marking;
+my $who;
+GetOptions(
+  "m|message=s" => \$marking,   # comment to add to the CSV lines
+  "u|user=s" => \$who,          # value for the Who column
+  );
+
+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 $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{$romfile} = 1;
+		next;
+		}
+
+	my ($romfile,$hostfile,$ibyfile,$package,$cmd,@rest) = split /,/, $line;
+	next if (!defined $cmd);
+	
+	if (defined $romfiles{$romfile})
+		{
+		if ($cmd eq "")
+			{
+			# mark this one
+			print join(",", $romfile,$hostfile,$ibyfile,$package,"",$who,$marking), "\n";
+			next;
+			}
+		else
+			{
+			print STDERR "Skipping $romfile line - already marked as $cmd,",join(",", @rest);
+			}
+		}
+	print $line;
+	}