-
-# foreach $type qw(define enumeration enumvalue function typedef) {
-# if(defined $database{$type}) {
-# print OUTPUT "<h2>$type</h2> \n <ul>\n";
-# foreach $name (sort keys %{$database{$type}}) {
-# if($type eq "function") {
-# print OUTPUT "\t<LI> $name()</LI>\n";
-# } else {
-# print OUTPUT "\t<LI> #$name</LI>\n";
-# }
-# }
-# print OUTPUT "\n </ul>\n";
-# }
-# }
-# print OUTPUT "*/";
-# close OUTPUT;
-