ExternalVendorCode/trick
1
0
Fork 0
mirror of https://github.com/nasa/trick.git synced 2024-12-30 18:07:00 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of https://github.com/nasa/trick

Browse Source
This commit is contained in:
Derek Bankieris 2015-11-17 14:24:44 -06:00
commit 3c24d80383
1 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
bin/trick-CP
View File

@ -10,6 +10,22 @@ use Cwd 'abs_path';
$trick_bin = dirname(abs_path($0)) ; $trick_bin = dirname(abs_path($0)) ;
$trick_home = dirname($trick_bin) ; $trick_home = dirname($trick_bin) ;
#### Handle arguments ####
$numArgs = $#ARGV + 1;
$makefileAddArgs = ' ';
foreach $argnum (0 .. $#ARGV) {
$arg = $ARGV[$argnum];
if ($arg =~ /(\w+)=(\w+)/ ) {
$makefileAddArgs = $makefileAddArgs . $1 . "=" . $2 . " ";
} elsif ($arg =~ /-d/ ) {
$makefileAddArgs = $makefileAddArgs . " debug ";
} elsif ($arg =~ /-t/ ) {
$makefileAddArgs = $makefileAddArgs . " test ";
} else {
print "Warning: Ignoring unrecognized argument $arg\n"
}
}
if ( -f "S_define" ) { if ( -f "S_define" ) {
if ( not -w "." ) { if ( not -w "." ) {
print getcwd() , " is not writable\n" ; print getcwd() , " is not writable\n" ;
@ -23,13 +39,7 @@ if ( -f "S_define" ) {
open MAKEFILE, ">makefile" ; open MAKEFILE, ">makefile" ;
print MAKEFILE $makefile_text ; print MAKEFILE $makefile_text ;
close MAKEFILE ; close MAKEFILE ;
if (@ARGV[0] eq "-t" ) { system("make -f makefile " . $makefileAddArgs) ;
system("make -f makefile test") ;
} elsif ( @ARGV[0] eq "-d" or @ARGV[0] eq "--debug" ) {
system("make -f makefile debug") ;
} else {
system("make -f makefile") ;
}
exit $? >> 8; exit $? >> 8;
} else { } else {
print "S_define does not exist" ; print "S_define does not exist" ;