mirror of
https://github.com/nasa/trick.git
synced 2024-12-24 07:16:41 +00:00
21 lines
468 B
Perl
Executable File
21 lines
468 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use File::Basename ;
|
|
use Cwd 'abs_path';
|
|
|
|
if ( ! exists $ENV{TRICK_HOME} ) {
|
|
$trick_bin = dirname(abs_path($0)) ;
|
|
$trick_home = dirname($trick_bin) ;
|
|
|
|
# set TRICK_HOME based on the value of trick_home
|
|
$ENV{TRICK_HOME} = $trick_home ;
|
|
}
|
|
|
|
$kernel = `uname -s` ;
|
|
chomp $kernel ;
|
|
$machine = `uname -m` ;
|
|
chomp $machine ;
|
|
|
|
system ("$ENV{TRICK_HOME}/trick_source/codegen/Interface_Code_Gen/ICG_${kernel}_${machine}", @ARGV) ;
|
|
exit $? >> 8 ;
|