kernel-doc (54a4c789ca8091ab8fcd70285caeee2c5bc62997) kernel-doc (6b80975c6308b5dc93b270a2903a314d896974c4)
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> ##

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

1429
1430sub dump_typedef($$) {
1431 my $x = shift;
1432 my $file = shift;
1433
1434 $x =~ s@/\*.*?\*/@@gos; # strip comments.
1435
1436 # Parse function prototypes
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> ##

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

1429
1430sub dump_typedef($$) {
1431 my $x = shift;
1432 my $file = shift;
1433
1434 $x =~ s@/\*.*?\*/@@gos; # strip comments.
1435
1436 # Parse function prototypes
1437 if ($x =~ /typedef\s+(\w+)\s*\(\*\s*(\w\S+)\s*\)\s*\((.*)\);/ ||
1438 $x =~ /typedef\s+(\w+)\s*(\w\S+)\s*\s*\((.*)\);/) {
1437 if ($x =~ /typedef((?:\s+[\w\*]+){1,8})\s*\(\*?\s*(\w\S+)\s*\)\s*\((.*)\);/ ||
1438 $x =~ /typedef((?:\s+[\w\*]+\s+){1,8})\s*\*?(\w\S+)\s*\s*\((.*)\);/) {
1439
1440 # Function typedefs
1441 $return_type = $1;
1442 $declaration_name = $2;
1443 my $args = $3;
1439
1440 # Function typedefs
1441 $return_type = $1;
1442 $declaration_name = $2;
1443 my $args = $3;
1444 $return_type =~ s/^\s+//;
1444
1445 create_parameterlist($args, ',', $file, $declaration_name);
1446
1447 output_declaration($declaration_name,
1448 'function',
1449 {'function' => $declaration_name,
1450 'typedef' => 1,
1451 'module' => $modulename,

--- 979 unchanged lines hidden --- 		1445
1446 create_parameterlist($args, ',', $file, $declaration_name);
1447
1448 output_declaration($declaration_name,
1449 'function',
1450 {'function' => $declaration_name,
1451 'typedef' => 1,
1452 'module' => $modulename,

--- 979 unchanged lines hidden ---