-my $tables = do 'unicode.inc.pl' or die $@ || $!;
-
-$glyphs->print(map {
- my $_ = /(.*)\?(.*)/ ? ($verbose ? $2 : $1) : $_;
- if (/[A-Z]/) {
- $_;
- }
- else {
- state $group;
- $group = $1 if s{^([^/]+)/}{};
- if (s/=(.*)//) {
- my @select = split /=/, $1;
- my $table = $tables->{$group}->{$_};
- my $rowlen;
- for ($rowlen = 1; $rowlen++; $rowlen <= $#$table) {
- last if $table->[$rowlen] =~ /\./;
- }
- my @cells = map { $_*$rowlen .. ($_+1)*$rowlen - 1 } @select;
- [ @$table[@cells] ];
- }
- else {
- $tables->{$group}->{$_};
- }
- }
-} qw{