1) fix_tools_exports.pl need only be run on Windows hosts; was run unnecessarily on Linux too.
2) Need to export modload.pm on Linux as well as Windows hosts.
#!/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;
use File::Spec;
my $keepgoing = 0;
my @exported = ();
my @failed = ();
# These are the targets that need exports performed.
my @needed_exports = (File::Spec->catfile("sbsv1","abld"),
File::Spec->catfile("sbsv1","buildsystem"),
File::Spec->catfile("imgtools","romtools"));
if (os_is_windows()) {
foreach (@needed_exports) {
s/\\/\//g;
}
}
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;
my $re_line = $line;
if (os_is_windows()) {
$re_line =~ s/\\/\//g;
}
next, if ($line =~ /(\*\*\*.*\*\*\*)/);
next, if ($line =~ /^>>>/);
next, unless (grep(/^$re_line$/,(@needed_exports)));
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";
}
}
exit 0;