From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 30 Jan 2024 17:26:25 +0000 (+0100)
Subject: font: recognise category mark in mkfontinfo coverage
X-Git-Url: http://git.shiar.net/sheet.git/commitdiff_plain/3a41fb36d905178cda2ee85f58666caabf07992c

font: recognise category mark in mkfontinfo coverage

Assume \pM marks are no less significant than other letters, and certainly
should be counted in script coverage, especially for Indian support.
Significantly affects Hebrew (missing cantillation diacritics drop
previously complete fonts to 70%).
---

diff --git a/tools/mkfontinfo b/tools/mkfontinfo
index da6fd67..0b669d4 100755
--- a/tools/mkfontinfo
+++ b/tools/mkfontinfo
@@ -7,7 +7,7 @@ use open OUT => ':encoding(utf-8)', ':std';
 use File::Basename 'basename';
 use Data::Dump 'pp';
 
-our $VERSION = '1.01';
+our $VERSION = '1.02';
 
 my @fontlist;
 
@@ -76,7 +76,7 @@ eval {
 	use Unicode::UCD 'charinfo';
 	for my $code (0 .. 256**2*2) {
 		my $charinfo = charinfo($code) or next;
-		next if $charinfo->{category} =~ /^[MC]/;  # ignore Marks and "other" Control chars
+		next if $charinfo->{category} =~ /^[C]/;  # ignore "other" Control chars
 		push @{ $charlist{$_}->{ $charinfo->{$_} } }, chr $code
 			for qw( script category block );
 		push @{ $charlist{version}->{$_} }, (chr $code) x ($agemap->{$code} <= $_)