#! /usr/bin/perl
use strict;
use warnings;
# Set to undef to disable.
my $bootclasspath = '/usr/share/sablevm-classpath/libclasspath.jar';
my $classpath = undef;
#join ':', glob '~sirian/classpath/*.jar';
my $arg = $ARGV[0];

sub ftw_find
{
  my @ret = ();
  use File::Find;
  find { no_chdir => 1,
	   wanted => sub { m/\.java$/o and push @ret, $_ }}, $_[0];
  @ret;
}

if (defined $arg && $arg eq 'build')
  {
    exec (qw(jikes +F),
	  defined($bootclasspath) ? ('-bootclasspath', $bootclasspath) : (),
	  defined($classpath) ? ('-classpath', $classpath) : (),
	  ftw_find ('org'));
  }
else
  {
    exec ('java', defined $classpath ? ('-cp', $classpath) : (),
	  'org.sablevm.SableBot.SableBot', @ARGV);
  }