14 lines
264 B
Perl
14 lines
264 B
Perl
#!/usr/bin/perl
|
|
|
|
open (IOCTLS,'/usr/include/sys/ioctl.h') || die "ioctl open failed";
|
|
|
|
while (<IOCTLS>) {
|
|
if (/^\s*#\s*define\s+\w+\s+_IO(R|W|WR)\('?\w+'?,\s*\w+,\s*([^)]+)/) {
|
|
$need{$2}++;
|
|
}
|
|
}
|
|
|
|
foreach $key ( sort keys %need ) {
|
|
print $key,"\n";
|
|
}
|