#!/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 "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 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;