gnu/usr.bin/perl/h2pl/getioctlsizes

   1 #!/usr/bin/perl
   2
   3 open (IOCTLS,'/usr/include/sys/ioctl.h') || die "ioctl open failed";
   4
   5 while (<IOCTLS>) {
   6     if (/^\s*#\s*define\s+\w+\s+_IO(R|W|WR)\('?\w+'?,\s*\w+,\s*([^)]+)/) {
   7         $need{$2}++;
   8     }
   9 }
  10
  11 foreach $key ( sort keys %need ) {
  12     print $key,"\n";
  13 }