diff options
author | tpearson <tpearson@283d02a7-25f6-0310-bc7c-ecb5cbfe19da> | 2011-08-10 22:19:39 +0000 |
---|---|---|
committer | tpearson <tpearson@283d02a7-25f6-0310-bc7c-ecb5cbfe19da> | 2011-08-10 22:19:39 +0000 |
commit | 32b67ac0690de411b26b1d5e715b188c27442248 (patch) | |
tree | 43167816a3df6b3a877d71c9a7963ed270dcc8c9 /languages/perl/perlparser.cpp | |
parent | 330c33ab6f97b279737bf9527c9add7bb1475450 (diff) | |
download | tdevelop-32b67ac0690de411b26b1d5e715b188c27442248.tar.gz tdevelop-32b67ac0690de411b26b1d5e715b188c27442248.zip |
rename the following methods:
tqparent parent
tqmask mask
git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdevelop@1246260 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
Diffstat (limited to 'languages/perl/perlparser.cpp')
-rw-r--r-- | languages/perl/perlparser.cpp | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/languages/perl/perlparser.cpp b/languages/perl/perlparser.cpp index 520daab3..60cca8f5 100644 --- a/languages/perl/perlparser.cpp +++ b/languages/perl/perlparser.cpp @@ -161,11 +161,11 @@ void perlparser::parseLines(TQStringList* lines,const TQString &fileName) //base matching if ((basere.search(line)>=0) && (!m_inscript)) { - TQString tqparent = basere.cap(1); - //create child & tqparent classes - kdDebug(9016) << "basere match [" << tqparent << "]" << endl; + TQString parent = basere.cap(1); + //create child & parent classes + kdDebug(9016) << "basere match [" << parent << "]" << endl; addClass(fileName,lineNo); - addParentClass(tqparent); + addParentClass(parent); continue; } else { if (libre.search(line)>=0) { @@ -186,11 +186,11 @@ void perlparser::parseLines(TQStringList* lines,const TQString &fileName) } //base if ((isare.search(line)>=0) && (!m_inscript)) { - TQString tqparent = isare.cap(1); - //create child & tqparent classes - kdDebug(9016) << "isare match [" << tqparent << "]" << endl; + TQString parent = isare.cap(1); + //create child & parent classes + kdDebug(9016) << "isare match [" << parent << "]" << endl; addClass(fileName,lineNo); - addParentClass(tqparent); + addParentClass(parent); continue; } //isa @@ -424,11 +424,11 @@ void perlparser::addPackageSub(const TQString& fileName ,int lineNr ,const TQStr m_lastsub=name; } -void perlparser::addParentClass(const TQString& tqparent) +void perlparser::addParentClass(const TQString& parent) { - kdDebug(9016) << "addParentClass[ " << tqparent << "]" << endl; + kdDebug(9016) << "addParentClass[ " << parent << "]" << endl; if (m_lastclass) { - m_lastclass->addBaseClass(tqparent); + m_lastclass->addBaseClass(parent); } else { kdDebug(9016) << "addParentClass[ no m_lastclass]" << endl; } |