kernel-doc (cc9263874b42bf98209dce0afe698b550648e770) kernel-doc (aa10a7826646c56eb4553df8fe81b3d23655c91a)
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 ##

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

1844 my $count = 0;
1845 foreach my $parameter (@{$args{'parameterlist'}}) {
1846 if ($count ne 0) {
1847 print ", ";
1848 }
1849 $count++;
1850 $type = $args{'parametertypes'}{$parameter};
1851
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 ##

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

1844 my $count = 0;
1845 foreach my $parameter (@{$args{'parameterlist'}}) {
1846 if ($count ne 0) {
1847 print ", ";
1848 }
1849 $count++;
1850 $type = $args{'parametertypes'}{$parameter};
1851
1852 # RST doesn't like address_space tags at function prototypes
1853 $type =~ s/__(user|kernel|iomem|percpu|pmem|rcu)\s*//;
1854
1855 if ($type =~ m/([^\(]*\(\*)\s*\)\s*\(([^\)]*)\)/) {
1856 # pointer-to-function
1857 print $1 . $parameter . ") (" . $2;
1858 } else {
1859 print $type . " " . $parameter;
1860 }
1861 }
1862 print ")\n\n";

--- 1264 unchanged lines hidden --- 		1852 if ($type =~ m/([^\(]*\(\*)\s*\)\s*\(([^\)]*)\)/) {
1853 # pointer-to-function
1854 print $1 . $parameter . ") (" . $2;
1855 } else {
1856 print $type . " " . $parameter;
1857 }
1858 }
1859 print ")\n\n";

--- 1264 unchanged lines hidden ---