X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/5bda74fa19f79d0abf79815f7147004b31dde226..27b0c1ee1d85c53f1d11bb2b8e539cd76e4cf437:/tools/smpi/generate_smpi_defines.pl diff --git a/tools/smpi/generate_smpi_defines.pl b/tools/smpi/generate_smpi_defines.pl index 64d1710a98..0bd941b171 100755 --- a/tools/smpi/generate_smpi_defines.pl +++ b/tools/smpi/generate_smpi_defines.pl @@ -1,7 +1,7 @@ #!/usr/bin/env perl # Copyright 2016 Vincent Danjean # Christian Heinrich -# +# # Call this script like this: # C/C++ : ./generate_smpi_defines.pl ../../include/smpi/smpi.h # FORTRAN: ./generate_smpi_defines.pl -f ../../include/smpi/smpi.h @@ -12,7 +12,7 @@ # with MPI+TAU). use strict; use warnings; -use Getopt::Std; +use Getopt::Std; my %options=(); getopts("fc", \%options); @@ -61,7 +61,7 @@ while (defined($line = <>)) { } $incall=1; $wholemacro = $line; - } elsif ($incall && $line =~ /^\s+\S/) { + } elsif ($incall && $line =~ /^\s+\S/) { # Did we already start parsing an MPI_CALL macro? If so, just concatenate $wholemacro .= ' '.$line; } elsif ($incall) {