Commit | Line | Data |
154e51a4 |
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 | } |