sbsv1_os/e32toolp/kif/perl/genkif.pl
author Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com>
Fri, 19 Feb 2010 23:57:18 +0200
branchRCL_3
changeset 1 d4b442d23379
parent 0 83f4b4db085c
child 2 99082257a271
permissions -rw-r--r--
Revision: 201007 Kit: 201007

# 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 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 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";