Silence error about deprecated Ooblique being unknown.
$(call cmdsave,$^)
data/xorg-compose: $(download)
$(call cmdsave,$^)
data/xorg-compose: $(download)
- tools/wget-ifmodified http://cgit.freedesktop.org/xorg/lib/libX11/plain/nls/en_US.UTF-8/Compose.pre $@
+ tools/wget-ifmodified http://gitlab.freedesktop.org/xorg/lib/libx11/-/raw/master/nls/en_US.UTF-8/Compose.pre $@
data/keysymdef.h: $(download)
tools/wget-ifmodified http://gitlab.freedesktop.org/xorg/proto/xorgproto/-/raw/master/include/X11/$(@F) $@
data/keysymdef.json: tools/mkxkeysymdef data/keysymdef.h
data/keysymdef.h: $(download)
tools/wget-ifmodified http://gitlab.freedesktop.org/xorg/proto/xorgproto/-/raw/master/include/X11/$(@F) $@
data/keysymdef.json: tools/mkxkeysymdef data/keysymdef.h
or next;
$chr =~ s/\\(.)/$1/g;
$mnem !~ m/<dead | <KP_ | <U[0-9A-Fa-f]{4}/ or next; # skip non-standard keys
or next;
$chr =~ s/\\(.)/$1/g;
$mnem !~ m/<dead | <KP_ | <U[0-9A-Fa-f]{4}/ or next; # skip non-standard keys
- $mnem =~ s{<([^>]+)> \h?}{$symname->{$1} // die "reference to unknown keysym $1\n"}eg;
+ eval {
+ $mnem =~ s{<([^>]+)> \h?}{$symname->{$1} // die "reference to unknown keysym $1\n"}eg;
+ 1;
+ } or warn($@), next;
$mnem !~ m/[^\x20-\x7F]/ or next; # skip unicode
# (state $seen = {})->{$chr}++ and next;
printf "%s => %s,\n", pp($mnem), pp($chr);
$mnem !~ m/[^\x20-\x7F]/ or next; # skip unicode
# (state $seen = {})->{$chr}++ and next;
printf "%s => %s,\n", pp($mnem), pp($chr);
use 5.014;
use warnings;
use utf8;
use 5.014;
use warnings;
use utf8;
while (readline) {
m{
\A [#]define[ ]XK_ (?<name>[a-zA-Z_0-9]+)
\h+ 0x(?<value>[0-9a-fA-F]+)
while (readline) {
m{
\A [#]define[ ]XK_ (?<name>[a-zA-Z_0-9]+)
\h+ 0x(?<value>[0-9a-fA-F]+)
- \h* [/][*] [\h(] U[+] (?<unicode>[0-9A-F]{4,6})
+ ( \h* [/][*] [\h(] U[+] (?<unicode>[0-9A-F]{4,6}) )?
- $keysym{ $+{name} } = chr hex $+{unicode};
+ my $cp = $+{unicode} // $keyval{ $+{value} } or next;
+ $keysym{ $+{name} } = chr hex $cp;
+ $keyval{ $+{value} } = $cp;
}
print JSON->new->ascii->canonical->indent->encode(\%keysym);
}
print JSON->new->ascii->canonical->indent->encode(\%keysym);