]>
git.proxmox.com Git - spiceterm.git/blob - genkeysym.pl
7 my $header = "/usr/include/X11/keysymdef.h";
16 static const name2keysym_t name2keysym[] = {
19 open(TMP
, "<$header");
20 while (defined(my $line = <TMP
>)) {
21 next if $line !~ m/\#define /;
22 my @ea = split(/\s+/, $line, 4);
24 next if $ea[1] !~ m/^XK_(\S+)$/;
27 next if $ea[2] !~ m/^0x([A-Za-z0-9]+)$/;
28 my $keysym = hex($ea[2]);
31 if ($ea[3] && $ea[3] =~ m/\/\
* U\
+([0-9A-Fa-f
]{4,6}) /) {
36 # Latin-1 characters (1:1 mapping)
37 if (($keysym >= 0x0020 && $keysym <= 0x007e) ||
38 ($keysym >= 0x00a0 && $keysym <= 0x00ff)) {
40 } elsif (($keysym & 0xff000000) == 0x01000000) {
41 # directly encoded 24-bit UCS characters */
42 $unicode = $keysym & 0x00ffffff;
43 } elsif ($keysym >= 0x0ff08 && $keysym <= 0x0ff1b) {
44 # tty BS, LF, RETURN, Delete
45 $unicode = $keysym - 0x0ff00;
46 } elsif ($keysym >= 0x0ffaa && $keysym <= 0x0ffaf) {
48 $unicode = $keysym - 0x0ff80;
49 } elsif ($keysym >= 0x0ffb0 && $keysym <= 0x0ffb9) {
51 $unicode = $keysym - 0x0ff80;
55 printf(" { \"%s\", 0x
%03x, 0x
%04x },\n", $name, $keysym, $unicode);
58 printf(" { NULL
, 0x
%03x, 0x
%04x },\n", 0, 0);