0
0
mirror of https://gitlab.nic.cz/labs/bird.git synced 2024-09-19 11:55:21 +00:00

Better handling of parameterless functions.

This commit is contained in:
Martin Mares 2000-06-01 17:11:10 +00:00
parent 7257749266
commit 658d272bb6

View File

@ -528,8 +528,13 @@ sub output_bird {
print "<funcdef>".$args{'function'}."</funcdef>\n";
print "(";
$count = 0;
my $ntyped = 0;
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'}}) {
$count++;
print ", ";
@ -537,6 +542,7 @@ sub output_bird {
}
print ")\n";
if ($ntyped) {
print "<funcsect>Arguments\n";
print "<p><descrip>\n";
foreach $parameter (@{$args{'parameterlist'}}) {
@ -544,6 +550,7 @@ sub output_bird {
output_highlight($args{'parameters'}{$parameter});
}
print "</descrip>\n";
}
foreach $section (@{$args{'sectionlist'}}) {
print "<funcsect>$section\n";
print "<p>\n";