trick/bin/trick_dp

#!/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;