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

lazbuild: implemented executing external tools, for example before compilation (bug #8918) from Darius

Browse Source 
git-svn-id: trunk@11230 -
This commit is contained in:
vincents 2007-05-30 20:48:14 +00:00
parent f9c873cd97
commit ac0e96eeca
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/lazbuild.lpr
View File

@ -29,7 +29,7 @@ uses
// codetools
CodeToolManager, DefineTemplates, Laz_XMLCfg,
// IDEIntf
MacroIntf, PackageIntf, IDEDialogs, ProjectIntf,
MacroIntf, PackageIntf, IDEDialogs, ProjectIntf, IDEExternToolIntf,
// IDE
IDEProcs, InitialSetupDlgs, OutputFilter, Compiler, CompilerOptions,
TransferMacros, EnvironmentOpts, IDETranslations, LazarusIDEStrConsts,
@ -104,10 +104,13 @@ type
Files: TStringList;
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
procedure Run;
function ParseParameters: boolean;
procedure WriteUsage;
procedure Error(ErrorCode: Byte; const ErrorMsg: string);
function OnRunExternalTool(Tool: TIDEExternalToolOptions): TModalResult;
property BuildAll: boolean read FBuildAll write FBuildAll;// build all files of project/package
property BuildRecursive: boolean read FBuildRecursive // apply BuildAll flag to dependencies
write FBuildRecursive;
@ -761,6 +764,7 @@ begin
SetupDialogs;
TOutputFilterProcess:=TProcess;
Files:=TStringList.Create;
RunExternalTool := @OnRunExternalTool;
end;
destructor TLazBuildApplication.Destroy;
@ -957,6 +961,12 @@ begin
Halt(ErrorCode);
end;
function TLazBuildApplication.OnRunExternalTool(Tool: TIDEExternalToolOptions
): TModalResult;
begin
Result:=EnvironmentOptions.ExternalTools.Run(Tool,GlobalMacroList);
end;
begin
// free LCL application
FreeAndNil(Forms.Application);