From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 29 Dec 2021 18:28:12 +0000 (+0100)
Subject: charset: skip empty petscii rows
X-Git-Tag: v1.13~36
X-Git-Url: http://git.shiar.net/sheet.git/commitdiff_plain/68f17e8677688380e144e379ce5ae7a08d0a7c44

charset: skip empty petscii rows

Fix startpoint offset.
---

diff --git a/charset.plp b/charset.plp
index 119d410..49f2d50 100644
--- 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 {