Encoding $input unknown
\n"; - } - \%row; } else { - (); + Alert("Encoding$inputunknown"); + return; } -} map { defined $ALIAS{$_} ? @{ $ALIAS{$_} } : $_ } - $ENV{PATH_INFO} =~ /\w/ ? split(m{[/+\s]}, $ENV{PATH_INFO}) : 'default'; + push @request, \%row; +} +tabinput($_) for @tablist; + my $NOCHAR = chr 0xFFFD; -for my $cp437 (grep {$request[$_]->{set} eq 'cp437'} 0 .. $#request) { - substr($request[$cp437]->{table}, 237, 1) = pack 'U*', 0x3D5; # phi sign - substr($request[$cp437]->{table}, 0, 32) = pack 'U*', map {hex} qw( - 2007 263A 263B 2665 2666 2663 2660 2022 25D8 25CB 25D9 2642 2640 266A 266B 263C - 25BA 25C4 2195 203C 00B6 00A7 25AC 21A8 2191 2193 2192 2190 221F 2194 25B2 25BC - ); +sub range_cell { + my ($info, $offset) = @_; + my $table = $info->{cell} or return; + my $def = $table->{$offset} or return; + my ($len, $class, $name, $title) = @{$def}; + + my $cols = $info->{cols}; + my $colsize = $table->{colsize} || 1; + my $attr = ''; + $len /= $colsize; + $name //= $len <= 2 ? 'res' : 'reserved'; + + if (my $part = $offset/$colsize % $cols) { + # continued row + my $rest = $cols - $part; # remaining + $rest = $len if $len < $rest; #TODO: optimise + if ($len -= $rest) { + # continued on new row + my @next = ($len * $colsize, "$class joinu"); + if ($len > $rest) { + # minority remains + push @next, $name, $title; + $title ||= $name; + $name = ''; + } + else { + # minority on next row + push @next, '"', $title || $name; + } + $table->{$offset + $colsize*$rest} //= \@next; + $class .= ' joind'; + } + $len = $rest; + } + elsif (my $rows = int($len / $cols)) { + # multiple full rows + if ($len -= $rows * $cols) { + # partial row remains + $table->{$offset + $colsize*$rows * $cols} //= [$len*$colsize, "$class joinu", '', $title]; + $class .= ' joind'; + } + $attr .= sprintf ' rowspan=%d', $rows; + $len = $cols; + } + + $attr .= sprintf ' colspan=%d', $len unless $len == 1; + $attr .= $1 if $class and $class =~ s/( \w+="[^"]*")//; + $attr .= sprintf ' class="%s"', $class if $class; + $attr .= sprintf ' title="%s"', EscapeHTML($title) if $title; + return "
| â±"; - print ' | ', $_ for @nibble; + print "<$section> |
|---|---|
| ", $rowdiv == 1 ? '+' : 'â±'; + printf ' | %0*X', $coldigits, $_ * $colsize for 0 .. $cols - 1; print "\n"; } print ' |
| %X', $msb + ($row->{offset} >> 4); - for my $lsb (0 .. $#nibble) { - my $val = ( ($msb<<4) + $lsb ) * $nibsize; + while ($offset < $endpoint - 1) { + print ' | |
| '; + { + if (my $rowmod = $offset % $rowdiv) { + # offset in column units + printf '+%X', $rowmod; + } + else { + # divided row offset + printf '%X', ($offset + $row->{offset}) / $rowdiv; + } + } + for (1 .. $cols) { if ($row->{cell}) { - print $row->{cell}->($val); + print range_cell($row, $offset); next; } - my $glyph = substr $row->{table}, $val, 1; + my $glyph = ref $row->{table} eq 'ARRAY' ? $row->{table}->[$offset] : + substr $row->{table}, $offset, 1; if ($glyph eq $NOCHAR) { print ' | '; next; @@ -128,9 +322,12 @@ for my $row (@request) { print "\n".$glyphs->glyph_cell($glyph); } + continue { + $offset += $colsize; + } print "\n"; } - print " |