#!/usr/bin/perl
# Copyright (c) 2008-2009 Nokia Corporation and/or its subsidiary(-ies).
# 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:
# Nokia Corporation - initial contribution.
#
# Contributors:
#
# Description:
#
use strict;
use File::Basename;
if (@ARGV <2)
{
print (STDERR "\ncreaterfifile.pl\n");
print STDERR << 'END_OF_HELP';
Usage: createrfifile.pl rss_cpp_deps_file.d output_file.rfi [exclude path]
Takes a file containing CPP dependency output from the preprocessing of a .rss file and
generates a "combined resource" .rfi that can be consumed by CDB.
Optionally takes an exclusion path under which "found" dependencies are then ignored.
END_OF_HELP
exit(0);
}
my ($deps, $rfi, $exclude) = @ARGV;
if ($exclude)
{
$exclude =~ s/\\/\//g; # Ensure consistent slashes
$exclude =~ s/\/\//\//g; # Remove double slashes
$exclude = quotemeta($exclude); # Convert for regex match
}
print ("RFI : exclude under - \"$exclude\"\n");
my @resources;
open DEPS, "< $deps" or die "\nCannot read \"$deps\"!\n\n";
while (<DEPS>)
{
# .d file format - whitespace at front is key, path format varies depending on platform
# the aim is to get a list of the "real" files. Missing files can appear "unpathed", although
# this isn't currently dealt with.
#
#HelloWorld_reg.o: \
# F:/source/personal/misc/filenamepolicy/ported/examples/helloworld/HelloWorld_reg.rss \
# F:/builds/sbs/9.5/epoc32/include/variant/Symbian_OS.hrh \
# F:/builds/sbs/9.5/epoc32/include/appinfo.rh \
# F:/builds/sbs/9.5/epoc32/include/helloworld.rsg
#
s/^.*\.o\://;
s/^\s+//;
s/\s*\\$//;
s/\/\//\//g;
chomp ($_);
next if !/\S/;
print ("WARNING: Could not find dependency \"$_\" in \"$deps\"\n") if !(-e $_);
print ("RFI : processing - \"$_\"\n");
next if ($exclude && /^$exclude/i);
push @resources,$_;
}
close DEPS;
open RFI, "> $rfi" or die "\nCannot write \"$deps\"!\n\n";
foreach my $resource (@resources)
{
print RFI "\n\n/* GXP ***********************\n";
print RFI " * ".basename($resource)."\n";
print RFI " ****************************/\n\n";
open RESOURCE, "< $resource" or die "\nCannot read \"$resource\"!\n\n";
print RFI $_ while (<RESOURCE>);
close RESOURCE;
}
close RFI;