kernel-doc (3c308798a337d75d846773dd64155860852931fc) kernel-doc (884f2810b15b6bb489c9dca5013aafbea2f19fba)
1#!/usr/bin/perl -w
2
3use strict;
4
5## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ##
6## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ##
7## Copyright (C) 2001 Simon Huggins ##
8## ##

--- 1442 unchanged lines hidden (view full) ---

1451 } elsif ($arg) {
1452 $arg =~ s/\s*:\s*/:/g;
1453 $arg =~ s/\s*\[/\[/g;
1454
1455 my @args = split('\s*,\s*', $arg);
1456 if ($args[0] =~ m/\*/) {
1457 $args[0] =~ s/(\*+)\s*/ $1/;
1458 }
1#!/usr/bin/perl -w
2
3use strict;
4
5## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ##
6## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ##
7## Copyright (C) 2001 Simon Huggins ##
8## ##

--- 1442 unchanged lines hidden (view full) ---

1451 } elsif ($arg) {
1452 $arg =~ s/\s*:\s*/:/g;
1453 $arg =~ s/\s*\[/\[/g;
1454
1455 my @args = split('\s*,\s*', $arg);
1456 if ($args[0] =~ m/\*/) {
1457 $args[0] =~ s/(\*+)\s*/ $1/;
1458 }
1459 my @first_arg = split('\s+', shift @args);
1459
1460 my @first_arg;
1461 if ($args[0] =~ /^(.*\s+)(.*?\[.*\].*)$/) {
1462 shift @args;
1463 push(@first_arg, split('\s+', $1));
1464 push(@first_arg, $2);
1465 } else {
1466 @first_arg = split('\s+', shift @args);
1467 }
1468
1460 unshift(@args, pop @first_arg);
1461 $type = join " ", @first_arg;
1462
1463 foreach $param (@args) {
1464 if ($param =~ m/^(\*+)\s*(.*)/) {
1465 push_parameter($2, "$type $1", $file);
1466 }
1467 elsif ($param =~ m/(.*?):(\d+)/) {

--- 470 unchanged lines hidden --- 		1469 unshift(@args, pop @first_arg);
1470 $type = join " ", @first_arg;
1471
1472 foreach $param (@args) {
1473 if ($param =~ m/^(\*+)\s*(.*)/) {
1474 push_parameter($2, "$type $1", $file);
1475 }
1476 elsif ($param =~ m/(.*?):(\d+)/) {

--- 470 unchanged lines hidden ---