You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
377 lines
15 KiB
377 lines
15 KiB
/* This file is part of the KDE Project
|
|
Copyright (C) 2001 Kurt Granroth <granroth@kde.org>
|
|
Original code: plugin code, connecting to Babelfish and support for selected text
|
|
Copyright (C) 2003 Rand2342 <rand2342@yahoo.com>
|
|
Submenus, TDEConfig file and support for other translation engines
|
|
|
|
This library is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU Library General Public
|
|
License version 2 as published by the Free Software Foundation.
|
|
|
|
This library is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
Library General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Library General Public License
|
|
along with this library; see the file COPYING.LIB. If not, write to
|
|
the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
Boston, MA 02110-1301, USA.
|
|
*/
|
|
#include "plugin_babelfish.h"
|
|
|
|
#include <tdeaction.h>
|
|
#include <kinstance.h>
|
|
#include <tdemessagebox.h>
|
|
#include <tdelocale.h>
|
|
#include <tdeconfig.h>
|
|
#include <kgenericfactory.h>
|
|
#include <tdeaboutdata.h>
|
|
|
|
#include <tdehtml_part.h>
|
|
|
|
typedef KGenericFactory<PluginBabelFish> BabelFishFactory;
|
|
static const TDEAboutData aboutdata("babelfish", I18N_NOOP("Translate Web Page") , "1.0" );
|
|
K_EXPORT_COMPONENT_FACTORY( libbabelfishplugin, BabelFishFactory( &aboutdata ) )
|
|
|
|
PluginBabelFish::PluginBabelFish( TQObject* parent, const char* name,
|
|
const TQStringList & )
|
|
: Plugin( parent, name )
|
|
{
|
|
setInstance(BabelFishFactory::instance());
|
|
|
|
m_menu = new TDEActionMenu( i18n("Translate Web &Page"), "babelfish",
|
|
actionCollection(), "translatewebpage" );
|
|
m_menu->setDelayed( false );
|
|
|
|
m_en = new TDEActionMenu( i18n("&English To"), "babelfish",
|
|
actionCollection(), "translatewebpage_en" );
|
|
m_fr = new TDEActionMenu( i18n("&French To"), "babelfish",
|
|
actionCollection(), "translatewebpage_fr" );
|
|
m_de = new TDEActionMenu( i18n("&German To"), "babelfish",
|
|
actionCollection(), "translatewebpage_de" );
|
|
m_es = new TDEActionMenu( i18n("&Spanish To"), "babelfish",
|
|
actionCollection(), "translatewebpage_es" );
|
|
m_pt = new TDEActionMenu( i18n("&Portuguese To"), "babelfish",
|
|
actionCollection(), "translatewebpage_pt" );
|
|
m_it = new TDEActionMenu( i18n("&Italian To"), "babelfish",
|
|
actionCollection(), "translatewebpage_it" );
|
|
m_nl = new TDEActionMenu( i18n("&Dutch To"), "babelfish",
|
|
actionCollection(), "translatewebpage_nl" );
|
|
|
|
m_en->insert( new TDEAction( i18n("&Chinese (Simplified)"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "en_zh") );
|
|
m_en->insert( new TDEAction( i18n("Chinese (&Traditional)"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "en_zhTW") );
|
|
m_en->insert( new TDEAction( i18n("&Dutch"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "en_nl") );
|
|
m_en->insert( new TDEAction( i18n("&French"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "en_fr") );
|
|
m_en->insert( new TDEAction( i18n("&German"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "en_de") );
|
|
m_en->insert( new TDEAction( i18n("&Italian"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "en_it") );
|
|
m_en->insert( new TDEAction( i18n("&Japanese"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "en_ja") );
|
|
m_en->insert( new TDEAction( i18n("&Korean"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "en_ko") );
|
|
m_en->insert( new TDEAction( i18n("&Norwegian"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "en_no") );
|
|
m_en->insert( new TDEAction( i18n("&Portuguese"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "en_pt") );
|
|
m_en->insert( new TDEAction( i18n("&Russian"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "en_ru") );
|
|
m_en->insert( new TDEAction( i18n("&Spanish"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "en_es") );
|
|
m_en->insert( new TDEAction( i18n("T&hai"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "en_th") );
|
|
|
|
m_fr->insert( new TDEAction( i18n("&Dutch"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "fr_nl") );
|
|
m_fr->insert( new TDEAction( i18n("&English"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "fr_en") );
|
|
m_fr->insert( new TDEAction( i18n("&German"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "fr_de") );
|
|
m_fr->insert( new TDEAction( i18n("&Italian"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "fr_it") );
|
|
m_fr->insert( new TDEAction( i18n("&Portuguese"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "fr_pt") );
|
|
m_fr->insert( new TDEAction( i18n("&Spanish"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "fr_es") );
|
|
|
|
m_de->insert( new TDEAction( i18n("&English"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "de_en") );
|
|
m_de->insert( new TDEAction( i18n("&French"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "de_fr") );
|
|
|
|
m_es->insert( new TDEAction( i18n("&English"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "es_en") );
|
|
m_es->insert( new TDEAction( i18n("&French"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "es_fr") );
|
|
|
|
m_pt->insert( new TDEAction( i18n("&English"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "pt_en") );
|
|
m_pt->insert( new TDEAction( i18n("&French"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "pt_fr") );
|
|
|
|
m_it->insert( new TDEAction( i18n("&English"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "it_en") );
|
|
m_it->insert( new TDEAction( i18n("&French"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "it_fr") );
|
|
|
|
m_nl->insert( new TDEAction( i18n("&English"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "nl_en") );
|
|
m_nl->insert( new TDEAction( i18n("&French"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "nl_fr") );
|
|
|
|
m_menu->insert( new TDEAction( i18n("&Chinese (Simplified) to English"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "zh_en") );
|
|
m_menu->insert( new TDEAction( i18n("Chinese (&Traditional) to English"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "zhTW_en") );
|
|
m_menu->insert( m_nl );
|
|
m_menu->insert( m_en );
|
|
m_menu->insert( m_fr );
|
|
m_menu->insert( m_de );
|
|
m_menu->insert( m_it );
|
|
m_menu->insert( new TDEAction( i18n("&Japanese to English"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "ja_en") );
|
|
m_menu->insert( new TDEAction( i18n("&Korean to English"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "ko_en") );
|
|
m_menu->insert( m_pt );
|
|
m_menu->insert( new TDEAction( i18n("&Russian to English"), 0,
|
|
this, TQT_SLOT(translateURL()),
|
|
actionCollection(), "ru_en") );
|
|
m_menu->insert( m_es );
|
|
m_menu->setEnabled( true );
|
|
|
|
// TODO: we could also support plain text viewers...
|
|
if ( parent && parent->inherits( "TDEHTMLPart" ) )
|
|
{
|
|
KParts::ReadOnlyPart* part = static_cast<KParts::ReadOnlyPart *>(parent);
|
|
connect( part, TQT_SIGNAL(started(TDEIO::Job*)), this,
|
|
TQT_SLOT(slotStarted(TDEIO::Job*)) );
|
|
}
|
|
}
|
|
|
|
PluginBabelFish::~PluginBabelFish()
|
|
{
|
|
delete m_menu;
|
|
}
|
|
|
|
void PluginBabelFish::slotStarted( TDEIO::Job* )
|
|
{
|
|
if ( parent()->inherits("TDEHTMLPart") &&
|
|
// Babelfish wants http URLs only. No https.
|
|
static_cast<KParts::ReadOnlyPart *>(parent())->url().protocol().lower() == "http" )
|
|
{
|
|
m_menu->setEnabled( true );
|
|
}
|
|
else
|
|
{
|
|
m_menu->setEnabled( false );
|
|
}
|
|
}
|
|
|
|
void PluginBabelFish::translateURL()
|
|
{
|
|
// we need the sender() for the language name
|
|
if ( !sender() )
|
|
return;
|
|
|
|
// The parent is assumed to be a TDEHTMLPart
|
|
if ( !parent()->inherits("TDEHTMLPart") )
|
|
{
|
|
TQString title = i18n( "Cannot Translate Source" );
|
|
TQString text = i18n( "Only web pages can be translated using "
|
|
"this plugin." );
|
|
|
|
KMessageBox::sorry( 0L, text, title );
|
|
return;
|
|
}
|
|
|
|
// Select engine
|
|
TDEConfig cfg( "translaterc", true );
|
|
TQString engine = cfg.readEntry( sender()->name(), "babelfish" );
|
|
|
|
// Get URL
|
|
TDEHTMLPart *part = dynamic_cast<TDEHTMLPart *>(parent());
|
|
if ( !part )
|
|
return;
|
|
|
|
// we check if we have text selected. if so, we translate that. If
|
|
// not, we translate the url
|
|
TQString totrans;
|
|
if ( part->hasSelection() )
|
|
{
|
|
if( engine == "reverso" || engine == "tsail" )
|
|
{
|
|
KMessageBox::sorry( 0L,
|
|
i18n( "Only full webpages can be translated for this language pair." ),i18n( "Translation Error" ) );
|
|
return;
|
|
}
|
|
totrans = KURL::encode_string( part->selectedText() );
|
|
} else {
|
|
KURL url = part->url();
|
|
// Check syntax
|
|
if ( !url.isValid() )
|
|
{
|
|
TQString title = i18n( "Malformed URL" );
|
|
TQString text = i18n( "The URL you entered is not valid, please "
|
|
"correct it and try again." );
|
|
KMessageBox::sorry( 0L, text, title );
|
|
return;
|
|
}
|
|
totrans = KURL::encode_string( url.url() );
|
|
}
|
|
|
|
// Create URL
|
|
KURL result;
|
|
TQString query;
|
|
if( engine == "freetranslation" ) {
|
|
query = "sequence=core&Submit=FREE Translation&language=";
|
|
if( sender()->name() == TQString( "en_es" ) )
|
|
query += "English/Spanish";
|
|
else if( sender()->name() == TQString( "en_de" ) )
|
|
query += "English/German";
|
|
else if( sender()->name() == TQString( "en_it" ) )
|
|
query += "English/Italian";
|
|
else if( sender()->name() == TQString( "en_nl" ) )
|
|
query += "English/Dutch";
|
|
else if( sender()->name() == TQString( "en_pt" ) )
|
|
query += "English/Portuguese";
|
|
else if( sender()->name() == TQString( "en_no" ) )
|
|
query += "English/Norwegian";
|
|
else if( sender()->name() == TQString( "en_zh" ) )
|
|
query += "English/SimplifiedChinese";
|
|
else if( sender()->name() == TQString( "en_zhTW" ) )
|
|
query += "English/TraditionalChinese";
|
|
else if( sender()->name() == TQString( "es_en" ) )
|
|
query += "Spanish/English";
|
|
else if( sender()->name() == TQString( "fr_en" ) )
|
|
query += "French/English";
|
|
else if( sender()->name() == TQString( "de_en" ) )
|
|
query += "German/English";
|
|
else if( sender()->name() == TQString( "it_en" ) )
|
|
query += "Italian/English";
|
|
else if( sender()->name() == TQString( "nl_en" ) )
|
|
query += "Dutch/English";
|
|
else if( sender()->name() == TQString( "pt_en" ) )
|
|
query += "Portuguese/English";
|
|
else // Should be en_fr
|
|
query += "English/French";
|
|
if ( part->hasSelection() )
|
|
{
|
|
result = KURL( "http://ets.freetranslation.com" );
|
|
query += "&mode=html&template=results_en-us.htm&srctext=";
|
|
} else {
|
|
result = KURL( "http://www.freetranslation.com/web.asp" );
|
|
query += "&url=";
|
|
}
|
|
query += totrans;
|
|
} else if( engine == "parsit" ) {
|
|
// Does only English -> Thai
|
|
result = KURL( "http://c3po.links.nectec.or.th/cgi-bin/Parsitcgi.exe" );
|
|
query = "mode=test&inputtype=";
|
|
if ( part->hasSelection() )
|
|
query += "text&TxtEng=";
|
|
else
|
|
query += "html&inputurl=";
|
|
query += totrans;
|
|
} else if( engine == "reverso" ) {
|
|
result = KURL( "http://www.reverso.net/url/frame.asp" );
|
|
query = "autotranslate=on&templates=0&x=0&y=0&directions=";
|
|
if( sender()->name() == TQString( "de_fr" ) )
|
|
query += "524292";
|
|
else if( sender()->name() == TQString( "fr_en" ) )
|
|
query += "65544";
|
|
else if( sender()->name() == TQString( "fr_de" ) )
|
|
query += "262152";
|
|
else if( sender()->name() == TQString( "de_en" ) )
|
|
query += "65540";
|
|
else if( sender()->name() == TQString( "en_de" ) )
|
|
query += "262145";
|
|
else if( sender()->name() == TQString( "en_es" ) )
|
|
query += "2097153";
|
|
else if( sender()->name() == TQString( "es_en" ) )
|
|
query += "65568";
|
|
else if( sender()->name() == TQString( "fr_es" ) )
|
|
query += "2097160";
|
|
else // "en_fr"
|
|
query += "524289";
|
|
query += "&url=";
|
|
query += totrans;
|
|
} else if( engine == "tsail" ) {
|
|
result = KURL( "http://www.t-mail.com/cgi-bin/tsail" );
|
|
query = "sail=full&lp=";
|
|
if( sender()->name() == TQString( "zhTW_en" ) )
|
|
query += "tw-en";
|
|
else if( sender()->name() == TQString( "en_zhTW" ) )
|
|
query += "en-tw";
|
|
else
|
|
{
|
|
query += sender()->name();
|
|
query[15] = '-';
|
|
}
|
|
query += totrans;
|
|
} else if( engine == "voila" ) {
|
|
result = KURL( "http://trans.voila.fr/voila" );
|
|
query = "systran_id=Voila-fr&systran_lp=";
|
|
query += sender()->name();
|
|
if ( part->hasSelection() )
|
|
query += "&systran_charset=utf-8&systran_text=";
|
|
else
|
|
query += "&systran_url=";
|
|
query += totrans;
|
|
} else {
|
|
// Using the altavista babelfish engine
|
|
result = KURL( "http://babelfish.altavista.com/babelfish/tr" );
|
|
query = "lp=";
|
|
query += sender()->name();
|
|
if ( part->hasSelection() )
|
|
query += "&text=";
|
|
else
|
|
query += "&url=";
|
|
query += totrans;
|
|
}
|
|
|
|
result.setQuery( query );
|
|
|
|
// Connect to the fish
|
|
emit part->browserExtension()->openURLRequest( result );
|
|
}
|
|
|
|
#include <plugin_babelfish.moc>
|