kernel-doc (ecfb251a95dfca6ca0dba63414e9c91fcbb92335) kernel-doc (c51d3dac321df417d59a47574caa7ab61b30d447)
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## ##

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

1060 } else {
1061 $type =~ s/([^\*])$/$1 /;
1062 print ".BI \" ".$type."\" ".$parameter." \""."\"\n;\n";
1063 }
1064 print "\n.br\n";
1065 }
1066 print "};\n.br\n";
1067
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## ##

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

1060 } else {
1061 $type =~ s/([^\*])$/$1 /;
1062 print ".BI \" ".$type."\" ".$parameter." \""."\"\n;\n";
1063 }
1064 print "\n.br\n";
1065 }
1066 print "};\n.br\n";
1067
1068 print ".SH Arguments\n";
1068 print ".SH Members\n";
1069 foreach $parameter (@{$args{'parameterlist'}}) {
1070 ($parameter =~ /^#/) && next;
1071
1072 my $parameter_name = $parameter;
1073 $parameter_name =~ s/\[.*//;
1074
1075 ($args{'parameterdescs'}{$parameter_name} ne $undescribed) || next;
1076 print ".IP \"".$parameter."\" 12\n";

--- 820 unchanged lines hidden --- 		1069 foreach $parameter (@{$args{'parameterlist'}}) {
1070 ($parameter =~ /^#/) && next;
1071
1072 my $parameter_name = $parameter;
1073 $parameter_name =~ s/\[.*//;
1074
1075 ($args{'parameterdescs'}{$parameter_name} ne $undescribed) || next;
1076 print ".IP \"".$parameter."\" 12\n";

--- 820 unchanged lines hidden ---