ATS worker target is made.
#!perl -w
# Copyright (c) 2009 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:
# Symbian Foundation Ltd - initial contribution.
#
# Contributors:
#
# Description:
# Populates the template for packaging src and binaries in the build
use strict;
use FindBin;
use lib "$FindBin::Bin/lib";
use Text::CSV;
require XML::Simple;
# Raw inputs come in as parameters to the script
# TODO: Use a proper option parsing module
my $sourcesCSV = shift or die "First arg must be source csv file";
my $template = shift or die "Second arg must be template file";
my $ftl = shift or die "Third arg must be output file";
my $rndExcludes = shift or die "Fourth arg must be rnd-excludes file";
my $nosource = shift;
if(defined $nosource && $nosource !~ m/--nosource/i)
{
die "fifth argument can only be \'--nosource\'";
}
# Load CSV
open my $csvText, "<", $sourcesCSV or die "Unable to open sources.csv from $sourcesCSV";
my $csv = Text::CSV->new();
my @keys;
my @packages;
while (my $line = <$csvText>)
{
chomp $line;
next unless $line;
unless ($csv->parse($line))
{
my $err = $csv->error_input();
die "Failed to parse line '$line': $err";
}
if (! @keys)
{
# First line - note the column names
@keys = $csv->fields();
}
else
{
# Already got the keys, so get the data
my %package;
# Read into a hash slice
@package{@keys} = $csv->fields();
push @packages, \%package;
}
}
close $csvText;
# This controls how the XML parsing decides what should be tags and what should be attributes
# It's been worked out mostly by trial and error :-(
my $keyAttr = { config => "name", name => "set"};
# Load template
my $xml = XML::Simple->new();
my $zipConfig = $xml->XMLin($template, keyattr => $keyAttr);
my @allRndFiles;
my $miscCount = 0;
# For each package in CSV...
foreach my $package (@packages)
{
warn "Warning: Package $package->{dst} does not appear on the local system\n" unless -d $package->{dst};
$package->{dst} =~ s{^/}{}g;
if ($package->{source} =~ m{/(sfl|oss)/(MCL|FCL)/sf/([^/]+)/([^/]+)})
{
if(!defined $nosource)
{
push @{$zipConfig->{config}->{config}->{src}->{config}->{$1}->{config}},
{
set =>
[
{
name => "name",
value=> "src_$1_$3_$4",
},
{
name => "include",
value => "$package->{dst}/**",
},
]
};
}
}
elsif ($package->{source} =~ m{/rnd/([^/]+)/([^/]+)})
{
# RnD repository
my $name = "binaries_$2";
if ($1 eq "rndonly") { $name="bin_$1_$2";}
# Create a zip object
push @{$zipConfig->{config}->{config}->{src}->{config}->{rnd}->{config}},
{
set =>
[
{
name => "root.dir",
value=> "\${build.drive}/$package->{dst}",
},
{
name => "name",
value=> "$name",
},
{
name => "include",
value=> "/**",
},
]
};
# Enumerate all the files on the local disk that are in this repository
(my $dosCompatibleDst = $package->{dst}) =~ s{/}{\\}g;
my @files = `dir /b/s/a-d $dosCompatibleDst 2> nul:`;
#print "@files\n";
next unless @files;
# Add the files to this zip object
@files = grep {
s{\\}{/}g;
s!^[A-Z]:/$package->{dst}/!!i;
m{^epoc32/}i;
} @files;
push @allRndFiles, @files;
open FILE, ">", $name ."_includefile.txt" or die "Cannot write includefile!";
print FILE @files;
close FILE;
}
else
{
(my $dest2 = $package->{dst}) =~ s{[\\/]}{_slash_}g;
push @{$zipConfig->{config}->{config}->{src}->{config}->{misc}->{config}},
{
set =>
[
{
name => "name",
value=> "src_misc_$dest2"."_$miscCount",
},
{
name => "include",
value => "$package->{dst}/**",
},
]
};
$miscCount++;
warn "Warning: Cannot determine license for '$package->{source}' - it will be packaged as 'src_misc_$dest2"."_$miscCount'\n";
}
}
# Turn the RnD source inclusion lists into a binary exclusion list
my @excludes = map { {name => "exclude", value => "$_"} } @allRndFiles;
push @{$zipConfig->{config}->{config}->{bin}->{config}->{set}}, @excludes;
$xml->XMLout($zipConfig, OutputFile => $ftl, XMLDecl => 1, RootName => 'build', keyattr => $keyAttr);
# Output all rnd files into exclude list for later
open my $fh, ">", $rndExcludes or die "Cannot write exlude file!";
print $fh @allRndFiles;
close $fh;