freebsd-dev/contrib/perl5/h2pl/getioctlsizes

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