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

projects group, a group can be either compiled sequentially or in parallel

This commit is contained in:
Basile Burg 2016-07-15 00:23:29 +02:00
parent 5f0bba91d4
commit ca043ee78c
2 changed files with 39 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/ce_main.lfm
View File

@ -3830,6 +3830,9 @@ object CEMainForm: TCEMainForm
CEFFD8D1D2FFB37A06FFB78116FFB9851CC5BB871F00BB871F00
}
end
object MenuItem98: TMenuItem
Action = actProjGroupCompileSync
end
object MenuItem88: TMenuItem
Action = actProjGroupCompile
Bitmap.Data = {
@ -4388,6 +4391,9 @@ object CEMainForm: TCEMainForm
object MenuItem44: TMenuItem
Caption = '-'
end
object MenuItem99: TMenuItem
Action = actProjGroupCompileSync
end
object MenuItem89: TMenuItem
Action = actProjGroupCompile
Bitmap.Data = {
@ -4942,7 +4948,7 @@ object CEMainForm: TCEMainForm
end
object actProjGroupCompile: TAction
Category = 'Project'
Caption = 'Compile project group'
Caption = 'Compile project group (parallel)'
ImageIndex = 21
OnExecute = actProjGroupCompileExecute
end
@ -4966,6 +4972,12 @@ object CEMainForm: TCEMainForm
ImageIndex = 36
OnExecute = actFileNewDubScriptExecute
end
object actProjGroupCompileSync: TAction
Category = 'Project'
Caption = 'Compile project group (sequential)'
ImageIndex = 21
OnExecute = actProjGroupCompileSyncExecute
end
end
object imgList: TImageList
left = 64

28
src/ce_main.pas
View File

@ -51,6 +51,7 @@ type
actFileRunDub: TAction;
actFileRunDubOut: TAction;
actFileNewDubScript: TAction;
actProjGroupCompileSync: TAction;
actProjGroupCompile: TAction;
actProjSelUngrouped: TAction;
actProjAddToGroup: TAction;
@ -179,6 +180,8 @@ type
MenuItem95: TMenuItem;
MenuItem96: TMenuItem;
MenuItem97: TMenuItem;
MenuItem98: TMenuItem;
MenuItem99: TMenuItem;
mnuLayout: TMenuItem;
mnuItemMruFile: TMenuItem;
mnuItemMruProj: TMenuItem;
@ -200,6 +203,7 @@ type
procedure actNewGroupExecute(Sender: TObject);
procedure actProjAddToGroupExecute(Sender: TObject);
procedure actProjGroupCompileExecute(Sender: TObject);
procedure actProjGroupCompileSyncExecute(Sender: TObject);
procedure actProjNewDubJsonExecute(Sender: TObject);
procedure actProjNewGroupExecute(Sender: TObject);
procedure actProjNewNativeExecute(Sender: TObject);
@ -385,6 +389,7 @@ type
function closeProj: boolean;
procedure showProjTitle;
function checkProjectLock(message: boolean = true): boolean;
procedure compileGroup(async: boolean);
// mru
procedure mruChange(Sender: TObject);
@ -3183,7 +3188,7 @@ end;
// TODO-cFileOpenDialog: allow multi selection when possible
//(open file, add file to project, ...)
procedure TCEMainForm.actProjGroupCompileExecute(Sender: TObject);
procedure TCEMainForm.compileGroup(async: boolean);
var
i: integer;
begin
@ -3196,12 +3201,31 @@ begin
fMsgs.message('start compiling a project group...', nil, amcAll, amkInf);
for i:= 0 to fProjectGroup.projectCount-1 do
begin
//TODO-cprojectgroup: verify that compilation is not parallel since the projects use an async proc.
fProjectGroup.getProject(i).activate;
fProject.compile;
if not async then
begin
while fProjActionsLock do
Application.ProcessMessages;
if not fProject.compiled then
begin
fMsgs.message('asynchronous group compilatio stoped because of a failure', nil, amcAll, amkErr);
break;
end;
end;
end;
end;
procedure TCEMainForm.actProjGroupCompileExecute(Sender: TObject);
begin
compileGroup(true);
end;
procedure TCEMainForm.actProjGroupCompileSyncExecute(Sender: TObject);
begin
compileGroup(false);
end;
procedure TCEMainForm.actProjNewGroupExecute(Sender: TObject);
begin
if fProjectGroup.groupModified then