patch-2.4.0-test3 linux/scripts/kernel-doc

• Lines: 40
• Date: Wed Jul 5 12:56:01 2000
• Orig file: v2.4.0-test2/linux/scripts/kernel-doc
• Orig date: Mon Jun 19 16:32:02 2000

diff -u --recursive --new-file v2.4.0-test2/linux/scripts/kernel-doc linux/scripts/kernel-doc
@@ -673,9 +673,9 @@
 	$args = $3;
 
 	# allow for up to fours args to function pointers
-	$args =~ s/(\([^\),]+),/\1#/;
-	$args =~ s/(\([^\),]+),/\1#/;
-	$args =~ s/(\([^\),]+),/\1#/;
+	$args =~ s/(\([^\),]+),/\1#/g;
+	$args =~ s/(\([^\),]+),/\1#/g;
+	$args =~ s/(\([^\),]+),/\1#/g;
 #	print STDERR "ARGS = '$args'\n";
 
 	foreach $arg (split ',', $args) {
@@ -691,6 +691,8 @@
 		$type = $arg;
 		$type =~ s/([^\(]+\(\*)$param/\1/;
 	    } else {
+		# evil magic to get fixed array parameters to work
+		$arg =~ s/(.+\s+)(.+)\[.*/\1* \2/;
 #		print STDERR "SCAN ARG: '$arg'\n";
 		@args = split('\s', $arg);
 
@@ -718,7 +720,7 @@
 	    }
             if ($parameters{$param} eq "") {
 	        $parameters{$param} = "-- undescribed --";
-	        print STDERR "Warning($lineno): Function parameter '$param' not described in '$function_name'\n";
+	        print STDERR "Warning($file:$lineno): Function parameter '$param' not described in '$function_name'\n";
 	    }
 
 	    push @parameterlist, $param;
@@ -780,6 +782,7 @@
 
 $lineno = 0;
 foreach $file (@ARGV) {
+    chomp($file);
     if (!open(IN,"<$file")) {
 	print STDERR "Error: Cannot open file $file\n";
 	next;