diff options
Diffstat (limited to 'languages/ada/ada_utils.cpp')
-rw-r--r-- | languages/ada/ada_utils.cpp | 44 |
1 files changed, 22 insertions, 22 deletions
diff --git a/languages/ada/ada_utils.cpp b/languages/ada/ada_utils.cpp index 9630f058..6e4bea13 100644 --- a/languages/ada/ada_utils.cpp +++ b/languages/ada/ada_utils.cpp @@ -4,56 +4,56 @@ #include <unistd.h> #include <iostream> -#include <qstring.h> -#include <qstringlist.h> -#include <qfile.h> -#include <qregexp.h> +#include <tqstring.h> +#include <tqstringlist.h> +#include <tqfile.h> +#include <tqregexp.h> #include <kdebug.h> #include "ada_utils.hpp" #include "adasupport.hpp" -QString qtext (const RefAdaAST& n) +TQString qtext (const RefAdaAST& n) { - return QString::fromLatin1 (text (n).c_str ()); + return TQString::fromLatin1 (text (n).c_str ()); } -QStringList qnamelist (const RefAdaAST& n) +TQStringList qnamelist (const RefAdaAST& n) { - QString txt = qtext (n); + TQString txt = qtext (n); // kdDebug() << "qnamelist: input is " << txt << endl; - return QStringList::split ('.', txt); + return TQStringList::split ('.', txt); } -QString ada_spec_filename (const QString& comp_unit_name) +TQString ada_spec_filename (const TQString& comp_unit_name) { - QString fn (comp_unit_name.lower ()); + TQString fn (comp_unit_name.lower ()); - fn.replace (QRegExp("."), "-"); + fn.replace (TQRegExp("."), "-"); fn += ".ads"; return fn; } -QString fq_specfilename (const QString& comp_unit_name) +TQString fq_specfilename (const TQString& comp_unit_name) { - QString fname = ada_spec_filename (comp_unit_name); + TQString fname = ada_spec_filename (comp_unit_name); - if (QFile::exists (fname)) + if (TQFile::exists (fname)) return fname; - QString adaincpath = getenv ("ADA_INCLUDE_PATH"); + TQString adaincpath = getenv ("ADA_INCLUDE_PATH"); if (adaincpath.isNull ()) - return QString::null; + return TQString::null; - QStringList dirs = QStringList::split (':', adaincpath); - QString fq_filename; - for (QStringList::Iterator it = dirs.begin (); it != dirs.end (); it++) { + TQStringList dirs = TQStringList::split (':', adaincpath); + TQString fq_filename; + for (TQStringList::Iterator it = dirs.begin (); it != dirs.end (); it++) { fq_filename = *it; if (! fq_filename.endsWith ("/")) fq_filename += "/"; fq_filename += fname; - if (QFile::exists (fq_filename)) + if (TQFile::exists (fq_filename)) return fq_filename; } if (fname.startsWith ("ada-") || @@ -64,6 +64,6 @@ QString fq_specfilename (const QString& comp_unit_name) } else { kdDebug () << "Cannot find file " << fname << endl; } - return QString::null; + return TQString::null; } |