charset: skip empty petscii rows

[sheet.git] / charset.plp

diff --git a/charset.plp b/charset.plp
index ccbf145cf6ce28e674fa2e440209321309011089..49f2d504e12dbfe145f44b7246fb0f99919c337d 100644 (file)
--- a/charset.plp
+++ b/charset.plp
@@ -132,7 +132,7 @@ sub tabinput {
                                # extend earlier range
                                my $skip = int(($row{endpoint} || $row{startpoint}) / $row{cols});
                                for ($skip + 1 .. (hex($+{start}) / $row{cols}) - 1) {
-                                       $row{skip}->{ $_ * $row{cols} - $row{startpoint} }++;
+                                       $row{skip}->{ $_ * $row{cols} }++;
                                }
                        }
                        else {
@@ -303,13 +303,13 @@ for my $row (@request) {
 
        print '<tbody>';
        while ($offset <= $row->{endpoint} * $colsize) {
-               if ($row->{skip}->{$offset}) {
+               if ($row->{skip}->{$offset + $row->{offset}}) {
                        $offset += $cols * $colsize;
                        next;
                }
 
                print '<tr><th>';
-               if (defined $row->{skip}->{$offset}) {
+               if (defined $row->{skip}->{$offset + $row->{offset}}) {
                        print '⋮';
                }
                else {
@@ -349,7 +349,7 @@ for my $row (@request) {
                                $visible->{$glyph}++;
                        }
 
-                       print '<td title="%s"', $name;
+                       printf '<td title="%s"', $name;
                        say $class ? sprintf(' class="X %s">%s', $class, $cell) : '>';
                }
                continue {