diff options
author | Slávek Banko <slavek.banko@axis.cz> | 2013-07-23 01:37:49 +0200 |
---|---|---|
committer | Slávek Banko <slavek.banko@axis.cz> | 2013-07-23 01:37:49 +0200 |
commit | 3d89f5e5c4efb3a3e8fe05540ef4f7cf104d371f (patch) | |
tree | 9b254c811c8aa56429c642c7807312090d675c27 /smoke/tqt/hint_header_list.pl | |
parent | d2dde67b0fd0afbdfaa4411a135f1dc1192edf1f (diff) | |
download | tdebindings-3d89f5e5c4efb3a3e8fe05540ef4f7cf104d371f.tar.gz tdebindings-3d89f5e5c4efb3a3e8fe05540ef4f7cf104d371f.zip |
Rename smokeqt -> smoketqt
Diffstat (limited to 'smoke/tqt/hint_header_list.pl')
-rw-r--r-- | smoke/tqt/hint_header_list.pl | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/smoke/tqt/hint_header_list.pl b/smoke/tqt/hint_header_list.pl new file mode 100644 index 00000000..ff9c86b7 --- /dev/null +++ b/smoke/tqt/hint_header_list.pl @@ -0,0 +1,23 @@ + +# CVS admin : run this script to compare the set of Qt headers to +# the actual content of header_list + +$l = "header_list"; +$q = $ENV{'QTDIR'} || die "QTDIR 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" + + + + + + |