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-Tag: v1.19~73
X-Git-Url: http://git.shiar.net/sheet.git/commitdiff_plain/3a41fb36d905178cda2ee85f58666caabf07992c?hp=5fd1d56a364c2ac5a2d03f788db3d35ebdcde4fc

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} <= $_)