--- /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;
+