kernel-doc (1d7e1d4517f11ebeb80f92e227c8fdbc3215385c) kernel-doc (f47634b276db6956998350e5fc26a0673fdb125c)
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## ##

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

1114}
1115
1116##
1117# output in text
1118sub output_function_text(%) {
1119 my %args = %{$_[0]};
1120 my ($parameter, $section);
1121
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## ##

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

1114}
1115
1116##
1117# output in text
1118sub output_function_text(%) {
1119 my %args = %{$_[0]};
1120 my ($parameter, $section);
1121
1122 print "Function:\n\n";
1122 print "Name:\n\n";
1123 print $args{'function'}." - ".$args{'purpose'}."\n";
1124
1125 print "\nSynopsis:\n\n";
1123 my $start=$args{'functiontype'}." ".$args{'function'}." (";
1124 print $start;
1125 my $count = 0;
1126 foreach my $parameter (@{$args{'parameterlist'}}) {
1127 $type = $args{'parametertypes'}{$parameter};
1128 if ($type =~ m/([^\(]*\(\*)\s*\)\s*\(([^\)]*)\)/) {
1129 # pointer-to-function
1130 print $1.$parameter.") (".$2;

--- 768 unchanged lines hidden --- 		1126 my $start=$args{'functiontype'}." ".$args{'function'}." (";
1127 print $start;
1128 my $count = 0;
1129 foreach my $parameter (@{$args{'parameterlist'}}) {
1130 $type = $args{'parametertypes'}{$parameter};
1131 if ($type =~ m/([^\(]*\(\*)\s*\)\s*\(([^\)]*)\)/) {
1132 # pointer-to-function
1133 print $1.$parameter.") (".$2;

--- 768 unchanged lines hidden ---