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

[Arno Rehn]

SVN commit 761982 by arnorehn:

* If no classlist is given, process all classes.

CCMAIL: kde-bindings at kde.org



 M  +4 -0      ChangeLog  
 M  +15 -12    kalyptus/kalyptusCxxToSmoke.pm  


--- branches/work/kdebindings-smoke2/ChangeLog #761981:761982
@@ -1,3 +1,7 @@
+2207-01-15  Arno Rehn  <arno at arnorehn.de>
+
+	* If no classlist is given, process all classes.
+
 2007-01-10  Arno Rehn  <arno at arnorehn.de>
 
     * Kalyptus now takes a list of classes which should be included, rather
--- branches/work/kdebindings-smoke2/kalyptus/kalyptusCxxToSmoke.pm #761981:761982
@@ -176,20 +176,23 @@
 		$node->AddProp( "Access", "public" );
 	}
 	
-	my %includeClasses;
-	open DAT, "$main::classlist";
-	foreach my $class (<DAT>) {
-		chop($class);
-		$includeClasses{$class} = 1;
+	# if no classlist is given, process all classes
+	if ($main::classlist) {
+		my %includeClasses;
+		open DAT, "$main::classlist";
+		foreach my $class (<DAT>) {
+			chop($class);
+			$includeClasses{$class} = 1;
+		}
+		close DAT;
+		
+		Iter::LocalCompounds( $rootnode, sub {
+			my $classNode = shift;
+			my $className = join( '::', kdocAstUtil::heritage($classNode) );
+			$excludeClasses{$className} = 1 unless defined $includeClasses{$className};
+		});
 	}
-	close DAT;
 	
-	Iter::LocalCompounds( $rootnode, sub {
-		my $classNode = shift;
-		my $className = join( '::', kdocAstUtil::heritage($classNode) );
-		$excludeClasses{$className} = 1 unless defined $includeClasses{$className};
-	});
-	
 	# Prepare descendants + ancestors information for each class
 	Iter::LocalCompounds( $rootnode, sub {
 		my $classNode = shift;