1 #!/usr/bin/perl

     2 # Copyright (c) 2010 Symbian Foundation Ltd

     3 # This component and the accompanying materials are made available

     4 # under the terms of the License "Eclipse Public License v1.0"

     5 # which accompanies this distribution, and is available

     6 # at the URL "http://www.eclipse.org/legal/epl-v10.html".

     7 #

     8 # Initial Contributors:

     9 # Mike Kinghan, mikek@symbian.org for Symbian Foundation Ltd - initial contribution.

    10 

    11 # Script to build Raptor (sbsv2)

    12 

    13 use strict;

    14 use File::Spec;

    15 use set_epocroot;

    16 

    17 if (@ARGV) {

    18     if (grep(/$ARGV[0]/,("-h","--help"))) {

    19         print "This script builds Raptor\n";

    20         print "It needs no arguments\n";

    21 		exit 0;        

    22     }

    23 	if (@ARGV > 1 or @ARGV[0] !~ /^clean$/i) {

    24         print "Valid arguments are -h, --help, clean\n";

    25         exit 1;

    26     }

    27 }

    28 set_epocroot();

    29 my $epocroot = $ENV{'EPOCROOT'};

    30 my $sbs_home = File::Spec->catfile("$epocroot","build","sbsv2","raptor");

    31 $ENV{'SBS_HOME'} = $sbs_home;

    32 my $cmd = "make -C $sbs_home/util @ARGV";

    33 print "Executing: $cmd\n";

    34 system($cmd) and die $!;

    35 exit 0;

    36