mirrors/bird
mirrors/bird
0
0
Fork 0
mirror of https://gitlab.nic.cz/labs/bird.git synced 2024-11-09 20:58:44 +00:00
Code Releases 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

9
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,6 +542,7 @@ sub output_bird {
} }
print ")\n"; print ")\n";
if ($ntyped) {
print "<funcsect>Arguments\n"; print "<funcsect>Arguments\n";
print "<p><descrip>\n"; print "<p><descrip>\n";
foreach $parameter (@{$args{'parameterlist'}}) { foreach $parameter (@{$args{'parameterlist'}}) {
@ -544,6 +550,7 @@ sub output_bird {
output_highlight($args{'parameters'}{$parameter}); 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";