From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 29 Dec 2021 18:35:36 +0000 (+0100)
Subject: charset: compare unknown glyphs in custom tables
X-Git-Tag: v1.13~35
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/38c0f94fbc07d23581704b72a7e6d3cbe4dfa96c?ds=sidebyside

charset: compare unknown glyphs in custom tables

Ignore missing classes in Perl v5.28 for Unicode v13.0 legacy computing
symbols, while keeping unassigned code points in unicode blocks (various
gaps in Greek overview).
---

diff --git a/charset-encoding.inc.pl b/charset-encoding.inc.pl
index 2da7614..b534510 100644
--- a/charset-encoding.inc.pl
+++ b/charset-encoding.inc.pl
@@ -271,7 +271,8 @@ use utf8;
 		$row->{endpoint} ||= ($block + 1 << 8) - 1;
 		$block == ($row->{endpoint} >> 8) or undef $block;
 
-		$row->{table} = join '', map { chr } $row->{offset} .. $row->{endpoint};
+		$row->{table} = join '', map { chr =~ s/\A\p{Unassigned}\z/�/r }
+			$row->{offset} .. $row->{endpoint};
 		utf8::upgrade($row->{table});  # prevent latin1 output
 
 		$row->{endpoint} -= $row->{offset};
diff --git a/charset.plp b/charset.plp
index 49f2d50..2257fb8 100644
--- a/charset.plp
+++ b/charset.plp
@@ -342,7 +342,7 @@ for my $row (@request) {
 					$cp == ord $glyph ? 'l4' :
 					$row->{parent} && $glyph eq
 						Encode::decode($row->{parent}, pack 'C', $cp) ? 'l3' :
-					!$class ? undef :
+					!defined $cell ? undef :
 					$visible->{$glyph} ? 'l2' :
 					'l1'
 				);