A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
ns3: inline a header file
[simgrid.git]
/
tools
/
smpi
/
generate_smpi_defines.pl
diff --git
a/tools/smpi/generate_smpi_defines.pl
b/tools/smpi/generate_smpi_defines.pl
index
be61448
..
64d1710
100755
(executable)
--- a/
tools/smpi/generate_smpi_defines.pl
+++ b/
tools/smpi/generate_smpi_defines.pl
@@
-1,5
+1,6
@@
#!/usr/bin/env perl
# Copyright 2016 Vincent Danjean <vincent.danjean@inria.fr>
#!/usr/bin/env perl
# Copyright 2016 Vincent Danjean <vincent.danjean@inria.fr>
+# Christian Heinrich <franz-christian.heinrich@inria.fr>
#
# Call this script like this:
# C/C++ : ./generate_smpi_defines.pl ../../include/smpi/smpi.h
#
# Call this script like this:
# C/C++ : ./generate_smpi_defines.pl ../../include/smpi/smpi.h
@@
-25,7
+26,7
@@
if (defined $options{f}) {
}
print "$commentChar This file has been automatically generated by the script\n";
}
print "$commentChar This file has been automatically generated by the script\n";
-print "$commentChar in tools/smpi/
" . __FILE__ ."
\n";
+print "$commentChar in tools/smpi/
generate_smpi_defines.pl
\n";
print "$commentChar DO NOT EDIT MANUALLY. ALL CHANGES WILL BE OVERWRITTEN!\n";
# Formatting of the output
print "$commentChar DO NOT EDIT MANUALLY. ALL CHANGES WILL BE OVERWRITTEN!\n";
# Formatting of the output
@@
-37,7
+38,8
@@
sub output_macro {
# This is a GCC extension. The last statement is the value of the expression
# in parentheses.
if (defined $options{f}) {
# This is a GCC extension. The last statement is the value of the expression
# in parentheses.
if (defined $options{f}) {
- print "#define ". uc($id) ." smpi_trace_set_call_location(__FILE__,__LINE__); call ". lc $id ."\n";
+ print "#define ". lc($id) ." smpi_trace_set_call_location(__FILE__,__LINE__); call ". ucfirst $id ."\n";
+ print "#define ". uc($id) ." smpi_trace_set_call_location(__FILE__,__LINE__); call ". ucfirst $id ."\n";
}
else {
if ($id eq "MPI_Init") {
}
else {
if ($id eq "MPI_Init") {