dselect/checkunimp.pl

   1 #!/usr/bin/perl
   2 while(<>) {
   3     if (m/^\s+\{\s+\"(\w[^"]+)\",\s+0,\s+\w+list\:\:kd_\w+,\s+qa_\w+\s+\},\s*$/ ||
   4         m/^\s+\{\s+\"(\w[^"]+)\",\s+\w+list\:\:kd_\w+,\s+0,\s+qa_\w+\s+\},\s*$/) {
   5         $implem{$1}= 1;
   6     } elsif (m/^\s+\{\s+(\S.{0,15}\S),\s+\"(\w[^"]+)\"\s+\},\s*$/) {
   7         $bound{$2} .= $1.', ';
   8     } elsif (m/^\s+\{\s+0,/ || m/^\s+\{\s+-1,/) {
   9     } elsif (m/^\s+\{\s+/) {
  10         print "huh ? $_";
  11     }
  12 }
  13 for $f (sort keys %bound) {
  14     next if defined($implem{$f});
  15     $b=$bound{$f}; $b =~ s/, $//;
  16     printf "unimplemented: %-20s (%s)\n", $f, $b;
  17 }