--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/cross-plat-dev-utils/build_all.pl	Mon May 10 19:54:49 2010 +0100
@@ -0,0 +1,131 @@
+#!/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 set_epocroot;
+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 ***";
+		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;
+    }         
+}
+set_epocroot();
+my $epocroot = $ENV{'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;
+