utils/keytab-lilo

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