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

di-4

This commit is contained in:
Basile Burg 2015-09-01 17:03:01 +02:00
parent fa9b575103
commit fedc07005e
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/ce_libmaneditor.pas
View File

@ -37,6 +37,7 @@ type
procedure ListEdited(Sender: TObject; Item: TListItem; var AValue: string); procedure ListEdited(Sender: TObject; Item: TListItem; var AValue: string);
private private
fProj: TCENativeProject; fProj: TCENativeProject;
//TODO-cDUB: register a static lib in libman via a DUB project
procedure updateRegistrable; procedure updateRegistrable;
procedure projNew(aProject: ICECommonProject); procedure projNew(aProject: ICECommonProject);
procedure projChanged(aProject: ICECommonProject); procedure projChanged(aProject: ICECommonProject);

10
src/ce_main.pas
View File

@ -1174,6 +1174,7 @@ end;
procedure TCEMainForm.actFileAddToProjExecute(Sender: TObject); procedure TCEMainForm.actFileAddToProjExecute(Sender: TObject);
begin begin
//TODO-cDUB: update 'add file to project' for a DUB project
if fDoc = nil then exit; if fDoc = nil then exit;
if fDoc.isProjectSource then exit; if fDoc.isProjectSource then exit;
if fNativeProject = nil then exit; if fNativeProject = nil then exit;
@ -1508,6 +1509,7 @@ end;
procedure TCEMainForm.actProjCompileAndRunExecute(Sender: TObject); procedure TCEMainForm.actProjCompileAndRunExecute(Sender: TObject);
begin begin
//TODO-cDUB: implement compile proj and run for DUB projects
if fNativeProject.compile then if fNativeProject.compile then
fNativeProject.runProject; fNativeProject.runProject;
end; end;
@ -1516,6 +1518,7 @@ procedure TCEMainForm.actProjCompAndRunWithArgsExecute(Sender: TObject);
var var
runargs: string; runargs: string;
begin begin
// TODO-cDUB: implement compile proj and run with arg for DUB projects
if not fNativeProject.compile then if not fNativeProject.compile then
exit; exit;
runargs := ''; runargs := '';
@ -1531,6 +1534,7 @@ label
_rbld, _rbld,
_run; _run;
begin begin
// TODO-cDUB: implement proj run for DUB projects
if fNativeProject.currentConfiguration.outputOptions.binaryKind <> executable then if fNativeProject.currentConfiguration.outputOptions.binaryKind <> executable then
begin begin
dlgOkInfo('Non executable projects cant be run'); dlgOkInfo('Non executable projects cant be run');
@ -1564,6 +1568,7 @@ var
runargs: string; runargs: string;
begin begin
runargs := ''; runargs := '';
// TODO-cDUB: change to fProjInterface.runProject when sub routine implemented
if InputQuery('Execution arguments', '', runargs) then if InputQuery('Execution arguments', '', runargs) then
fNativeProject.runProject(runargs); fNativeProject.runProject(runargs);
end; end;
@ -1719,6 +1724,7 @@ end;
procedure TCEMainForm.saveProjSource(const aEditor: TCESynMemo); procedure TCEMainForm.saveProjSource(const aEditor: TCESynMemo);
begin begin
//TODO-cDUB: implement save project source for a DUB json file edited in CE
if fNativeProject = nil then exit; if fNativeProject = nil then exit;
if fNativeProject.fileName <> aEditor.fileName then exit; if fNativeProject.fileName <> aEditor.fileName then exit;
// //
@ -1755,7 +1761,7 @@ end;
procedure TCEMainForm.saveProj; procedure TCEMainForm.saveProj;
begin begin
fProjectInterface.saveToFile(fNativeProject.fileName); fProjectInterface.saveToFile(fProjectInterface.getFilename);
end; end;
procedure TCEMainForm.saveProjAs(const aFilename: string); procedure TCEMainForm.saveProjAs(const aFilename: string);
@ -1803,6 +1809,7 @@ end;
procedure TCEMainForm.addSource(const aFilename: string); procedure TCEMainForm.addSource(const aFilename: string);
begin begin
//TODO-cDUB: add addSource() method to ICECommonProject
if fNativeProject.Sources.IndexOf(aFilename) >= 0 then exit; if fNativeProject.Sources.IndexOf(aFilename) >= 0 then exit;
fNativeProject.addSource(aFilename); fNativeProject.addSource(aFilename);
end; end;
@ -1849,6 +1856,7 @@ end;
procedure TCEMainForm.actProjSourceExecute(Sender: TObject); procedure TCEMainForm.actProjSourceExecute(Sender: TObject);
begin begin
//TODO-cDUB: add json highligher to edit json project in CE
if fNativeProject = nil then exit; if fNativeProject = nil then exit;
if not fileExists(fNativeProject.fileName) then exit; if not fileExists(fNativeProject.fileName) then exit;
// //