-my @ossel = qw(win95 oss);
-
-my $tables = do 'unicode-table.inc.pl' or die $@ || $!;
-my (%font, @fontlist);
-for my $os (@ossel) {
- my $osfonts = $oslist{$os};
- for my $fontid (@{$osfonts}) {
- push @fontlist, $fontid;
- my ($fontmeta, @fontrange) = do "ttfsupport/$fontid.inc.pl";
- $fontmeta or next;
- $font{$fontid} = {
- -id => $fontmeta->{id} || $fontid,
- -name => $fontmeta->{name},
- map { (chr $_ => 1) } @fontrange
- };
- }
-}
-
-# parse input
-
-my @chars;
-
-for ($ENV{PATH_INFO} || $get{q} || ()) {
- s{^/}{};
- when ('') {
- next;
- }
- when (qr{/}) {
- push @{ $get{'@g'} }, $_;
- }
- default {
- die "unknown parameter: $_\n";
- }
-}
-
-$get{'@g'} //= ['latin/sample'];
-
-for (map { split / / } @{ $get{'@g'} }) {
- my ($tablegroup, $tablename) = split m{/}, $_, 2;
- my $table = $tables->{$tablegroup}->{$tablename};