xref: /illumos-gate/usr/src/tools/smatch/src/smatch_scripts/find_expanded_holes.pl (revision 856f710c9dc323b39da5935194d7928ffb99b67f)

#!/usr/bin/perl

use strict;

my $cur_struct = "";
my $printed = 0;

while (<>) {
    if ($_ =~ /^struct (\w+) {/) {
	$cur_struct = $1;
	$printed = 0;
	next;
    }
    if ($_ =~ /.* hole,.*/ && !$printed) {
	print "$cur_struct\n";
	$printed = 1;
    }
}