#!/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/* \\ -Xdock:name=\"Monte Monitor\" \\ -Xdock:icon=$ENV{TRICK_HOME}/bin/java/resources/trick_icon.png \\ trick.montemonitor.MonteMonitorApplication " . join (" " , @ARGV) ; } else { $command = "java -cp $ENV{TRICK_HOME}/bin/java/dist/*:$ENV{TRICK_HOME}/bin/java/lib/* trick.montemonitor.MonteMonitorApplication " . join (" " , @ARGV) ; } system $command ; exit $? >> 8;