#!/usr/bin/perl
#

my $path = shift @ARGV;
my $prob = shift @ARGV;

unless (-d $path) {
    usage();
}
$path .= "/";

$prob ||= "problem";

unless (-e "$path/$prob.pddl") {
    print STDERR "Problem file $prob.pddl doesn't exist.\n";
    usage();
}

system ("./expand", $path);
system ("./ipp", "-p", $path, "-o", "domain.pddl", "-f", "$prob.pddl");

sub usage
{
    print "$0 <directory> [<problem>]\n  (problem defaults to \"problem\"\n";
    exit;
}
