paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 16:39:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

Revert r59006 #b06f6da4af "IdeIntf: Add API for ExecuteCommand in CompOptsIntf." Must be done better.

Browse Source 
git-svn-id: trunk@59042 -
This commit is contained in:
juha 2018-09-17 12:03:49 +00:00
parent aaef9c6884
commit 7a46670faa
2 changed files with 1 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/ideintf/compoptsintf.pas
View File

@ -288,8 +288,6 @@ 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;
@ -308,8 +306,6 @@ 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;
@ -452,10 +448,9 @@ 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,8 +453,6 @@ 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;
@ -473,8 +471,6 @@ 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;
@ -3707,28 +3703,6 @@ 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 }