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.
332 lines
10 KiB
332 lines
10 KiB
/***************************************************************************
|
|
* Copyright (C) 2001-2002 by Bernd Gehrmann *
|
|
* bernd@kdevelop.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 "csharpsupportpart.h"
|
|
|
|
#include <tqfileinfo.h>
|
|
#include <tqpopupmenu.h>
|
|
#include <tqstringlist.h>
|
|
#include <tqtextstream.h>
|
|
#include <tqtimer.h>
|
|
#include <tdeaction.h>
|
|
#include <tdeapplication.h>
|
|
#include <kdebug.h>
|
|
#include <kdevgenericfactory.h>
|
|
#include <kinputdialog.h>
|
|
#include <tdelocale.h>
|
|
#include <tqregexp.h>
|
|
#include <codemodel.h>
|
|
#include <tqprogressbar.h>
|
|
#include <kstatusbar.h>
|
|
#include "kdevmainwindow.h"
|
|
|
|
#include <tdeprocess.h>
|
|
#include <stdlib.h>
|
|
#include <unistd.h>
|
|
|
|
#include "kdevcore.h"
|
|
#include "kdevproject.h"
|
|
#include "kdevpartcontroller.h"
|
|
#include "kdevplugininfo.h"
|
|
#include "kdevappfrontend.h"
|
|
//#include "classstore.h"
|
|
//#include "parsedclass.h"
|
|
//#include "parsedmethod.h"
|
|
//#include "parsedscript.h"
|
|
#include "domutil.h"
|
|
//#include "programmingbycontract.h"
|
|
|
|
typedef KDevGenericFactory<CSharpSupportPart> CSharpSupportFactory;
|
|
static const KDevPluginInfo pluginData("kdevcsharpsupport");
|
|
K_EXPORT_COMPONENT_FACTORY( libkdevcsharpsupport, CSharpSupportFactory( pluginData ) )
|
|
|
|
CSharpSupportPart::CSharpSupportPart(TQObject *parent, const char *name, const TQStringList &)
|
|
: KDevLanguageSupport(&pluginData, parent, name ? name : "CSharpSupportPart")
|
|
{
|
|
setInstance(CSharpSupportFactory::instance());
|
|
|
|
setXMLFile("kdevcsharpsupport.rc");
|
|
|
|
connect( core(), TQ_SIGNAL(projectOpened()), this, TQ_SLOT(projectOpened()) );
|
|
connect( core(), TQ_SIGNAL(projectClosed()), this, TQ_SLOT(projectClosed()) );
|
|
connect( partController(), TQ_SIGNAL(savedFile(const KURL&)),
|
|
this, TQ_SLOT(savedFile(const KURL&)) );
|
|
|
|
TDEAction *action;
|
|
|
|
action = new TDEAction( i18n("Execute Main Program"), "application-x-executable", 0,
|
|
this, TQ_SLOT(slotExecute()),
|
|
actionCollection(), "build_exec" );
|
|
action->setToolTip( i18n("Runs the CSharp program") );
|
|
|
|
action = new TDEAction( i18n("Execute String..."), "application-x-executable", 0,
|
|
this, TQ_SLOT(slotExecuteString()),
|
|
actionCollection(), "build_execstring" );
|
|
action->setToolTip( i18n("Executes a string as CSharp code") );
|
|
|
|
action = new TDEAction( i18n("Start CSharp Interpreter"), "application-x-executable", 0,
|
|
this, TQ_SLOT(slotStartInterpreter()),
|
|
actionCollection(), "build_runinterpreter" );
|
|
action->setToolTip( i18n("Starts the CSharp interpreter without a program") );
|
|
|
|
action = new TDEAction( i18n("Find CSharp Function Documentation..."), 0,
|
|
this, TQ_SLOT(slotCSharpdocFunction()),
|
|
actionCollection(), "help_csharpdocfunction" );
|
|
action->setToolTip( i18n("Show the documentation page of a CSharp function") );
|
|
|
|
action = new TDEAction( i18n("Find CSharp FAQ Entry..."), 0,
|
|
this, TQ_SLOT(slotCSharpdocFAQ()),
|
|
actionCollection(), "help_csharpdocfaq" );
|
|
action->setToolTip( i18n("Show the FAQ entry for a keyword") );
|
|
|
|
//csharp parser for codemodel
|
|
// m_parser = new csharpparser(core(),codeModel(),interpreter());
|
|
}
|
|
|
|
|
|
CSharpSupportPart::~CSharpSupportPart()
|
|
{
|
|
if (project())
|
|
projectClosed();
|
|
|
|
// delete m_parser;
|
|
// m_parser=0;
|
|
}
|
|
|
|
|
|
void CSharpSupportPart::projectOpened()
|
|
{
|
|
kdDebug(9007) << "projectOpened()" << endl;
|
|
|
|
connect( project(), TQ_SIGNAL(addedFilesToProject(const TQStringList &)),
|
|
this, TQ_SLOT(addedFilesToProject(const TQStringList &)) );
|
|
connect( project(), TQ_SIGNAL(removedFilesFromProject(const TQStringList &)),
|
|
this, TQ_SLOT(removedFilesFromProject(const TQStringList &)) );
|
|
|
|
// We want to parse only after all components have been
|
|
// procsharpy initialized
|
|
TQTimer::singleShot(0, this, TQ_SLOT(initialParse()));
|
|
}
|
|
|
|
|
|
void CSharpSupportPart::projectClosed()
|
|
{
|
|
}
|
|
|
|
void CSharpSupportPart::maybeParse(const TQString fileName)
|
|
{
|
|
TQFileInfo fi(fileName);
|
|
TQString path = fi.filePath();
|
|
TQString extension = fi.extension();
|
|
if (extension == "cs") {
|
|
kdDebug(9016) << "maybe " << fileName << endl;
|
|
removeWithReference(fileName);
|
|
// m_parser->parse(fileName);
|
|
emit addedSourceInfo( fileName);
|
|
}
|
|
}
|
|
|
|
void CSharpSupportPart::addedFilesToProject(const TQStringList &fileList)
|
|
{
|
|
kdDebug(9016) << "addedFilesToProject()" << endl;
|
|
|
|
TQStringList::ConstIterator it;
|
|
|
|
for ( it = fileList.begin(); it != fileList.end(); ++it )
|
|
{
|
|
maybeParse(project()->projectDirectory() + "/" + ( *it ));
|
|
}
|
|
}
|
|
|
|
|
|
void CSharpSupportPart::removedFilesFromProject(const TQStringList &fileList)
|
|
{
|
|
kdDebug(9016) << "removedFilesFromProject()" << endl;
|
|
TQStringList::ConstIterator it;
|
|
for ( it = fileList.begin(); it != fileList.end(); ++it )
|
|
{
|
|
TQString fileName = project()->projectDirectory() + "/" + ( *it );
|
|
removeWithReference(fileName);
|
|
}
|
|
emit updatedSourceInfo();
|
|
}
|
|
|
|
|
|
void CSharpSupportPart::savedFile(const KURL &fileName)
|
|
{
|
|
Q_UNUSED( fileName.path() );
|
|
#if 0 // not needed anymore
|
|
kdDebug(9016) << "savedFile()" << endl;
|
|
|
|
if (project()->allFiles().contains(fileName.mid ( project()->projectDirectory().length() + 1 ))) {
|
|
maybeParse(fileName);
|
|
emit updatedSourceInfo();
|
|
}
|
|
#endif
|
|
}
|
|
|
|
|
|
KDevLanguageSupport::Features CSharpSupportPart::features()
|
|
{
|
|
return KDevLanguageSupport::Features(Classes | Functions | Variables | Namespaces | /*Scripts | */NewClass | AddMethod | AddAttribute /*| NewScript*/);
|
|
// return Functions;
|
|
}
|
|
|
|
TQString CSharpSupportPart::interpreter()
|
|
{
|
|
TQString prog = DomUtil::readEntry(*projectDom(), "/kdevcsharpsupport/run/interpreter");
|
|
if (prog.isEmpty())
|
|
prog = "csharp";
|
|
|
|
return prog;
|
|
}
|
|
|
|
|
|
void CSharpSupportPart::startApplication(const TQString &program)
|
|
{
|
|
bool inTerminal = DomUtil::readBoolEntry(*projectDom(), "/kdevcsharpsupport/run/terminal");
|
|
if (KDevAppFrontend *appFrontend = extension<KDevAppFrontend>("TDevelop/AppFrontend"))
|
|
appFrontend->startAppCommand(TQString(), program, inTerminal);
|
|
}
|
|
|
|
|
|
void CSharpSupportPart::slotExecute()
|
|
{
|
|
TQString program = project()->mainProgram();
|
|
TQString cmd = interpreter() + " " + program;
|
|
startApplication(cmd);
|
|
}
|
|
|
|
|
|
void CSharpSupportPart::slotStartInterpreter()
|
|
{
|
|
startApplication(interpreter());
|
|
}
|
|
|
|
|
|
void CSharpSupportPart::slotExecuteString()
|
|
{
|
|
bool ok;
|
|
TQString cmd = KInputDialog::getText(i18n("String to Execute"), i18n("String to execute:"), TQString(), &ok, 0);
|
|
if (ok) {
|
|
cmd.prepend("'");
|
|
cmd.append("'");
|
|
startApplication(cmd);
|
|
}
|
|
}
|
|
|
|
|
|
void CSharpSupportPart::slotCSharpdocFunction()
|
|
{
|
|
bool ok;
|
|
TQString key = KInputDialog::getText(i18n("Show CSharp Documentation"), i18n("Show CSharp documentation for function:"), "", &ok, 0);
|
|
if (ok && !key.isEmpty()) {
|
|
TQString url = "csharpdoc:functions/";
|
|
url += key;
|
|
partController()->showDocument(KURL(url));
|
|
}
|
|
}
|
|
|
|
|
|
void CSharpSupportPart::slotCSharpdocFAQ()
|
|
{
|
|
bool ok;
|
|
TQString key = KInputDialog::getText(i18n("Show FAQ Entry"), i18n("Show FAQ entry for keyword:"), "", &ok, 0);
|
|
if (ok && !key.isEmpty()) {
|
|
TQString url = "csharpdoc:faq/";
|
|
url += key;
|
|
partController()->showDocument(KURL(url));
|
|
}
|
|
}
|
|
KMimeType::List CSharpSupportPart::mimeTypes( )
|
|
{
|
|
KMimeType::List list;
|
|
KMimeType::Ptr mime = KMimeType::mimeType( "application/x-csharp" );
|
|
if( mime )
|
|
list << mime;
|
|
return list;
|
|
}
|
|
|
|
void CSharpSupportPart::initialParse()
|
|
{
|
|
kdDebug(9016) << "initialParse()" << endl;
|
|
|
|
if (project()) {
|
|
//copy from cpp support : give user some feedback
|
|
mainWindow()->statusBar()->message( i18n("Updating...") );
|
|
kapp->processEvents( );
|
|
|
|
kapp->setOverrideCursor(waitCursor);
|
|
TQStringList files = project()->allFiles();
|
|
// m_parser->initialParse();
|
|
|
|
//progress bar
|
|
TQProgressBar* bar = new TQProgressBar( files.count( ), mainWindow( )->statusBar( ) );
|
|
bar->setMinimumWidth( 120 );
|
|
bar->setCenterIndicator( true );
|
|
mainWindow( )->statusBar( )->addWidget( bar );
|
|
bar->show( );
|
|
int n = 0;
|
|
for (TQStringList::Iterator it = files.begin(); it != files.end() ;++it) {
|
|
// kdDebug(9016) << "maybe parse " << project()->projectDirectory() + "/" + (*it) << endl;
|
|
maybeParse(project()->projectDirectory() + "/" + *it);
|
|
//update progress bar
|
|
bar->setProgress( n++ );
|
|
if( (n%5) == 0 )
|
|
kapp->processEvents();
|
|
}
|
|
parseUseFiles();
|
|
emit updatedSourceInfo();
|
|
|
|
//remove progressbar
|
|
mainWindow( )->statusBar( )->removeWidget( bar );
|
|
delete bar;
|
|
kapp->restoreOverrideCursor();
|
|
mainWindow()->statusBar()->message( i18n("Done") );
|
|
|
|
} else {
|
|
kdDebug(9016) << "No project" << endl;
|
|
}
|
|
}
|
|
|
|
void CSharpSupportPart::removeWithReference( const TQString & fileName )
|
|
{
|
|
kdDebug(9016) << "remove with references: " << fileName << endl;
|
|
//m_timestamp.remove( fileName );
|
|
if( !codeModel()->hasFile(fileName) )
|
|
return;
|
|
|
|
emit aboutToRemoveSourceInfo( fileName );
|
|
codeModel()->removeFile( codeModel()->fileByName(fileName) );
|
|
}
|
|
|
|
void CSharpSupportPart::parseUseFiles()
|
|
{
|
|
kdDebug(9016) << "parse addional libs" << endl;
|
|
return;
|
|
TQString filename;
|
|
TQStringList m_usefiles;
|
|
// TQStringList m_usefiles = m_parser->UseFiles();
|
|
|
|
//parse addional use files
|
|
for (TQStringList::Iterator it = m_usefiles.begin(); it != m_usefiles.end() ;++it)
|
|
{
|
|
// filename = m_parser->findLib(*it);
|
|
//if something found , parse it
|
|
if (!filename.isEmpty()) {
|
|
//kdDebug(9016) << "found " << filename << endl;
|
|
maybeParse(filename);
|
|
}
|
|
}
|
|
}
|
|
|
|
#include "csharpsupportpart.moc"
|