paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-02 22:27:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@59006 -
This commit is contained in:
juha 2018-09-15 17:17:22 +00:00
parent a10d4dadc6
commit b06f6da4af
2 changed files with 32 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/ideintf/compoptsintf.pas
View File

@ -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;

26
ide/compileroptions.pp
View File

@ -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 }