casa6

#!/usr/bin/perl

​

use POSIX;

use File::Basename;

use Cwd qw(abs_path getcwd);

​

$name = basename($0);

$exe = abs_path($0);

$path = abs_path(dirname($exe));

chop($java=`which java`);

​

### install path

$jarfile = "$path/java/$jarfile_name";

### development path

if ( ! -e $jarfile ) {

    my $devjarfile = "$path/../target/scala-2.12/$jarfile_name";

    if ( -e $devjarfile ) {

        $jarfile = $devjarfile;

    }

}