kernel-doc (0e63a5c6ba9679a903f95b10827f74fe183017fa) kernel-doc (336ced2de62d27b5a1d64672d7470e0cc7f93376)
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> ##

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

1548 if ($arg =~ /^#/) {
1549 # Treat preprocessor directive as a typeless variable just to fill
1550 # corresponding data structures "correctly". Catch it later in
1551 # output_* subs.
1552 push_parameter($arg, "", "", $file);
1553 } elsif ($arg =~ m/\(.+\)\s*\(/) {
1554 # pointer-to-function
1555 $arg =~ tr/#/,/;
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> ##

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

1548 if ($arg =~ /^#/) {
1549 # Treat preprocessor directive as a typeless variable just to fill
1550 # corresponding data structures "correctly". Catch it later in
1551 # output_* subs.
1552 push_parameter($arg, "", "", $file);
1553 } elsif ($arg =~ m/\(.+\)\s*\(/) {
1554 # pointer-to-function
1555 $arg =~ tr/#/,/;
1556 $arg =~ m/[^\(]+\(\*?\s*([\w\.]*)\s*\)/;
1556 $arg =~ m/[^\(]+\(\*?\s*([\w\[\]\.]*)\s*\)/;
1557 $param = $1;
1558 $type = $arg;
1559 $type =~ s/([^\(]+\(\*?)\s*$param/$1/;
1560 save_struct_actual($param);
1561 push_parameter($param, $type, $arg, $file, $declaration_name);
1562 } elsif ($arg) {
1563 $arg =~ s/\s*:\s*/:/g;
1564 $arg =~ s/\s*\[/\[/g;

--- 906 unchanged lines hidden --- 		1557 $param = $1;
1558 $type = $arg;
1559 $type =~ s/([^\(]+\(\*?)\s*$param/$1/;
1560 save_struct_actual($param);
1561 push_parameter($param, $type, $arg, $file, $declaration_name);
1562 } elsif ($arg) {
1563 $arg =~ s/\s*:\s*/:/g;
1564 $arg =~ s/\s*\[/\[/g;

--- 906 unchanged lines hidden ---