git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
keyboard/altgr: proper function to convert char maps
[sheet.git]
/
tools
/
mkcharinfo
diff --git
a/tools/mkcharinfo
b/tools/mkcharinfo
index 0f5d9bbe13d636f53a598862172a7e7843f862cb..c04ca8a3a5cd5c314d0eca115bb783f28c71d8ba 100755
(executable)
--- a/
tools/mkcharinfo
+++ b/
tools/mkcharinfo
@@
-4,7
+4,7
@@
use warnings;
use utf8;
no if $] >= 5.018, warnings => 'experimental::smartmatch';
use utf8;
no if $] >= 5.018, warnings => 'experimental::smartmatch';
-use open OUT => ':
utf8
', ':std';
+use open OUT => ':
encoding(utf-8)
', ':std';
use Data::Dump 'pp';
our $VERSION = '1.02';
use Data::Dump 'pp';
our $VERSION = '1.02';
@@
-34,6
+34,13
@@
eval {
1;
} or warn "Failed reading unicode tables: $@";
1;
} or warn "Failed reading unicode tables: $@";
+eval {
+ do './keyboard/altgr/macos-abc.eng.inc.pl' or die $@ || $!;
+ our %rows;
+ $info{$_} //= {} for values %rows;
+ 1;
+} or warn "Failed reading additional keyboard map: $@";
+
eval {
require HTML::Entities;
our %char2entity;
eval {
require HTML::Entities;
our %char2entity;