blob: e0fe9642b2669d1e61139a03d74a7ff710a9d160 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
#!/usr/bin/perl -w
if (@ARGV != 1) {
die "Usage: gen-keyname-table.pl keynames.txt > keyname-table.h\n";
}
open IN, $ARGV[0] || die "Cannot open $ARGV[0]: $!\n";
@keys = ();
@translate = ();
while (defined($_ = <IN>)) {
next if /^!/;
if (!/^\s*(0x[0-9a-f]+)\s+([\w_]*\S)\s+(1)?\s*$/) {
die "Cannot parse line $_";
}
push @keys, [$1, $2];
if (defined ($3)) {
push @translate, $2;
}
}
$offset = 0;
$date = gmtime;
print <<EOT;
/* keyname-table.h: Generated by gen-keyname-table.pl from keynames.txt
*
* Date: $date
*
* Do not edit.
*/
static const char keynames[] =
EOT
for $key (@keys) {
$name = $key->[1];
if ($offset != 0) {
print qq(\n);
}
print qq( "$name\\0");
$key->[3] = $offset;
$offset += length($name) + 1;
}
print ";\n\n";
print <<EOT;
typedef struct {
guint keyval;
guint offset;
} gdk_key;
static const gdk_key gdk_keys_by_keyval[] = {
EOT
$i = 0;
for $key (@keys) {
$keyval = $key->[0];
$name = $key->[1];
$offset = $key->[3];
if ($i != 0) {
print ",\n";
}
print " { $keyval, $offset }";
$i++;
}
print "\n};\n\n";
@keys = sort { $a->[1] cmp $b->[1] } @keys;
print <<EOT;
static const gdk_key gdk_keys_by_name[] = {
EOT
$i = 0;
for $key (@keys) {
$keyval = $key->[0];
$name = $key->[1];
$offset = $key->[3];
if ($i != 0) {
print ",\n";
}
print " { $keyval, $offset }";
$i++;
}
print <<EOT;
};
#if 0
EOT
for $key (@translate) {
print <<EOT;
N_("keyboard label|$key")
EOT
}
print <<EOT;
#endif
EOT
|
