mirror of
https://github.com/freebsd/freebsd-src
synced 2024-11-05 18:22:52 +00:00
13 lines
264 B
Perl
13 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";
|
|
}
|