X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/fc33639e320c49693604bf0e259a29a07f2076b4..4e051d54eec34ed62a4fa8982c2b34493a61e016:/charset.plp diff --git a/charset.plp b/charset.plp index 98a7345..73b3740 100644 --- a/charset.plp +++ b/charset.plp @@ -2,7 +2,7 @@ Html({ title => 'charset cheat sheet', - version => 'v1.0', + version => '1.0', description => [ "Reference sheet with all glyphs in common character encoding tables,", "and an overview of Unicode ranges and UTF-8 bytes.", @@ -19,22 +19,23 @@ Html({
Encoding $input unknown
\n"; + Alert("Encoding$inputunknown"); } - \%row; + $row{set} ? \%row : (); } else { (); } } map { defined $ALIAS{$_} ? @{ $ALIAS{$_} } : $_ } - $ENV{PATH_INFO} =~ /\w/ ? split(m{[/+\s]}, $ENV{PATH_INFO}) : 'default'; + $Request =~ /\w/ ? split(m{[/+\s]}, $Request) : 'default'; my $NOCHAR = chr 0xFFFD; for my $cp437 (grep {$request[$_]->{set} eq 'cp437'} 0 .. $#request) { @@ -97,26 +106,93 @@ for my $cp437 (grep {$request[$_]->{set} eq 'cp437'} 0 .. $#request) { ); } -my @nibble = (0..9, 'A'..'F'); +sub range_cell { + my ($table, $offset) = @_; + my $def = $table->{$offset} or return; + my ($len, $class, $name, $title) = @{$def}; + + 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; + printf ' | %0*X', $coldigits, $_ * $colsize for 0 .. $cols - 1; print "\n"; } print ' |
---|---|---|
%X', $msb + ($row->{offset} >> 4); - for my $lsb (0 .. $#nibble) { + for my $msb (0 .. ((length($row->{table}) || 256) - 1) / $cols) { + print ' | ||
'; + { + my $rowlabel = ($msb + int($row->{offset} / $cols)) * $cols * $colsize; + if (my $rowmod = $rowlabel % $rowdiv) { + # offset in column units + printf '+%X', $rowmod; + } + else { + # divided row offset + printf '%X', $rowlabel / $rowdiv; + } + } + for my $lsb (0 .. $cols - 1) { + my $val = ( ($msb * $cols) + $lsb ) * $colsize; if ($row->{cell}) { - print $row->{cell}->(($msb<<4) + $lsb); + print range_cell($row->{cell}, $val); next; } - my $glyph = substr $row->{table}, ($msb<<4) + $lsb, 1; + my $glyph = substr $row->{table}, $val, 1; if ($glyph eq $NOCHAR) { print ' | '; next; @@ -126,7 +202,7 @@ for my $row (@request) { } print "\n"; } - print " |