TDE
/
koffice
mirror of https://mirror.git.trinitydesktop.org/gitea/TDE/koffice
0
0
Fork 0
Code Issues Releases Wiki Activity
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.
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '56b40453cd'
${ noResults }
koffice/tools/thesaurus/main.cpp

818 lines
28 KiB
Raw Blame History

/*
$Id: main.cpp 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('&', "&amp;");
l = l.replace('<', "&lt;");
l = l.replace('>', "&gt;");
// 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-&gt;)(.*)");
// 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("(.*)(=&gt;|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"
View Git Blame Copy Permalink