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 --- |