trick/bin/jxplot

25 lines
929 B
Plaintext
Raw Permalink Normal View History

2015-02-26 15:02:31 +00:00
#!/usr/bin/perl
# trick_qp 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=\"Trick Plot\" \\
-Xdock:icon=$ENV{TRICK_HOME}/bin/java/resources/trick_icon.png \\
trick.dataproducts.plot.JXPlotApplication " . 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.plot.JXPlotApplication " . join (" " , @ARGV) ;
}
system $command ;
exit $? >> 8;