Add support for --asm option when using elf2e32 in the "expgen" recipe - see bug 2979 and bug 1405
# Copyright (c) 2007-2009 Nokia Corporation and/or its subsidiary(-ies).
# All rights reserved.
# This component and the accompanying materials are made available
# under the terms of "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 XML::Simple;
use File::Path;
use File::Copy;
use Win32::File;
use Getopt::Long;
use strict;
my $outfile;
my $verbose;
GetOptions("o=s", \$outfile, "v+", \$verbose);
if (!defined $outfile) {
die "ERROR: Syntax: genkif.pl -o <kif filename>\n";
} elsif (-f $outfile) {
print STDOUT "REMARK: KIF generation skipped due to it already existing (in '$outfile').\n";
exit 0;
} elsif (-e $outfile) {
die "ERROR: KIF output file '$outfile' must not be a directory or other non-file type\n";
} elsif ($verbose) {
print "Got output file of '$outfile'\n";
}
my $buildnum = $ENV{'BuildNumber'};
if (!defined $buildnum) {
die "ERROR: KIF generation skipped due to the BuildNumber environment variable not being set.\n";
} elsif ($verbose) {
print "Got build number of '$buildnum'\n";
}
my $namespace = "ki";
my $nsuri = "http://www.symbian.com/kif1";
my $schema = "kif1.xsd";
my $build;
my $version;
if ($buildnum =~ /^(.*)_Symbian_OS_v(.*)$/) {
$build = $1;
$version = $2;
print "Parsed build number as $build, os version $version\n" if $verbose;
} else {
die "ERROR: Build number '$buildnum' is not a valid build number\n";
}
# Generate the Kit Information File
print "Constructing the KIF data\n" if $verbose;
my $mapper = new XML::Simple('rootname' => $namespace.':kitinfo', 'searchpath' => '.');
my $hash = {
'xsi:schemaLocation' => "$nsuri $schema",
"xmlns:".$namespace => $nsuri,
'xmlns:xsi' => 'http://www.w3.org/2001/XMLSchema-instance',
'label' => $buildnum,
$namespace.':release' => {
'build' => $build,
'version' => $version
}
};
print "Writing the KIF data to '$outfile'\n" if $verbose;
open(my $out, ">$outfile") or die "ERROR: Couldn't open $outfile for writing: $!\n";
print $out $mapper->XMLout($hash, 'xmldecl' => "<?xml version='1.0'?>");
close($out) or die "ERROR: Couldn't write to $outfile".": $!\n";
print "Generated KIF in $outfile\n";