<:
use List::Util qw( pairs );
my @table = do 'writing-latn.inc.pl';
if ($! or $@) {
Alert("Table data not found", $@ || $!);
}
else {
my %VOWELCOLS = (map { ($_ => 1) } 0, 4, 8, 14, 20, 24);
say '
';
say '| # ASCII − 64';
print ' | ', $_ for 1 .. 26;
say ' |
|---|
';
for my $row (pairs @table) {
my ($title, $cells) = @{$row};
printf '', (lc $title) =~ s/<[^>]+>//gr =~ s/\s+/-/gr;
say '| ', $title;
my $colspan = 1;
my $col = 0;
for (@{$cells}) {
$col++;
if ($_ eq '>') {
$colspan++;
next;
}
my @class;
push @class ,'l0' if $VOWELCOLS{$col - $colspan};
push @class, $_ ? 'ex' : 'u-invalid' if s/^-//;
print "\t 26) {
# special character for sample generation
print ' hidden'; # sample only
}
else {
print ' title=', chr($col + ord('A') - $colspan);
}
if ($colspan > 1) {
print " colspan=$colspan";
$colspan = 1;
}
printf ' class="%s"', "@class" if @class;
print '>';
say;
}
}
say " |
\n";
}
:>