diff options
Diffstat (limited to 'languages/perl/perlparser.cpp')
-rw-r--r-- | languages/perl/perlparser.cpp | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/languages/perl/perlparser.cpp b/languages/perl/perlparser.cpp index 60cca8f5..4ab48333 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 parent = basere.cap(1); - //create child & parent classes - kdDebug(9016) << "basere match [" << parent << "]" << endl; + TQString tqparent = basere.cap(1); + //create child & tqparent classes + kdDebug(9016) << "basere match [" << tqparent << "]" << endl; addClass(fileName,lineNo); - addParentClass(parent); + addParentClass(tqparent); 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 parent = isare.cap(1); - //create child & parent classes - kdDebug(9016) << "isare match [" << parent << "]" << endl; + TQString tqparent = isare.cap(1); + //create child & tqparent classes + kdDebug(9016) << "isare match [" << tqparent << "]" << endl; addClass(fileName,lineNo); - addParentClass(parent); + addParentClass(tqparent); continue; } //isa @@ -424,11 +424,11 @@ void perlparser::addPackageSub(const TQString& fileName ,int lineNr ,const TQStr m_lastsub=name; } -void perlparser::addParentClass(const TQString& parent) +void perlparser::addParentClass(const TQString& tqparent) { - kdDebug(9016) << "addParentClass[ " << parent << "]" << endl; + kdDebug(9016) << "addParentClass[ " << tqparent << "]" << endl; if (m_lastclass) { - m_lastclass->addBaseClass(parent); + m_lastclass->addBaseClass(tqparent); } else { kdDebug(9016) << "addParentClass[ no m_lastclass]" << endl; } @@ -437,7 +437,7 @@ void perlparser::addParentClass(const TQString& parent) void perlparser::addUseLib(const TQString& lib) { if (!m_model->hasFile(lib)) { - if (m_usefiles.findIndex(lib) == -1) { + if (m_usefiles.tqfindIndex(lib) == -1) { //only add if not already parsed or in the list kdDebug(9016) << "add lib for later parsing [" << lib << "]" << endl; m_usefiles.append(lib); @@ -478,7 +478,7 @@ TQString perlparser::findLib( const TQString& lib) TQString result; TQString file=lib; - file.replace( TQRegExp("::"), TQString("/")); + file.tqreplace( TQRegExp("::"), TQString("/")); //find the correct path by using the INC list TQStringList::Iterator inc = m_INClist.begin(); |