blob: 8f46817b6ceff93f06d9204bbd23ac556098ccb6 (
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
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
88
89
90
91
92
93
94
95
96
|
/***************************************************************************
* Copyright (C) 2003 Alexander Dymo *
* cloudtemple@mksat.net *
* *
* 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 __TDEVPART_PASCALPROJECT_H__
#define __TDEVPART_PASCALPROJECT_H__
#include <tqguardedptr.h>
#include "tdevbuildtool.h"
class PascalProjectWidget;
class KDialogBase;
class TDevCompilerOptions;
class PascalProjectPart : public TDevBuildTool
{
Q_OBJECT
public:
PascalProjectPart(TQObject *parent, const char *name, const TQStringList &);
~PascalProjectPart();
virtual void openProject(const TQString &dirName, const TQString &projectName);
virtual void closeProject();
/**Returns the name of the main source file without extension.
All pascal compilers call the binary by that way*/
virtual TQString mainProgram() const;
/**Main source file (like src/main.pp)*/
virtual TQString mainSource() const;
virtual void setMainSource(TQString fullPath);
virtual TQString projectDirectory() const;
virtual TQString projectName() const;
virtual TQString activeDirectory() const;
/**The location of the main source file*/
virtual TQString buildDirectory() const;
virtual TQString runDirectory() const;
virtual TQString debugArguments() const;
virtual TQString runArguments() const;
virtual DomUtil::PairList runEnvironmentVars() const;
/**Returns everything in the project directory*/
virtual TQStringList allFiles() const;
/**This does absolutelly nothing*/
virtual void addFile(const TQString &fileName);
/**This does absolutelly nothing*/
virtual void addFiles(const TQStringList &fileList);
/**This does absolutelly nothing*/
virtual void removeFile(const TQString &fileName);
/**This does absolutelly nothing*/
virtual void removeFiles(const TQStringList &fileList);
virtual void changedFiles( const TQStringList & fileList );
virtual void changedFile( const TQString & fileName );
TDevCompilerOptions *createCompilerOptions(const TQString &name);
virtual TQString defaultOptions(const TQString compiler) const;
TQStringList distFiles() const;
public slots:
/**loads config from project file*/
void loadProjectConfig();
private slots:
void slotBuild();
void slotExecute();
void projectConfigWidget(KDialogBase *dlg);
void configWidget(KDialogBase *dlg);
private:
TQGuardedPtr<PascalProjectWidget> m_widget;
void listOfFiles(TQStringList &result, TQString path) const;
TQString m_buildDir;
TQString m_projectDir;
TQString m_projectName;
TQString m_mainProg;
TQString m_mainSource;
TQString m_compilerExec;
TQString m_compilerOpts;
TQStringList m_sourceFiles;
};
#endif
|
