summaryrefslogtreecommitdiffstats
path: root/languages/ada/ada_utils.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'languages/ada/ada_utils.cpp')
-rw-r--r--languages/ada/ada_utils.cpp44
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;
}