#!/usr/bin/perl
use warnings;
use strict;
sub load_keymap {
    my $file_name = shift;
    my %keymap = %{$_[0]};
    my $line;
    local *IN;
    
    $file_name ="gzip -dc $file_name |" if $file_name =~ /\.gz$/;
    print "Loading $file_name...\n";
    open (IN, $file_name) or die "Could not open $file_name: $!";
    while (defined($line = <IN>)) {
 if ($line =~ /include "(.+)"/) {
  load_keymap("$1.inc.gz", \%keymap);
 }
 next if $line !~ /keycode\s+(\d+)\s*=\s*(\S+)/;
 $keymap{$2} = $1;
 #print "$2 = $1\n";
    }
    close(IN);
    return \%keymap;
}

my (%map_from, %map_to) = ();
my $key = 0;
$key = load_keymap("de.kmap.gz", \%map_from);
%map_from = %$key;
foreach $key (keys %map_from) {
 print "$key = $map_from{$key}\n";
}