|
|
|
@ -1366,7 +1366,7 @@ sub tag_UIFILES ()
|
|
|
|
|
my ($mangled_source) = $source;
|
|
|
|
|
$mangled_source =~ s/[^A-Za-z0-9]/_/g; # get rid of garbage
|
|
|
|
|
$dep_lines .= "\t\$(UIC) -tr \${UIC_TR} -i $source.h $sourcedir$source.ui > $source.$cxxsuffix.temp ; ret=\$\$?; \\\n";
|
|
|
|
|
$dep_lines .= "\t\$(PERL) -pe \"s,\${UIC_TR}( \\\"\\\" ),QString::null,g\" $source.$cxxsuffix.temp | \$(PERL) -pe \"s,\${UIC_TR}( \\\"\\\"\\, \\\"\\\" ),QString::null,g\" | \$(PERL) -pe \"s,image([0-9][0-9]*)_data,img\\\$\$1_" . $mangled_source . ",g\" | \$(PERL) -pe \"s,: TQWizard\\(,: KWizard(,g; s,: QWizard\\(,: KWizard(,g;\" >> $source.$cxxsuffix ;\\\n";
|
|
|
|
|
$dep_lines .= "\t\$(PERL) -pe \"s,\${UIC_TR}( \\\"\\\" ),TQString::null,g\" $source.$cxxsuffix.temp | \$(PERL) -pe \"s,\${UIC_TR}( \\\"\\\"\\, \\\"\\\" ),TQString::null,g\" | \$(PERL) -pe \"s,image([0-9][0-9]*)_data,img\\\$\$1_" . $mangled_source . ",g\" | \$(PERL) -pe \"s,: TQWizard\\(,: KWizard(,g; s,: QWizard\\(,: KWizard(,g;\" >> $source.$cxxsuffix ;\\\n";
|
|
|
|
|
$dep_lines .= "\trm -f $source.$cxxsuffix.temp ;\\\n";
|
|
|
|
|
} else {
|
|
|
|
|
$dep_lines .= "\t\$(UIC) -i $source.h $sourcedir$source.ui > $source.$cxxsuffix; ret=\$\$?; \\\n";
|
|
|
|
@ -2116,10 +2116,8 @@ sub findMocCandidates ()
|
|
|
|
|
seek(HFIN, 0, 0);
|
|
|
|
|
read HFIN, $hfData, $hfsize;
|
|
|
|
|
close HFIN;
|
|
|
|
|
# push (@list, $hf) if(index($hfData, "Q_OBJECT") >= 0); ### fast but doesn't handle //Q_OBJECT
|
|
|
|
|
# handle " { friend class blah; Q_OBJECT ", but don't match antlarr_Q_OBJECT (\b).
|
|
|
|
|
if ( $hfData =~ /{([^}]*)\bQ_OBJECT/s ) {
|
|
|
|
|
push (@list, $hf) unless $1 =~ m://[^\n]*Q_OBJECT[^\n]*$:s; ## reject "// Q_OBJECT"
|
|
|
|
|
if ( $hfData =~ /{([^}]*)\bT?Q_OBJECT/s ) {
|
|
|
|
|
push (@list, $hf) unless $1 =~ m://[^\n]*T?Q_OBJECT[^\n]*$:s; ## reject "// (T)Q_OBJECT"
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
# The assoc array of root of headerfile and header filename
|
|
|
|
|