kerneldoc: Fix comma separated members.

This patch teaches scripts/kernel-doc to print descriptions
of comma separated variables correctly instead of ignoring
them.

Tested on 'make pdfdocs' and 'scripts/kernel-doc -text test.c'.
Signed-off-by: Sam Ravnborg <sam@ravnborg.org>

scripts/kernel-doc

@@ -26,6 +26,8 @@ use strict;
 # Still to do:
 # 	- add perldoc documentation
 # 	- Look more closely at some of the scarier bits :)
+# 	- Clean up mess that #ifdefs and comments inside structs
+# 	  definitions leave.
 
 # 26/05/2001 - 	Support for separate source and object trees.
 #		Return error code.
@@ -36,6 +38,8 @@ use strict;
 #              Small fixes (like spaces vs. \s in regex)
 # -- Tim Jansen <tim@tjansen.de>
 
+# 18/04/2004 - Comma separated members inside structs definitions are ok now.
+# -- Alexey Dobriyan <adobriyan@mail.ru>
 
 #
 # This will read a 'c' file and scan for embedded comments in the
@@ -105,10 +109,7 @@ use strict;
 # enums and typedefs. Instead of the function name you must write the name 
 # of the declaration;  the struct/union/enum/typedef must always precede 
 # the name. Nesting of declarations is not supported. 
-# Use the argument mechanism to document members or constants. In 
-# structs and unions you must declare one member per declaration 
-# (comma-separated members are not allowed -  the parser does not support 
-# this).
+# Use the argument mechanism to document members or constants.
 # e.g.
 # /**
 #  * struct my_struct - short description
@@ -1318,31 +1319,43 @@ sub create_parameterlist($$$) {
 	    $param = $1;
 	    $type = $arg;
 	    $type =~ s/([^\(]+\(\*)$param/$1/;
+	    push_parameter($type, $param, $file);
 	} else {
 	    # evil magic to get fixed array parameters to work
+	    # 'char cb[48]' => 'char* cb'
 	    $arg =~ s/(.+\s+)(.+)\[.*/$1* $2/;
-	    my @args = split('\s', $arg);
 
-	    $param = pop @args;
+	    my @args = split(',\s*', $arg);
+
+	    my @first_arg = split('\s', shift @args);
+	    unshift(@args, pop @first_arg);
+	    $type = join " ", @first_arg;
+
+	    foreach $param (@args) {
 		if ($param =~ m/^(\*+)(.*)/) {
-	        $param = $2;
-		push @args, $1;
+		   # pointer
+		   push_parameter("$type$1", $2, $file);
+		} elsif ($param =~ m/(.*?)\s*:\s*(\d+)/) {
+		   # bitfield
+		   push_parameter("$type:$2", $1, $file);
+		} else {
+		   push_parameter($type, $param, $file);
+		}
 	    }
-	    elsif ($param =~ m/(.*?)\s*:\s*(\d+)/) {
-	        $param = $1;
-	        push @args, ":$2";
 	}
-	    $type = join " ", @args;
     }
+}
 
-	if ($type eq "" && $param eq "...")
-	{
+sub push_parameter($$$) {
+    my $type = shift;
+    my $param = shift;
+    my $file = shift;
+
+    if ($type eq "" && $param eq "...")	{
 	$type="...";
 	$param="...";
 	$parameterdescs{"..."} = "variable arguments";
-	}
-	elsif ($type eq "" && ($param eq "" or $param eq "void"))
-	{
+    } elsif ($type eq "" && ($param eq "" or $param eq "void"))	{
 	$type="";
 	$param="void";
 	$parameterdescs{void} = "no arguments";
@@ -1362,7 +1375,6 @@ sub create_parameterlist($$$) {
 
     push @parameterlist, $param;
     $parametertypes{$param} = $type;
-    }
 }
 
 ##