+ when (qr{^[a-z]+(?:/|\z)}) {
+ }
+
+my %charlist;
+
+my $chartables = do 'unicode-table.inc.pl' or warn $@ || $!;
+if ($chartables) {
+ while (my ($tablegroup, $grouprow) = each %{$chartables}) {
+ while (my ($tablename, $chars) = each %{$grouprow}) {
+ next if $tablename =~ /^-/;
+ my $includerows; # ignore rows before body row
+ for (@{$chars}) {
+ $includerows ||= m/^[.]/ or next;
+ next if /^[.-]/;
+ next if $_ eq '>' or $_ eq '=';
+ push @{ $charlist{table}->{"$tablegroup/$tablename"} }, $_;
+ push @{ $charlist{table}->{$tablegroup} }, $_;
+ }
+ }
+# if ($tablegroup eq 'ipa') {
+# @chars = grep { !m/[a-zA-Z]/ } @chars;
+# }
+ }
+}