Add first version of tools\filter_obyfile.pl, which uses rom_content.csv to select "stem_" versions of files.
Updated rom_content.csv to request the stem_ versions of the startup resource files
# 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 script filters an OBY file given a rom_content.csv and a static_dependencies.txt
use strict;
if (scalar @ARGV < 2)
{
die ("Must specify at least two arguments: rom_content.csv and static_dependencies.txt");
}
my $rom_content_csv = shift @ARGV;
my $static_dependencies_txt = shift @ARGV;
open ROM_CONTENT, "<$rom_content_csv" or die("Cannot read $rom_content_csv: $!\n");
my @rom_content = <ROM_CONTENT>;
close ROM_CONTENT;
my $rom_content_header = shift @rom_content;
die("Not a valid rom_content.csv file") if ($rom_content_header !~ /^ROM file,/);
# read through the rom_content_csv looking for direct instructions
my %stem_substitutions;
my %deletions;
my %must_have;
foreach my $line (@rom_content)
{
my ($romfile,$hostfile,$ibyfile,$package,$cmd,@rest) = split /,/, $line;
next if ($cmd eq "");
$cmd = lc $cmd;
if ($cmd eq "stem")
{
$stem_substitutions{$romfile} = $hostfile;
next;
}
if ($cmd eq "out")
{
$deletions{$romfile} = "";
next;
}
if ($cmd eq "in")
{
$must_have{$romfile} = 1;
next;
}
}
printf STDERR "%d stem, %d out, %d in\n",
scalar keys %stem_substitutions,
scalar keys %deletions,
scalar keys %must_have;
# read static dependencies file
# process the "out" commands to recursively expand the deletions
# read the oby file and apply the commands
my $line;
while ($line = <>)
{
chomp $line;
if ($line =~ /^(.*=)(\S+\s+)(\S+)(\s.*)?$/)
{
my $romcmd = $1;
my $hostfile = $2;
my $romfile = $3;
my $rest = $4;
$rest = "" if (!defined $rest);
if ($romfile =~ /^"(.*)"$/)
{
$romfile = $1;
$hostfile .= '"';
$rest = '"'. $rest;
}
next if ($deletions{$romfile});
if (defined $stem_substitutions{$romfile})
{
# print STDERR "Applying stem_ prefix to $hostfile in $line\n";
$hostfile =~ s/(\/|\\)([^\\\/]+)$/$1stem_$2/;
}
print $romcmd, $hostfile, $romfile, $rest, "\n";
next;
}
print $line,"\n";
}