4 die "Usage: gen-keyname-table.pl keynames.txt > keyname-table.h\n";
7 open IN, $ARGV[0] || die "Cannot open $ARGV[0]: $!\n";
11 while (defined($_ = <IN>)) {
13 if (!/^\s*(0x[0-9a-f]+)\s+([\w_]*\S)\s+(1)?\s*$/) {
14 die "Cannot parse line $_";
29 /* keyname-table.h: Generated by gen-keyname-table.pl from keynames.txt
35 static const char keynames[] =
44 print qq( "$name\\0");
47 $offset += length($name) + 1;
58 static const gdk_key gdk_keys_by_keyval[] = {
70 print " { $keyval, $offset }";
76 @keys = sort { $a->[1] cmp $b->[1] } @keys;
80 static const gdk_key gdk_keys_by_name[] = {
92 print " { $keyval, $offset }";
104 for $key (@translate) {
106 N_("keyboard label|$key")