equal
deleted
inserted
replaced
10 |
10 |
11 # Script to build Raptor (sbsv2) |
11 # Script to build Raptor (sbsv2) |
12 |
12 |
13 use strict; |
13 use strict; |
14 use File::Spec; |
14 use File::Spec; |
15 use set_epocroot; |
15 use places; |
16 |
16 |
17 if (@ARGV) { |
17 if (@ARGV) { |
18 if (grep(/$ARGV[0]/,("-h","--help"))) { |
18 if (grep(/$ARGV[0]/,("-h","--help"))) { |
19 print "This script builds Raptor\n"; |
19 print "This script builds Raptor\n"; |
20 print "It needs no arguments\n"; |
20 print "It needs no arguments\n"; |
23 if (@ARGV > 1 or @ARGV[0] !~ /^clean$/i) { |
23 if (@ARGV > 1 or @ARGV[0] !~ /^clean$/i) { |
24 print "Valid arguments are -h, --help, clean\n"; |
24 print "Valid arguments are -h, --help, clean\n"; |
25 exit 1; |
25 exit 1; |
26 } |
26 } |
27 } |
27 } |
28 set_epocroot(); |
28 my $epocroot = get_epocroot(); |
29 my $epocroot = $ENV{'EPOCROOT'}; |
29 my $sbs_home = File::Spec->catfile(get_pkg_dir(),"sbsv2","raptor"); |
30 my $sbs_home = File::Spec->catfile("$epocroot","build","sbsv2","raptor"); |
|
31 $ENV{'SBS_HOME'} = $sbs_home; |
30 $ENV{'SBS_HOME'} = $sbs_home; |
32 my $cmd = "make -C $sbs_home/util @ARGV"; |
31 my $cmd = "make -C $sbs_home/util @ARGV"; |
33 print "Executing: $cmd\n"; |
32 print "Executing: $cmd\n"; |
34 system($cmd) and die $!; |
33 system($cmd) and die $!; |
35 exit 0; |
34 exit 0; |