home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / live / usr / sbin / keytab-lilo.pl < prev    next >
Encoding:
Perl Script  |  1999-02-02  |  2.0 KB  |  92 lines
  1. #!/usr/bin/perl
  2. $DEFAULT_MAP = "/etc/kbd/default.map.gz";
  3. $DEFAULT_EXT = ".map";
  4.  
  5. sub usage
  6. {
  7.     print STDERR
  8.       "usage: $0 [ -p old_code=new_code ] ...\n".
  9.       (" "x(8+length $0))."[path]default_layout[.map] ] ".
  10.       "[path]kbd_layout[.map]\n";
  11.     exit 1;
  12. }
  13.  
  14.  
  15. while ($ARGV[0] eq "-p") {
  16.     shift(@ARGV);
  17.     &usage unless $ARGV[0] =~ /=/;
  18.     $table[eval($`)] = eval($');
  19.     shift(@ARGV);
  20. }
  21. &usage unless defined $ARGV[0];
  22. load_map("def",defined $ARGV[1] ? $ARGV[0] : undef);
  23. load_map("kbd",defined $ARGV[1] ? $ARGV[1] : $ARGV[0]);
  24. &build_table("plain","shift","ctrl","altgr","shift_ctrl",
  25.   "altgr_ctrl","alt","shift_alt","ctrl_alt");
  26. for ($i = 0; $i < 256; $i++) {
  27.     printf("%c",$table[$i] ? $table[$i] : $i) || die "print: $!";
  28. }
  29. close STDOUT || die "close: $!";
  30.  
  31.  
  32. sub load_map
  33. {
  34.     local ($pfx,$map) = @_;
  35.     local ($empty,$current);
  36.  
  37.     $map = $DEFAULT_MAP unless defined $map;
  38.     $map .= $DEFAULT_EXT unless $map =~ m|/[^/]+\.[^/]+$|;
  39.     if (!open(FILE,"loadkeys -m $map |")) {
  40.     print STDERR "loadkeys -m $map: $!\n";
  41.     exit 1;
  42.     }
  43.     undef $current;
  44.     $empty = 1;
  45.     while (<FILE>) {
  46.     chop;
  47.     if (/^u_short\s+(\S+)_map\[\S+\]\s+=\s+{\s*$/) {
  48.         die "active at beginning of map" if defined $current;
  49.         $current = $pfx.":".$1;
  50.         next;
  51.     }
  52.     undef $current if /^};\s*$/;
  53.     next unless defined $current;
  54.     s/\s//g;
  55.     $map{$current} .= $_;
  56.     $empty = 0;
  57.     }
  58.     close FILE;
  59.     return unless $empty;
  60.     print STDERR "Keymap is empty\n";
  61.     exit 1;
  62. }
  63.  
  64.  
  65. sub build_table
  66. {
  67.     local (@maps) = @_;
  68.     local (@tmp);
  69.  
  70.     $set = 0;
  71.     for $map (@maps) {
  72.     $code = $set;
  73.     for (split(",",$map{"def:".$map})) {
  74.         die "bad map entry $_ (def, map $map)" unless /^0x\S\S(\S\S)$/;
  75.         $tmp[$code] = hex $1 unless $tmp[$code];
  76.         $code++;
  77.     }
  78.     $set += 256;
  79.     }
  80.     $set = 0;
  81.     for $map (@maps) {
  82.     $code = $set;
  83.     for (split(",",$map{"kbd:".$map})) {
  84.         die "bad map entry $_ (kbd, map $map)" unless /^0x\S\S(\S\S)$/;
  85.         $table[$tmp[$code]] = hex $1 unless $table[$tmp[$code]];
  86.         $code++;
  87.     }
  88.     $set += 256;
  89.     }
  90.     $table[0] = 0;
  91. }
  92.