[prev in list] [next in list] [prev in thread] [next in thread] 

List:       kde-commits
Subject:    KDE/kdebindings/kalyptus
From:       Richard Dale <Richard_Dale () tipitina ! demon ! co ! uk>
Date:       2008-12-19 13:02:35
Message-ID: 1229691755.553560.6023.nullmailer () svn ! kde ! org
[Download RAW message or body]

SVN commit 898974 by rdale:

* If a set method setXXX() already existed for an instance variable XXX, then
the type of the variable wasn't being registed, and smoke code generation 
failed



 M  +8 -4      kalyptusCxxToSmoke.pm  


--- trunk/KDE/kdebindings/kalyptus/kalyptusCxxToSmoke.pm #898973:898974
@@ -703,6 +703,9 @@
 			|| ($className eq 'Wt::WStatelessSlot' and $name eq 'implementsMethod')
 			|| ($className eq 'Wt' and $name eq 'WRun')
 			|| ($className eq 'Wt::WServer' and $name eq 'addEntryPoint')
+			|| ($className eq 'Wt::WModelIndex' and $name eq 'internalHashId')
+			|| ($className eq 'Wt::WAbstractItemModel' and $name eq 'createIndex'
+                && $m->{ParamList}[2]->{ArgType} !~ /void/)
 			|| ($className =~ /^Wt::/ and $name eq 'createDomElement')
 
 			# added by Koen: these use stringstream now, but are not public API anyway
@@ -866,6 +869,7 @@
 		}
 
 		$m->{Type} = kalyptusDataDict::resolveType($m->{Type}, $classNode, $rootnode);
+
 	    my $varType = $m->{Type};
 		$varType =~ s/const\s+(.*)\s*&/$1/;
 		$varType =~ s/^\s*//;
@@ -893,6 +897,9 @@
 				$setMethod = "set$ch$2";
 			}
 
+			# Register the type
+			registerType( $varType ); #unless (defined $excludeClasses{$className});
+
 			# preParseClass() can be called twice on the same class, and so don't bother
 			# adding a setter twice.
 			my $method = kdocAstUtil::findRef( $classNode, $setMethod );
@@ -913,9 +920,6 @@
 
 			kdocAstUtil::attachChild( $classNode, $node );
 			$node->AddProp( "Access", "public" );
-
-			# Register the type
-			registerType( $varType ); #unless (defined $excludeClasses{$className});
 		} else {
 			$m->{NodeType} = 'deleted';
 		}
@@ -2082,7 +2086,7 @@
     # In the first phase we only create entries into allTypes.
     # The values (indexes) are calculated afterwards, once the list is full.
     $allTypes{$type}{index} = -1;
-    #print STDERR "Register $type. Realtype: $realType\n" if($debug);
+    print STDERR "Register $type. Realtype: $realType\n" if($debug);
 }
 
 # Get type from %allTypes
[prev in list] [next in list] [prev in thread] [next in thread]