blob: b5d769c842f7f557cb51df561e672a7e0f15b929 [file] [log] [blame]
#! /usr/bin/perl
require 'getopts.pl';
use strict;
use Getopt::Long;
# options
my @optlist = ("h|help!","v|verbose!","d=s","J=s","cp|classpath=s","C=s");
my $result = GetOptions @optlist;
our ($opt_h, $opt_v, $opt_d, $opt_J,$opt_cp, $opt_C);
# -h option || check the number of arguments
if ($opt_h || @ARGV < 1 ) {
usage();
exit 1;
}
# variables
my $pljava = "pljava";
my $pljava_opts = "";
my $pljavac = "pljavac";
my $pljavac_opts = "";
my $java_dest = ".";
if ($opt_v) { # -v option
$pljava_opts .= " -v";
$pljavac_opts .= " -v";
}
if ($opt_d) { # -d option
if (! -d $opt_d) {
&message("mkdir $opt_d, 0777");
mkdir $opt_d, 0777 || &error("can not mkdir $opt_d");
}
$java_dest = $opt_d;
}
if ($opt_J) { # -J option
$pljava_opts .= " -J '$opt_J'";
}
if ($opt_cp) { # -cp option
$pljavac_opts .= " -cp '$opt_cp'";
}
if ($opt_C) { # -C option
$pljavac_opts .= " -C '$opt_C'";
}
# Prolog --> Java
foreach my $file (@ARGV) {
my $cmd1 = "$pljava $pljava_opts -d $java_dest $file";
&message($cmd1);
system($cmd1) && error("$cmd1 fails");
}
# Java --> Class
my $cmd2 = "$pljavac $pljavac_opts $java_dest/*.java";
&message($cmd2);
system($cmd2) && error("$cmd2 fails");
exit 0;
# sub
sub usage {
print "\nUsage: $0 [-options] prolog-file [prolog-files]\n";
print "\n where options include:\n";
print "\t-h -help : print this help message\n";
print "\t-v -verbose : enable verbose output\n";
print "\t-d directory : set the destination directory for java files.\n";
print "\t : make it if not exist\n";
print "\t-J option : option must be enclosed by '.\n";
print "\t : pass option to the Java Virtual Machine\n";
print "\t : (ex. -J '-Xmx100m -verbose:gc')\n";
print "\t-cp -classpath <class search path of directories and zip/jar files>\n";
print "\t : A : separated list of directories and zip/jar files.\n";
print "\t-C option : option must be enclosed by '.\n";
print "\t : pass option to the Java Compiler\n";
print "\t : (ex. -C '-deprecation')\n";
print "\n";
}
sub message {
my ($x) = @_;
if ($opt_v) { # check -v option
print "\% $x\n";
}
}
sub error {
my ($x) = @_;
print "\% ERROR: $x: $0\n";
exit(1);
}