Jerry/bird
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Better handling of parameterless functions.

Browse source
This commit is contained in:
Martin Mares 2000-06-01 17:11:10 +00:00
parent 7257749266
commit 658d272bb6
1 changed files with 14 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
doc/kernel-doc
View file

@ -528,8 +528,13 @@ sub output_bird {
print "<funcdef>".$args{'function'}."</funcdef>\n"; print "<funcdef>".$args{'function'}."</funcdef>\n";
print "("; print "(";
$count = 0; $count = 0;
my $ntyped = 0;
foreach $parameter (@{$args{'parameterlist'}}) { foreach $parameter (@{$args{'parameterlist'}}) {
print "<type>".$args{'parametertypes'}{$parameter}."</type> <param>".$parameter."</param>"; if ($args{'parametertypes'}{$parameter} ne "") {
print "<type>".$args{'parametertypes'}{$parameter}."</type> ";
$ntyped++;
}
print "<param>".$parameter."</param>";
if ($count != $#{$args{'parameterlist'}}) { if ($count != $#{$args{'parameterlist'}}) {
$count++; $count++;
print ", "; print ", ";
@ -537,13 +542,15 @@ sub output_bird {
} }
print ")\n"; print ")\n";
print "<funcsect>Arguments\n"; if ($ntyped) {
print "<p><descrip>\n"; print "<funcsect>Arguments\n";
foreach $parameter (@{$args{'parameterlist'}}) { print "<p><descrip>\n";
print "<tagp><type>".$args{'parametertypes'}{$parameter}."</type> <param>".$parameter."</param></tagp>\n"; foreach $parameter (@{$args{'parameterlist'}}) {
output_highlight($args{'parameters'}{$parameter}); print "<tagp><type>".$args{'parametertypes'}{$parameter}."</type> <param>".$parameter."</param></tagp>\n";
output_highlight($args{'parameters'}{$parameter});
}
print "</descrip>\n";
} }
print "</descrip>\n";
foreach $section (@{$args{'sectionlist'}}) { foreach $section (@{$args{'sectionlist'}}) {
print "<funcsect>$section\n"; print "<funcsect>$section\n";
print "<p>\n"; print "<p>\n";