kernel-doc (0bd2af46839ad6262d25714a6ec0365db9d6b98f) kernel-doc (ea82c74093f48b28e632d03eeff22faf99727a8c)
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## ##

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

1425 $arg =~ s/\s*$//;
1426 $arg =~ s/\s+/ /;
1427
1428 if ($arg =~ /^#/) {
1429 # Treat preprocessor directive as a typeless variable just to fill
1430 # corresponding data structures "correctly". Catch it later in
1431 # output_* subs.
1432 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## ##

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

1425 $arg =~ s/\s*$//;
1426 $arg =~ s/\s+/ /;
1427
1428 if ($arg =~ /^#/) {
1429 # Treat preprocessor directive as a typeless variable just to fill
1430 # corresponding data structures "correctly". Catch it later in
1431 # output_* subs.
1432 push_parameter($arg, "", $file);
1433 } elsif ($arg =~ m/\(/) {
1433 } elsif ($arg =~ m/\(.*\*/) {
1434 # pointer-to-function
1435 $arg =~ tr/#/,/;
1436 $arg =~ m/[^\(]+\(\*([^\)]+)\)/;
1437 $param = $1;
1438 $type = $arg;
1439 $type =~ s/([^\(]+\(\*)$param/$1/;
1440 push_parameter($param, $type, $file);
1441 } elsif ($arg) {

--- 466 unchanged lines hidden --- 		1434 # pointer-to-function
1435 $arg =~ tr/#/,/;
1436 $arg =~ m/[^\(]+\(\*([^\)]+)\)/;
1437 $param = $1;
1438 $type = $arg;
1439 $type =~ s/([^\(]+\(\*)$param/$1/;
1440 push_parameter($param, $type, $file);
1441 } elsif ($arg) {

--- 466 unchanged lines hidden ---