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 --- |