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.
818 lines
28 KiB
818 lines
28 KiB
/*
|
|
$Id: main.cc 466447 2005-10-02 17:54:10Z zander $
|
|
This file is part of the KDE project
|
|
Copyright (C) 2001,2002,2003 Daniel Naber <daniel.naber@t-online.de>
|
|
This is a thesaurus based on a subset of WordNet. It also offers an
|
|
almost complete WordNet 1.7 frontend (WordNet is a powerful lexical
|
|
database/thesaurus)
|
|
*/
|
|
/***************************************************************************
|
|
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.
|
|
|
|
This program 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 General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
* Boston, MA 02110-1301, USA.
|
|
***************************************************************************/
|
|
|
|
/*
|
|
TODO:
|
|
-Be more verbose if the result is empty
|
|
-See the TODO's in the source below
|
|
|
|
-If no match was found, use KSpell to offer alternative spellings?
|
|
-Don't start WordNet before its tab is activated?
|
|
-Maybe remove more uncommon words. However, the "polysemy/familiarity
|
|
count" is sometimes very low for quite common word, e.g. "sky".
|
|
|
|
-Fix "no mimesource" warning of TQTextBrowser? Seems really harmless.
|
|
|
|
NOT TODO:
|
|
-Add part of speech information -- I think this would blow up the
|
|
filesize too much
|
|
*/
|
|
|
|
#include "main.h"
|
|
|
|
#include <tqfile.h>
|
|
#include <tqtoolbutton.h>
|
|
#include <kiconloader.h>
|
|
#include <tdefiledialog.h>
|
|
#include <tdeversion.h>
|
|
|
|
/***************************************************
|
|
*
|
|
* Factory
|
|
*
|
|
***************************************************/
|
|
|
|
typedef KGenericFactory<Thesaurus, KDataTool> ThesaurusFactory;
|
|
K_EXPORT_COMPONENT_FACTORY( libthesaurustool, ThesaurusFactory("thesaurus_tool") )
|
|
|
|
/***************************************************
|
|
*
|
|
* Thesaurus *
|
|
***************************************************/
|
|
|
|
Thesaurus::Thesaurus(TQObject* parent, const char* name, const TQStringList &)
|
|
: KDataTool(parent, name)
|
|
{
|
|
|
|
m_dialog = new KDialogBase(KJanusWidget::Plain, TQString(),
|
|
KDialogBase::Help|KDialogBase::Ok|KDialogBase::Cancel, KDialogBase::Ok);
|
|
m_dialog->setHelp(TQString(), "thesaurus");
|
|
m_dialog->resize(600, 400);
|
|
|
|
m_config = new TDEConfig("kthesaurusrc");
|
|
m_data_file = m_config->readPathEntry("datafile");
|
|
if( ! m_data_file ) {
|
|
m_data_file = TDEGlobal::dirs()->findResourceDir("data", "thesaurus/")
|
|
+ "thesaurus/thesaurus.txt";
|
|
}
|
|
setCaption();
|
|
|
|
m_no_match = i18n("(No match)");
|
|
|
|
m_replacement = false;
|
|
m_history_pos = 1;
|
|
|
|
m_page = m_dialog->plainPage();
|
|
TQVBoxLayout *m_top_layout = new TQVBoxLayout(m_page, KDialog::marginHint(), KDialog::spacingHint());
|
|
|
|
TQHBoxLayout *row1 = new TQHBoxLayout(m_top_layout);
|
|
m_edit = new KHistoryCombo(m_page);
|
|
m_edit_label = new TQLabel(m_edit, i18n("&Search for:"), m_page);
|
|
m_search = new KPushButton(i18n("S&earch"), m_page);
|
|
connect(m_search, TQT_SIGNAL(clicked()),
|
|
this, TQT_SLOT(slotFindTerm()));
|
|
row1->addWidget(m_edit_label, 0);
|
|
row1->addWidget(m_edit, 1);
|
|
row1->addWidget(m_search, 0);
|
|
m_back = new TQToolButton(m_page);
|
|
m_back->setIconSet(BarIconSet(TQString::fromLatin1("back")));
|
|
TQToolTip::add(m_back, i18n("Back"));
|
|
row1->addWidget(m_back, 0);
|
|
m_forward = new TQToolButton(m_page);
|
|
m_forward->setIconSet(BarIconSet(TQString::fromLatin1("forward")));
|
|
TQToolTip::add(m_forward, i18n("Forward"));
|
|
row1->addWidget(m_forward, 0);
|
|
m_lang = new KPushButton(i18n("Change Language..."), m_page);
|
|
connect(m_lang, TQT_SIGNAL(clicked()), this, TQT_SLOT(slotChangeLanguage()));
|
|
row1->addWidget(m_lang, 0);
|
|
|
|
connect(m_back, TQT_SIGNAL(clicked()), this, TQT_SLOT(slotBack()));
|
|
connect(m_forward, TQT_SIGNAL(clicked()), this, TQT_SLOT(slotForward()));
|
|
|
|
m_tab = new TQTabWidget(m_page);
|
|
m_top_layout->addWidget(m_tab);
|
|
|
|
//
|
|
// Thesaurus Tab
|
|
//
|
|
|
|
vbox = new TQVBox(m_tab);
|
|
m_tab->addTab(vbox, i18n("&Thesaurus"));
|
|
vbox->setMargin(KDialog::marginHint());
|
|
vbox->setSpacing(KDialog::spacingHint());
|
|
|
|
TQHBox *hbox = new TQHBox(vbox);
|
|
hbox->setSpacing(KDialog::spacingHint());
|
|
|
|
grpbox_syn = new TQGroupBox( 1, Qt::Horizontal, i18n("Synonyms"), hbox);
|
|
m_thes_syn = new TQListBox(grpbox_syn);
|
|
|
|
grpbox_hyper = new TQGroupBox( 1, Qt::Horizontal, i18n("More General Words"), hbox);
|
|
m_thes_hyper = new TQListBox(grpbox_hyper);
|
|
|
|
grpbox_hypo = new TQGroupBox( 1, Qt::Horizontal, i18n("More Specific Words"), hbox);
|
|
m_thes_hypo = new TQListBox(grpbox_hypo);
|
|
|
|
// single click -- keep display unambiguous by removing other selections:
|
|
|
|
connect(m_thes_syn, TQT_SIGNAL(clicked(TQListBoxItem *)), m_thes_hyper, TQT_SLOT(clearSelection()));
|
|
connect(m_thes_syn, TQT_SIGNAL(clicked(TQListBoxItem *)), m_thes_hypo, TQT_SLOT(clearSelection()));
|
|
connect(m_thes_syn, TQT_SIGNAL(selectionChanged(TQListBoxItem *)),
|
|
this, TQT_SLOT(slotSetReplaceTerm(TQListBoxItem *)));
|
|
|
|
connect(m_thes_hyper, TQT_SIGNAL(clicked(TQListBoxItem *)), m_thes_syn, TQT_SLOT(clearSelection()));
|
|
connect(m_thes_hyper, TQT_SIGNAL(clicked(TQListBoxItem *)), m_thes_hypo, TQT_SLOT(clearSelection()));
|
|
connect(m_thes_hyper, TQT_SIGNAL(selectionChanged(TQListBoxItem *)),
|
|
this, TQT_SLOT(slotSetReplaceTerm(TQListBoxItem *)));
|
|
|
|
connect(m_thes_hypo, TQT_SIGNAL(clicked(TQListBoxItem *)), m_thes_syn, TQT_SLOT(clearSelection()));
|
|
connect(m_thes_hypo, TQT_SIGNAL(clicked(TQListBoxItem *)), m_thes_hyper, TQT_SLOT(clearSelection()));
|
|
connect(m_thes_hypo, TQT_SIGNAL(selectionChanged(TQListBoxItem *)),
|
|
this, TQT_SLOT(slotSetReplaceTerm(TQListBoxItem *)));
|
|
|
|
// double click:
|
|
connect(m_thes_syn, TQT_SIGNAL(selected(const TQString &)),
|
|
this, TQT_SLOT(slotFindTerm(const TQString &)));
|
|
connect(m_thes_hyper, TQT_SIGNAL(selected(const TQString &)),
|
|
this, TQT_SLOT(slotFindTerm(const TQString &)));
|
|
connect(m_thes_hypo, TQT_SIGNAL(selected(const TQString &)),
|
|
this, TQT_SLOT(slotFindTerm(const TQString &)));
|
|
|
|
//
|
|
// WordNet Tab
|
|
//
|
|
|
|
vbox2 = new TQVBox(m_tab);
|
|
m_tab->addTab(vbox2, i18n("&WordNet"));
|
|
vbox2->setMargin(KDialog::marginHint());
|
|
vbox2->setSpacing(KDialog::spacingHint());
|
|
|
|
m_combobox = new TQComboBox(vbox2);
|
|
m_combobox->setEditable(false);
|
|
connect(m_combobox, TQT_SIGNAL(activated(int)), this, TQT_SLOT(slotFindTerm()));
|
|
|
|
m_resultbox = new TQTextBrowser(vbox2);
|
|
m_resultbox->setTextFormat(TQt::RichText);
|
|
// TODO?: m_resultbox->setMimeSourceFactory(...); to avoid warning
|
|
connect(m_resultbox, TQT_SIGNAL(linkClicked(const TQString &)),
|
|
this, TQT_SLOT(slotFindTerm(const TQString &)));
|
|
|
|
// Connect for the history box
|
|
m_edit->setTrapReturnKey(true); // Do not use Return as default key...
|
|
connect(m_edit, TQT_SIGNAL(returnPressed(const TQString&)), this, TQT_SLOT(slotFindTerm(const TQString&)));
|
|
connect(m_edit, TQT_SIGNAL(activated(int)), this, TQT_SLOT(slotGotoHistory(int)));
|
|
|
|
TQHBoxLayout *row2 = new TQHBoxLayout( m_top_layout );
|
|
m_replace = new KLineEdit(m_page);
|
|
m_replace_label = new TQLabel(m_replace, i18n("&Replace with:"), m_page);
|
|
row2->addWidget(m_replace_label, 0);
|
|
row2->addWidget(m_replace, 1);
|
|
|
|
// Set focus
|
|
m_edit->setFocus();
|
|
slotUpdateNavButtons();
|
|
|
|
//
|
|
// The external command stuff
|
|
//
|
|
|
|
// calling the 'wn' binary
|
|
m_wnproc = new TDEProcess;
|
|
connect(m_wnproc, TQT_SIGNAL(processExited(TDEProcess*)), this, TQT_SLOT(wnExited(TDEProcess*)));
|
|
connect(m_wnproc, TQT_SIGNAL(receivedStdout(TDEProcess*,char*,int)),
|
|
this, TQT_SLOT(receivedWnStdout(TDEProcess*, char*, int)));
|
|
connect(m_wnproc, TQT_SIGNAL(receivedStderr(TDEProcess*,char*,int)),
|
|
this, TQT_SLOT(receivedWnStderr(TDEProcess*, char*, int)));
|
|
|
|
// grep'ing the text file
|
|
m_thesproc = new TDEProcess;
|
|
connect(m_thesproc, TQT_SIGNAL(processExited(TDEProcess*)), this, TQT_SLOT(thesExited(TDEProcess*)));
|
|
connect(m_thesproc, TQT_SIGNAL(receivedStdout(TDEProcess*,char*,int)),
|
|
this, TQT_SLOT(receivedThesStdout(TDEProcess*, char*, int)));
|
|
connect(m_thesproc, TQT_SIGNAL(receivedStderr(TDEProcess*,char*,int)),
|
|
this, TQT_SLOT(receivedThesStderr(TDEProcess*, char*, int)));
|
|
|
|
}
|
|
|
|
|
|
Thesaurus::~Thesaurus()
|
|
{
|
|
m_config->writePathEntry("datafile", m_data_file);
|
|
m_config->sync();
|
|
delete m_config;
|
|
// FIXME?: this hopefully fixes the problem of a wrong cursor
|
|
// and a crash (when closing e.g. konqueror) when the thesaurus dialog
|
|
// gets close while it was still working and showing the wait cursor
|
|
TQApplication::restoreOverrideCursor();
|
|
delete m_thesproc;
|
|
delete m_wnproc;
|
|
delete m_dialog;
|
|
}
|
|
|
|
|
|
bool Thesaurus::run(const TQString& command, void* data, const TQString& datatype, const TQString& mimetype)
|
|
{
|
|
|
|
// Check whether we can accept the data
|
|
if ( datatype != TQSTRING_OBJECT_NAME_STRING ) {
|
|
kdDebug(31000) << "Thesaurus only accepts datatype TQString" << endl;
|
|
return FALSE;
|
|
}
|
|
if ( mimetype != "text/plain" ) {
|
|
kdDebug(31000) << "Thesaurus only accepts mimetype text/plain" << endl;
|
|
return FALSE;
|
|
}
|
|
|
|
if ( command == "thesaurus" ) {
|
|
// not called from an application like KWord, so make it possible
|
|
// to replace text:
|
|
m_replacement = true;
|
|
m_dialog->setButtonOKText(i18n("&Replace"));
|
|
} else if ( command == "thesaurus_standalone" ) {
|
|
// not called from any application, but from KThesaurus
|
|
m_replacement = false;
|
|
m_dialog->showButtonOK(false);
|
|
m_dialog->setButtonCancelText(i18n("&Close"));
|
|
m_replace->setEnabled(false);
|
|
m_replace_label->setEnabled(false);
|
|
} else {
|
|
kdDebug(31000) << "Thesaurus does only accept the command 'thesaurus' or 'thesaurus_standalone'" << endl;
|
|
kdDebug(31000) << "The command " << command << " is not accepted" << endl;
|
|
return FALSE;
|
|
}
|
|
|
|
// Get data and clean it up:
|
|
TQString buffer = *((TQString *)data);
|
|
buffer = buffer.stripWhiteSpace();
|
|
TQRegExp re("[.,;!?\"'()\\[\\]]");
|
|
buffer.remove(re);
|
|
buffer = buffer.left(100); // limit maximum length
|
|
|
|
m_wnproc_stdout = "";
|
|
m_wnproc_stderr = "";
|
|
|
|
m_thesproc_stdout = "";
|
|
m_thesproc_stderr = "";
|
|
|
|
if( ! buffer.isEmpty() ) {
|
|
slotFindTerm(buffer);
|
|
}
|
|
|
|
if( m_dialog->exec() == TQDialog::Accepted ) { // "Replace"
|
|
*((TQString*)data) = m_replace->text();
|
|
}
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
void Thesaurus::slotChangeLanguage()
|
|
{
|
|
TQString filename = KFileDialog::getOpenFileName(
|
|
TDEGlobal::dirs()->findResourceDir("data", "thesaurus/")+"thesaurus/");
|
|
if( !filename.isNull() ) {
|
|
m_data_file = filename;
|
|
setCaption();
|
|
}
|
|
}
|
|
|
|
void Thesaurus::setCaption()
|
|
{
|
|
KURL url = KURL();
|
|
url.setPath(m_data_file);
|
|
m_dialog->setCaption(i18n("Related Words - %1").arg(url.fileName()));
|
|
}
|
|
|
|
// Enbale or disable back and forward button
|
|
void Thesaurus::slotUpdateNavButtons()
|
|
{
|
|
if( m_history_pos <= 1 ) { // 1 = first position
|
|
m_back->setEnabled(false);
|
|
} else {
|
|
m_back->setEnabled(true);
|
|
}
|
|
if( m_history_pos >= m_edit->count() ) {
|
|
m_forward->setEnabled(false);
|
|
} else {
|
|
m_forward->setEnabled(true);
|
|
}
|
|
}
|
|
|
|
// Go to an item from the editbale combo box.
|
|
void Thesaurus::slotGotoHistory(int index)
|
|
{
|
|
m_history_pos = m_edit->count() - index;
|
|
slotFindTerm(m_edit->text(index), false);
|
|
}
|
|
|
|
// Triggered when the back button is clicked.
|
|
void Thesaurus::slotBack()
|
|
{
|
|
m_history_pos--;
|
|
int pos = m_edit->count() - m_history_pos;
|
|
m_edit->setCurrentItem(pos);
|
|
slotFindTerm(m_edit->text(pos), false);
|
|
}
|
|
|
|
// Triggered when the forward button is clicked.
|
|
void Thesaurus::slotForward()
|
|
{
|
|
m_history_pos++;
|
|
int pos = m_edit->count() - m_history_pos;
|
|
m_edit->setCurrentItem(pos);
|
|
slotFindTerm(m_edit->text(pos), false);
|
|
}
|
|
|
|
// Triggered when a word is selected in the list box.
|
|
void Thesaurus::slotSetReplaceTerm(TQListBoxItem *item)
|
|
{
|
|
if( ! item )
|
|
return;
|
|
m_replace->setText(item->text());
|
|
}
|
|
|
|
void Thesaurus::slotSetReplaceTerm(const TQString &term)
|
|
{
|
|
if( m_replacement && term != m_no_match ) {
|
|
m_replace->setText(term);
|
|
}
|
|
}
|
|
|
|
// Triggered when Return is pressed.
|
|
void Thesaurus::slotFindTerm()
|
|
{
|
|
findTerm(m_edit->currentText());
|
|
}
|
|
|
|
// Triggered when a word is clicked / a list item is double-clicked.
|
|
void Thesaurus::slotFindTerm(const TQString &term, bool add_to_history)
|
|
{
|
|
slotSetReplaceTerm(term);
|
|
if( term.startsWith("http://") ) {
|
|
(void) new KRun(KURL(term));
|
|
} else {
|
|
if( add_to_history ) {
|
|
m_edit->insertItem(term, 0);
|
|
m_history_pos = m_edit->count();
|
|
m_edit->setCurrentItem(0);
|
|
}
|
|
slotUpdateNavButtons();
|
|
findTerm(term);
|
|
}
|
|
}
|
|
|
|
void Thesaurus::findTerm(const TQString &term)
|
|
{
|
|
findTermThesaurus(term);
|
|
findTermWordnet(term);
|
|
}
|
|
|
|
|
|
//
|
|
// Thesaurus
|
|
//
|
|
void Thesaurus::findTermThesaurus(const TQString &term)
|
|
{
|
|
|
|
if( !TQFile::exists(m_data_file) ) {
|
|
KMessageBox::error(0, i18n("The thesaurus file '%1' was not found. "
|
|
"Please use 'Change Language...' to select a thesaurus file.").
|
|
arg(m_data_file));
|
|
return;
|
|
}
|
|
|
|
TQApplication::setOverrideCursor(KCursor::waitCursor());
|
|
|
|
m_thesproc_stdout = "";
|
|
m_thesproc_stderr = "";
|
|
|
|
// Find only whole words. Looks clumsy, but this way we don't have to rely on
|
|
// features that might only be in certain versions of grep:
|
|
TQString term_tmp = ";" + term.stripWhiteSpace() + ";";
|
|
m_thesproc->clearArguments();
|
|
*m_thesproc << "grep" << "-i" << term_tmp;
|
|
*m_thesproc << m_data_file;
|
|
|
|
if( !m_thesproc->start(TDEProcess::NotifyOnExit, TDEProcess::AllOutput) ) {
|
|
KMessageBox::error(0, i18n("Failed to execute grep."));
|
|
TQApplication::restoreOverrideCursor();
|
|
return;
|
|
}
|
|
}
|
|
|
|
// The external process has ended, so we parse its result and put it in
|
|
// the list box.
|
|
void Thesaurus::thesExited(TDEProcess *)
|
|
{
|
|
|
|
if( !m_thesproc_stderr.isEmpty() ) {
|
|
KMessageBox::error(0, i18n("<b>Error:</b> Failed to execute grep. "
|
|
"Output:<br>%1").arg(m_thesproc_stderr));
|
|
TQApplication::restoreOverrideCursor();
|
|
return;
|
|
}
|
|
|
|
TQString search_term = m_edit->currentText().stripWhiteSpace();
|
|
|
|
TQStringList syn;
|
|
TQStringList hyper;
|
|
TQStringList hypo;
|
|
|
|
TQStringList lines = lines.split(TQChar('\n'), m_thesproc_stdout, false);
|
|
for ( TQStringList::Iterator it = lines.begin(); it != lines.end(); ++it ) {
|
|
TQString line = (*it);
|
|
if( line.startsWith(" ") ) { // ignore license (two spaces)
|
|
continue;
|
|
}
|
|
int sep_pos = line.find("#");
|
|
TQString syn_part = line.left(sep_pos);
|
|
TQString hyper_part = line.right(line.length()-sep_pos-1);
|
|
TQStringList syn_tmp = TQStringList::split(TQChar(';'), syn_part);
|
|
TQStringList hyper_tmp = TQStringList::split(TQChar(';'), hyper_part);
|
|
if( syn_tmp.grep(search_term, false).size() > 0 ) {
|
|
// match on the left side of the '#' -- synonyms
|
|
for ( TQStringList::Iterator it2 = syn_tmp.begin(); it2 != syn_tmp.end(); ++it2 ) {
|
|
// add if it's not the term itself and if it's not yet in the list
|
|
TQString term = (*it2);
|
|
if( term.lower() != search_term.lower() && syn.contains(term) == 0 ) {
|
|
syn.append(term);
|
|
}
|
|
}
|
|
for ( TQStringList::Iterator it2 = hyper_tmp.begin(); it2 != hyper_tmp.end(); ++it2 ) {
|
|
TQString term = (*it2);
|
|
if( term.lower() != search_term.lower() && hyper.contains(term) == 0 ) {
|
|
hyper.append(term);
|
|
}
|
|
}
|
|
}
|
|
if( hyper_tmp.grep(search_term, false).size() > 0 ) {
|
|
// match on the right side of the '#' -- hypernyms
|
|
for ( TQStringList::Iterator it2 = syn_tmp.begin(); it2 != syn_tmp.end(); ++it2 ) {
|
|
TQString term = (*it2);
|
|
if( term.lower() != search_term && hypo.contains(term) == 0 ) {
|
|
hypo.append(term);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
m_thes_syn->clear();
|
|
if( syn.size() > 0 ) {
|
|
syn = sortTQStringList(syn);
|
|
m_thes_syn->insertStringList(syn);
|
|
m_thes_syn->setEnabled(true);
|
|
} else {
|
|
m_thes_syn->insertItem(m_no_match);
|
|
m_thes_syn->setEnabled(false);
|
|
}
|
|
|
|
m_thes_hyper->clear();
|
|
if( hyper.size() > 0 ) {
|
|
hyper = sortTQStringList(hyper);
|
|
m_thes_hyper->insertStringList(hyper);
|
|
m_thes_hyper->setEnabled(true);
|
|
} else {
|
|
m_thes_hyper->insertItem(m_no_match);
|
|
m_thes_hyper->setEnabled(false);
|
|
}
|
|
|
|
m_thes_hypo->clear();
|
|
if( hypo.size() > 0 ) {
|
|
hypo = sortTQStringList(hypo);
|
|
m_thes_hypo->insertStringList(hypo);
|
|
m_thes_hypo->setEnabled(true);
|
|
} else {
|
|
m_thes_hypo->insertItem(m_no_match);
|
|
m_thes_hypo->setEnabled(false);
|
|
}
|
|
|
|
TQApplication::restoreOverrideCursor();
|
|
}
|
|
|
|
void Thesaurus::receivedThesStdout(TDEProcess *, char *result, int len)
|
|
{
|
|
m_thesproc_stdout += TQString::fromLocal8Bit( TQCString(result, len+1) );
|
|
}
|
|
|
|
void Thesaurus::receivedThesStderr(TDEProcess *, char *result, int len)
|
|
{
|
|
m_thesproc_stderr += TQString::fromLocal8Bit( TQCString(result, len+1) );
|
|
}
|
|
|
|
|
|
//
|
|
// WordNet
|
|
//
|
|
void Thesaurus::findTermWordnet(const TQString &term)
|
|
{
|
|
TQApplication::setOverrideCursor(KCursor::waitCursor());
|
|
|
|
m_wnproc_stdout = "";
|
|
m_wnproc_stderr = "";
|
|
|
|
m_wnproc->clearArguments();
|
|
*m_wnproc << "wn";
|
|
*m_wnproc << term;
|
|
|
|
// get all results: nouns, verbs, adjectives, adverbs (see below for order):
|
|
if( m_combobox->currentItem() == 0 ) {
|
|
*m_wnproc << "-synsn" << "-synsv" << "-synsa" << "-synsr";
|
|
m_mode = other;
|
|
} else if( m_combobox->currentItem() == 1 ) {
|
|
*m_wnproc << "-simsv";
|
|
m_mode = other;
|
|
} else if( m_combobox->currentItem() == 2 ) {
|
|
*m_wnproc << "-antsn" << "-antsv" << "-antsa" << "-antsr";
|
|
m_mode = other;
|
|
} else if( m_combobox->currentItem() == 3 ) {
|
|
*m_wnproc << "-hypon" << "-hypov";
|
|
m_mode = other;
|
|
} else if( m_combobox->currentItem() == 4 ) {
|
|
*m_wnproc << "-meron";
|
|
m_mode = other;
|
|
} else if( m_combobox->currentItem() == 5 ) {
|
|
*m_wnproc << "-holon";
|
|
m_mode = other;
|
|
} else if( m_combobox->currentItem() == 6 ) {
|
|
// e.g. "size -> large/small"
|
|
*m_wnproc << "-attrn" << "-attra";
|
|
m_mode = other;
|
|
} else if( m_combobox->currentItem() == 7 ) {
|
|
// e.g. "kill -> die"
|
|
*m_wnproc << "-causv";
|
|
m_mode = other;
|
|
} else if( m_combobox->currentItem() == 8 ) {
|
|
// e.g. "walk -> step"
|
|
*m_wnproc << "-entav";
|
|
m_mode = other;
|
|
} else if( m_combobox->currentItem() == 9 ) {
|
|
*m_wnproc << "-famln" << "-famlv" << "-famla" << "-famlr";
|
|
m_mode = other;
|
|
} else if( m_combobox->currentItem() == 10 ) {
|
|
*m_wnproc << "-framv";
|
|
m_mode = other;
|
|
} else if( m_combobox->currentItem() == 11 ) {
|
|
*m_wnproc << "-grepn" << "-grepv" << "-grepa" << "-grepr";
|
|
m_mode = grep;
|
|
} else if( m_combobox->currentItem() == 12 ) {
|
|
*m_wnproc << "-over";
|
|
m_mode = other;
|
|
}
|
|
*m_wnproc << "-g"; // "Display gloss"
|
|
|
|
int current = m_combobox->currentItem(); // remember current position
|
|
m_combobox->clear();
|
|
|
|
// warning: order matters!
|
|
// 0:
|
|
m_combobox->insertItem(i18n("Synonyms/Hypernyms - Ordered by Frequency"));
|
|
m_combobox->insertItem(i18n("Synonyms - Ordered by Similarity of Meaning (verbs only)"));
|
|
m_combobox->insertItem(i18n("Antonyms - Words with Opposite Meanings"));
|
|
m_combobox->insertItem(i18n("Hyponyms - ... is a (kind of) %1").arg(m_edit->currentText()));
|
|
m_combobox->insertItem(i18n("Meronyms - %1 has a ...").arg(m_edit->currentText()));
|
|
// 5:
|
|
m_combobox->insertItem(i18n("Holonyms - ... has a %1").arg(m_edit->currentText()));
|
|
m_combobox->insertItem(i18n("Attributes"));
|
|
m_combobox->insertItem(i18n("Cause To (for some verbs only)"));
|
|
m_combobox->insertItem(i18n("Verb Entailment (for some verbs only)"));
|
|
m_combobox->insertItem(i18n("Familiarity & Polysemy Count"));
|
|
// 10:
|
|
m_combobox->insertItem(i18n("Verb Frames (examples of use)"));
|
|
m_combobox->insertItem(i18n("List of Compound Words"));
|
|
m_combobox->insertItem(i18n("Overview of Senses"));
|
|
|
|
/** NOT todo:
|
|
* -Hypernym tree: layout is difficult, you can get the same information
|
|
* by following links
|
|
* -Coordinate terms (sisters): just go to synset and then use hyponyms
|
|
* -Has Part Meronyms, Has Substance Meronyms, Has Member Meronyms,
|
|
* Member of Holonyms, Substance of Holonyms, Part of Holonyms:
|
|
* these are just subsets of Meronyms/Holonyms
|
|
* -hmern, hholn: these are just compact versions, you can get the
|
|
* same information by following some links
|
|
*/
|
|
|
|
/** TODO?:
|
|
* -pert (e.g. nuclear -> nuclues, but "=>" are nested, difficult to display)
|
|
* -nomn(n|v), e.g. deny -> denial, but this doesn't seem to work?
|
|
*/
|
|
|
|
m_combobox->setCurrentItem(current); // reset previous position
|
|
|
|
if( m_wnproc->isRunning() ) {
|
|
// should never happen
|
|
kdDebug(31000) << "Warning: findTerm(): process is already running?!" << endl;
|
|
TQApplication::restoreOverrideCursor();
|
|
return;
|
|
}
|
|
|
|
if( !m_wnproc->start(TDEProcess::NotifyOnExit, TDEProcess::AllOutput) ) {
|
|
m_resultbox->setText(i18n("<b>Error:</b> Failed to execute the WordNet program 'wn'. "
|
|
"WordNet has to be installed on your computer to use this component of kthesaurus, "
|
|
"and 'wn' has to be available in your $PATH environment variable. "
|
|
"Look for a WordNet package from your upstream distro package repository. "
|
|
"Or you can obtain WordNet at <a href=\"http://wordnet.princeton.edu/wordnet/download/current-version/\">"
|
|
"http://wordnet.princeton.edu/wordnet/download/current-version/</a>. "
|
|
"Notice that WordNet only supports the English language."));
|
|
m_combobox->setEnabled(false);
|
|
TQApplication::restoreOverrideCursor();
|
|
return;
|
|
}
|
|
|
|
}
|
|
|
|
// The process has ended, so parse its result and display it as TQt richtext.
|
|
void Thesaurus::wnExited(TDEProcess *)
|
|
{
|
|
|
|
if( !m_wnproc_stderr.isEmpty() ) {
|
|
m_resultbox->setText(i18n("<b>Error:</b> Failed to execute WordNet program 'wn'. "
|
|
"Output:<br>%1").arg(m_wnproc_stderr));
|
|
TQApplication::restoreOverrideCursor();
|
|
return;
|
|
}
|
|
|
|
if( m_wnproc_stdout.isEmpty() ) {
|
|
m_resultbox->setText(i18n("No match for '%1'.").arg(m_edit->currentText()));
|
|
} else {
|
|
// render in a table, each line one row:
|
|
TQStringList lines = lines.split(TQChar('\n'), m_wnproc_stdout, false);
|
|
TQString result = "<qt><table>\n";
|
|
// TODO in TQt > 3.01: try without the following line (it's necessary to ensure the
|
|
// first column is really always quite small):
|
|
result += "<tr><td width=\"10%\"></td><td width=\"90%\"></td></tr>\n";
|
|
uint ct = 0;
|
|
for ( TQStringList::Iterator it = lines.begin(); it != lines.end(); ++it ) {
|
|
TQString l = (*it);
|
|
// Remove some lines:
|
|
TQRegExp re("^\\d+( of \\d+)? senses? of \\w+");
|
|
if( re.search(l) != -1 ) {
|
|
continue;
|
|
}
|
|
// Escape XML:
|
|
l = l.replace('&', "&");
|
|
l = l.replace('<', "<");
|
|
l = l.replace('>', ">");
|
|
// TODO?:
|
|
// move "=>" in own column?
|
|
l = formatLine(l);
|
|
// Table layout:
|
|
result += "<tr>";
|
|
if( l.startsWith(" ") ) {
|
|
result += "\t<td width=\"15\"></td>";
|
|
l = l.stripWhiteSpace();
|
|
result += "\t<td>" + l + "</td>";
|
|
} else {
|
|
l = l.stripWhiteSpace();
|
|
result += "<td colspan=\"2\">" + l + "</td>";
|
|
}
|
|
result += "</tr>\n";
|
|
ct++;
|
|
}
|
|
result += "\n</table></qt>\n";
|
|
m_resultbox->setText(result);
|
|
m_resultbox->setContentsPos(0,0);
|
|
//kdDebug() << result << endl;
|
|
}
|
|
|
|
TQApplication::restoreOverrideCursor();
|
|
}
|
|
|
|
void Thesaurus::receivedWnStdout(TDEProcess *, char *result, int len)
|
|
{
|
|
m_wnproc_stdout += TQString::fromLocal8Bit( TQCString(result, len+1) );
|
|
}
|
|
|
|
void Thesaurus::receivedWnStderr(TDEProcess *, char *result, int len)
|
|
{
|
|
m_wnproc_stderr += TQString::fromLocal8Bit( TQCString(result, len+1) );
|
|
}
|
|
|
|
|
|
//
|
|
// Tools
|
|
//
|
|
|
|
// Format lines using TQt's simple richtext.
|
|
TQString Thesaurus::formatLine(TQString l)
|
|
{
|
|
|
|
if( l == "--------------" ) {
|
|
return TQString("<hr>");
|
|
}
|
|
|
|
TQRegExp re;
|
|
|
|
re.setPattern("^(\\d+\\.)(.*)$");
|
|
if( re.search(l) != -1 ) {
|
|
l = "<b>" +re.cap(1)+ "</b>" +re.cap(2);
|
|
return l;
|
|
}
|
|
|
|
re.setPattern("^.* of (noun|verb|adj|adv) .*");
|
|
if( re.search(l) != -1 ) {
|
|
l = "<font size=\"5\">" +re.cap()+ "</font>\n\n";
|
|
return l;
|
|
}
|
|
|
|
if( m_mode == grep ) {
|
|
l = l.stripWhiteSpace();
|
|
return TQString("<a href=\"" +l+ "\">" +l+ "</a>");
|
|
}
|
|
|
|
re.setPattern("^(Sense \\d+)");
|
|
if( re.search(l) != -1 ) {
|
|
l = "<b>" +re.cap()+ "</b>\n";
|
|
return l;
|
|
}
|
|
|
|
re.setPattern("(.*)(Also See->)(.*)");
|
|
// Example: first sense of verb "keep"
|
|
if( re.search(l) != -1 ) {
|
|
l = re.cap(1);
|
|
l += re.cap(2);
|
|
TQStringList links = links.split(TQChar(';'), re.cap(3), false);
|
|
for ( TQStringList::Iterator it = links.begin(); it != links.end(); ++it ) {
|
|
TQString link = (*it);
|
|
if( it != links.begin() ) {
|
|
l += ", ";
|
|
}
|
|
link = link.stripWhiteSpace();
|
|
link = link.remove(TQRegExp("#\\d+"));
|
|
l += "<a href=\"" +link+ "\">" +link+ "</a>";
|
|
}
|
|
l.prepend (' '); // indent in table
|
|
}
|
|
|
|
re.setPattern("(.*)(=>|HAS \\w+:|PART OF:)(.*) --");
|
|
re.setMinimal(true); // non-greedy
|
|
if( re.search(l) != -1 ) {
|
|
int dash_pos = l.find("--");
|
|
TQString line_end = l.mid(dash_pos+2, l.length()-dash_pos);
|
|
l = re.cap(1);
|
|
l += re.cap(2) + " ";
|
|
TQStringList links = links.split(TQChar(','), re.cap(3), false);
|
|
for ( TQStringList::Iterator it = links.begin(); it != links.end(); ++it ) {
|
|
TQString link = (*it);
|
|
if( it != links.begin() ) {
|
|
l += ", ";
|
|
}
|
|
link = link.stripWhiteSpace();
|
|
l += "<a href=\"" +link+ "\">" +link+ "</a>";
|
|
}
|
|
l += "<font color=\"#777777\">" +line_end+ "</font>";
|
|
l.prepend(' '); // indent in table
|
|
return l;
|
|
}
|
|
re.setMinimal(false); // greedy again
|
|
|
|
return l;
|
|
}
|
|
|
|
/**
|
|
* Sort a list case insensitively.
|
|
* Be careful: @p list is modified
|
|
* TODO: use ksortablevaluelist?
|
|
*/
|
|
TQStringList Thesaurus::sortTQStringList(TQStringList list)
|
|
{
|
|
// Sort list case-insensitive. This looks strange but using a TQMap
|
|
// is even suggested by the TQt documentation.
|
|
TQMap<TQString,TQString> map_list;
|
|
for ( TQStringList::Iterator it = list.begin(); it != list.end(); ++it ) {
|
|
TQString str = *it;
|
|
map_list[str.lower()] = str;
|
|
}
|
|
list.clear();
|
|
TQMap<TQString,TQString>::Iterator it;
|
|
// TQt doc: "the items are alphabetically sorted [by key] when iterating over the map":
|
|
for( it = map_list.begin(); it != map_list.end(); ++it ) {
|
|
list.append(it.data());
|
|
}
|
|
return list;
|
|
}
|
|
|
|
#include "main.moc"
|