147 строки
4.7 KiB
Perl
147 строки
4.7 KiB
Perl
#!/usr/bin/env perl
|
|
|
|
# WARNING: DO NOT EDIT THE mpijava.pl FILE AS IT IS GENERATED!
|
|
# MAKE ALL CHANGES IN mpijava.pl.in
|
|
|
|
# Copyright (c) 2011 Cisco Systems, Inc. All rights reserved.
|
|
|
|
use strict;
|
|
|
|
# The main purpose of this wrapper compiler is to check for
|
|
# and adjust the Java class path to include the OMPI classes
|
|
# in mpi.jar. The user may have specified a class path on
|
|
# our cmd line, or it may be in the environment, so we have
|
|
# to check for both. We also need to be careful not to
|
|
# just override the class path as it probably includes classes
|
|
# they need for their application! It also may already include
|
|
# the path to mpi.jar, and while it doesn't hurt anything, we
|
|
# don't want to include our class path more than once to avoid
|
|
# user astonishment
|
|
|
|
# Let the build system provide us with some critical values
|
|
my $my_compiler = "@JAVAC@";
|
|
my $ompi_classpath = "@OMPI_WRAPPER_LIBDIR@/mpi.jar";
|
|
|
|
# globals
|
|
my $showme_arg = 0;
|
|
my $verbose = 0;
|
|
my $my_arg;
|
|
|
|
# Cannot use the usual GetOpts library as the user might
|
|
# be passing -options to the Java compiler! So have to
|
|
# parse the options ourselves to look for help and showme
|
|
foreach $my_arg (@ARGV) {
|
|
if ($my_arg eq "-h" ||
|
|
$my_arg eq "--h" ||
|
|
$my_arg eq "-help" ||
|
|
$my_arg eq "--help") {
|
|
print "Options:
|
|
--showme Show the wrapper compiler command without executing it
|
|
--help | -h This help list\n";
|
|
exit;
|
|
} elsif ($my_arg eq "-showme" ||
|
|
$my_arg eq "--showme") {
|
|
$showme_arg = 1;
|
|
shift(@ARGV);
|
|
} elsif ($my_arg eq "-verbose" ||
|
|
$my_arg eq "-v" ||
|
|
$my_arg eq "--verbose") {
|
|
$verbose = 1;
|
|
shift(@ARGV);
|
|
}
|
|
}
|
|
|
|
# Create a place to save our argv array so we can edit any
|
|
# provide class path option
|
|
my @arguments = ();
|
|
|
|
# Check the command line for a class path
|
|
my $where;
|
|
my $where2;
|
|
my $cp_found = 0;
|
|
my $my_cp;
|
|
foreach $my_arg (@ARGV) {
|
|
if (1 == $cp_found) {
|
|
$where = index($my_arg, "mpi.jar");
|
|
if ($where < 0) {
|
|
# not found, so we add our path
|
|
$where = rindex($my_arg, ":");
|
|
if ($where == length($my_arg)-1) {
|
|
# already have a colon at the end
|
|
$my_cp = $my_arg . $ompi_classpath;
|
|
} else {
|
|
# need to add the colon between paths
|
|
$my_cp = $my_arg . ":" . $ompi_classpath;
|
|
}
|
|
push(@arguments, $my_cp);
|
|
} else {
|
|
# it was found, so just leave it alone
|
|
push(@arguments, $my_arg);
|
|
}
|
|
$cp_found = 2;
|
|
} else {
|
|
$where = index($my_arg, "-cp");
|
|
if ($where < 0) {
|
|
# check for -- variant */
|
|
$where = index($my_arg, "--cp");
|
|
}
|
|
$where2 = index($my_arg, "-classpath");
|
|
if ($where2 < 0) {
|
|
# check for -- variant */
|
|
$where = index($my_arg, "--classpath");
|
|
}
|
|
if (0 <= $where || 0 <= $where2) {
|
|
# the next argument will contain the class path
|
|
$cp_found = 1;
|
|
}
|
|
push(@arguments, $my_arg);
|
|
}
|
|
}
|
|
|
|
# If the class path wasn't found on the cmd line, then
|
|
# we next check the class path in the environment, if it exists
|
|
if (2 != $cp_found && exists $ENV{'CLASSPATH'} && length($ENV{'CLASSPATH'}) > 0) {
|
|
$where = index($ENV{'CLASSPATH'}, "mpi.jar");
|
|
if (0 <= $where) {
|
|
# their environ classpath already points to mpi.jar
|
|
unshift(@arguments, $ENV{'CLASSPATH'});
|
|
unshift(@arguments, "-cp");
|
|
} else {
|
|
# java will default to using this envar unless
|
|
# we provide an override on the javac cmd line.
|
|
# however, we are about to do just that so we
|
|
# can add the path to the mpi classes! thus,
|
|
# we want to grab the class path since they
|
|
# have it set and append our path to it
|
|
$where = rindex($ENV{'CLASSPATH'}, ":");
|
|
if ($where == length($ENV{'CLASSPATH'})-1) {
|
|
# already has a colon at the end
|
|
$my_cp = $ENV{'CLASSPATH'} . $ompi_classpath;
|
|
} else {
|
|
# need to add colon between paths
|
|
$my_cp = $ENV{'CLASSPATH'} . ":" . $ompi_classpath;
|
|
}
|
|
unshift(@arguments, $my_cp);
|
|
unshift(@arguments, "-cp");
|
|
}
|
|
# ensure we mark that we "found" the class path
|
|
$cp_found = 1;
|
|
}
|
|
|
|
# If the class path wasn't found in either location, then
|
|
# we have to insert it as the first argument
|
|
if (0 == $cp_found) {
|
|
unshift(@arguments, $ompi_classpath);
|
|
unshift(@arguments, "-cp");
|
|
}
|
|
|
|
# Construct the command
|
|
if ($showme_arg) {
|
|
print "$my_compiler @arguments\n";
|
|
} else {
|
|
if ($verbose) {
|
|
print "$my_compiler @arguments\n";
|
|
}
|
|
system $my_compiler, @arguments;
|
|
}
|