You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tdebindings/smoke/tqt/hint_header_list.pl

24 lines
555 B

# CVS admin : run this script to compare the set of Qt headers to
# the actual content of header_list
$l = "header_list";
$q = $ENV{'TQTDIR'} || die "TQTDIR not set\n";
@h = <$q/include/*.h>;
grep s|.*/(.*\.h)|$1|, @h;
open(IN, $l) or die "$!: $l\n";
@old = <IN>;
chomp @old;
map{ $h{$_}++ } @h;
map{ $old{$_}++ } @old;
map{ $diff{$_}++ unless $old{$_} } keys %h;
map{ delete $diff{$_} if /^qconfig.*/ or !/^q/ } keys %diff;
print "Check if any of the following headers should be added to $l:\n\n";
print join "\n", keys %diff, "\n"