summaryrefslogtreecommitdiffstats
path: root/dcop/dcopidlng/kalyptus
diff options
context:
space:
mode:
Diffstat (limited to 'dcop/dcopidlng/kalyptus')
-rw-r--r--dcop/dcopidlng/kalyptus28
1 files changed, 14 insertions, 14 deletions
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", <<CODE;
public:
- virtual QMetaObject *metaObject() const;
+ virtual QMetaObject *tqmetaObject() const;
virtual const char *className() const;
virtual void* qt_cast( const char* );
virtual bool qt_invoke( int, QUObject* );
virtual bool qt_emit( int, QUObject* );
virtual bool qt_property( int, int, QVariant* );
static QMetaObject* staticMetaObject();
- QObject* qObject();
+ TQObject* qObject();
static QString tr( const char *, const char * = 0 );
static QString trUtf8( const char *, const char * = 0 );
private:
@@ -116,7 +116,7 @@ $allowed_k_dcop_accesors_re = join("|", @allowed_k_dcop_accesors);
Q_WS_MAC => '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&