From 10308be19ef7fa44699562cc75946e7ea1fdf6b9 Mon Sep 17 00:00:00 2001 From: tpearson Date: Fri, 7 Jan 2011 03:45:53 +0000 Subject: Revert automated changes Sorry guys, they are just not ready for prime time Work will continue as always git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdelibs@1212479 283d02a7-25f6-0310-bc7c-ecb5cbfe19da --- dcop/dcopidlng/kalyptus | 28 ++++++++++++++-------------- dcop/dcopidlng/kdocAstUtil.pm | 38 +++++++++++++++++++------------------- dcop/dcopidlng/kdocUtil.pm | 6 +++--- 3 files changed, 36 insertions(+), 36 deletions(-) (limited to 'dcop/dcopidlng') diff --git a/dcop/dcopidlng/kalyptus b/dcop/dcopidlng/kalyptus index b0f0e1871..9a3709fc0 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 *tqmetaObject() const; + virtual QMetaObject *metaObject() 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/ # TQObject macro +# || $p =~ /^\s*Q_OBJECT/ # QObject macro # ); # @@ -514,7 +514,7 @@ sub readCxxCodeBlock return $lastLine if ( $open || $close) && $count == 0; } - # tqfind opening brace + # find opening brace if ( $count == 0 ) { while( $count == 0 ) { $l = readCxxLine(); @@ -529,7 +529,7 @@ sub readCxxCodeBlock $count -= kdocUtil::countReg( $l, "}" ); } - # tqfind associated closing brace + # find 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 tqfind an exisiting node, or create a new one - # We need to make the fully-qualified-name otherwise tqfindRef will look + # try to find an exisiting node, or create a new one + # We need to make the fully-qualified-name otherwise findRef 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::tqfindRef( $cNode, $fullyQualifiedName ); + my $oldnode = kdocAstUtil::findRef( $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::tqfindRef( $cNode, $class ); + my $node = kdocAstUtil::findRef( $cNode, $class ); if ( !defined $node ) { - # if we couldn't tqfind the name, try again with + # if we couldn't find the name, try again with # all template parameters stripped off: my $strippedClass = $class; $strippedClass =~ s/<[^<>]*>//g; - $node = kdocAstUtil::tqfindRef( $cNode, $strippedClass ); + $node = kdocAstUtil::findRef( $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::tqfindRef( $cNode, $class ); + my $opsNode = kdocAstUtil::findRef( $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 tqcontains a list of nodes, one for each parameter. + This property contains 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& diff --git a/dcop/dcopidlng/kdocAstUtil.pm b/dcop/dcopidlng/kdocAstUtil.pm index 27f65dd21..ec67ace5f 100644 --- a/dcop/dcopidlng/kdocAstUtil.pm +++ b/dcop/dcopidlng/kdocAstUtil.pm @@ -17,13 +17,13 @@ use strict; use vars qw/ $depth $refcalls $refiters @noreflist %noref /; sub BEGIN { -# statistics for tqfindRef +# statistics for findRef $depth = 0; $refcalls = 0; $refiters = 0; -# tqfindRef will ignore these words +# findRef will ignore these words @noreflist = qw( const int char long double template unsigned signed float void bool true false uint @@ -35,22 +35,22 @@ sub BEGIN { } -=head2 tqfindRef +=head2 findRef Parameters: root, ident, report-on-fail Returns: node, or undef Given a root node and a fully qualified identifier (:: separated), - this function will try to tqfind a child of the root node that matches + this function will try to find a child of the root node that matches the identifier. =cut -sub tqfindRef +sub findRef { my( $root, $name, $r ) = @_; - confess "tqfindRef: no name" if !defined $name || $name eq ""; + confess "findRef: no name" if !defined $name || $name eq ""; $name =~ s/\s+//g; return undef if exists $noref{ $name }; @@ -65,7 +65,7 @@ sub tqfindRef # Upward search for the first token return undef if !defined $iter; - while ( !defined tqfindIn( $root, $iter ) ) { + while ( !defined findIn( $root, $iter ) ) { return undef if !defined $root->{Parent}; $root = $root->{Parent}; } @@ -77,8 +77,8 @@ sub tqfindRef confess "iter in $name is undefined\n" if !defined $iter; next if $iter =~ /^\s*$/; - unless ( defined tqfindIn( $root, $iter ) ) { - confess "tqfindRef: failed on '$name' at '$iter'\n" + unless ( defined findIn( $root, $iter ) ) { + confess "findRef: failed on '$name' at '$iter'\n" if defined $r; return undef; } @@ -90,13 +90,13 @@ sub tqfindRef return $root; } -=head2 tqfindIn +=head2 findIn node, name: search for a child =cut -sub tqfindIn +sub findIn { return undef unless defined $_[0]->{KidHash}; @@ -147,7 +147,7 @@ ANITER: next ANITER; } - my $ref = kdocAstUtil::tqfindRef( $rnode, + my $ref = kdocAstUtil::findRef( $rnode, $in->{astNodeName} ); if( !defined $ref ) { @@ -302,16 +302,16 @@ sub allMembers } } -=head2 tqfindOverride +=head2 findOverride Parameters: root, node, name Looks for nodes of the same name as the parameter, in its parent - and the parent's ancestors. It returns a node if it tqfinds one. + and the parent's ancestors. It returns a node if it finds one. =cut -sub tqfindOverride +sub findOverride { my ( $root, $node, $name ) = @_; return undef if !exists $node->{InList}; @@ -325,7 +325,7 @@ sub tqfindOverride return $n if defined $ref && $ref->{NodeType} eq "method"; if ( exists $n->{InList} ) { - $ref = tqfindOverride( $root, $n, $name ); + $ref = findOverride( $root, $n, $name ); return $ref if defined $ref; } } @@ -464,14 +464,14 @@ sub testRef { my $rootNode = $_[ 0 ]; - my $term = new Term::ReadLine 'Testing tqfindRef'; + my $term = new Term::ReadLine 'Testing findRef'; my $OUT = $term->OUT || *STDOUT{IO}; my $prompt = "Identifier: "; while( defined ($_ = $term->readline($prompt)) ) { - my $node = kdocAstUtil::tqfindRef( $rootNode, $_ ); + my $node = kdocAstUtil::findRef( $rootNode, $_ ); if( defined $node ) { print $OUT "Reference: '", $node->{astNodeName}, @@ -487,7 +487,7 @@ sub testRef { sub printDebugStats { - print "tqfindRef: ", $refcalls, " calls, ", + print "findRef: ", $refcalls, " calls, ", $refiters, " iterations.\n"; } diff --git a/dcop/dcopidlng/kdocUtil.pm b/dcop/dcopidlng/kdocUtil.pm index e83359724..629147ac3 100644 --- a/dcop/dcopidlng/kdocUtil.pm +++ b/dcop/dcopidlng/kdocUtil.pm @@ -30,7 +30,7 @@ sub countReg return $count; } -=head2 tqfindCommonPrefix +=head2 findCommonPrefix Parameters: string, string @@ -39,7 +39,7 @@ sub countReg =cut -sub tqfindCommonPrefix +sub findCommonPrefix { my @s1 = split( "/", $_[0] ); my @s2 = split( "/", $_[1] ); @@ -72,7 +72,7 @@ sub makeRelativePath $from .= '/' unless $from =~ m#/$#; $to .= '/' unless $to =~ m#/$#; - my $pfx = tqfindCommonPrefix( $from, $to ); + my $pfx = findCommonPrefix( $from, $to ); if ( $pfx ne "" ) { $from =~ s/^$pfx//g; -- cgit v1.2.1