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

prevent projects classes to extract the interface for each message

This commit is contained in:
Basile Burg 2018-04-15 12:28:57 +02:00
parent 40594f3e01
commit 2e7a274337
2 changed files with 32 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
src/ce_ceproject.pas
View File

@ -50,6 +50,7 @@ type
fCompiled: boolean;
fSymStringExpander: ICESymStringExpander;
fMsgs: ICEMessagesDisplay;
fAsProjectItf: ICECommonProject;
procedure updateOutFilename;
procedure doChanged(modified: boolean = true);
procedure getBaseConfig;
@ -152,6 +153,7 @@ var
constructor TCENativeProject.create(aOwner: TComponent);
begin
inherited create(aOwner);
fAsProjectItf := self as ICECommonProject;
fSymStringExpander := getSymStringExpander;
fMsgs:= getMessageDisplay;
//
@ -201,7 +203,7 @@ end;
procedure TCENativeProject.activate;
begin
subjProjFocused(fProjectSubject, self as ICECommonProject);
subjProjFocused(fProjectSubject, fAsProjectItf);
end;
function TCENativeProject.getFormat: TCEProjectFormat;
@ -731,7 +733,7 @@ begin
sleep(1);
com := prc.ExitStatus = 0;
for j := 0 to lst.Count -1 do
fMsgs.message(lst[j], self as ICECommonProject, amcProj, amkAuto);
fMsgs.message(lst[j], fAsProjectItf, amcProj, amkAuto);
finally
prc.Free;
lst.Free;
@ -783,7 +785,7 @@ begin
if fCompilProc.isNotNil and fCompilProc.Active then
begin
fMsgs.message('the project is already being compiled',
self as ICECommonProject, amcProj, amkWarn);
fAsProjectItf, amcProj, amkWarn);
exit;
end;
killProcess(fCompilProc);
@ -792,11 +794,11 @@ begin
if config.isNil then
begin
fMsgs.message('unexpected project error: no active configuration',
self as ICECommonProject, amcProj, amkErr);
fAsProjectItf, amcProj, amkErr);
exit;
end;
//
fMsgs.clearByData(self as ICECommonProject);
fMsgs.clearByData(fAsProjectItf);
subjProjCompiling(fProjectSubject, Self);
//
prjpath := fFileName.extractFilePath;
@ -805,7 +807,7 @@ begin
//
if not runPrePostProcess(config.preBuildProcess) then
fMsgs.message('warning: pre-compilation process or commands not properly executed',
self as ICECommonProject, amcProj, amkWarn);
fAsProjectItf, amcProj, amkWarn);
//
SetCurrentDirUTF8(prjpath);
//
@ -817,9 +819,9 @@ begin
//
prjname := shortenPath(filename, 25);
fCompilProc := TCEProcess.Create(nil);
subjProjCompiling(fProjectSubject, self as ICECommonProject);
fMsgs.message('compiling ' + prjname, self as ICECommonProject, amcProj, amkInf);
fMsgs.message(usingCompilerInfo(CEProjectCompiler), self as ICECommonProject, amcProj, amkInf);
subjProjCompiling(fProjectSubject, fAsProjectItf);
fMsgs.message('compiling ' + prjname, fAsProjectItf, amcProj, amkInf);
fMsgs.message(usingCompilerInfo(CEProjectCompiler), fAsProjectItf, amcProj, amkInf);
// this doesn't work under linux, so the previous ChDir.
if prjpath.dirExists then
fCompilProc.CurrentDirectory := prjpath;
@ -863,7 +865,7 @@ begin
if not outputFilename.fileExists then
begin
fMsgs.message('output executable missing: ' + shortenPath(outputFilename, 25),
self as ICECommonProject, amcProj, amkErr);
fAsProjectItf, amcProj, amkErr);
exit;
end;
//
@ -897,7 +899,7 @@ begin
else
processOutputToStrings(TProcess(sender), lst);
for str in lst do
fMsgs.message(str, self as ICECommonProject, amcProj, amkBub);
fMsgs.message(str, fAsProjectItf, amcProj, amkBub);
finally
lst.Free;
end;
@ -910,7 +912,7 @@ begin
if (proc.ExitStatus <> 0) then
fMsgs.message(format('error: the process (%s) has returned the status %s',
[proc.Executable, prettyReturnStatus(proc)]), self as ICECommonProject, amcProj, amkErr);
[proc.Executable, prettyReturnStatus(proc)]), fAsProjectItf, amcProj, amkErr);
end;
end;
@ -923,7 +925,7 @@ begin
try
fCompilProc.getFullLines(lst);
for str in lst do
fMsgs.message(str, self as ICECommonProject, amcProj, amkAuto);
fMsgs.message(str, fAsProjectItf, amcProj, amkAuto);
finally
lst.Free;
end;
@ -939,15 +941,15 @@ begin
updateOutFilename;
if fCompiled then
fMsgs.message(prjname + ' has been successfully compiled',
self as ICECommonProject, amcProj, amkInf)
fAsProjectItf, amcProj, amkInf)
else
fMsgs.message(prjname + ' has not been compiled',
self as ICECommonProject, amcProj, amkWarn);
fAsProjectItf, amcProj, amkWarn);
//
if not runPrePostProcess(getCurrConf.postBuildProcess) then
fMsgs.message( 'warning: post-compilation process or commands not properly executed',
self as ICECommonProject, amcProj, amkWarn);
subjProjCompiled(fProjectSubject, self as ICECommonProject, fCompiled);
fAsProjectItf, amcProj, amkWarn);
subjProjCompiled(fProjectSubject, fAsProjectItf, fCompiled);
//
SetCurrentDirUTF8(fPreCompilePath);
end;

28
src/ce_dubproject.pas
View File

@ -133,6 +133,7 @@ type
fMsgs: ICEMessagesDisplay;
fLocalPackages: TDubLocalPackages;
fNextTerminatedCommand: TDubCommand;
fAsProjectItf: ICECommonProject;
procedure doModified;
procedure updateFields;
procedure updatePackageNameFromJson;
@ -585,6 +586,7 @@ end;
constructor TCEDubProject.create(aOwner: TComponent);
begin
inherited;
fAsProjectItf := self as ICECommonProject;
fSaveAsUtf8 := true;
fJSON := TJSONObject.Create();
fProjectSubject := TCEProjectSubject.Create;
@ -627,7 +629,7 @@ end;
{$REGION ICECommonProject: project props ---------------------------------------}
procedure TCEDubProject.activate;
begin
subjProjFocused(fProjectSubject, self as ICECommonProject);
subjProjFocused(fProjectSubject, fAsProjectItf);
end;
function TCEDubProject.inGroup: boolean;
@ -886,7 +888,7 @@ begin
try
fDubProc.getFullLines(lst);
for str in lst do
fMsgs.message(str, self as ICECommonProject, amcProj, amkAuto);
fMsgs.message(str, fAsProjectItf, amcProj, amkAuto);
finally
lst.Free;
end;
@ -895,9 +897,7 @@ end;
procedure TCEDubProject.dubProcTerminated(proc: TObject);
var
n: string;
i: ICECommonProject;
begin
i := self as ICECommonProject;
dubProcOutput(proc);
n := shortenPath(filename);
if fNextTerminatedCommand = dcBuild then
@ -907,16 +907,16 @@ begin
if fCompiled or (fDubProc.ExitStatus = 0) then
begin
fMsgs.message(n + ' has been successfully ' +
dubCmd2PostMsg[fNextTerminatedCommand], i, amcProj, amkInf)
dubCmd2PostMsg[fNextTerminatedCommand], fAsProjectItf, amcProj, amkInf)
end
else
begin
fMsgs.message(n + ' has not been successfully ' +
dubCmd2PostMsg[fNextTerminatedCommand], i, amcProj, amkWarn);
dubCmd2PostMsg[fNextTerminatedCommand], fAsProjectItf, amcProj, amkWarn);
fMsgs.message(format('error: DUB has returned the status %s',
[prettyReturnStatus(fDubProc)]), i, amcProj, amkErr);
[prettyReturnStatus(fDubProc)]), fAsProjectItf, amcProj, amkErr);
end;
subjProjCompiled(fProjectSubject, i, fCompiled);
subjProjCompiled(fProjectSubject, fAsProjectItf, fCompiled);
SetCurrentDirUTF8(fPreCompilePath);
end;
@ -925,12 +925,10 @@ var
olddir: string;
prjname: string;
rargs: TStringList;
prj: ICECommonProject;
begin
prj := self as ICECommonProject;;
if fDubProc.isNotNil and fDubProc.Active then
begin
fMsgs.message('the project is already being processed by DUB', prj, amcProj, amkWarn);
fMsgs.message('the project is already being processed by DUB', fAsProjectItf, amcProj, amkWarn);
exit;
end;
killProcess(fDubProc);
@ -942,13 +940,13 @@ begin
exit;
end;
fNextTerminatedCommand := command;
fMsgs.clearByData(prj);
fMsgs.clearByData(fAsProjectItf);
prjname := shortenPath(fFilename);
fDubProc:= TCEProcess.Create(nil);
olddir := GetCurrentDir;
try
subjProjCompiling(fProjectSubject, prj);
fMsgs.message(dubCmd2PreMsg[command] + prjname, prj, amcProj, amkInf);
subjProjCompiling(fProjectSubject, fAsProjectItf);
fMsgs.message(dubCmd2PreMsg[command] + prjname, fAsProjectItf, amcProj, amkInf);
if modified then
saveToFile(fFilename);
chDir(fFilename.extractFilePath);
@ -1509,7 +1507,7 @@ begin
fModificationCount := 0;
fModified:=true;
updateFields;
subjProjChanged(fProjectSubject, self as ICECommonProject);
subjProjChanged(fProjectSubject, fAsProjectItf);
end;
{$ENDREGION}