mirror of
https://github.com/nasa/trick.git
synced 2024-12-30 01:48:52 +00:00
a1fea8a36f
add a radio button for it. If it doesn't exist, it will not show up in the plot menu.
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($Bin);
|
|
use lib "$Bin/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;
|
|
|