gen-keyname-table.pl 2.5 KB
Newer Older
1 2
#!/usr/bin/perl -w

3 4
if (@ARGV != 2) {
    die "Usage: gen-keyname-table.pl keynames.txt keynames-translate.txt > keyname-table.h\n";
5 6 7 8 9
}

open IN, $ARGV[0] || die "Cannot open $ARGV[0]: $!\n";

@keys = ();
10
@translate = ();
11 12
while (defined($_ = <IN>)) {
    next if /^!/;
13
    if (!/^\s*(0x[0-9a-f]+)\s+([\w_]*\S)\s+(1)?\s*$/) {
14 15 16 17
	die "Cannot parse line $_";
    }

    push @keys, [$1, $2];
18 19 20 21

    if (defined ($3)) {
	push @translate, $2;
    }
22
}
23 24 25 26 27 28 29 30 31 32 33 34
close IN;

open IN, $ARGV[1] || die "Cannot open $ARGV[1]: $!\n";
while (defined($_ = <IN>)) {
    next if /^!/;
    if (!/^\s*([\w_]*\S)\s+$/) {
	die "Cannot parse line $_";
    }

    push @translate, $1;
}
close IN;
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

$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++;
}

108 109 110 111 112 113
print <<EOT;
};


#if 0

114 115 116 117 118 119 120 121 122 123 124
/*
 * Translators, the strings in the 'keyboard label' context are
 * display names for keyboard keys. Some of them have prefixes like
 * XF86 or ISO_ - these should be removed in the translation. Similarly,
 * underscores should be replaced by spaces. The prefix 'KP_' stands
 * for 'key pad' and you may want to include that in your translation.
 * Here are some examples of English translations:
 * XF86AudioMute - Audio mute
 * Scroll_lock   - Scroll lock
 * KP_Space      - Space (keypad)
 */
125 126 127
EOT

for $key (@translate) {
128 129 130 131 132 133
    if ($key eq 'KP_Space') {
      print "/* Translators: KP_ means 'key pad' here */\n";
    }
    if ($key eq 'XF86MonBrightnessUp') {
      print "/* Translators: 'Mon' means Monitor here, and the XF86 prefix should be removed */\n";
    }
134
    print <<EOT;
135
NC_("keyboard label", "$key")
136
EOT
137
}
138 139 140 141 142

print <<EOT;

#endif
EOT
143