while(<>) {
next if /^
next unless (/\S/);
$block = "";
$comment = 0;
do {
$_ =~ s/\s+\n$/\n/;
$block .= $_;
if ($_ =~ /<!--/)
{ $comment = 1; }
if ($comment && $_ =~ /-->/)
{ $comment = 0; $block =~ s/<!--.*-->//sg; }
} while((($_ = <>) && /\S/) || $comment);
if ($block =~ /^\s/) {
$block =~ s/^\s+//s;
next if ($block eq "");
}
if ($block =~ /^</) {
print "$block\n";
}
elsif ($block =~ /^%PARAM/) {
print "\n</DD>\n\n" if ($param);
print "\n<DL>\n\n" if ($need_dl);
$need_dl = 0;
($junk, $param, $defval) = split(/\s+/, $block, 3);
$defval =~ s/\s+$//s;
$defval = "empty" if ($defval eq "");
$defval = "default: $defval" unless ($defval eq "read-only");
print "<DT><b><a name=\"$param\">$param</a>\n($defval)</b></DT><DD>\n\n";
}
elsif ($block =~ /^%CLASS/) {
print "\n</DD>\n\n" if ($param);
print "\n</DL>\n\n" if ($class);
$param ="";
($junk, $class, $text) = split(/\s+/, $block, 3);
$text =~ s/\s+$//s;
print "<H2><a name=\"$class\">$text</a></H2>\n\n";
$need_dl = 1;
}
else {
die "Unrecognized text block:\n$block";
}
}
print "\n</DD>\n\n" if ($param);
print "\n</DL>\n\n" if ($class);