summaryrefslogtreecommitdiffstats
path: root/buildtools/ada/adaproject_part.h
blob: 46b328c4a56e9488554a1751c5e1d0941374e98f (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
/* Copyright (C) 2003 Oliver Kellogg
 * okellogg@users.sourceforge.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_ADAPROJECT_H__
#define __TDEVPART_ADAPROJECT_H__

#include <tqguardedptr.h>

#include "tdevbuildtool.h"

class AdaProjectWidget;
class KDialogBase;
class TDevCompilerOptions;

class AdaProjectPart : public TDevBuildTool
{
    Q_OBJECT
  
public:
    AdaProjectPart(TQObject *parent, const char *name, const TQStringList &);
    ~AdaProjectPart();

    virtual void openProject(const TQString &dirName, const TQString &projectName);
    virtual void closeProject();

    /**Returns the name of the main source file without extension.
       We assume that all Ada compilers call the binary that way.  */
    virtual TQString mainProgram() const;
    /**Main source file (like src/main.adb)*/
    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);
    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<AdaProjectWidget> 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