introducing a lot of new things
This commit was SVN r1033.
Этот коммит содержится в:
родитель
1bc90cbd30
Коммит
b06377c3a6
@ -81,7 +81,7 @@ close(MPIF__H);
|
||||
open(MPIF_F_H, "> .mpif_f.h") || print "could not open mpif_f.h \n";
|
||||
open(MPIF_H, ".mpif.h") || print "could not open mpif.h \n";
|
||||
|
||||
while (<MPIF_F_H>) {
|
||||
while (<MPIF_F>) {
|
||||
s/(mpi_\w+){1,1}/$1_/g;
|
||||
print MPIF_F_H;
|
||||
}
|
||||
@ -116,3 +116,269 @@ while (<MPIF_H>) {
|
||||
|
||||
close(MPIF_H);
|
||||
close(mpif_h);
|
||||
|
||||
#
|
||||
# Now we have to put all this together to form prototypes_mpi.h
|
||||
# the template for prototypes_mpi.h is as follows
|
||||
#
|
||||
$header =
|
||||
"#ifndef LAM_F77_PROTOTYPES_MPI_H
|
||||
#define LAM_F77_PROTOTYPES_MPI_H
|
||||
/*
|
||||
* $HEADER$
|
||||
* This file prototypes all MPI fortran functions in all four fortran
|
||||
* symbol conventions as well as all the internal real LAM wrapper
|
||||
* functions (different from any of the four fortran symbol
|
||||
* conventions for clarity, at the cost of more typing for me...).
|
||||
* This file is included in the top-level build ONLY. The prototyping
|
||||
* is done ONLY for MPI_* bindings
|
||||
*
|
||||
* Zeroth, the LAM wrapper functions, with a _f suffix.
|
||||
*
|
||||
* This is needed ONLY if the lower-level prototypes_pmpi.h has not
|
||||
* already been included
|
||||
*/
|
||||
#ifndef LAM_F77_PROTOTYPES_PMPI_H
|
||||
/*
|
||||
* mpi_*_f definitions go here --- .mpif_f.h
|
||||
*/\n ";
|
||||
$endif = "#endif\n\n";
|
||||
|
||||
#
|
||||
# Now lets open up all the files and write it to prototypes.h
|
||||
#
|
||||
open(proto, "> prototypes_mpi.h") || print "could not open prototypes_mpi.h \n";
|
||||
open(MPIF_H, ".mpif.h") || print "could not open .mpif.h \n";
|
||||
open(MPIF_F_H, ".mpif_f.h") || print "could not open .mpif_f.h \n";
|
||||
open(MPIF__H, ".mpif_.h") || print "could not open .mpif_.h \n";
|
||||
open(MPIF___H, ".mpif__.h") || print "could not open .mpif__.h \n";
|
||||
open(mpif_h, ".MPIF.h") || print "could not open .MPIF.h \n";
|
||||
|
||||
print proto $header;
|
||||
|
||||
while (<MPIF_F_H>) {
|
||||
print proto;
|
||||
}
|
||||
print proto $endif;
|
||||
|
||||
print proto "/*This is the all lower case prototypes*/\n\n";
|
||||
|
||||
while (<MPIF_H>) {
|
||||
print proto;
|
||||
}
|
||||
|
||||
print proto "/*This is the single underscore prototypes*/\n\n";
|
||||
|
||||
while (<MPIF__H>) {
|
||||
print proto;
|
||||
}
|
||||
|
||||
print proto "/*This is the cdouble underscore prototypes*/\n\n";
|
||||
|
||||
while (<MPIF___H>) {
|
||||
print proto;
|
||||
}
|
||||
|
||||
print proto "/*This is the all upper case prototypes*/\n\n";
|
||||
|
||||
while (<mpif_h>) {
|
||||
print proto;
|
||||
}
|
||||
|
||||
print proto $endif;
|
||||
|
||||
close(MPIF_H);
|
||||
close(MPIF__H);
|
||||
close(MPIF___H);
|
||||
close(MPIF_F_H);
|
||||
close(mpif_h);
|
||||
close(proto);
|
||||
|
||||
#system("rm .mpif.h .mpif_f.h .mpif_.h .mpif__.h .MPIF.h");
|
||||
|
||||
#
|
||||
# Now we have the prototype ready, all we need to do is generate the files. For this, we need to
|
||||
# write out all the #defines. To do this we need a template in which we call fill in things wherever
|
||||
# we need it.
|
||||
#
|
||||
|
||||
# This is the body of the function
|
||||
$function_body =
|
||||
"{
|
||||
|
||||
}\n";
|
||||
|
||||
# This is the boiler plate header which goes on top of every header
|
||||
$boiler_plate =
|
||||
"/*
|
||||
* \$HEADER\$
|
||||
*/
|
||||
|
||||
#include \"lam_config.h\"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#include \"mpi.h\"
|
||||
#include \"mpi/f77/bindings.h\"\n\n";
|
||||
|
||||
$have_weak_and_want_profile = "#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER";
|
||||
$no_weak_and_want_profile = "#elif LAM_PROFILE_LAYER";
|
||||
$have_weak = "#if LAM_HAVE_WEAK_SYMBOLS";
|
||||
$no_weak_and_no_profile = "#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER";
|
||||
|
||||
#
|
||||
# Now lets get down to the actual dirty job
|
||||
#
|
||||
open (MPIF_H, ".mpif.h") || print "Could not open .mpif.h for creating files\n";
|
||||
#
|
||||
# This while loop goes through every single entry and creates the files
|
||||
#
|
||||
while (<MPIF_H>) {
|
||||
(/\w+\s(mpi_\w+)/) && ($function_name = $1);
|
||||
# get all the required variables in
|
||||
$function_name_ = $function_name . "_";
|
||||
$function_name__ = $function_name . "__";
|
||||
$FUNCTION_NAME = uc($function_name);
|
||||
$function_name_f = $function_name . "_f";
|
||||
(/mpi_(\w+)/) && ($file_name = $1 . "_f.c");
|
||||
(/(\(.*\))/) && ($function_params_with_types = $1);
|
||||
$function_params_without_types = $function_params_with_types;
|
||||
$function_params_without_types =~ s/\w+\s\*//g;
|
||||
(/^(\w+\s)(mpi_\w+)(.*);/) && ($function_signature = $1.$function_name_f.$3."\n");
|
||||
|
||||
#create the weak symbol declarations
|
||||
$pmpi_weak = "
|
||||
#pragma weak P$FUNCTION_NAME = $function_name_f
|
||||
#pragma weak p$function_name = $function_name_f
|
||||
#pragma weak p$function_name_ = $function_name_f
|
||||
#pragma weak p$function_name__ = $function_name_f\n";
|
||||
|
||||
$mpi_weak = "
|
||||
#pragma weak $FUNCTION_NAME = $function_name_f
|
||||
#pragma weak $function_name = $function_name_f
|
||||
#pragma weak $function_name_ = $function_name_f
|
||||
#pragma weak $function_name__ = $function_name_f\n";
|
||||
|
||||
#create the non-weak symbol variables
|
||||
$redefine_pmpi = "
|
||||
LAM_GENERATE_F77_BINDINGS (P$FUNCTION_NAME,
|
||||
p$function_name,
|
||||
p$function_name_,
|
||||
p$function_name__,
|
||||
p$function_name_f,
|
||||
$function_params_with_types,
|
||||
$function_params_without_types )\n";
|
||||
|
||||
$redefine_mpi = "
|
||||
LAM_GENERATE_F77_BINDINGS ($FUNCTION_NAME,
|
||||
$function_name,
|
||||
$function_name_,
|
||||
$function_name__,
|
||||
$function_name_f,
|
||||
$function_params_with_types,
|
||||
$function_params_without_types )\n";
|
||||
|
||||
# Now we can start creating the file
|
||||
open(FILE, "> $file_name") || print "Could not open $file_name for writing\n";
|
||||
|
||||
#write out the header
|
||||
print FILE $boiler_plate;
|
||||
print FILE $have_weak_and_want_profile;
|
||||
print FILE $pmpi_weak;
|
||||
print FILE $no_weak_and_want_profile;
|
||||
print FILE $redefine_pmpi;
|
||||
print FILE $endif;
|
||||
print FILE $have_weak;
|
||||
print FILE $mpi_weak;
|
||||
print FILE $endif;
|
||||
print FILE $no_weak_and_no_profile;
|
||||
print FILE $redefine_mpi;
|
||||
print FILE $endif;
|
||||
print FILE $function_signature;
|
||||
print FILE $function_body;
|
||||
|
||||
close(FILE);
|
||||
}
|
||||
|
||||
close(MPIF_H);
|
||||
|
||||
# Now have to generate profile/defines.h and profile/prototypes_mpi.h
|
||||
# both of these arew easy. profile/defines.h is nothing but #defines
|
||||
# of the mpi_*_f functions to be pmpi functions
|
||||
|
||||
$header =
|
||||
"#ifndef LAM_F77_PROTOTYPES_PMPI_H
|
||||
#define LAM_F77_PROTOTYPES_PMPI_H
|
||||
/*
|
||||
* \$HEADER\$
|
||||
* This file prototypes all MPI fortran functions in all four fortran
|
||||
* symbol conventions as well as all the internal real LAM wrapper
|
||||
* functions (different from any of the four fortran symbol
|
||||
* conventions for clarity, at the cost of more typing for me...).
|
||||
* This file is included in the top-level build ONLY. The prototyping
|
||||
* is done ONLY for MPI_* bindings
|
||||
*
|
||||
* Zeroth, the LAM wrapper functions, with a _f suffix.
|
||||
*
|
||||
* This is needed ONLY if the lower-level prototypes_pmpi.h has not
|
||||
* already been included
|
||||
*/
|
||||
/*
|
||||
* pmpi_*_f definitions go here --- .mpif_f.h
|
||||
*/\n ";
|
||||
$endif = "#endif\n\n";
|
||||
|
||||
#
|
||||
# Now lets open up all the files and write it to prototypes.h
|
||||
#
|
||||
open(proto, "> prototypes_pmpi.h")|| print "Could not open prototypes_pmpi.h\n";
|
||||
open(MPIF_H, ".mpif.h") || print "could not open .mpif.h \n";
|
||||
open(MPIF_F_H, ".mpif_f.h") || print "could not open .mpif_f.h \n";
|
||||
open(MPIF__H, ".mpif_.h") || print "could not open .mpif_.h \n";
|
||||
open(MPIF___H, ".mpif__.h") || print "could not open .mpif__.h \n";
|
||||
open(mpif_h, ".MPIF.h") || print "could not open .MPIF.h \n";
|
||||
|
||||
print proto $header;
|
||||
|
||||
while (<MPIF_F_H>) {
|
||||
(/^(\w+\s)(mpi_\w+)(.*)/) && ($_ = $1."p".$2.$3."\n");
|
||||
print proto;
|
||||
}
|
||||
|
||||
print proto "/*This is the all lower case prototypes*/\n\n";
|
||||
|
||||
while (<MPIF_H>) {
|
||||
(/^(\w+\s)(mpi_\w+)(.*)/) && ($_ = $1."p".$2.$3."\n");
|
||||
print proto;
|
||||
}
|
||||
|
||||
print proto "/*This is the single underscore prototypes*/\n\n";
|
||||
|
||||
while (<MPIF__H>) {
|
||||
(/^(\w+\s)(mpi_\w+)(.*)/) && ($_ = $1."p".$2.$3."\n");
|
||||
print proto;
|
||||
}
|
||||
|
||||
print proto "/*This is the cdouble underscore prototypes*/\n\n";
|
||||
|
||||
while (<MPIF___H>) {
|
||||
(/^(\w+\s)(mpi_\w+)(.*)/) && ($_ = $1."p".$2.$3."\n");
|
||||
print proto;
|
||||
}
|
||||
|
||||
print proto "/*This is the all upper case prototypes*/\n\n";
|
||||
|
||||
while (<mpif_h>) {
|
||||
(/^(\w+\s)(mpi_\w+)(.*)/) && ($_ = $1."p".$2.$3."\n");
|
||||
print proto;
|
||||
}
|
||||
|
||||
print proto $endif;
|
||||
|
||||
close(MPIF_H);
|
||||
close(MPIF__H);
|
||||
close(MPIF___H);
|
||||
close(MPIF_F_H);
|
||||
close(mpif_h);
|
||||
close(proto);
|
||||
system("mv prototypes_pmpi.h profile/prototypes_pmpi.h");
|
||||
|
Загрузка…
Ссылка в новой задаче
Block a user