blob: 179f28e1ca9d5ab3bd4b2f4c445e5b955f9de515 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!/usr/bin/perl
open (MAPLIST, $ARGV[0]) || die "Failed to open $ARGV[0]\n";
print "Template: $ARGV[0]/keymap\n";
print "Type: select\n";
$keymaps = "";
while (<MAPLIST>) {
($langs,$name,$english) = split ;
if ($keymaps eq "") {
$keymaps = $name;
} else {
$keymaps = join (', ', $keymaps, $name);
}
}
print "__Choices: $keymaps\n";
|