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

fix #348 - piping git - stderr is also for log, stdout is just for the payload

This commit is contained in:
Basile Burg 2018-07-13 17:13:37 +02:00
parent 391fa0e271
commit 6e8d8889a1
1 changed files with 17 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
src/ce_main.pas
View File

@ -4020,7 +4020,6 @@ var
p: TProcess;
r: TStringList;
i: integer;
b: string;
begin
p := TProcess.Create(nil);
r := TStringList.Create;
@ -4028,24 +4027,25 @@ begin
p.Executable := exeFullName('git' + exeExt);
if p.Executable.fileExists then
begin
p.Options := [poUsePipes, poNoConsole];
p.Options := [poUsePipes, poNoConsole, poStderrToOutPut];
p.ShowWindow:= swoHIDE;
p.Parameters.Add('pull');
//p.Parameters.Add('&&');
//p.Parameters.Add('git');
//p.Parameters.Add('submodule');
//p.Parameters.Add('--update');
//p.Parameters.Add('--init');
//p.Parameters.Add('--recursive');
p.CurrentDirectory:= fProject.basePath;
p.Execute;
processOutputToStrings(p,r);
for i := 0 to r.Count-1 do
fMsgs.message(r[i], fProject, amcProj, amkInf);
r.Clear;
r.LoadFromStream(p.Stderr);
fMsgs.message(r[i], fProject, amcProj, amkAuto);
while p.Running do
sleep(0);
p.Parameters.Clear;
p.Parameters.Add('submodule');
p.Parameters.Add('update');
p.Parameters.Add('--init');
p.Parameters.Add('--recursive');
p.Execute;
processOutputToStrings(p,r);
for i := 0 to r.Count-1 do
fMsgs.message(r[i], fProject, amcProj, amkErr);
fMsgs.message(r[i], fProject, amcProj, amkAuto);
end;
finally;
actProjGitBranchesUpd.Execute;
@ -4069,25 +4069,15 @@ begin
p.Executable := exeFullName('git' + exeExt);
if p.Executable.fileExists then
begin
p.Options := [poUsePipes, poNoConsole];
p.Options := [poUsePipes, poNoConsole, poStderrToOutPut];
p.ShowWindow:= swoHIDE;
p.Parameters.Add('checkout');
p.Parameters.Add(b);
p.CurrentDirectory:= fProject.basePath;
p.Execute;
processOutputToStrings(p,r);
r.Clear;
r.LoadFromStream(p.Stderr);
// git bug ? even on success they write the switch in stderr
if r.Count > 1 then
begin
for i := 0 to r.Count-1 do
fMsgs.message(r[i], fProject, amcProj, amkErr);
end
else
begin
fMsgs.message('now on branch `' + b + '`', fProject, amcProj, amkInf);
end;
for i := 0 to r.Count-1 do
fMsgs.message(r[i], fProject, amcProj, amkAuto);
end;
finally;
actProjGitBranchesUpd.Execute;
@ -4138,9 +4128,8 @@ begin
end;
r.Clear;
r.LoadFromStream(p.Stderr);
if r.Count <> 0 then
for i := 0 to r.Count-1 do
fMsgs.message(r[i], fProject, amcProj, amkErr);
for i := 0 to r.Count-1 do
fMsgs.message(r[i], fProject, amcProj, amkAuto);
end;
finally
p.Free;