dselect/mkcurkeys.pl

   1 #!/usr/bin/perl
   2 #
   3 # dselect - Debian package maintenance user interface
   4 # mkcurkeys.pl - generate strings mapping key names to ncurses numbers
   5 #
   6 # Copyright © 1995 Ian Jackson <ian@chiark.greenend.org.uk>
   7 #
   8 # This is free software; you can redistribute it and/or modify
   9 # it under the terms of the GNU General Public License as published by
  10 # the Free Software Foundation; either version 2 of the License, or
  11 # (at your option) any later version.
  12 #
  13 # This is distributed in the hope that it will be useful,
  14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 # GNU General Public License for more details.
  17 #
  18 # You should have received a copy of the GNU General Public License
  19 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  20
  21 $#ARGV == 1 || die ("usage: mkcurkeys.pl <filename> <curses.h>");
  22
  23 open(OV,"<$ARGV[0]") || die $!;
  24 while (<OV>) {
  25     chomp;
  26     /^#/ && next;               # skip comments
  27     /\S/ || next;               # ignore blank lines
  28     /^(\w+)\s+(\S.*\S)\s*$/ || die ("cannot parse line:\n$_\n");
  29     $over{$1}= $2;
  30     $base{$1}= '';
  31 }
  32 close(OV);
  33
  34 for ($i=1, $let='A'; $i<=26; $i++, $let++) {
  35     $name{$i}= "^$let";
  36     $base{$i}= '';
  37 }
  38
  39 open(NCH,"<$ARGV[1]") || die $!;
  40 while (<NCH>) {
  41     s/\s+$//;
  42     m/#define KEY_(\w+)\s+\d+\s+/ || next;
  43     $rhs= $';
  44     $k= "KEY_$1";
  45     $_= $1;
  46     &capit;
  47     $base{$k}= $_;
  48     $_= $rhs;
  49     s/(\w)[\(\)]/$1/g;
  50     s/\w+ \((\w+)\)/$1/;
  51     next unless m|^/\* (\w[\w ]+\w) \*/$|;
  52     $_= $1;
  53     s/ key$//;
  54     next if s/^shifted /shift / ? m/ .* .* / : m/ .* /;
  55     &capit;
  56     $name{$k}= $_;
  57 }
  58 close(NCH);
  59
  60 printf(<<'END') || die $!;
  61 /*
  62  * WARNING - THIS FILE IS GENERATED AUTOMATICALLY - DO NOT EDIT
  63  * It is generated by mkcurkeys.pl from <curses.h>
  64  * and keyoverride.  If you want to override things try adding
  65  * them to keyoverride.
  66  */
  67
  68 END
  69
  70 for ($i=33; $i<=126; $i++) {
  71     $k= $i;
  72     $v= pack("C",$i);
  73     if ($v eq ',') { $comma=$k; next; }
  74     &p;
  75 }
  76
  77 for $k (sort {
  78     $a+0 eq $a ?
  79         $b+0 eq $b ? $a <=> $b : -1
  80             : $b+0 eq $b ? 1 :
  81                 $a cmp $b
  82                 } keys %base) {
  83     $v= $base{$k};
  84     $v= $name{$k} if defined($name{$k});
  85     $v= $over{$k} if defined($over{$k});
  86     next if $v eq '[elide]';
  87     &p;
  88 }
  89
  90 for ($i=1; $i<64; $i++) {
  91     $k= "KEY_F($i)"; $v= "F$i";
  92     &p;
  93 }
  94
  95 $k=$comma; $v=','; &p;
  96
  97 print(<<'END') || die $!;
  98   { -1,              0                    }
  99 END
 100
 101 close(STDOUT) || die $!;
 102 exit(0);
 103
 104 sub capit {
 105     $o= ''; y/A-Z/a-z/; $_= " $_";
 106     while (m/ (\w)/) {
 107         $o .= $`.' ';
 108         $_ = $1;
 109         y/a-z/A-Z/;
 110         $o .= $_;
 111         $_ = $';
 112     }
 113     $_= $o.$_; s/^ //;
 114 }
 115
 116 sub p {
 117     $v =~ s/["\\]/\\$&/g;
 118     printf("  { %-15s \"%-20s },\n",
 119            $k.',',
 120            $v.'"') || die $!;
 121 }