| kernel-doc (6d232c80158ae5a6fb497e0462d52c57c4459439) | kernel-doc (d37c43ce1975c1c3f28064bf3ebd2876e177bad8) |
|---|---|
| 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 ## --- 2176 unchanged lines hidden (view full) --- 2185 2186sub dump_typedef($$) { 2187 my $x = shift; 2188 my $file = shift; 2189 2190 $x =~ s@/\*.*?\*/@@gos; # strip comments. 2191 2192 # Parse function prototypes | 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 ## --- 2176 unchanged lines hidden (view full) --- 2185 2186sub dump_typedef($$) { 2187 my $x = shift; 2188 my $file = shift; 2189 2190 $x =~ s@/\*.*?\*/@@gos; # strip comments. 2191 2192 # Parse function prototypes |
| 2193 if ($x =~ /typedef\s+(\w+)\s*\(\*\s*(\w\S+)\s*\)\s*\((.*)\);/) { | 2193 if ($x =~ /typedef\s+(\w+)\s*\(\*\s*(\w\S+)\s*\)\s*\((.*)\);/ || 2194 $x =~ /typedef\s+(\w+)\s*(\w\S+)\s*\s*\((.*)\);/) { 2195 |
| 2194 # Function typedefs 2195 $return_type = $1; 2196 $declaration_name = $2; 2197 my $args = $3; 2198 2199 create_parameterlist($args, ',', $file); 2200 2201 output_declaration($declaration_name, --- 922 unchanged lines hidden --- | 2196 # Function typedefs 2197 $return_type = $1; 2198 $declaration_name = $2; 2199 my $args = $3; 2200 2201 create_parameterlist($args, ',', $file); 2202 2203 output_declaration($declaration_name, --- 922 unchanged lines hidden --- |