mirror of
https://github.com/nasa/trick.git
synced 2024-12-30 09:58:53 +00:00
37 lines
1.0 KiB
Plaintext
37 lines
1.0 KiB
Plaintext
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
# trick_dp that determines trick_home based on execution location of this script.
|
||
|
|
|
||
|
|
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 ;
|
||
|
|
}
|
||
|
|
|
||
|
|
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=\"Stripchart\" \\
|
||
|
|
-Xdock:icon=$ENV{TRICK_HOME}/bin/java/resources/trick_icon.png \\
|
||
|
|
trick.stripchart.StripchartApplication ";
|
||
|
|
} else {
|
||
|
|
$command = "java -cp $ENV{TRICK_HOME}/bin/java/dist/*:$ENV{TRICK_HOME}/bin/java/lib/* trick.stripchart.StripchartApplication ";
|
||
|
|
}
|
||
|
|
|
||
|
|
# to preserve the quotes if the option value has spaces in it
|
||
|
|
foreach (@ARGV) {
|
||
|
|
if ( $_ =~ /\s/ ) {
|
||
|
|
$command = "$command \"$_\"";
|
||
|
|
} else {
|
||
|
|
$command = "$command $_";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
system $command;
|
||
|
|
|
||
|
|
exit $? >> 8;
|