Currently a '//****' is matched as an /* comment - disallow a '/' in

front of the '/*' match. An 'extern "C" {' can be split in several lines - allow '\n' as space, and lookout for the rest if partial found.

Currently a '//****' is matched as an /* comment - disallow a '/' in
08aa87fb · Peter Berg Larsen · Alexandre Julliard · 6beae245 · 08aa87fb
Commit 08aa87fb authored Jan 03, 2005 by Peter Berg Larsen Committed by Alexandre Julliard Jan 03, 2005
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 2 deletions

function_grep.pl tools/winedump/function_grep.pl +5 -2

No files found.
--- a/tools/winedump/function_grep.pl
+++ b/tools/winedump/function_grep.pl
@@ -75,7 +75,7 @@ foreach my $file (@files) {
 	}

 	# remove C comments
-	if(s/^(.*?)(\/\*.*?\*\/)(.*)$/$1 $3/s) {
+	if(s/^(|.*?[^\/])(\/\*.*?\*\/)(.*)$/$1 $3/s) {
 	    $again = 1;
 	    next;
 	} elsif(/^(.*?)\/\*/s) {
@@ -101,10 +101,13 @@ foreach my $file (@files) {
 	}

 	# Remove extern "C"
-	if(s/^\s*extern\s+"C"\s+\{//m) {
+	if(s/^\s*extern[\s\n]+"C"[\s\n]+\{//m) {
 	    $extern_c = 1;
 	    $again = 1;
 	    next;
+	} elsif(m/^\s*extern[\s\n]+"C"/m) {
+	    $lookahead = 1;
+	    next;
 	}

 	if($level > 0)