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

Loading…
Cancel
Save