--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/cross-plat-dev-utils/fix_tool_exports.pl	Thu Nov 25 13:59:07 2010 +0000
@@ -0,0 +1,133 @@
+#!/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 perform all fix-up exports from this package.
+
+use strict;
+use perl_run;
+use places;
+use check_os;
+my $keepgoing = 0;
+my @exported = ();
+my @failed = ();
+my @skipped = ();
+# These are the targets that need exports performed.
+my @needed_exports = ("sbsv1/abld","sbsv1/buildsystem");
+
+sub export($)
+{
+	my $targ = shift;
+	return, if (is_exported($targ));
+	print ">>> Cleaning exports for target $targ\n";
+	my $rc = perl_run("build_target.pl $targ cleanexport");
+	if ($rc) {
+		print "*** Failed to clean exports for target $targ ***\n";
+		if ($keepgoing) {
+			push(@failed,$targ);
+		} else {
+			exit $rc;
+		}
+	} else { 
+		print ">>> Exporting target $targ\n";
+		my $rc = perl_run("build_target.pl $targ export");
+		if ($rc) {
+			print "*** Failed to export target $targ ***\n";
+			if ($keepgoing) {
+				push(@failed,$targ);
+			} else {
+				exit $rc;
+			}
+		} else { 
+			push(@exported,$targ);
+		}
+	}
+}
+
+sub is_exported($)
+{
+	my $targ = shift;
+	return grep(/$targ/,@exported) != 0;
+}
+
+if (@ARGV) {
+    if (grep(/$ARGV[0]/,("-h","--help"))) {
+        print "This script performs all necessary exports from the targets under the sbsv1 directory " .
+			"to fix up the exports to epoc32/tools.";
+        print "Valid arguments are -h, --help; -k, --keepgoing, or none.\n";
+		print "-k, --keepgoing makes the script carry on after a failed export,\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;
+}
+foreach my $line (@targ_lines) {
+	chomp $line;
+	next, unless ($line =~ /^sbsv1/); 
+	next, unless (grep(/$line/,@needed_exports));
+	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);
+			export($prereq);
+		}
+		export($line);
+	}
+}
+if (@exported) {
+	if (@failed == 0) {
+		print ">>> Exported all eligible targets:-\n";
+	} else {
+		print ">>> Exported eligible targets:-\n";
+	}
+	foreach my $targ (@exported) {
+		print "+++ $targ\n";
+	}
+}
+if (@failed) {
+	print ">>> Failed to export 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";
+	}
+}
+exit 0;
+