Update gdk.symbols

[~andy/gtk] / gdk / gen-keyname-table.pl

diff --git a/gdk/gen-keyname-table.pl b/gdk/gen-keyname-table.pl
index 9a85f3af7cdb48be8ac33a962efed861a6885663..cc47400ef1ad3fcd39c1e14b92ac6a96e471dca0 100755 (executable)
--- a/gdk/gen-keyname-table.pl
+++ b/gdk/gen-keyname-table.pl
@@ -1,20 +1,37 @@
 #!/usr/bin/perl -w
 
-if (@ARGV != 1) {
-    die "Usage: gen-keyname-table.pl keynames.txt > keyname-table.h\n";
+if (@ARGV != 2) {
+    die "Usage: gen-keyname-table.pl keynames.txt keynames-translate.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+(.*\S)\s+$/) {
+    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;
+    }
+}
+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;
 
 $offset = 0;
 
@@ -88,5 +105,39 @@ for $key (@keys) {
     $i++;
 }
 
-print "\n};\n";
+print <<EOT;
+};
+
+
+#if 0
+
+/*
+ * 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)
+ */
+EOT
+
+for $key (@translate) {
+    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";
+    }
+    print <<EOT;
+NC_("keyboard label", "$key")
+EOT
+}
+
+print <<EOT;
+
+#endif
+EOT