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.
88 lines
3.1 KiB
88 lines
3.1 KiB
15 years ago
|
/***************************************************************************
|
||
|
|
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 "kdevlanguagesupport.h"
|
||
|
|
#include <codemodel.h>
|
||
|
|
|
||
|
|
|
||
|
|
/**perl source to classview parser
|
||
|
|
*@author luc
|
||
|
|
*/
|
||
|
|
|
||
|
|
class perlparser {
|
||
|
|
public:
|
||
|
|
perlparser(KDevCore* core,CodeModel* model, QString interpreter);
|
||
|
|
perlparser();
|
||
|
|
~perlparser();
|
||
|
|
|
||
|
|
void initialParse();
|
||
|
|
void parse(const QString &fileName);
|
||
|
|
void parseLines(QStringList* lines,const QString& fileName);
|
||
|
|
const QStringList UseFiles();
|
||
|
|
QString findLib( const QString& lib);
|
||
|
|
|
||
|
|
private:
|
||
|
|
//global functions to add to ClassStore
|
||
|
|
void addPackage(const QString& fileName ,int lineNr , const QString& name);
|
||
|
|
void addAttributetoScript(const QString& fileName ,int lineNr ,const QString& name);
|
||
|
|
void addAttributetoPackage(const QString& fileName ,int lineNr ,const QString& name);
|
||
|
|
void addClass(const QString& fileName ,int lineNr );
|
||
|
|
void addConstructor(const QString& fileName ,int lineNr ,const QString& methodname);
|
||
|
|
void addGlobalSub(const QString& fileName ,int lineNr , const QString& name, bool privatesub);
|
||
|
|
void addScriptSub(const QString& fileName ,int lineNr , const QString& name, bool privatesub);
|
||
|
|
void addClassMethod(const QString& fileName ,int lineNr , const QString& name , bool privatesub);
|
||
|
|
void addPackageSub(const QString& fileName ,int lineNr , const QString& name, bool privatesub);
|
||
|
|
void addParentClass(const QString& parent);
|
||
|
|
void addScript(const QString& fileName ,int lineNr , const QString& name);
|
||
|
|
void addUseLib(const QString& lib);
|
||
|
|
void getPerlINC();
|
||
|
|
|
||
|
|
bool m_inpackage;
|
||
|
|
bool m_inscript;
|
||
|
|
bool m_inclass;
|
||
|
|
|
||
|
|
QString m_lastsub;
|
||
|
|
QString m_lastparentclass;
|
||
|
|
QString m_lastattr;
|
||
|
|
QString m_lastpackagename;
|
||
|
|
QString m_lastscriptname;
|
||
|
|
|
||
|
|
NamespaceDom m_lastscript;
|
||
|
|
NamespaceDom m_lastpackage;
|
||
|
|
ClassDom m_lastclass;
|
||
|
|
|
||
|
|
//CodeModel
|
||
|
|
CodeModel* m_model;
|
||
|
|
KDevCore* m_core;
|
||
|
|
FileDom m_file;
|
||
|
|
|
||
|
|
//this willhav a list of INC paths
|
||
|
|
QStringList 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
|
||
|
|
QStringList m_usefiles;
|
||
|
|
|
||
|
|
QString m_interpreter;
|
||
|
|
|
||
|
|
|
||
|
|
};
|
||
|
|
|
||
|
|
#endif
|