smoke/qtscript/hint_header_list.pl

   1
   2 # CVS admin : run this script to compare the set of Qt headers to
   3 #             the actual content of header_list
   4
   5 $l = "header_list";
   6 $q = $ENV{'QTDIR'} || die "QTDIR not set\n";
   7 @h = <$q/include/*.h>;
   8 grep s|.*/(.*\.h)|$1|, @h;
   9 open(IN, $l) or die "$!: $l\n";
  10 @old = <IN>;
  11 chomp @old;
  12 map{ $h{$_}++ } @h;
  13 map{ $old{$_}++ } @old;
  14 map{ $diff{$_}++ unless $old{$_} } keys %h;
  15 map{ delete $diff{$_} if /^qconfig.*/ or !/^q/ } keys %diff;
  16 print "Check if any of the following headers should be added to $l:\n\n";
  17 print join "\n", keys %diff,  "\n"
  18
  19
  20
  21
  22
  23