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.
61 lines
1.9 KiB
61 lines
1.9 KiB
/***************************************************************************
|
|
* Copyright (C) 2001-2002 by Bernd Gehrmann *
|
|
* bernd@tdevelop.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. *
|
|
* *
|
|
***************************************************************************/
|
|
|
|
#ifndef _PERLSUPPORTPART_H_
|
|
#define _PERLSUPPORTPART_H_
|
|
|
|
#include "kdevlanguagesupport.h"
|
|
#include <codemodel.h>
|
|
#include "perlparser.h"
|
|
|
|
class PerlSupportPart : public KDevLanguageSupport
|
|
{
|
|
Q_OBJECT
|
|
TQ_OBJECT
|
|
|
|
public:
|
|
PerlSupportPart( TQObject *parent, const char *name, const TQStringList & );
|
|
~PerlSupportPart();
|
|
|
|
protected:
|
|
virtual Features features();
|
|
virtual KMimeType::List mimeTypes();
|
|
|
|
private slots:
|
|
void projectOpened();
|
|
void projectClosed();
|
|
void savedFile(const KURL &fileName);
|
|
void addedFilesToProject(const TQStringList &fileList);
|
|
void removedFilesFromProject(const TQStringList &fileList);
|
|
void slotExecute();
|
|
void slotExecuteString();
|
|
void slotStartInterpreter();
|
|
|
|
// Internal
|
|
void initialParse();
|
|
void slotPerldocFunction();
|
|
void slotPerldocFAQ();
|
|
|
|
private:
|
|
TQString interpreter();
|
|
void startApplication(const TQString &program);
|
|
void maybeParse(const TQString fileName);
|
|
void parse(const TQString &fileName);
|
|
void parseLines(TQStringList* lines,const TQString& fileName);
|
|
void removeWithReference( const TQString & fileName );
|
|
void parseUseFiles();
|
|
//Perl Parser
|
|
perlparser* m_parser;
|
|
|
|
};
|
|
|
|
#endif
|