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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
/***************************************************************************
perlparser.h - description
-------------------
begin : Sun Nov 2 2003
copyright : (C) 2003 by luc
email : luc@lieve
***************************************************************************/
/***************************************************************************
* *
* 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 PERLPARSER_H
#define PERLPARSER_H
#include "tdevlanguagesupport.h"
#include <codemodel.h>
/**perl source to classview parser
*@author luc
*/
class perlparser {
public:
perlparser(TDevCore* core,CodeModel* model, TQString interpreter);
perlparser();
~perlparser();
void initialParse();
void parse(const TQString &fileName);
void parseLines(TQStringList* lines,const TQString& fileName);
const TQStringList UseFiles();
TQString findLib( const TQString& lib);
private:
//global functions to add to ClassStore
void addPackage(const TQString& fileName ,int lineNr , const TQString& name);
void addAttributetoScript(const TQString& fileName ,int lineNr ,const TQString& name);
void addAttributetoPackage(const TQString& fileName ,int lineNr ,const TQString& name);
void addClass(const TQString& fileName ,int lineNr );
void addConstructor(const TQString& fileName ,int lineNr ,const TQString& methodname);
void addGlobalSub(const TQString& fileName ,int lineNr , const TQString& name, bool privatesub);
void addScriptSub(const TQString& fileName ,int lineNr , const TQString& name, bool privatesub);
void addClassMethod(const TQString& fileName ,int lineNr , const TQString& name , bool privatesub);
void addPackageSub(const TQString& fileName ,int lineNr , const TQString& name, bool privatesub);
void addParentClass(const TQString& parent);
void addScript(const TQString& fileName ,int lineNr , const TQString& name);
void addUseLib(const TQString& lib);
void getPerlINC();
bool m_inpackage;
bool m_inscript;
bool m_inclass;
TQString m_lastsub;
TQString m_lastparentclass;
TQString m_lastattr;
TQString m_lastpackagename;
TQString m_lastscriptname;
NamespaceDom m_lastscript;
NamespaceDom m_lastpackage;
ClassDom m_lastclass;
//CodeModel
CodeModel* m_model;
TDevCore* m_core;
FileDom m_file;
//this willhav a list of INC paths
TQStringList m_INClist;
//this will get a list off all files "use" in the perl files
//and need additional parsing to include the classes in the classview
TQStringList m_usefiles;
TQString m_interpreter;
};
#endif
|
