[Kde-bindings] branches/work/kdebindings-smoke2

[Arno Rehn]

SVN commit 690010 by arnorehn:

* Correctly calculate the number of classes and put them in the right
  x_* files.

CCMAIL: kde-bindings at kde.org



 M  +2 -0      ChangeLog  
 M  +10 -2     kalyptus/kalyptusCxxToSmoke.pm  


--- branches/work/kdebindings-smoke2/ChangeLog #690009:690010
@@ -2,6 +2,8 @@
 
 	* First steps to implement Richard's proposal of a global
 	  "class name => smoke module" map.
+	* Correctly calculate the number of classes and put them in the right
+	  x_* files.
 
 2007-07-18  Arno Rehn  <arno at arnorehn.de>
 
--- branches/work/kdebindings-smoke2/kalyptus/kalyptusCxxToSmoke.pm #690009:690010
@@ -332,14 +332,22 @@
 	# Generate x_*cpp file for each class
 
         my $numclasses;
-        Iter::LocalCompounds( $rootnode, sub { $numclasses++ } );
+        Iter::LocalCompounds( $rootnode, sub { 
+		my $className = join( "::", kdocAstUtil::heritage(shift) );
+		return if defined($excludeClasses{$className});
+		$numclasses++ 
+        } );
         my $classperfile = int($numclasses/numSourceFiles);
         print STDERR "Total number of classes: ". $numclasses ."\n" if $debug;
         my $nodelist = [];
         my $currentfile = 1;
         my $currentclass = 1;
         Iter::LocalCompounds( $rootnode, sub { 
-                   push @$nodelist, shift;
+                   my $classNode = shift;
+                   my $className = join( "::", kdocAstUtil::heritage($classNode) );
+                   return if defined($excludeClasses{$className});
+
+                   push @$nodelist, $classNode;
                    if(@$nodelist == $classperfile and $currentfile != numSourceFiles)
                    {
                        print STDERR "Calling writeClassDoc for ". (scalar @$nodelist) . " classes\n" if $debug;