# Copyright (c) 2009 Symbian Foundation Ltd
# 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 Ltd - initial contribution.
#
# Contributors:
# Dario Sestito <darios@symbian.org>
#
# Description:
# Clean environment by removing releaseable files based on info.tsv

use strict;
use Getopt::Long;

my $RELEASEABLES_DIR_DEFAULT = "\\build_info\\logs\\releaseables";

my $releaseablesdir = "";
my $packageexpr = '';
my $dryrun = 0;
my $help = 0;
GetOptions((
	'packageexpr:s' => \$packageexpr,
	'releaseablesdir:s' => \$releaseablesdir,
	'dryrun!' => \$dryrun,
	'help!' => \$help
));

$help = 1 if (!$packageexpr);

if ($help)
{
	print <<_EOH;
truclean
Performs a 'clean' build step, based on the releaseables information, i.e. the
list of artifacts produced during a PDK build.
This cleaning step ensures all the build artifacts produced by the build are
actually removed even if the source code has changed since the PDK build. 

Usage: truclean.pl -p PACKAGE_EXPR [-r RELEASABLES_DIR] [-d]

Options:
  -h, --help            Show this help message and exit
  -p PACKAGE_EXPR       Clean (remove) build artifacts belonging to the package
                        or packages indicated by PACKAGE_EXPR.
                        PACKAGE_EXPR is the path (wildcards allowed) of the
                        package, e.g. 'sf/app/camera' or 'sf/mw/*' or '*/*/*'.
                        If the first directory level is not specified then 'sf'
                        is assumed. 
  -r RELEASABLES_DIR    Use RELEASEABLES_DIR as root of the releaseable files
                        (default is $RELEASEABLES_DIR_DEFAULT).
  -d                    Dry run (Do not remove files for real)
_EOH
	exit(0);
}

$releaseablesdir = $RELEASEABLES_DIR_DEFAULT if (!$releaseablesdir);

$packageexpr =~ s,\\,/,g;
$packageexpr =~ s,//,/,g;
$packageexpr =~ s,^/,,;
if (-d "$releaseablesdir/sf")
{
	$packageexpr = "sf/$packageexpr" if ($packageexpr =~ m,^(adaptation|app|mw|os|tools),);
}

my @targetfiles = grep {-f$_} glob("$releaseablesdir/$packageexpr/info.tsv");
print join("\n", @targetfiles);

for my $targetfile (@targetfiles)
{
	print "Processing $targetfile...\n";

	open(FILE, $targetfile);
	while (<FILE>)
	{
		my $line = $_;
		
		if ($line =~ m,([^\t]*)\t([^\t]*)\t([^\t]*),)
		{
			my $file = $1;
			my $type = $2;
			my $config = $3;
			
			if (-f $file)
			{
				print "removing file: '$file'\n";
				unlink($file) if (!$dryrun);
			}
			else
			{
				print "WARNING: file '$file' doesn't exist.\n";
			}
		}
		else
		{
			print "WARNING: line '$line' doesn't match the expected tab-separated pattern\n";
		}
	}
	close(FILE);
}