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.
290 lines
8.2 KiB
290 lines
8.2 KiB
/*
|
|
Copyright (C) 2002 by Roberto Raggi <roberto@tdevelop.org>
|
|
|
|
This library is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU Library General Public
|
|
version 2, License 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 "problemreporter.h"
|
|
#include "pascalsupport_part.h"
|
|
#include "kdevpartcontroller.h"
|
|
#include "kdevmainwindow.h"
|
|
#include "configproblemreporter.h"
|
|
#include "backgroundparser.h"
|
|
|
|
#include <tdeversion.h>
|
|
#include <kparts/part.h>
|
|
#include <ktexteditor/editinterface.h>
|
|
#include <ktexteditor/document.h>
|
|
#include <ktexteditor/markinterface.h>
|
|
|
|
#include <ktexteditor/markinterfaceextension.h>
|
|
|
|
#include <kdebug.h>
|
|
#include <klocale.h>
|
|
#include <kstatusbar.h>
|
|
#include <kurl.h>
|
|
#include <kapplication.h>
|
|
#include <kiconloader.h>
|
|
|
|
#include <kconfig.h>
|
|
|
|
#include <tqtimer.h>
|
|
#include <tqregexp.h>
|
|
#include <tqvbox.h>
|
|
#include <kdialogbase.h>
|
|
|
|
|
|
class ProblemItem: public TQListViewItem{
|
|
public:
|
|
ProblemItem( TQListView* parent, const TQString& level, const TQString& problem,
|
|
const TQString& file, const TQString& line, const TQString& column )
|
|
: TQListViewItem( parent, level, problem, file, line, column ) {}
|
|
|
|
ProblemItem( TQListViewItem* parent, const TQString& level, const TQString& problem,
|
|
const TQString& file, const TQString& line, const TQString& column )
|
|
: TQListViewItem( parent, level, problem, file, line, column ) {}
|
|
|
|
int compare( TQListViewItem* item, int column, bool ascending ) const {
|
|
if( column == 3 || column == 4 ){
|
|
int a = text( column ).toInt();
|
|
int b = item->text( column ).toInt();
|
|
if( a == b )
|
|
return 0;
|
|
return( a > b ? -1 : 1 );
|
|
}
|
|
return TQListViewItem::compare( item, column, ascending );
|
|
}
|
|
|
|
};
|
|
|
|
ProblemReporter::ProblemReporter( PascalSupportPart* part, TQWidget* parent, const char* name )
|
|
: TQListView( parent, name ),
|
|
m_pascalSupport( part ),
|
|
m_editor( 0 ),
|
|
m_document( 0 ),
|
|
m_markIface( 0 ),
|
|
m_bgParser( 0 )
|
|
{
|
|
addColumn( i18n("Level") );
|
|
addColumn( i18n("Problem") );
|
|
addColumn( i18n("File") );
|
|
addColumn( i18n("Line") );
|
|
//addColumn( i18n("Column") );
|
|
setAllColumnsShowFocus( TRUE );
|
|
|
|
m_timer = new TQTimer( this );
|
|
|
|
connect( part->partController(), TQT_SIGNAL(activePartChanged(KParts::Part*)),
|
|
this, TQT_SLOT(slotActivePartChanged(KParts::Part*)) );
|
|
connect( part->partController(), TQT_SIGNAL(partAdded(KParts::Part*)),
|
|
this, TQT_SLOT(slotPartAdded(KParts::Part*)) );
|
|
connect( part->partController(), TQT_SIGNAL(partRemoved(KParts::Part*)),
|
|
this, TQT_SLOT(slotPartRemoved(KParts::Part*)) );
|
|
|
|
connect( m_timer, TQT_SIGNAL(timeout()), this, TQT_SLOT(reparse()) );
|
|
|
|
connect( this, TQT_SIGNAL(doubleClicked(TQListViewItem*)),
|
|
this, TQT_SLOT(slotSelected(TQListViewItem*)) );
|
|
connect( this, TQT_SIGNAL(returnPressed(TQListViewItem*)),
|
|
this, TQT_SLOT(slotSelected(TQListViewItem*)) );
|
|
|
|
configure();
|
|
}
|
|
|
|
ProblemReporter::~ProblemReporter()
|
|
{
|
|
if( m_bgParser ) {
|
|
m_bgParser->wait();
|
|
}
|
|
|
|
delete( m_bgParser );
|
|
m_bgParser = 0;
|
|
}
|
|
|
|
void ProblemReporter::slotActivePartChanged( KParts::Part* part )
|
|
{
|
|
if( !part )
|
|
return;
|
|
|
|
if( m_editor )
|
|
reparse();
|
|
|
|
m_document = dynamic_cast<KTextEditor::Document*>( part );
|
|
if( m_document ){
|
|
m_filename = m_document->url().path();
|
|
}
|
|
|
|
m_editor = dynamic_cast<KTextEditor::EditInterface*>( part );
|
|
if( m_editor )
|
|
connect( m_document, TQT_SIGNAL(textChanged()), this, TQT_SLOT(slotTextChanged()) );
|
|
|
|
m_markIface = dynamic_cast<KTextEditor::MarkInterface*>( part );
|
|
|
|
m_timer->changeInterval( m_delay );
|
|
}
|
|
|
|
void ProblemReporter::slotTextChanged()
|
|
{
|
|
if( m_active )
|
|
m_timer->changeInterval( m_delay );
|
|
}
|
|
|
|
void ProblemReporter::reparse()
|
|
{
|
|
kdDebug(9007) << "ProblemReporter::reparse()" << endl;
|
|
|
|
kdDebug() << "1" << endl;
|
|
|
|
if( !m_editor )
|
|
return;
|
|
|
|
kdDebug() << "2" << endl;
|
|
|
|
m_timer->stop();
|
|
|
|
kdDebug() << "3" << endl;
|
|
|
|
if( m_bgParser ) {
|
|
if( m_bgParser->running() ) {
|
|
m_timer->changeInterval( m_delay );
|
|
return;
|
|
}
|
|
|
|
delete( m_bgParser );
|
|
m_bgParser = 0;
|
|
}
|
|
|
|
kdDebug() << "4" << endl;
|
|
|
|
TQListViewItem* current = firstChild();
|
|
while( current ){
|
|
TQListViewItem* i = current;
|
|
current = current->nextSibling();
|
|
|
|
if( i->text(2) == m_filename )
|
|
delete( i );
|
|
}
|
|
|
|
kdDebug() << "5" << endl;
|
|
|
|
if( m_markIface ){
|
|
TQPtrList<KTextEditor::Mark> marks = m_markIface->marks();
|
|
TQPtrListIterator<KTextEditor::Mark> it( marks );
|
|
while( it.current() ){
|
|
m_markIface->removeMark( it.current()->line, KTextEditor::MarkInterface::markType07 );
|
|
++it;
|
|
}
|
|
}
|
|
|
|
kdDebug() << "6" << endl;
|
|
|
|
m_bgParser = new BackgroundParser( this, m_editor->text(), m_filename );
|
|
|
|
kdDebug() << "7" << endl;
|
|
|
|
m_bgParser->start();
|
|
|
|
kdDebug() << "8" << endl;
|
|
}
|
|
|
|
void ProblemReporter::slotSelected( TQListViewItem* item )
|
|
{
|
|
KURL url( item->text(2) );
|
|
int line = item->text( 3 ).toInt();
|
|
// int column = item->text( 4 ).toInt();
|
|
m_pascalSupport->partController()->editDocument( url, line-1 );
|
|
}
|
|
|
|
void ProblemReporter::reportError( TQString message,
|
|
TQString filename,
|
|
int line, int column )
|
|
{
|
|
if( m_markIface ){
|
|
m_markIface->addMark( line-1, KTextEditor::MarkInterface::markType07 );
|
|
}
|
|
|
|
new ProblemItem( this,
|
|
"error",
|
|
message.replace( TQRegExp("\n"), "" ),
|
|
filename,
|
|
TQString::number( line ),
|
|
TQString::number( column ) );
|
|
}
|
|
|
|
void ProblemReporter::reportWarning( TQString message,
|
|
TQString filename,
|
|
int line, int column )
|
|
{
|
|
new ProblemItem( this,
|
|
"warning",
|
|
message.replace( TQRegExp("\n"), "" ),
|
|
filename,
|
|
TQString::number( line ),
|
|
TQString::number( column ) );
|
|
}
|
|
|
|
void ProblemReporter::reportMessage( TQString message,
|
|
TQString filename,
|
|
int line, int column )
|
|
{
|
|
new TQListViewItem( this,
|
|
"message",
|
|
message.replace( TQRegExp("\n"), "" ),
|
|
filename,
|
|
TQString::number( line ),
|
|
TQString::number( column ) );
|
|
}
|
|
|
|
void ProblemReporter::configure()
|
|
{
|
|
kdDebug(9007) << "ProblemReporter::configure()" << endl;
|
|
KConfig* config = kapp->config();
|
|
config->setGroup( "General Options" );
|
|
m_active = config->readBoolEntry( "EnablePascalBgParser", TRUE );
|
|
m_delay = config->readNumEntry( "BgParserDelay", 500 );
|
|
}
|
|
|
|
void ProblemReporter::configWidget( KDialogBase* dlg )
|
|
{
|
|
/// \FIXME adymo: use problem reporter configuration
|
|
Q_UNUSED(dlg);
|
|
/* TQVBox *vbox = dlg->addVBoxPage(i18n("Pascal Parsing"));
|
|
ConfigureProblemReporter* w = new ConfigureProblemReporter( vbox );
|
|
connect(dlg, TQT_SIGNAL(okClicked()), w, TQT_SLOT(accept()));
|
|
connect(dlg, TQT_SIGNAL(okClicked()), this, TQT_SLOT(configure()));*/
|
|
}
|
|
|
|
void ProblemReporter::slotPartAdded( KParts::Part* part )
|
|
{
|
|
KTextEditor::MarkInterfaceExtension* iface = dynamic_cast<KTextEditor::MarkInterfaceExtension*>( part );
|
|
|
|
if( !iface )
|
|
return;
|
|
|
|
iface->setPixmap( KTextEditor::MarkInterface::markType07, SmallIcon("stop") );
|
|
}
|
|
|
|
void ProblemReporter::slotPartRemoved( KParts::Part* part )
|
|
{
|
|
kdDebug(9007) << "ProblemReporter::slotPartRemoved()" << endl;
|
|
if( part == m_document ){
|
|
m_document = 0;
|
|
m_editor = 0;
|
|
m_timer->stop();
|
|
}
|
|
}
|
|
|
|
#include "problemreporter.moc"
|