mirror of
https://github.com/nasa/trick.git
synced 2024-12-22 22:42:26 +00:00
871c6904d5
Perl scripts linked into /usr/local/bin or anyother directory needs to use FindBin qw($RealBin) instead of just FindBin qw($Bin). Realpath will find the absolute path to where the script actually lives and the pm directory that holds the perl modules.
35 lines
1.1 KiB
Perl
Executable File
35 lines
1.1 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
# trick_dp that determines trick_home based on execution location of this script.
|
|
|
|
use FindBin qw($RealBin);
|
|
use lib "$RealBin/pm" ;
|
|
use File::Basename ;
|
|
use Cwd 'abs_path';
|
|
use gte ;
|
|
|
|
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 ;
|
|
}
|
|
$host_cpu = gte("TRICK_HOST_CPU") ;
|
|
chomp($host_cpu) ;
|
|
$ENV{TRICK_HOST_CPU} = $host_cpu ;
|
|
|
|
if ( $^O eq "darwin" ) {
|
|
$command = "java -classpath $ENV{TRICK_HOME}/bin/java/dist/*:$ENV{TRICK_HOME}/bin/java/lib/*:$ENV{TRICK_HOME}/bin/java/lib/ \\
|
|
-Xdock:name=\"Trick DP\" \\
|
|
-Xdock:icon=$ENV{TRICK_HOME}/bin/java/resources/trick_icon.png \\
|
|
trick.dataproducts.trickdp.TrickDPApplication " . join (" " , @ARGV) ;
|
|
} else {
|
|
$command = "java -cp $ENV{TRICK_HOME}/bin/java/dist/*:$ENV{TRICK_HOME}/bin/java/lib/*:$ENV{TRICK_HOME}/bin/java/lib/ trick.dataproducts.trickdp.TrickDPApplication "
|
|
. join (" " , @ARGV) ;
|
|
}
|
|
|
|
system $command ;
|
|
exit $? >> 8;
|
|
|