Solving incorrect handling when processing ExportName=SymbolName@Ordinal syntax.
#!perl
# Copyright (c) 2000-2009 Nokia Corporation and/or its subsidiary(-ies).
# All rights reserved.
# 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:
# Nokia Corporation - initial contribution.
#
# Contributors:
#
# Description:
#
#
use strict;
use FindBin;
use lib "$FindBin::Bin";
use Getopt::Long;
use IniData;
use EnvDb;
use MrpData;
use CommandController;
use Cwd;
#
# Globals.
#
my $verbose = 0;
my $comp;
my $iniData = IniData->New();
my $commandController = CommandController->New($iniData, 'BuildRel');
my $envDb;
my $buildall;
my $noclean;
my $dummyrun;
#
# Main.
#
ProcessCommandLine();
BuildRel();
#
# Subs.
#
sub ProcessCommandLine {
Getopt::Long::Configure ("bundling");
my $help;
my $ignore;
my $stdin;
GetOptions("h" => \$help, "v+" => \$verbose, "a" => \$buildall, "q" => \$noclean, "d" => \$dummyrun, "f" => \$ignore);
if ($help) {
Usage(0);
}
$comp = shift @ARGV;
if (@ARGV) {
print "Error: too many arguments\n";
Usage(1);
} elsif ($buildall && $comp) {
print "Error: can't use -a with a component name\n";
Usage(1);
} elsif (!$buildall && !$comp) {
print "Error: Must specify -a or a component name\n";
Usage(1);
}
$envDb = EnvDb->Open($iniData, $verbose);
}
sub Usage {
my $exitCode = shift;
Utils::PrintDeathMessage($exitCode, "\nUsage: buildrel [options] -a | <component>
options:
-a build all pending release components
-h help
-f (deprecated)
-v verbose output (-vv very verbose)
-q quick (don't do \"abld reallyclean\")
-d dummy run: just show what would happen\n");
}
sub BuildRel {
if ($buildall) {
BuildEnvironment();
} else {
BuildComp($comp);
}
}
# Implementation
sub BuildComp {
my $comp = shift; # could accept a component name or an entry
print "Building \"$comp\"\n" if ($verbose);
print "Gathering data from MRP file...\n" if ($verbose>1);
my $mrpData = $envDb->GetMrpData($comp);
print "Working out build commands...\n" if ($verbose>1);
my $cwd = cwd();
my $nul = ($verbose > 2)?"":" > NUL";
my %commands_by_path;
foreach my $binset (@{$mrpData->BinSets()}) {
my $path = Utils::PrependSourceRoot($binset->{path});
unless ($commands_by_path{$path}) {
$commands_by_path{$path} = [ "bldmake bldfiles" ];
push @{$commands_by_path{$path}}, "abld reallyclean" unless $noclean;
}
push @{$commands_by_path{$path}}, "abld $binset->{test} build $binset->{plat} $binset->{var} $binset->{mmp}";
}
print "Running build commands...\n" if ($verbose>1);
foreach my $path (sort keys %commands_by_path) {
chdir($path);
my $cmds = $commands_by_path{$path};
foreach my $cmd (@$cmds) {
print "Build command: $cmd\n" if ($dummyrun || $verbose > 1);
next if $dummyrun;
open(CMD, "$cmd|") or die "Couldn't start command \"$_\" because $!";
my $output = "";
my $failure = 0;
while (<CMD>) {
print $_ if $verbose > 2;
$failure = 1 if m/fatal error/i;
$output .= $_;
}
close CMD;
die "Error: build failed. Command \"$cmd\" in directory \"$path\" failed with error code $? and output:\n$output\n\n" if ($? || $failure);
# ABLD currently doesn't pass through error codes. I have requested
# that it be modified to do so.
}
}
chdir $cwd;
}
sub BuildEnvironment {
foreach my $comp (keys %{$envDb->{db}}) {
next unless $envDb->Status($comp) == EnvDb::STATUS_PENDING_RELEASE;
BuildComp($comp);
}
}
__END__
=head1 NAME
BuildRel - Attempt to build a component.
=head1 SYNOPSIS
buildrel [options] -a | <component>
options:
-a build all components pending release
-h help
-v verbose output (-vv very verbose)
-q quick (don't do abld reallyclean)
-d dummy run: just show what would happen
=head1 DESCRIPTION
Attempts to build a component, using all the platforms listed in the
MRP file. Using -a will build all the components that are pending
release.
The -d option doesn't do any building. However, in the process of
reading the details from the MRP it may be forced to run commands
such as C<bldmake bldfiles> and C<abld makefile>.
The commands this script runs are:
bldmake bldfiles
abld reallyclean (unless you're using -q)
abld build XXX XXX (or abld test build XXX XXX)
=head1 STATUS
Supported. If you find a problem, please report it to us.
=head1 KNOWN BUGS
None.
=head1 COPYRIGHT
Copyright (c) 2000-2009 Nokia Corporation and/or its subsidiary(-ies).
All rights reserved.
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:
Nokia Corporation - initial contribution.
Contributors:
Description:
=cut