| 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 | } |