| kernel-doc (85e9ca333d03fbd56b9e123c8456f0d98e20faad) | kernel-doc (32ab8f97dd95592b17e684f7722caa0556087b99) |
|---|---|
| 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-2008 Randy Dunlap ## --- 1389 unchanged lines hidden (view full) --- 1398 my $x = shift; 1399 my $file = shift; 1400 1401 if ($x =~/(struct|union)\s+(\w+)\s*{(.*)}/) { 1402 $declaration_name = $2; 1403 my $members = $3; 1404 1405 # ignore embedded structs or unions | 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-2008 Randy Dunlap ## --- 1389 unchanged lines hidden (view full) --- 1398 my $x = shift; 1399 my $file = shift; 1400 1401 if ($x =~/(struct|union)\s+(\w+)\s*{(.*)}/) { 1402 $declaration_name = $2; 1403 my $members = $3; 1404 1405 # ignore embedded structs or unions |
| 1406 $members =~ s/{.*?}//g; | 1406 $members =~ s/{.*}//g; |
| 1407 1408 # ignore members marked private: 1409 $members =~ s/\/\*.*?private:.*?public:.*?\*\///gos; 1410 $members =~ s/\/\*.*?private:.*//gos; 1411 # strip comments: 1412 $members =~ s/\/\*.*?\*\///gos; 1413 1414 create_parameterlist($members, ';', $file); --- 651 unchanged lines hidden --- | 1407 1408 # ignore members marked private: 1409 $members =~ s/\/\*.*?private:.*?public:.*?\*\///gos; 1410 $members =~ s/\/\*.*?private:.*//gos; 1411 # strip comments: 1412 $members =~ s/\/\*.*?\*\///gos; 1413 1414 create_parameterlist($members, ';', $file); --- 651 unchanged lines hidden --- |