linux/kde/make-kikbd-map.pl

   1 #!/usr/bin/perl -w
   2 #
   3 # Author: Petter Reinholdtsen <pere@td.org.uit.no>
   4 # Date:   1998-12-15
   5 #
   6 # Make KDE International keyboard keycode listing.  Requires perl 5
   7
   8 open(XMODMAP, "xmodmap -pk|");
   9
  10 print <<HEAD;
  11 # KDE Config File
  12 #
  13 # Author: Your Name <and\@email.address>
  14 #
  15 #
  16 # Place in kikbd/maps/codes/
  17 [International Keyboard]
  18 Label=Codes for ??? keyboard
  19
  20 [KeyboardMap]
  21 HEAD
  22
  23 my $count = 0;
  24 while (<XMODMAP>) {
  25     chomp;
  26
  27     if (/^\s+(\d+)\s+(.+)$/) {
  28         my $keycode = $1;
  29         my @f = split(/[\s\)\(]+/, $2);
  30         if (@f) {
  31             print "keycode$count=$keycode,";
  32             $count++;
  33             my @syms;
  34             for $sym (@f) {
  35                 next if ($sym =~ /^0x/);
  36                 push(@syms, $sym);
  37             }
  38             print join(',', @syms),"\n";
  39
  40         }
  41     }
  42 }