#!/usr/bin/perl

# Copyright (c) 2010 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:

# Mike Kinghan, mikek@symbian.org, for Symbian Foundation Ltd - initial contribution.

# Script to build all tools2 targets with Raptor, except Raptor itself

# and any that were broken upstream when last checked.

use strict;

use perl_run;

use places;

use check_os;

my $keepgoing = 0;

my @built = ();

my @failed = ();

my @skipped = ();

sub build($)

{

	my $targ = shift;

	return, if (is_built($targ));

	print ">>> Building target $targ\n";

	my $rc = perl_run("build_target.pl $targ");

	if ($rc) {

		print "*** Failed to build target $targ ***\n";

		if ($keepgoing) {

			push(@failed,$targ);

		} else {

			exit $rc;

		}

	} else { 

		push(@built,$targ);

	}

}

sub is_built($)

{

	my $targ = shift;

	return grep(/$targ/,@built) != 0;

}

if (@ARGV) {

    if (grep(/$ARGV[0]/,("-h","--help"))) {

        print "This script cleans all TOOLS2 targets with Raptor, " .

			"except Raptor itself and any that were broken upstream when last checked.\n";

        print "Valid arguments are -h, --help; -k, --keepgoing, or none.\n";

		print "-k, --keepgoing makes the script carry on after a failed clean,\n";

		exit 0;  

	} elsif (grep(/$ARGV[0]/,("-k","--keepgoing"))) {

		$keepgoing = 1;

	} else {

	    print "Valid arguments are -h, --help; -k, --keepgoing, or none.\n".

        exit 1;

    }         

}

my $epocroot = get_epocroot();

my @targ_lines = perl_slurp("list_targets.pl");

open DEPS,"<deps.txt" or die $!;

my @deps = <DEPS>;

close DEPS;

while (@deps and $deps[0] =~ /^\s*#/) {

	shift @deps;

}

foreach my $dep (@deps) {

	chomp $dep;

}

my $start_time = time();

foreach my $line (@targ_lines) {

	chomp $line;

	next, if ($line =~ /^>>>/);

	if ($line =~ /(\*\*\*.*\*\*\*)/) {

		my $reason = $1;

		my @words = split(/ /,$line);

		print ">>> Skipping target $words[0]: \"$reason\"\n";

		push (@skipped,[$words[0],$reason]);

	} else {

		foreach my $dep (@deps) {

			my ($targ,$prereq) = split(/ /,$dep);

			if (os_is_windows()) {

                $targ =~ s/\./\\/g;

                $prereq =~ s/\./\\/g;                

            } else {

                $targ =~ s/\./\//g;

                $prereq =~ s/\./\//g;                            

            }

			next, unless ($targ eq $line);

			build($prereq);

		}

		build($line);

	}

}

if (@built) {

	if (@failed == 0) {

		print ">>> Built all eligible targets:-\n";

	} else {

		print ">>> Built eligible targets:-\n";

	}

	foreach my $targ (@built) {

		print "+++ $targ\n";

	}

}

if (@failed) {

	print ">>> Failed to build eligible targets:-\n";

	foreach my $targ (@failed) {

		print "+++ $targ\n";

	}

} 

if (@skipped) {

	print ">>> Skipped targets:-\n";

	foreach my $skipped (@skipped) {

		print "+++ " . $skipped->[0] . ' ' . $skipped->[1] . "\n";

	}

}

my $end_time = time();

use integer;

my $elapsed_time = $end_time - $start_time;

my $hours = $elapsed_time / 3600;

$elapsed_time -= ($hours * 3600);

my $mins = $elapsed_time / 60;

my $secs = ($elapsed_time - ($mins * 60));

print ">>> Runtime ";

print "$hours hrs ", if ($hours);

print "$mins mins $secs secs\n";

exit 0;