git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
digraphs: reuse unicode character details
[sheet.git]
/
tools
/
mkcharinfo
diff --git
a/tools/mkcharinfo
b/tools/mkcharinfo
index 23154959e50b654ff454ce50d8e6da1b5e842523..b58f0c373f6215e828e4ad787683d1cfc23cd114 100755
(executable)
--- a/
tools/mkcharinfo
+++ b/
tools/mkcharinfo
@@
-47,7
+47,8
@@
eval {
} or warn "Failed importing html entities: $@";
my %diinc = (
} or warn "Failed importing html entities: $@";
my %diinc = (
- 'digraphs.inc.pl' => 'u-di',
+ 'data/digraphs-rfc.inc.pl' => 'u-di',
+ 'data/digraphs-shiar.inc.pl' => 'u-prop Xz',
);
for (keys %diinc) {
-e $_ or next;
);
for (keys %diinc) {
-e $_ or next;
@@
-55,13
+56,8
@@
for (keys %diinc) {
while (my ($mnem, $cp) = each %$di) {
length $mnem == 2 or next; # limit to digraphs
my $class = $diinc{$_};
while (my ($mnem, $cp) = each %$di) {
length $mnem == 2 or next; # limit to digraphs
my $class = $diinc{$_};
- if (ref $cp) {
- # old style array
- $class = 'u-prop' if $cp->[2] and $cp->[2] =~ m/\bXz\b/;
- $cp = chr $cp->[0];
- }
- $info{$cp}->{di} //= $mnem;
- $info{$cp}->{class}->{$class}++;
+ $info{chr $cp}->{di} //= $mnem;
+ $info{chr $cp}->{class}->{$class}++;
}
}
}
}