0b8baa217d
This commit contains the following changes: The C++ bindings were removed from the standard in MPI-3.0. This commit removes the entirety of the C++ bindings as well as the support configury. Removes all references to C++ from the man pages. This includes the bindings themselves, all references to what C++ bindings return, all not-available comments, and differences between C++ and other language bindings. If the user passes --enable-mpi-cxx, --enable-mpi-cxx-seek, or --enable-cxx-exceptions, print a warning message an abort configure. Signed-off-by: Jeff Squyres <jsquyres@cisco.com> Signed-off-by: Nathan Hjelm <hjelmn@google.com>
74 строки
2.0 KiB
Perl
Исполняемый файл
74 строки
2.0 KiB
Perl
Исполняемый файл
#!/usr/bin/env perl
|
|
#
|
|
# Copyright (c) 2015 Research Organization for Information Science
|
|
# and Technology (RIST). All rights reserved.
|
|
# Copyright (c) 2015 Cisco Systems, Inc. All rights reserved.
|
|
# Copyright (c) 2020 Intel, Inc. All rights reserved.
|
|
# $COPYRIGHT$
|
|
#
|
|
# Subroutine to generate a bunch of Fortran declarations and symbols
|
|
#
|
|
|
|
use strict;
|
|
|
|
use Getopt::Long;
|
|
|
|
my $package_name;
|
|
my $package_version;
|
|
my $ompi_date;
|
|
my $opal_date;
|
|
my $fortran = '1';
|
|
my $f08 = '1';
|
|
my $input;
|
|
my $output;
|
|
my $help_arg = 0;
|
|
|
|
&Getopt::Long::Configure("bundling");
|
|
my $ok = Getopt::Long::GetOptions("package-name=s" => \$package_name,
|
|
"package-version=s" => \$package_version,
|
|
"ompi-date=s" => \$ompi_date,
|
|
"opal-date=s" => \$opal_date,
|
|
"fortran!" => \$fortran,
|
|
"f08!" => \$f08,
|
|
"input=s" => \$input,
|
|
"output=s" => \$output);
|
|
|
|
if ($help_arg || !$ok ||
|
|
!defined($input) ||
|
|
!defined($output) ||
|
|
!defined($package_name) ||
|
|
!defined($package_version) ||
|
|
!defined($ompi_date) ||
|
|
!defined($opal_date)) {
|
|
print "Usage: $0 --package-name=<package name> --package-version=<package version> --ompi-date=<ompi date> --opal-date=<opal date> --input=<input file> --output=<output file> [--nocxx] [ --nofortran] [--nof08]\n";
|
|
exit(1 - $ok);
|
|
}
|
|
|
|
open(FILE, $input) ||
|
|
die "Can't open $input";
|
|
my $file;
|
|
$file .= $_
|
|
while(<FILE>);
|
|
close(FILE);
|
|
|
|
$file =~ s/#PACKAGE_NAME#/$package_name/g;
|
|
$file =~ s/#PACKAGE_VERSION#/$package_version/g;
|
|
$file =~ s/#OMPI_DATE#/$ompi_date/g;
|
|
$file =~ s/#OPAL_DATE#/$opal_date/g;
|
|
|
|
if ($fortran == 0) {
|
|
$file =~ s/\n\.SH Fortran Syntax.+?\n\.SH/\n\.SH/s;
|
|
}
|
|
|
|
if ($f08 == 0) {
|
|
$file =~ s/\n\.SH Fortran 2008 Syntax.+?\n\.SH/\n\.SH/s;
|
|
}
|
|
|
|
open(FILE, ">$output") ||
|
|
die "Can't open $output";
|
|
print FILE $file;
|
|
close(FILE);
|
|
|
|
exit(0);
|
|
|