cross-plat-dev-utils/build_raptor.pl
author Mike Kinghan <mikek@symbian.org>
Mon, 15 Nov 2010 10:57:53 +0000
changeset 39 fa9d7d89d3d6
parent 6 787612182dd0
permissions -rwxr-xr-x
A couple more small Windows compatibility fixes for romnibus.pl

#!/usr/bin/perl
# Copyright (c) 2010 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:
# Mike Kinghan, mikek@symbian.org for Symbian Foundation Ltd - initial contribution.

# Script to build Raptor (sbsv2)

use strict;
use File::Spec;
use places;

if (@ARGV) {
    if (grep(/$ARGV[0]/,("-h","--help"))) {
        print "This script builds Raptor\n";
        print "It needs no arguments\n";
		exit 0;        
    }
	if (@ARGV > 1 or @ARGV[0] !~ /^clean$/i) {
        print "Valid arguments are -h, --help, clean\n";
        exit 1;
    }
}
my $epocroot = get_epocroot();
my $sbs_home = File::Spec->catfile(get_pkg_dir(),"sbsv2","raptor");
$ENV{'SBS_HOME'} = $sbs_home;
my $cmd = "make -C $sbs_home/util @ARGV";
print "Executing: $cmd\n";
system($cmd) and die $!;
exit 0;