kernel-doc (8a9260aa96b5112856a8bfdbf80984bfbcb4003f) kernel-doc (4468e21eed2dd7ee8dc91d94dbd2ccb0d291fb07)
1#!/usr/bin/perl -w
2
3use strict;
4
5## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ##
6## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ##
7## Copyright (C) 2001 Simon Huggins ##
8## Copyright (C) 2005-2012 Randy Dunlap ##

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

1839 }
1840}
1841
1842sub dump_enum($$) {
1843 my $x = shift;
1844 my $file = shift;
1845
1846 $x =~ s@/\*.*?\*/@@gos; # strip comments.
1#!/usr/bin/perl -w
2
3use strict;
4
5## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ##
6## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ##
7## Copyright (C) 2001 Simon Huggins ##
8## Copyright (C) 2005-2012 Randy Dunlap ##

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

1839 }
1840}
1841
1842sub dump_enum($$) {
1843 my $x = shift;
1844 my $file = shift;
1845
1846 $x =~ s@/\*.*?\*/@@gos; # strip comments.
1847 $x =~ s@#\s*define\s+[^;]*;@@gos; # strip #define macros inside enums
1847 # strip #define macros inside enums
1848 $x =~ s@#\s*((define|ifdef)\s+|endif)[^;]*;@@gos;
1848
1849 if ($x =~ /enum\s+(\w+)\s*{(.*)}/) {
1850 $declaration_name = $1;
1851 my $members = $2;
1852
1853 foreach my $arg (split ',', $members) {
1854 $arg =~ s/^\s*(\w+).*/$1/;
1855 push @parameterlist, $arg;

--- 890 unchanged lines hidden --- 		1849
1850 if ($x =~ /enum\s+(\w+)\s*{(.*)}/) {
1851 $declaration_name = $1;
1852 my $members = $2;
1853
1854 foreach my $arg (split ',', $members) {
1855 $arg =~ s/^\s*(\w+).*/$1/;
1856 push @parameterlist, $arg;

--- 890 unchanged lines hidden ---