blob: b6517bbc43ffae84daa6751fe9fdb5f80e08f5fc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
/***************************************************************************
* 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. *
* *
***************************************************************************/
#ifndef _PERLSUPPORTPART_H_
#define _PERLSUPPORTPART_H_
#include "tdevlanguagesupport.h"
#include <codemodel.h>
#include "perlparser.h"
class PerlSupportPart : public TDevLanguageSupport
{
Q_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
|
