Commit b06f6da4 authored by Juha Manninen's avatar Juha Manninen
Browse files

IdeIntf: Add API for ExecuteCommand in CompOptsIntf. Issue #34283, patch from m_burkhard@gmx.ch.

git-svn-id: trunk@59006 -
parent a10d4dad
......@@ -288,6 +288,8 @@ type
function GetSrcPath: string; virtual; abstract;
function GetUnitOutputDir: string; virtual; abstract;
function GetUnitPaths: String; virtual; abstract;
function GetExecuteBeforeCommand: string; virtual; abstract;
function GetExecuteAfterCommand: string; virtual; abstract;
procedure SetCompilerPath(const AValue: String); virtual; abstract;
procedure SetConditionals(AValue: string); virtual; abstract;
procedure SetCustomOptions(const AValue: string); virtual; abstract;
......@@ -306,6 +308,8 @@ type
procedure SetTargetProc(const AValue: string); virtual; abstract;
procedure SetUnitOutputDir(const AValue: string); virtual; abstract;
procedure SetUnitPaths(const AValue: String); virtual; abstract;
procedure SetExecuteBeforeCommand(const ACommand: string); virtual; abstract;
procedure SetExecuteAfterCommand(const ACommand: string); virtual; abstract;
public
constructor Create(const TheOwner: TObject); virtual;
destructor Destroy; override;
......@@ -448,9 +452,10 @@ type
property CustomOptions: string read GetCustomOptions write SetCustomOptions;
property UseCommentsInCustomOptions: Boolean read fUseCommentsInCustomOptions
write SetUseCommentsInCustomOptions;
// execute
property CompilerPath: String read GetCompilerPath write SetCompilerPath;
property ExecuteBeforeCommand: String read GetExecuteBeforeCommand write SetExecuteBeforeCommand;
property ExecuteAfterCommand: String read GetExecuteAfterCommand write SetExecuteAfterCommand;
procedure SetAlternativeCompile(const Command: string; ScanFPCMsgs: boolean); virtual; abstract; // disable normal compile and call this instead
end;
......
......@@ -453,6 +453,8 @@ type
function GetSrcPath: string; override;
function GetUnitOutputDir: string; override;
function GetUnitPaths: String; override;
function GetExecuteBeforeCommand: string; override;
function GetExecuteAfterCommand: string; override;
procedure SetBaseDirectory(AValue: string);
procedure SetCompilerPath(const AValue: String); override;
procedure SetConditionals(AValue: string); override;
......@@ -471,6 +473,8 @@ type
procedure SetTargetOS(const AValue: string); override;
procedure SetTargetFileExt(const AValue: String); override;
procedure SetTargetFilename(const AValue: String); override;
procedure SetExecuteBeforeCommand(const ACommand: string); override;
procedure SetExecuteAfterCommand(const ACommand: string); override;
protected
function GetModified: boolean; override;
procedure SetModified(const AValue: boolean); override;
......@@ -3703,6 +3707,28 @@ begin
ExecuteBefore.Parsers.Clear;
end;
function TBaseCompilerOptions.GetExecuteBeforeCommand: string;
begin
Result := ExecuteBefore.Command;
end;
function TBaseCompilerOptions.GetExecuteAfterCommand: string;
begin
Result := ExecuteAfter.Command;
end;
procedure TBaseCompilerOptions.SetExecuteBeforeCommand(const ACommand: string);
begin
ExecuteBefore.Command := ACommand;
IncreaseChangeStamp;
end;
procedure TBaseCompilerOptions.SetExecuteAfterCommand(const ACommand: string);
begin
ExecuteAfter.Command := ACommand;
IncreaseChangeStamp;
end;
{ TAdditionalCompilerOptions }
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment