kernel-doc (be98edcb664be76cd3ba0bde1e760a31197176d8) kernel-doc (0ef5de7b1ee8d8ee5695fbc1df4a257e028f674a)
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> ##

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

1348 }
1349 return;
1350 }
1351 $declaration_name = "(anonymous)" if ($declaration_name eq "");
1352
1353 my %_members;
1354
1355 $members =~ s/\s+$//;
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> ##

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

1348 }
1349 return;
1350 }
1351 $declaration_name = "(anonymous)" if ($declaration_name eq "");
1352
1353 my %_members;
1354
1355 $members =~ s/\s+$//;
1356 $members =~ s/\([^;]*?[\)]//g;
1356
1357 foreach my $arg (split ',', $members) {
1358 $arg =~ s/^\s*(\w+).*/$1/;
1359 push @parameterlist, $arg;
1360 if (!$parameterdescs{$arg}) {
1361 $parameterdescs{$arg} = $undescribed;
1362 if (show_warnings("enum", $declaration_name)) {
1363 emit_warning("${file}:$.", "Enum value '$arg' not described in enum '$declaration_name'\n");

--- 1162 unchanged lines hidden --- 		1357
1358 foreach my $arg (split ',', $members) {
1359 $arg =~ s/^\s*(\w+).*/$1/;
1360 push @parameterlist, $arg;
1361 if (!$parameterdescs{$arg}) {
1362 $parameterdescs{$arg} = $undescribed;
1363 if (show_warnings("enum", $declaration_name)) {
1364 emit_warning("${file}:$.", "Enum value '$arg' not described in enum '$declaration_name'\n");

--- 1162 unchanged lines hidden ---