drivers/usb/mkmap

   1 #!/usr/bin/perl
   2
   3 ($ME = $0) =~ s|.*/||;
   4
   5 $file = "maps/serial.map";
   6 $line = 1;
   7 open(PC, $file) || die("$!");
   8 while(<PC>)
   9 {
  10     if(/^\s*keycode\s+(\d+)\s*=\s*(\S+)/)
  11     {
  12         my($idx) = int($1);
  13         my($sym) = $2;
  14         if(defined($map{uc($sym)}))
  15         {
  16             # print STDERR "$file:$line: warning: `$sym' redefined\n";
  17         }
  18         $map{uc($sym)} = $idx;
  19     }
  20     $line++;
  21 }
  22 close(PC);
  23
  24 $file = "maps/fixup.map";
  25 $line = 1;
  26 open(FIXUP, $file) || die("$!");
  27 while(<FIXUP>)
  28 {
  29     if(/^\s*keycode\s+(\d+)\s*=\s*/)
  30     {
  31         my($idx) = int($1);
  32         for $sym (split(/\s+/, $'))
  33         {
  34             $map{uc($sym)} = $idx;
  35         }
  36     }
  37     $line++;
  38 }
  39 close(FIXUP);
  40
  41 $file = "maps/usb.map";
  42 $line = 1;
  43 open(USB, $file) || die("$!");
  44 while(<USB>)
  45 {
  46     if(/^\s*keycode\s+(\d+)\s*=\s*/)
  47     {
  48         my($idx) = int($1);
  49         for $sym (split(/\s+/, $'))
  50         {
  51             my($val) = $map{uc($sym)};
  52             $map[$idx] = $val;
  53             if(!defined($val))
  54             {
  55                 print STDERR "$file:$line: warning: `$sym' undefined\n";
  56             }
  57             else
  58             {
  59                 last;
  60             }
  61         }
  62     }
  63     $line++;
  64 }
  65 close(USB);
  66
  67 print "unsigned char usb_kbd_map[256] = \n{\n";
  68 for($x = 0; $x < 32; $x++)
  69 {
  70     if($x && !($x % 2))
  71     {
  72         print "\n";
  73     }
  74     print "  ";
  75     for($y = 0; $y < 8; $y++)
  76     {
  77         my($idx) = $x * 8 + $y;
  78         print sprintf("  0x%02x,",
  79                       int(defined($map[$idx]) ? $map[$idx]:0));
  80     }
  81     print "\n";
  82 }
  83 print "};\n";