getioctlsizes (revision 4a4f25f904a8c1d8cfb83cff2b4a31ccf4fbd165) - OpenGrok cross reference for /openbsd-src/gnu/usr.bin/perl/h2pl/getioctlsizes

#!/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";
}