diff options
Diffstat (limited to 'konqueror/kttsplugin/tdehtmlkttsd.cpp')
| -rw-r--r-- | konqueror/kttsplugin/tdehtmlkttsd.cpp | 138 |
1 files changed, 138 insertions, 0 deletions
diff --git a/konqueror/kttsplugin/tdehtmlkttsd.cpp b/konqueror/kttsplugin/tdehtmlkttsd.cpp new file mode 100644 index 000000000..80b756a8b --- /dev/null +++ b/konqueror/kttsplugin/tdehtmlkttsd.cpp @@ -0,0 +1,138 @@ +/*************************************************************************** + Copyright: + (C) 2002 by George Russell <george.russell@clara.net> + (C) 2003-2004 by Olaf Schmidt <ojschmidt@kde.org> + ***************************************************************************/ + +/*************************************************************************** + * * + * This program is free software; you can redistribute it and/or modify * + * it under the terms of the GNU General Public License as published by * + * the Free Software Foundation; either version 2 of the License, or * + * (at your option) any later version. * + * * + ***************************************************************************/ + +#include <tdehtml_part.h> // this plugin applies to a tdehtml part +#include <dom/html_document.h> +#include <dom/html_element.h> +#include <dom/dom_string.h> +#include <kdebug.h> +#include "tdehtmlkttsd.h" +#include <kaction.h> +#include <kgenericfactory.h> +#include <kiconloader.h> +#include <tqmessagebox.h> +#include <klocale.h> +#include <tqstring.h> +#include <tqtimer.h> +#include <kspeech.h> +#include <tqbuffer.h> + +#include <kapplication.h> +#include <dcopclient.h> +#include <ktrader.h> + +KHTMLPluginKTTSD::KHTMLPluginKTTSD( TQObject* parent, const char* name, const TQStringList& ) + : Plugin( parent, name ) +{ + // If KTTSD is not installed, hide action. + KTrader::OfferList offers = KTrader::self()->query("DCOP/Text-to-Speech", "Name == 'KTTSD'"); + if (offers.count() > 0) + { + (void) new KAction( i18n("&Speak Text"), + "kttsd", 0, + this, TQT_SLOT(slotReadOut()), + actionCollection(), "tools_kttsd" ); + } + else + kdDebug() << "KHTMLPLuginKTTSD::KHTMLPluginKTTSD: KTrader did not find KTTSD." << endl; +} + +KHTMLPluginKTTSD::~KHTMLPluginKTTSD() +{ +} + +void KHTMLPluginKTTSD::slotReadOut() +{ + // The parent is assumed to be a KHTMLPart + if ( !parent()->inherits("KHTMLPart") ) + TQMessageBox::warning( 0, i18n( "Cannot Read source" ), + i18n( "You cannot read anything except web pages with\n" + "this plugin, sorry." )); + else + { + // If KTTSD not running, start it. + DCOPClient *client = kapp->dcopClient(); + if (!client->isApplicationRegistered("kttsd")) + { + TQString error; + if (kapp->startServiceByDesktopName("kttsd", TQStringList(), &error)) + TQMessageBox::warning(0, i18n( "Starting KTTSD Failed"), error ); + } + + // Find out if KTTSD supports xhtml (rich speak). + TQByteArray data; + TQBuffer dataBuf(data); + TQDataStream arg; + dataBuf.open(IO_WriteOnly); + arg.setDevice(&dataBuf); + arg << "" << KSpeech::mtHtml; + TQCString replyType; + TQByteArray replyData; + bool supportsXhtml = false; + if ( !client->call("kttsd", "KSpeech", "supportsMarkup(TQString,uint)", + data, replyType, replyData, true) ) + TQMessageBox::warning( 0, i18n( "DCOP Call Failed" ), + i18n( "The DCOP call supportsMarkup failed." )); + else + { + TQDataStream reply(replyData, IO_ReadOnly); + reply >> supportsXhtml; + } + + KHTMLPart *part = (KHTMLPart *) parent(); + + TQString query; + if (supportsXhtml) + { + kdDebug() << "KTTS claims to support rich speak (XHTML to SSML)." << endl; + if (part->hasSelection()) + query = part->selectedTextAsHTML(); + else + { + // TODO: Fooling around with the selection probably has unwanted + // side effects, but until a method is supplied to get valid xhtml + // from entire document.. + // query = part->document().toString().string(); + part->selectAll(); + query = part->selectedTextAsHTML(); + // Restore no selection. + part->setSelection(part->document().createRange()); + } + } else { + if (part->hasSelection()) + query = part->selectedText(); + else + query = part->htmlDocument().body().innerText().string(); + } + // kdDebug() << "KHTMLPluginKTTSD::slotReadOut: query = " << query << endl; + + dataBuf.at(0); // reset data + arg << query << ""; + if ( !client->call("kttsd", "KSpeech", "setText(TQString,TQString)", + data, replyType, replyData, true) ) + TQMessageBox::warning( 0, i18n( "DCOP Call Failed" ), + i18n( "The DCOP call setText failed." )); + dataBuf.at(0); + arg << 0; + if ( !client->call("kttsd", "KSpeech", "startText(uint)", + data, replyType, replyData, true) ) + TQMessageBox::warning( 0, i18n( "DCOP Call Failed" ), + i18n( "The DCOP call startText failed." )); + } +} + +K_EXPORT_COMPONENT_FACTORY( libtdehtmlkttsdplugin, KGenericFactory<KHTMLPluginKTTSD>("tdehtmlkttsd") ) + +#include "tdehtmlkttsd.moc" |