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>) { | |
6e21c824 | 6 | if (/^\s*#\s*define\s+\w+\s+_IO(R|W|WR)\('?\w+'?,\s*\w+,\s*([^)]+)/) { |
154e51a4 | 7 | $need{$2}++; |
8 | } | |
9 | } | |
10 | ||
11 | foreach $key ( sort keys %need ) { | |
12 | print $key,"\n"; | |
13 | } |