From kde-bindings  Sun Mar 04 15:59:07 2007
From: Caleb Tennis <caleb () aei-tech ! com>
Date: Sun, 04 Mar 2007 15:59:07 +0000
To: kde-bindings
Subject: Re: [Kde-bindings] cleaning up smoke
Message-Id: <E8E769DC-01D8-4F3A-A97B-303E4D2F8770 () aei-tech ! com>
X-MARC-Message: https://marc.info/?l=kde-bindings&m=117302396126057

Here's my proposed change to generate.pl.cmake:

This goes along with removing all prefix directories (QtCore, QtGui,  
etc) from the header_list fie.

===================================================================
--- generate.pl.cmake   (revision 639155)
+++ generate.pl.cmake   (working copy)
@@ -155,23 +155,23 @@
# List Qt headers, and exclude the ones listed above
my @headers = ();
-$qtinc= '@QT_INCLUDE_DIR@';
+@qtinc= ('@QT_QTCORE_INCLUDE_DIR@', '@QT_QTGUI_INCLUDE_DIR@',  
'@QT_QTNETWORK_INCLUDE_DIR@','@QT_QT3SUPPORT_INCLUDE_DIR@','@QT_QTSQL_IN 
CLUDE_DIR@','@QT_QTUITOOLS_INCLUDE_DIR@','@QT_QTXML_INCLUDE_DIR@');
find(
      {   wanted => sub {
             (-e || -l and !-d) and do {
-               $f = substr($_, 1 + length $qtinc);
+               $f = $_;
                  if( !defined $excludes{$f} # Not excluded
                       && $includes{$f}        # Known header
                       && /\.h$/)     # Not a backup file etc. Only  
headers.
                  {
-                    my $header = $_;
-                    open(FILE, $_);
+                    my $header = $File::Find::name;
+                    open(FILE, $header);
                      my @header_lines = <FILE>;
                      if (@header_lines == 1) {
                          $line = $header_lines[0];
                          if ($line =~ /^#include "(.*)"/) {
-                            push ( @headers, $qtinc . substr($1, 2) );
+                            push ( @headers, $File::Find::dir .  
substr($1, 2) );
                          } else {
                              push ( @headers, $header );
                          }
@@ -184,8 +184,8 @@
         },
         follow_fast => 1,
         follow_skip => 2,
-       no_chdir => 1
-    }, $qtinc
+       no_chdir => 0
+    }, @qtinc
   );
$qwtinc = '@QWT_INCLUDE_DIR@';
_______________________________________________
Kde-bindings mailing list
Kde-bindings@kde.org
https://mail.kde.org/mailman/listinfo/kde-bindings