kernel-doc (b1aaa546b52baf7cdc97961e9ba445a26948c1af) kernel-doc (fc6d7af89fa968c378d4437d7905ccd76efa6af4)
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 ##

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

1126
1127 # print parameters
1128 print "<refsect1>\n <title>Arguments</title>\n";
1129 if ($#{$args{'parameterlist'}} >= 0) {
1130 print " <variablelist>\n";
1131 foreach $parameter (@{$args{'parameterlist'}}) {
1132 my $parameter_name = $parameter;
1133 $parameter_name =~ s/\[.*//;
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 ##

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

1126
1127 # print parameters
1128 print "<refsect1>\n <title>Arguments</title>\n";
1129 if ($#{$args{'parameterlist'}} >= 0) {
1130 print " <variablelist>\n";
1131 foreach $parameter (@{$args{'parameterlist'}}) {
1132 my $parameter_name = $parameter;
1133 $parameter_name =~ s/\[.*//;
1134 $type = $args{'parametertypes'}{$parameter};
1134
1135
1135 print " <varlistentry>\n <term><parameter>$parameter</parameter></term>\n";
1136 print " <varlistentry>\n <term><parameter>$type $parameter</parameter></term>\n";
1136 print " <listitem>\n <para>\n";
1137 $lineprefix=" ";
1138 output_highlight($args{'parameterdescs'}{$parameter_name});
1139 print " </para>\n </listitem>\n </varlistentry>\n";
1140 }
1141 print " </variablelist>\n";
1142 } else {
1143 print " <para>\n None\n </para>\n";

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

1218 foreach $parameter (@{$args{'parameterlist'}}) {
1219 ($parameter =~ /^#/) && next;
1220
1221 my $parameter_name = $parameter;
1222 $parameter_name =~ s/\[.*//;
1223
1224 defined($args{'parameterdescs'}{$parameter_name}) || next;
1225 ($args{'parameterdescs'}{$parameter_name} ne $undescribed) || next;
1137 print " <listitem>\n <para>\n";
1138 $lineprefix=" ";
1139 output_highlight($args{'parameterdescs'}{$parameter_name});
1140 print " </para>\n </listitem>\n </varlistentry>\n";
1141 }
1142 print " </variablelist>\n";
1143 } else {
1144 print " <para>\n None\n </para>\n";

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

1219 foreach $parameter (@{$args{'parameterlist'}}) {
1220 ($parameter =~ /^#/) && next;
1221
1222 my $parameter_name = $parameter;
1223 $parameter_name =~ s/\[.*//;
1224
1225 defined($args{'parameterdescs'}{$parameter_name}) || next;
1226 ($args{'parameterdescs'}{$parameter_name} ne $undescribed) || next;
1227 $type = $args{'parametertypes'}{$parameter};
1226 print " <varlistentry>";
1228 print " <varlistentry>";
1227 print " <term>$parameter</term>\n";
1229 print " <term><literal>$type $parameter</literal></term>\n";
1228 print " <listitem><para>\n";
1229 output_highlight($args{'parameterdescs'}{$parameter_name});
1230 print " </para></listitem>\n";
1231 print " </varlistentry>\n";
1232 }
1233 print " </variablelist>\n";
1234 } else {
1235 print " <para>\n None\n </para>\n";

--- 1928 unchanged lines hidden ---
1230 print " <listitem><para>\n";
1231 output_highlight($args{'parameterdescs'}{$parameter_name});
1232 print " </para></listitem>\n";
1233 print " </varlistentry>\n";
1234 }
1235 print " </variablelist>\n";
1236 } else {
1237 print " <para>\n None\n </para>\n";

--- 1928 unchanged lines hidden ---