X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/71f5871eee199636350587c8be9596ccb8689d6f..HEAD:/tools/mkdigraphs-shiar

diff --git a/tools/mkdigraphs-shiar b/tools/mkdigraphs-shiar
index 05399b0..f3582e8 100755
--- a/tools/mkdigraphs-shiar
+++ b/tools/mkdigraphs-shiar
@@ -1,20 +1,19 @@
 #!/usr/bin/env perl
-use 5.010;
-use strict;
+use 5.014;
 use warnings;
-use open IN => ':utf8', ':std';
+use open IN => ':encoding(utf-8)', ':std';
 
-our $VERSION = '1.01';
+our $VERSION = '1.03';
 
-my $di = do "data/digraphs-rfc.inc.pl"
+my $di = do "./data/digraphs-rfc.inc.pl"
 	or warn "official digraphs not included for comparison: ", $@ // $!;
 
 say "# automatically generated by $0";
 say '+{';
 for (readline) {
-	my ($mnem, $chr) = m{^([!"%'-Z_a-z]{2}) (.)} or next;
+	my ($mnem, $cp, $chr) = m{^([!"%'-Z_a-z]{2}) (?:\\(\d+)|(.))} or next;
 	warn("$mnem already defined"), next if defined $di->{$mnem};
-	my $chrstr = sprintf '"\x{%x}"', ord $chr;
+	my $chrstr = sprintf '"\x{%x}"', $cp // ord $chr;
 	say "q{$mnem} => $chrstr,";
 }
 say '}';