#!/usr/bin/perl
$here = $0;
$here =~ s/\/[^\/]*$//g;
#chop $here;
chdir $here;
$java = $ENV{ABCL_JAVA} || "java";
@version = `$java -version 2>&1`;
$sep = "================================================================";

if ($ENV{OS} =~ /windows/i) {$pathJoin = ";"} else {$pathJoin = ":" }
if (!(@version[0] =~ /version/) ) 
  { complainCantTellVersion() }
elsif (!(@version[0] =~ /"1.5/) ) 
  { complainWrongVersion(); exit() }
@libs = grep(/.jar$/,split /\n/,`find "$here/lib" -follow`);
map {s/$here\///} @libs;

$libjar = join($pathJoin,@libs);


@args  = ("-Xmx512M","-Xss4M","-cp", $libjar);
if (!($ENV{OS} =~ /windows/i)) { @args = ("-server",@args);}
print "$java @args org.armedbear.lisp.Main\n";
exec("$java",@args,"org.armedbear.lisp.Main");

sub complainCantTellVersion ()
{ print("I'm trying to tell which version of java you are running, but \"$java -version\" prints\n$sep\n");
  print @version;
  print("$sep\nGoing to try anyways, but this may not work...\n");
}

sub complainWrongVersion ()
{ print("This project needs java 1.5, but \"$java -version\" prints\n$sep\n");
  print @version;
  print("$sep\nYou either need to install java version 1.5, and/or first set the\n");
  print("environment variable ABCL_JAVA to the appropriate java executable (e.g.\n");
  print("in Mac OS X: /System/Library/Frameworks/JavaVM.framework/Versions/1.5/Commands/java)\n"); 
}