From 114a878c64ce6f8223cfd22d76a20eb16d177e5e Mon Sep 17 00:00:00 2001 From: toma Date: Wed, 25 Nov 2009 17:56:58 +0000 Subject: Copy the KDE 3.5 branch to branches/trinity for new KDE 3.5 features. BUG:215923 git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdevelop@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da --- languages/perl/perldoc.cpp | 133 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 133 insertions(+) create mode 100644 languages/perl/perldoc.cpp (limited to 'languages/perl/perldoc.cpp') diff --git a/languages/perl/perldoc.cpp b/languages/perl/perldoc.cpp new file mode 100644 index 00000000..cbb4d18f --- /dev/null +++ b/languages/perl/perldoc.cpp @@ -0,0 +1,133 @@ +#include "perldoc.h" + +#include +#include +#include +#include + +#include +#include +#include +#include +#include +#include +#include +#include + +using namespace KIO; + + +PerldocProtocol::PerldocProtocol(const QCString &pool, const QCString &app) + : SlaveBase("perldoc", pool, app) +{} + + +PerldocProtocol::~PerldocProtocol() +{} + + +void PerldocProtocol::get(const KURL& url) +{ + QStringList l = QStringList::split('/', url.path()); + + mimeType("text/html"); + + bool plain = false; + QString cmd = "perldoc "; + if (l[0] == "functions") { + plain = true; + cmd += "-t -f "; + cmd += KProcess::quote(l[1]); + } else if (l[0] == "faq") { + cmd += "-u -q "; + cmd += KProcess::quote(l[1]); + cmd += " | pod2html"; + } else { + QCString errstr(i18n("The only existing directories are functions and faq.").local8Bit()); + data(errstr); + finished(); + return; + } + + kdDebug() << "Command: " << cmd << endl; + + if (plain) + data(QCString("

")); + + FILE *fd = popen(cmd.local8Bit().data(), "r"); + char buffer[4090]; + QByteArray array; + + while (!feof(fd)) { + int n = fread(buffer, 1, 2048, fd); + if (n == -1) { + pclose(fd); + return; + } + array.setRawData(buffer, n); + data(array); + array.resetRawData(buffer, n); + } + + pclose(fd); + + if (plain) + data(QCString("

")); + + finished(); +} + + +void PerldocProtocol::mimetype(const KURL &url) +{ + QStringList l = QStringList::split('/', url.path()); + mimeType((l[0] == "faq")? "text/html" : "text/plain"); + finished(); +} + + +QCString PerldocProtocol::errorMessage() +{ + return QCString( "" + i18n("Error in perldoc").local8Bit() + "" ); +} + + +void PerldocProtocol::stat(const KURL &/*url*/) +{ + UDSAtom uds_atom; + uds_atom.m_uds = KIO::UDS_FILE_TYPE; + uds_atom.m_long = S_IFREG | S_IRWXU | S_IRWXG | S_IRWXO; + + UDSEntry uds_entry; + uds_entry.append(uds_atom); + + statEntry(uds_entry); + finished(); +} + + +void PerldocProtocol::listDir(const KURL &url) +{ + error( KIO::ERR_CANNOT_ENTER_DIRECTORY, url.path() ); +} + + +extern "C" { + + int kdemain(int argc, char **argv) + { + KInstance instance( "kio_perldoc" ); + KGlobal::locale()->setMainCatalogue("kdevelop"); + + if (argc != 4) { + fprintf(stderr, "Usage: kio_perldoc protocol domain-socket1 domain-socket2\n"); + exit(-1); + } + + PerldocProtocol slave(argv[2], argv[3]); + slave.dispatchLoop(); + + return 0; + } + +} -- cgit v1.2.3