From fc2ade7c796e8cf29c19fce5815a28e01f1fd199 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 10 Feb 2004 12:35:14 +0000 Subject: rewrite & cleanup. Now works with kernel 2.6, don't know exactly why... --- perl-install/keyboard.pm | 37 +++++++++++++++++-------------------- 1 file changed, 17 insertions(+), 20 deletions(-) (limited to 'perl-install/keyboard.pm') diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm index e53e57ae5..aa1ca9234 100644 --- a/perl-install/keyboard.pm +++ b/perl-install/keyboard.pm @@ -384,31 +384,28 @@ sub from_usb() { sub load { my ($keymap) = @_; - return if $::testing || c::kernel_version() =~ /^\Q2.6/; - - my ($magic, @keymaps) = unpack "I i" . c::MAX_NR_KEYMAPS() . "a*", $keymap; - $keymap = pop @keymaps; + return if $::testing; + my ($magic, $tables_given, @tables) = common::unpack_with_refs('I' . + 'i' . c::MAX_NR_KEYMAPS() . + 's' . c::NR_KEYS() . '*', + $keymap); $magic != $KMAP_MAGIC and die "failed to read kmap magic"; sysopen(my $F, "/dev/console", 2) or die "failed to open /dev/console: $!"; - my $count = 0; - foreach (0 .. c::MAX_NR_KEYMAPS() - 1) { - $keymaps[$_] or next; - - my @keymap = unpack "s" . c::NR_KEYS() . "a*", $keymap; - $keymap = pop @keymap; - - my $key = -1; - foreach my $value (@keymap) { - $key++; - c::KTYP($value) != c::KT_SPEC() or next; - ioctl($F, c::KDSKBENT(), pack("CCS", $_, $key, $value)) or die "keymap ioctl failed ($_ $key $value): $!"; - } - $count++; - } - #- log::l("loaded $count keymap tables"); + my $i_tables = 0; + each_index { + my $table_index = $::i; + if (!$_) { + #- deallocate table + ioctl($F, c::KDSKBENT(), pack("CCS", $table_index, 0, c::K_NOSUCHMAP())) or die "removing table $table_index failed: $!"; + } else { + each_index { + ioctl($F, c::KDSKBENT(), pack("CCS", $table_index, $::i, $_)) or die "keymap ioctl failed ($table_index $::i $_): $!"; + } @{$tables[$i_tables++]}; + } + } @$tables_given; } sub keyboard2full_xkb { -- cgit v1.2.1