[perl5.git] / 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";
}
Commit	Line	Data
154e51a4 LW	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#\sdefine\s+\w+\s+_IO(R\|W\|WR)\('?\w+'?,\s\w+,\s([^)]+)/) {
154e51a4 LW	7	$need{$2}++;
	8	}
	9	}
	10
	11	foreach $key ( sort keys %need ) {
	12	print $key,"\n";
	13	}