forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

add appli option to measure project/group build duration

This commit is contained in:
Basile Burg 2016-09-17 16:58:01 +02:00
parent d502757268
commit 44ce9decf5
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
src/ce_main.pas
View File

@ -364,6 +364,7 @@ type
fPrjGrpWidg: TCEProjectGroupWidget; fPrjGrpWidg: TCEProjectGroupWidget;
//fGdbWidg: TCEGdbWidget; //fGdbWidg: TCEGdbWidget;
fDfmtWidg: TCEDfmtWidget; fDfmtWidg: TCEDfmtWidget;
fCompStart: TDateTime;
fRunProjAfterCompArg: boolean; fRunProjAfterCompArg: boolean;
fRunProjAfterCompile: boolean; fRunProjAfterCompile: boolean;
@ -541,6 +542,7 @@ type
fFlatLook: boolean; fFlatLook: boolean;
fSplitterScrollSpeed: byte; fSplitterScrollSpeed: byte;
fAutoCheckUpdates: boolean; fAutoCheckUpdates: boolean;
fShowBuildDuration: boolean;
function getAdditionalPATH: string; function getAdditionalPATH: string;
procedure setAdditionalPATH(const value: string); procedure setAdditionalPATH(const value: string);
function getDubCompiler: TCECompiler; function getDubCompiler: TCECompiler;
@ -566,6 +568,7 @@ type
property autoSaveProjectFiles: boolean read fAutoSaveProjectFiles write fAutoSaveProjectFiles default false; property autoSaveProjectFiles: boolean read fAutoSaveProjectFiles write fAutoSaveProjectFiles default false;
property flatLook: boolean read fFlatLook write fFlatLook; property flatLook: boolean read fFlatLook write fFlatLook;
property splitterScrollSpeed: byte read fSplitterScrollSpeed write setSplitterScsrollSpeed; property splitterScrollSpeed: byte read fSplitterScrollSpeed write setSplitterScsrollSpeed;
property showBuildDuration: boolean read fShowBuildDuration write fShowBuildDuration default false;
// published for ICEEditableOptions but stored by DCD wrapper since it reloads before CEMainForm // published for ICEEditableOptions but stored by DCD wrapper since it reloads before CEMainForm
property dcdPort: word read fDcdPort write fDcdPort stored false; property dcdPort: word read fDcdPort write fDcdPort stored false;
@ -873,8 +876,14 @@ begin
fMaxRecentGroups := fBackup.fMaxRecentGroups; fMaxRecentGroups := fBackup.fMaxRecentGroups;
fReloadLastDocuments:=fBackup.fReloadLastDocuments; fReloadLastDocuments:=fBackup.fReloadLastDocuments;
fFloatingWidgetOnTop := fBackup.fFloatingWidgetOnTop; fFloatingWidgetOnTop := fBackup.fFloatingWidgetOnTop;
fShowBuildDuration:= fBackup.fShowBuildDuration;
fAutoSaveProjectFiles:= fBackup.fAutoSaveProjectFiles;
fdscanUnittests:= fBackup.dscanUnittests;
fFlatLook:=fBackup.fFlatLook; fFlatLook:=fBackup.fFlatLook;
fAutoCheckUpdates:= fBackup.fAutoCheckUpdates;
CEMainForm.fDscanUnittests := fDscanUnittests; CEMainForm.fDscanUnittests := fDscanUnittests;
dubCompiler:= fBackup.dubCompiler;
nativeProjectCompiler:= fBackup.nativeProjectCompiler;
end end
else inherited; else inherited;
end; end;
@ -903,8 +912,13 @@ begin
fBackup.fFloatingWidgetOnTop:=fFloatingWidgetOnTop; fBackup.fFloatingWidgetOnTop:=fFloatingWidgetOnTop;
fBackup.fDcdPort:=fDcdPort; fBackup.fDcdPort:=fDcdPort;
fBackup.fCovModUt:=fCovModUt; fBackup.fCovModUt:=fCovModUt;
fBackup.fAutoSaveProjectFiles:= fAutoSaveProjectFiles;
fBackup.fDscanUnittests:= fDscanUnittests; fBackup.fDscanUnittests:= fDscanUnittests;
fBackup.fFlatLook:= fFlatLook; fBackup.fFlatLook:= fFlatLook;
fBackup.fAutoCheckUpdates:= fAutoCheckUpdates;
fBackup.fShowBuildDuration:= fShowBuildDuration;
fBackup.dubCompiler:= dubCompiler;
fBackup.nativeProjectCompiler:= nativeProjectCompiler;
end end
else inherited; else inherited;
end; end;
@ -2027,6 +2041,11 @@ begin
fProjActionsLock := false; fProjActionsLock := false;
if not fIsCompilingGroup then if not fIsCompilingGroup then
begin begin
if fAppliOpts.showBuildDuration then
begin
fCompStart := Time - fCompStart;
fMsgs.message('Build duration: ' + TimeToStr(fCompStart), project, amcProj, amkInf);
end;
if fRunProjAfterCompile and assigned(fProject) then if fRunProjAfterCompile and assigned(fProject) then
begin begin
if not success then if not success then
@ -2053,6 +2072,11 @@ begin
exit; exit;
end; end;
fMsgs.message('the project group is successfully compiled', nil, amcAll, amkInf); fMsgs.message('the project group is successfully compiled', nil, amcAll, amkInf);
if fAppliOpts.showBuildDuration then
begin
fCompStart := Time - fCompStart;
fMsgs.message('Group build duration: ' + TimeToStr(fCompStart), nil, amcAll, amkInf);
end;
end; end;
end; end;
end; end;
@ -2940,6 +2964,8 @@ procedure TCEMainForm.actProjCompileExecute(Sender: TObject);
begin begin
if fAppliOpts.autoSaveProjectFiles then if fAppliOpts.autoSaveProjectFiles then
saveModifiedProjectFiles(fProject); saveModifiedProjectFiles(fProject);
if fAppliOpts.showBuildDuration then
fCompStart := Time;
fProject.compile; fProject.compile;
end; end;
@ -2948,6 +2974,7 @@ begin
fRunProjAfterCompile := true; fRunProjAfterCompile := true;
if fAppliOpts.autoSaveProjectFiles then if fAppliOpts.autoSaveProjectFiles then
saveModifiedProjectFiles(fProject); saveModifiedProjectFiles(fProject);
fCompStart := Time;
fProject.compile; fProject.compile;
end; end;
@ -2957,6 +2984,7 @@ begin
fRunProjAfterCompArg := true; fRunProjAfterCompArg := true;
if fAppliOpts.autoSaveProjectFiles then if fAppliOpts.autoSaveProjectFiles then
saveModifiedProjectFiles(fProject); saveModifiedProjectFiles(fProject);
fCompStart := Time;
fProject.compile; fProject.compile;
end; end;
@ -2972,6 +3000,7 @@ begin
begin begin
if fAppliOpts.autoSaveProjectFiles then if fAppliOpts.autoSaveProjectFiles then
saveModifiedProjectFiles(fProject); saveModifiedProjectFiles(fProject);
fCompStart := Time;
fProject.compile; fProject.compile;
end; end;
if fProject.outputFilename.fileExists if fProject.outputFilename.fileExists
@ -3455,6 +3484,7 @@ begin
fGroupCompilationCnt := 0; fGroupCompilationCnt := 0;
fIsCompilingGroup := true; fIsCompilingGroup := true;
fMsgs.message('start compiling a project group...', nil, amcAll, amkInf); fMsgs.message('start compiling a project group...', nil, amcAll, amkInf);
fCompStart := Time;
for i:= 0 to fProjectGroup.projectCount-1 do for i:= 0 to fProjectGroup.projectCount-1 do
begin begin
fProjectGroup.getProject(i).activate; fProjectGroup.getProject(i).activate;