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

project pre-process output to messages when possible

This commit is contained in:
Basile Burg 2014-08-09 05:04:47 +02:00
parent 36160253c8
commit f7a6fad9c8
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ce_main.pas
View File

@ -1194,6 +1194,9 @@ begin
if ppproc.CurrentDirectory = '' then if ppproc.CurrentDirectory = '' then
ppproc.CurrentDirectory := extractFilePath(ppproc.Executable); ppproc.CurrentDirectory := extractFilePath(ppproc.Executable);
ppproc.Execute; ppproc.Execute;
if not (poWaitOnExit in ppproc.Options) then
if poUsePipes in ppproc.Options then
repeat ProcessOutputToMsg(ppproc, mcProject) until not ppproc.Running;
finally finally
ppproc.Free; ppproc.Free;
end; end;
@ -1247,6 +1250,9 @@ begin
if ppproc.CurrentDirectory = '' then if ppproc.CurrentDirectory = '' then
ppproc.CurrentDirectory := extractFilePath(ppproc.Executable); ppproc.CurrentDirectory := extractFilePath(ppproc.Executable);
ppproc.Execute; ppproc.Execute;
if not (poWaitOnExit in ppproc.Options) then
if poUsePipes in ppproc.Options then
repeat ProcessOutputToMsg(ppproc, mcProject) until not ppproc.Running;
finally finally
ppproc.Free; ppproc.Free;
end; end;