-# convert info hashes into arrays of strings to output in display order
-for my $row (values %{$uninfo}) {
- my ($class, $name, $di, $html, $string) = @{$row};
- $row = [$name, $class];
- push @{$row}, '', $string if defined $string;
-}
-
-# output perl code of hash
-# (assume no backslashes or curlies, so we can just q{} w/o escaping)
-print "# automatically generated by $0\n";
-print "use utf8;\n";
-print "+{\n";
-printf '(map {$_=>0} qw{%s}),'."\n", join(' ',