bug/266/move-to-usr
Timothy Pearson 12 years ago
parent 1baf759cc0
commit 09aa71bf9b

@ -535,14 +535,20 @@ LOOP:
# );
#
next if ( $p =~ /^\s*TQ_ENUMS/ # ignore TQ_ENUMS
next if ( $p =~ /^\s*Q_ENUMS/ # ignore Q_ENUMS
|| $p =~ /^\s*TQ_ENUMS/ # and TQ_ENUMS
|| $p =~ /^\s*TQ_OBJECT/ # and TQ_OBJECT
|| $p =~ /^\s*Q_FLAGS/ # and Q_FLAGS
|| $p =~ /^\s*TQ_FLAGS/ # and TQ_FLAGS
|| $p =~ /^\s*Q_DECLARE_FLAGS/ # and Q_DECLARE_FLAGS
|| $p =~ /^\s*TQ_DECLARE_FLAGS/ # and TQ_DECLARE_FLAGS
|| ( !$qt4 && $p =~ /^\s*Q_PROPERTY/ ) # and Q_PROPERTY
|| ( !$qt4 && $p =~ /^\s*TQ_PROPERTY/ ) # and TQ_PROPERTY
|| $p =~ /^\s*TQDOC_PROPERTY/
|| $p =~ /^\s*Q_GADGET/
|| $p =~ /^\s*Q_OVERRIDE/ # and Q_OVERRIDE
|| $p =~ /^\s*TQ_OVERRIDE/ # and TQ_OVERRIDE
|| $p =~ /^\s*Q_SETS/
|| $p =~ /^\s*TQ_SETS/
|| $p =~ /^\s*Q_DUMMY_COMPARISON_OPERATOR/
|| $p =~ /^\s*K_SYCOCATYPE/ # and K_SYCOCA stuff
@ -727,7 +733,10 @@ sub readDecl
$declNodeType = "c";
return $l;
}
elsif ( $l =~ /TQ_PROPERTY/ ) { # property
elsif ( $l =~ /Q_PROPERTY/ ) { # property
return $l;
}
elsif ( $l =~ /TQ_PROPERTY/ ) { # property
return $l;
}
@ -809,12 +818,17 @@ sub identifyDecl
elsif ( $declNodeType eq "k" ) {
$cNode->AddProp( "DcopExported", 1 );
}
# properties
elsif ( $decl =~ s/TQ_PROPERTY// ) {
# properties
elsif ( $decl =~ s/Q_PROPERTY// ) {
print "Property: <$1>\n" if $debug;
$newNode = newProperty( $decl );
}
elsif ( $decl =~ s/TQ_PROPERTY// ) {
print "Property: <$1>\n" if $debug;
$newNode = newProperty( $decl );
}
# Typedef struct/class
elsif ( $decl =~ /^\s*typedef
\s+(struct|union|class|enum)

Loading…
Cancel
Save