#
# Copyright (c) 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 File::Basename;
use File::Spec;
use Cwd;


if (@ARGV!=2)
{
	print <<USAGE_EOF;
Usage : perl fix_dep_file_paths.pl depfile platform

Update the paths in depfile to match those in the makefile

USAGE_EOF
	exit 1;
}

my $depfile = shift;
my $plat = shift;


if (!-e $depfile)
{
	print STDERR "ERROR: $depfile does not exist\n";
	exit 1;
}

if (-z $depfile)
{
	print STDERR "ERROR: $depfile is empty\n";
	exit 1;
}

if (!($plat eq "winscw" || $plat eq "armv5" || $plat eq "gcce" || $plat eq "gcc98"|| $plat eq "cpp"))
{
	print STDERR "ERROR: Unsupported platform argument $plat\nValid options are winscw, armv5, gcce, gcc98 and cpp\n";
	exit 1;
}

open (DEPFILE, "<$depfile") || die "ERROR: Unable to open file $depfile: error $!";
my @depfile_content = <DEPFILE>;
close DEPFILE;

if ($plat eq "winscw")
{

	# replace the first line with filepath.o : \
	my $filename = $depfile;
	$filename =~ s/\.(d|dep)$/.o/;
	$depfile_content[0] = "$filename : \\\n"

}
elsif ($plat eq "armv5")
{

	# no changes required

}
elsif ($plat eq "gcce")
{

	# just replace any / or \\ with \
    foreach my $line (@depfile_content) {
        $line =~ s/\//\\/g;
        $line =~ s/\\\\/\\/g;
    }
}
elsif ($plat eq "gcc98")
{
	
	# doctor first line - remove the object file since it's not the correct path
	my @strings = split(' ', $depfile_content[0]);
	shift @strings;
	$depfile_content[0] = join(' ', @strings);

	# change bld.inf directory relative paths to absolute
	my $cwd = getcwd();
	
    foreach my $line (@depfile_content) {
		my @paths = split(' ', $line);
		foreach my $path (@paths) {
			$path = File::Spec->rel2abs($path, $cwd);
 		}
		$line = join(' ', @paths);
		$line =~ s/\s+$//;
		$line .= "\n";
    }

	# insert filepath.o : \
	my $filename = $depfile;
	$filename =~ s/\.(d|dep)$/.o/;
	$depfile_content[0] = "$filename : \\\n" . $depfile_content[0];
	
}
elsif ($plat eq "cpp")
{

	# replace the first line with DEPEND$depfile = \
	my $depfilename = basename($depfile);
	$depfile_content[0] = "DEPEND$depfilename = \\\n";

}

open (DEPFILE, ">$depfile") || die "ERROR: Unable to save file $depfile: error $!";
print DEPFILE @depfile_content;
close DEPFILE;

exit 0;