Tweaked so that all revs are cloned from the utilities web repo, but it's still synced to the head of the default branch.
# 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:
# Extracts output text in <buildlog> context which doesn't belong to <recipe>'s
use strict;
use Getopt::Long;
my $XALAN_PATH = "xalan-j_2_7_1";
my $XSLT_FILE = "sysdefdowngrade.xsl";
my $modelfile = '';
my $csvsourcesfile = '';
my $help = 0;
GetOptions((
'model=s' => \$modelfile,
'sources=s' => \$csvsourcesfile,
'help!' => \$help
));
$help = 1 if (!$modelfile or !$csvsourcesfile);
if ($help)
{
print "Checks that a model file is not in version 3.0.0. If it is transforms it to a version usable by Raptor\n";
print "Usage: perl sysdefdowngrade.pl --model=MODELFILE --sources=SOURCESFILE\n\n";
exit(0);
}
my $isversion3 = 0;
open(MODELFILE, "$modelfile") or die("Can't open model file $modelfile");
while(<MODELFILE>)
{
if ($_ =~ /<SystemDefinition schema="3\.0\.0"/)
{
$isversion3 = 1;
last;
}
}
close(MODELFILE);
if (!$isversion3)
{
print "Model file is not version 3.0.0. Nothing to do.";
exit(0);
}
my $param_path = '';
open(SOURCESFILE, "$csvsourcesfile") or die("Can't open sources file $csvsourcesfile");
while(<SOURCESFILE>)
{
if ($_ =~ m{[^,]*,([\\/]sf[\\/][^,]*),[^,]*,[^,]*,[^,]*})
{
$param_path = $1;
#print "param_path= $param_path\n";
last;
}
}
close(SOURCESFILE);
if (!$param_path)
{
print "Error: could not determine path parameter from sources file. Quitting.\n";
exit(0);
}
$param_path =~ s,\\,/,g;
my $transformcmd = "java -jar $XALAN_PATH\\xalan.jar -xsl $XSLT_FILE -in $modelfile -out $modelfile.transformed";
$transformcmd .= " -param Path $param_path";
print "Executing: $transformcmd\n";
system("$transformcmd");
# ren doesn't work with forward slashes
$modelfile =~ s,/,\\,g;
$modelfile =~ m,.*[\\/](.*),;
my $modelfile_name = $1;
print "Executing: ren $modelfile $modelfile_name.orig\n";
system("ren $modelfile $modelfile_name.orig");
print "Executing: ren $modelfile.transformed $modelfile_name\n";
system("ren $modelfile.transformed $modelfile_name");