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.
tdevelop/buildtools/pascal/pascalproject_part.h

97 lines
3.3 KiB

/***************************************************************************
* 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