#!/usr/bin/perl -w
#
# Author: Petter Reinholdtsen <pere@td.org.uit.no>
# Date:   1998-12-15
#
# Make KDE International keyboard keycode listing.  Requires perl 5

open(XMODMAP, "xmodmap -pk|");

print <<HEAD;
# KDE Config File
#
# Author: Your Name <and\@email.address>
#
#
# Place in kikbd/maps/codes/
[International Keyboard]
Label=Codes for ??? keyboard

[KeyboardMap]
HEAD

my $count = 0;
while (<XMODMAP>) {
    chomp;

    if (/^\s+(\d+)\s+(.+)$/) {
	my $keycode = $1;
	my @f = split(/[\s\)\(]+/, $2);
	if (@f) {
	    print "keycode$count=$keycode,";
	    $count++;
	    my @syms;
	    for $sym (@f) {
		next if ($sym =~ /^0x/);
		push(@syms, $sym);
	    }
	    print join(',', @syms),"\n";
	    
	}
    }
}