summaryrefslogtreecommitdiffstats
path: root/perl-install/share/keymaps_generate
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-08-28 16:38:57 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-08-28 16:38:57 +0000
commita5be3a7fffa550e22e2a56ee40151b69c00afe8a (patch)
treee9bf4c3d1deb3d516518a667747c6595482682b7 /perl-install/share/keymaps_generate
parent03a6ac1b1e4a542a73f0f57e61333fd17664e969 (diff)
downloaddrakx-a5be3a7fffa550e22e2a56ee40151b69c00afe8a.tar
drakx-a5be3a7fffa550e22e2a56ee40151b69c00afe8a.tar.gz
drakx-a5be3a7fffa550e22e2a56ee40151b69c00afe8a.tar.bz2
drakx-a5be3a7fffa550e22e2a56ee40151b69c00afe8a.tar.xz
drakx-a5be3a7fffa550e22e2a56ee40151b69c00afe8a.zip
no_comment
Diffstat (limited to 'perl-install/share/keymaps_generate')
-rwxr-xr-xperl-install/share/keymaps_generate17
1 files changed, 17 insertions, 0 deletions
diff --git a/perl-install/share/keymaps_generate b/perl-install/share/keymaps_generate
new file mode 100755
index 000000000..29fd576fb
--- /dev/null
+++ b/perl-install/share/keymaps_generate
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+
+use lib "..";
+use keyboard;
+
+system("rm -rf keymaps ; mkdir keymaps");
+
+foreach (keyboard::xmodmaps()) {
+ my $kmap = keyboard::keyboard2kmap($_);
+ if (system("./kmap2bkmap $kmap > keymaps/$kmap.bkmap 2>/dev/null") != 0) {
+ warn "unknown kmap $kmap\n";
+ unlink "keymaps/$kmap.bkmap";
+ }
+}
+
+system("tar cfI keymaps.tar.bz2 keymaps") == 0 or die;
+system("rm -rf keymaps");