kernel-doc (e7ca311e376c81a51ce031c569f336bdadf5ea98) kernel-doc (a88b1672d4ddf9895eb53e6980926d5e960dea8e)
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 ##

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

1843
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};
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 ##

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

1843
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
1851 if ($type =~ m/([^\(]*\(\*)\s*\)\s*\(([^\)]*)\)/) {
1852 # pointer-to-function
1853 print $1 . $parameter . ") (" . $2;
1854 } else {
1855 print $type . " " . $parameter;
1856 }
1857 }
1858 print ")\n\n";

--- 1264 unchanged lines hidden --- 		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 ---