summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
f937362)
Fixes parsing of escapes such as "\8203" introduced in
v1.6-199-g5eb5e3456f
(2015-03-29) [digraphs: allow proposals by decimal code point escape].
use warnings;
use open IN => ':utf8', ':std';
use warnings;
use open IN => ':utf8', ':std';
my $di = do "data/digraphs-rfc.inc.pl"
or warn "official digraphs not included for comparison: ", $@ // $!;
my $di = do "data/digraphs-rfc.inc.pl"
or warn "official digraphs not included for comparison: ", $@ // $!;
say "# automatically generated by $0";
say '+{';
for (readline) {
say "# automatically generated by $0";
say '+{';
for (readline) {
- my ($mnem, $cp, $chr) = m{^([!"%'-Z_a-z]{2}) (?:(\\\d+)|(.))} 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}"', $cp // ord $chr;
say "q{$mnem} => $chrstr,";
warn("$mnem already defined"), next if defined $di->{$mnem};
my $chrstr = sprintf '"\x{%x}"', $cp // ord $chr;
say "q{$mnem} => $chrstr,";