kernel-doc (1f1519ef597ae4628dbd47244f0f68d700231523) kernel-doc (00d6296145c6b671a9886e380efc24f2731d856a)
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## Copyright (C) 2005-2007 Randy Dunlap ##

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

1507 $arg =~ s/\s*$//;
1508 $arg =~ s/\s+/ /;
1509
1510 if ($arg =~ /^#/) {
1511 # Treat preprocessor directive as a typeless variable just to fill
1512 # corresponding data structures "correctly". Catch it later in
1513 # output_* subs.
1514 push_parameter($arg, "", $file);
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## Copyright (C) 2005-2007 Randy Dunlap ##

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

1507 $arg =~ s/\s*$//;
1508 $arg =~ s/\s+/ /;
1509
1510 if ($arg =~ /^#/) {
1511 # Treat preprocessor directive as a typeless variable just to fill
1512 # corresponding data structures "correctly". Catch it later in
1513 # output_* subs.
1514 push_parameter($arg, "", $file);
1515 } elsif ($arg =~ m/\(.*\*/) {
1515 } elsif ($arg =~ m/\(.+\)\s*\(/) {
1516 # pointer-to-function
1517 $arg =~ tr/#/,/;
1516 # pointer-to-function
1517 $arg =~ tr/#/,/;
1518 $arg =~ m/[^\(]+\(\*\s*([^\)]+)\)/;
1518 $arg =~ m/[^\(]+\(\*?\s*(\w*)\s*\)/;
1519 $param = $1;
1520 $type = $arg;
1519 $param = $1;
1520 $type = $arg;
1521 $type =~ s/([^\(]+\(\*)$param/$1/;
1521 $type =~ s/([^\(]+\(\*?)\s*$param/$1/;
1522 push_parameter($param, $type, $file);
1523 } elsif ($arg) {
1524 $arg =~ s/\s*:\s*/:/g;
1525 $arg =~ s/\s*\[/\[/g;
1526
1527 my @args = split('\s*,\s*', $arg);
1528 if ($args[0] =~ m/\*/) {
1529 $args[0] =~ s/(\*+)\s*/ $1/;

--- 518 unchanged lines hidden --- 		1522 push_parameter($param, $type, $file);
1523 } elsif ($arg) {
1524 $arg =~ s/\s*:\s*/:/g;
1525 $arg =~ s/\s*\[/\[/g;
1526
1527 my @args = split('\s*,\s*', $arg);
1528 if ($args[0] =~ m/\*/) {
1529 $args[0] =~ s/(\*+)\s*/ $1/;

--- 518 unchanged lines hidden ---