kernel-doc (d2a70e28ef738765f9226731dfdb3b6c06565456) kernel-doc (bbf00be93e09081ffa06e6fd84ed8f4e469a99d0)
1#!/usr/bin/env perl
2# SPDX-License-Identifier: GPL-2.0
3
4use warnings;
5use strict;
6
7## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ##
8## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ##

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

1504 # pointer-to-function
1505 $arg =~ tr/#/,/;
1506 $arg =~ m/[^\(]+\(\*?\s*([\w\[\]\.]*)\s*\)/;
1507 $param = $1;
1508 $type = $arg;
1509 $type =~ s/([^\(]+\(\*?)\s*$param/$1/;
1510 save_struct_actual($param);
1511 push_parameter($param, $type, $arg, $file, $declaration_name);
1#!/usr/bin/env perl
2# SPDX-License-Identifier: GPL-2.0
3
4use warnings;
5use strict;
6
7## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ##
8## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ##

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

1504 # pointer-to-function
1505 $arg =~ tr/#/,/;
1506 $arg =~ m/[^\(]+\(\*?\s*([\w\[\]\.]*)\s*\)/;
1507 $param = $1;
1508 $type = $arg;
1509 $type =~ s/([^\(]+\(\*?)\s*$param/$1/;
1510 save_struct_actual($param);
1511 push_parameter($param, $type, $arg, $file, $declaration_name);
1512 } elsif ($arg =~ m/\(.+\)\s*\[/) {
1513 # array-of-pointers
1514 $arg =~ tr/#/,/;
1515 $arg =~ m/[^\(]+\(\s*\*\s*([\w\[\]\.]*?)\s*(\s*\[\s*[\w]+\s*\]\s*)*\)/;
1516 $param = $1;
1517 $type = $arg;
1518 $type =~ s/([^\(]+\(\*?)\s*$param/$1/;
1519 save_struct_actual($param);
1520 push_parameter($param, $type, $arg, $file, $declaration_name);
1512 } elsif ($arg) {
1513 $arg =~ s/\s*:\s*/:/g;
1514 $arg =~ s/\s*\[/\[/g;
1515
1516 my @args = split('\s*,\s*', $arg);
1517 if ($args[0] =~ m/\*/) {
1518 $args[0] =~ s/(\*+)\s*/ $1/;
1519 }

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

--- 1021 unchanged lines hidden ---