kernel-doc (112e505a76de69f8667e2fe8da38433f754364a8) kernel-doc (ae5b17e464146ddb8fee744fa2150922d6072916)
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> ##

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

1385 if ($x =~ /typedef\s+enum\s*\{(.*)\}\s*(\w*)\s*;/) {
1386 $declaration_name = $2;
1387 $members = $1;
1388 } elsif ($x =~ /enum\s+(\w*)\s*\{(.*)\}/) {
1389 $declaration_name = $1;
1390 $members = $2;
1391 }
1392
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> ##

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

1385 if ($x =~ /typedef\s+enum\s*\{(.*)\}\s*(\w*)\s*;/) {
1386 $declaration_name = $2;
1387 $members = $1;
1388 } elsif ($x =~ /enum\s+(\w*)\s*\{(.*)\}/) {
1389 $declaration_name = $1;
1390 $members = $2;
1391 }
1392
1393 if ($declaration_name) {
1393 if ($members) {
1394 my %_members;
1395
1396 $members =~ s/\s+$//;
1397
1398 foreach my $arg (split ',', $members) {
1399 $arg =~ s/^\s*(\w+).*/$1/;
1400 push @parameterlist, $arg;
1401 if (!$parameterdescs{$arg}) {

--- 1038 unchanged lines hidden ---
1394 my %_members;
1395
1396 $members =~ s/\s+$//;
1397
1398 foreach my $arg (split ',', $members) {
1399 $arg =~ s/^\s*(\w+).*/$1/;
1400 push @parameterlist, $arg;
1401 if (!$parameterdescs{$arg}) {

--- 1038 unchanged lines hidden ---