git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@9431
48e7efb5-ca39-0410-a469-
dd3cf9ba447f
print "#include <smpi_cocci.h>\n";
# FIXME: here we make the assumption that people don't do things like put
print "#include <smpi_cocci.h>\n";
# FIXME: here we make the assumption that people don't do things like put
-# multiple statements after a declaration, but separated by semicolons. It's a
-# reasonable assumption for the time being, but technically it could cause
-# problems for some code.
+# multiple statements on the same line after a declaration, but separated by
+# semicolons. It's a reasonable assumption for the time being, but technically
+# it could cause problems for some code.
+
OUTER: while ($line = <STDIN>) {
if ($line =~ /SMPI_VARINIT/) {
do {
OUTER: while ($line = <STDIN>) {
if ($line =~ /SMPI_VARINIT/) {
do {
- chomp $line;
- $line =~ s/\s+/ /g;
+ chomp $line; # kill carriage return
+ $line =~ s/\s+/ /g; # remove excessive whitespace added by spatch
while ($line =~ s/(SMPI_VARINIT[A-Z0-9_]*?\(.*?\))//) {
print "$1\n";
}
while ($line =~ s/(SMPI_VARINIT[A-Z0-9_]*?\(.*?\))//) {
print "$1\n";
}
+
+ # if varinit continues on to next line
if ($line =~ /SMPI_VARINIT/) {
# should only happen for bad code...
if (!($nextline = <STDIN>)) {
if ($line =~ /SMPI_VARINIT/) {
# should only happen for bad code...
if (!($nextline = <STDIN>)) {
identifier var;
position p != { localvardecl.p, funcproto.p };
expression value;
identifier var;
position p != { localvardecl.p, funcproto.p };
expression value;