trick/bin/trick_qp

#!/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 QP\" \\
         -Xdock:icon=$ENV{TRICK_HOME}/bin/java/resources/trick_icon.png \\
         trick.dataproducts.trickqp.TrickQPApplication " . 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.trickqp.TrickQPApplication " . join (" " , @ARGV) ;
}
system $command ;
exit $? >> 8;