From 560378aaca1784ba19806a0414a32b20c744de39 Mon Sep 17 00:00:00 2001 From: tpearson Date: Mon, 3 Jan 2011 04:12:51 +0000 Subject: Automated conversion for enhanced compatibility with TQt for Qt4 3.4.0 TP1 NOTE: This will not compile with Qt4 (yet), however it does compile with Qt3 git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdelibs@1211081 283d02a7-25f6-0310-bc7c-ecb5cbfe19da --- dcop/dcopidlng/kalyptus | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) (limited to 'dcop/dcopidlng/kalyptus') diff --git a/dcop/dcopidlng/kalyptus b/dcop/dcopidlng/kalyptus index 9a3709fc0..b0f0e1871 100644 --- a/dcop/dcopidlng/kalyptus +++ b/dcop/dcopidlng/kalyptus @@ -67,14 +67,14 @@ $exe = basename $0; @inputqueue = (); @codeqobject = split "\n", < 'undef', Q_OBJECT => <<'CODE', public: - virtual QMetaObject *metaObject() const; + virtual QMetaObject *tqmetaObject() const; virtual const char *className() const; virtual bool qt_invoke( int, QUObject* ); virtual bool qt_emit( int, QUObject* ); @@ -419,7 +419,7 @@ LOOP: } next if ( $p =~ /^\s*$/s ); # blank lines -# || $p =~ /^\s*Q_OBJECT/ # QObject macro +# || $p =~ /^\s*Q_OBJECT/ # TQObject macro # ); # @@ -514,7 +514,7 @@ sub readCxxCodeBlock return $lastLine if ( $open || $close) && $count == 0; } - # find opening brace + # tqfind opening brace if ( $count == 0 ) { while( $count == 0 ) { $l = readCxxLine(); @@ -529,7 +529,7 @@ sub readCxxCodeBlock $count -= kdocUtil::countReg( $l, "}" ); } - # find associated closing brace + # tqfind associated closing brace while ( $count > 0 ) { $l = readCxxLine(); croak "Confused by unmatched braces" if !defined $l; @@ -1096,8 +1096,8 @@ sub newClass my $access = "private"; $access = "public" if $cNodeType ne "class"; - # try to find an exisiting node, or create a new one - # We need to make the fully-qualified-name otherwise findRef will look + # try to tqfind an exisiting node, or create a new one + # We need to make the fully-qualified-name otherwise tqfindRef will look # for that classname in the global namespace # testcase: class Foo; namespace Bar { class Foo { ... } } my @parents; @@ -1105,7 +1105,7 @@ sub newClass push @parents, $name; my $fullyQualifiedName = join "::", @parents; print "looking for $fullyQualifiedName\n" if($debug); - my $oldnode = kdocAstUtil::findRef( $cNode, $fullyQualifiedName ); + my $oldnode = kdocAstUtil::tqfindRef( $cNode, $fullyQualifiedName ); my $node = defined $oldnode ? $oldnode : Ast::New( $name ); if ( $endTag ne "{" ) { @@ -1344,15 +1344,15 @@ sub newMethod # ALWAYS IGNORE... return undef; - my $node = kdocAstUtil::findRef( $cNode, $class ); + my $node = kdocAstUtil::tqfindRef( $cNode, $class ); if ( !defined $node ) { - # if we couldn't find the name, try again with + # if we couldn't tqfind the name, try again with # all template parameters stripped off: my $strippedClass = $class; $strippedClass =~ s/<[^<>]*>//g; - $node = kdocAstUtil::findRef( $cNode, $strippedClass ); + $node = kdocAstUtil::tqfindRef( $cNode, $strippedClass ); # if still not found: give up if ( !defined $node ) { @@ -1370,7 +1370,7 @@ sub newMethod $class = $globalSpaceClassName; # FIXME - sanitize the naming system? $isGlobalSpace = 1; - my $opsNode = kdocAstUtil::findRef( $cNode, $class ); + my $opsNode = kdocAstUtil::tqfindRef( $cNode, $class ); if (!$opsNode) { # manually create a "GlobalSpace" class $opsNode = Ast::New( $class ); @@ -1468,7 +1468,7 @@ sub newMethod * 1 for enums Adds a property "ParamList" to the method node. - This property contains a list of nodes, one for each parameter. + This property tqcontains a list of nodes, one for each parameter. Each parameter node has the following properties: * ArgType the type of the argument, e.g. const QString& -- cgit v1.2.1