diff options
| author | tpearson <tpearson@283d02a7-25f6-0310-bc7c-ecb5cbfe19da> | 2010-07-31 19:56:07 +0000 |
|---|---|---|
| committer | tpearson <tpearson@283d02a7-25f6-0310-bc7c-ecb5cbfe19da> | 2010-07-31 19:56:07 +0000 |
| commit | d6f8bbb45b267065a6907e71ff9c98bb6d161241 (patch) | |
| tree | d109539636691d7b03036ca1c0ed29dbae6577cf /languages/perl/perldoc.cpp | |
| parent | 3331a47a9cad24795c7440ee8107143ce444ef34 (diff) | |
| download | tdevelop-d6f8bbb45b267065a6907e71ff9c98bb6d161241.tar.gz tdevelop-d6f8bbb45b267065a6907e71ff9c98bb6d161241.zip | |
Trinity Qt initial conversion
git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdevelop@1157658 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
Diffstat (limited to 'languages/perl/perldoc.cpp')
| -rw-r--r-- | languages/perl/perldoc.cpp | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/languages/perl/perldoc.cpp b/languages/perl/perldoc.cpp index cbb4d18f..cc0a03f9 100644 --- a/languages/perl/perldoc.cpp +++ b/languages/perl/perldoc.cpp @@ -5,7 +5,7 @@ #include <sys/stat.h> #include <unistd.h> -#include <qtextstream.h> +#include <tqtextstream.h> #include <kdebug.h> #include <klocale.h> #include <kstandarddirs.h> @@ -17,7 +17,7 @@ using namespace KIO; -PerldocProtocol::PerldocProtocol(const QCString &pool, const QCString &app) +PerldocProtocol::PerldocProtocol(const TQCString &pool, const TQCString &app) : SlaveBase("perldoc", pool, app) {} @@ -28,12 +28,12 @@ PerldocProtocol::~PerldocProtocol() void PerldocProtocol::get(const KURL& url) { - QStringList l = QStringList::split('/', url.path()); + TQStringList l = TQStringList::split('/', url.path()); mimeType("text/html"); bool plain = false; - QString cmd = "perldoc "; + TQString cmd = "perldoc "; if (l[0] == "functions") { plain = true; cmd += "-t -f "; @@ -43,7 +43,7 @@ void PerldocProtocol::get(const KURL& url) cmd += KProcess::quote(l[1]); cmd += " | pod2html"; } else { - QCString errstr(i18n("The only existing directories are functions and faq.").local8Bit()); + TQCString errstr(i18n("The only existing directories are functions and faq.").local8Bit()); data(errstr); finished(); return; @@ -52,11 +52,11 @@ void PerldocProtocol::get(const KURL& url) kdDebug() << "Command: " << cmd << endl; if (plain) - data(QCString("<blockquote>")); + data(TQCString("<blockquote>")); FILE *fd = popen(cmd.local8Bit().data(), "r"); char buffer[4090]; - QByteArray array; + TQByteArray array; while (!feof(fd)) { int n = fread(buffer, 1, 2048, fd); @@ -72,7 +72,7 @@ void PerldocProtocol::get(const KURL& url) pclose(fd); if (plain) - data(QCString("</blockquote>")); + data(TQCString("</blockquote>")); finished(); } @@ -80,15 +80,15 @@ void PerldocProtocol::get(const KURL& url) void PerldocProtocol::mimetype(const KURL &url) { - QStringList l = QStringList::split('/', url.path()); + TQStringList l = TQStringList::split('/', url.path()); mimeType((l[0] == "faq")? "text/html" : "text/plain"); finished(); } -QCString PerldocProtocol::errorMessage() +TQCString PerldocProtocol::errorMessage() { - return QCString( "<html><body bgcolor=\"#FFFFFF\">" + i18n("Error in perldoc").local8Bit() + "</body></html>" ); + return TQCString( "<html><body bgcolor=\"#FFFFFF\">" + i18n("Error in perldoc").local8Bit() + "</body></html>" ); } |