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

static dub options, add setting

This commit is contained in:
Basile Burg 2016-10-06 15:45:12 +02:00
parent 87fe011b4b
commit 4bd3e09d78
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 22 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
src/ce_dubproject.pas
View File

@ -14,6 +14,8 @@ type
TDubLinkMode = (dlmSeparate, dlmAllAtOnce, dlmSingleFile);
TDubDependencyCheck = (dcStandard, dcOffline, dcNo);
(**
* Stores the build options, always applied when a project is build
*)
@ -23,6 +25,7 @@ type
fForceRebuild: boolean;
fLinkMode: TDubLinkMode;
fCombined: boolean;
fDepCheck: TDubDependencyCheck;
fOther: string;
procedure setLinkMode(value: TDubLinkMode);
published
@ -31,6 +34,7 @@ type
property linkMode: TDubLinkMode read fLinkMode write setLinkMode;
property combined: boolean read fCombined write fCombined;
property other: string read fOther write fOther;
property dependenciesCheck: TDubDependencyCheck read fDepCheck write fDepCheck;
public
procedure assign(source: TPersistent); override;
procedure getOpts(options: TStrings);
@ -39,18 +43,18 @@ type
(**
* Make the build options editable
*)
TCEDubBuildOptions = class(TCEDubBuildOptionsBase, ICEEditableOptions)
strict private
fBackup: TCEDubBuildOptionsBase;
function optionedWantCategory(): string;
function optionedWantEditorKind: TOptionEditorKind;
function optionedWantContainer: TPersistent;
procedure optionedEvent(event: TOptionEditorEvent);
function optionedOptionsModified: boolean;
public
constructor create(aOwner: TComponent); override;
destructor destroy; override;
end;
TCEDubBuildOptions = class(TCEDubBuildOptionsBase, ICEEditableOptions)
strict private
fBackup: TCEDubBuildOptionsBase;
function optionedWantCategory(): string;
function optionedWantEditorKind: TOptionEditorKind;
function optionedWantContainer: TPersistent;
procedure optionedEvent(event: TOptionEditorEvent);
function optionedOptionsModified: boolean;
public
constructor create(aOwner: TComponent); override;
destructor destroy; override;
end;
TCEDubProject = class(TComponent, ICECommonProject)
private
@ -152,7 +156,7 @@ var
DubCompilerFilename: string = 'dmd';
const
DubSdlWarning = 'this feature is not available for a DUB project with the SDL format';
DubSdlWarning = 'this feature is deactivated in DUB projects with the SDL format';
implementation
@ -191,6 +195,7 @@ begin
combined:=opts.combined;
linkMode:=opts.linkMode;
other:=opts.other;
dependenciesCheck:=opts.dependenciesCheck;
end
else inherited;
end;
@ -207,6 +212,10 @@ begin
dlmAllAtOnce: options.Add('--build-mode=allAtOnce');
dlmSingleFile: options.Add('--build-mode=singleFile');
end;
case dependenciesCheck of
dcNo: options.Add('--skip-registry=all');
dcOffline: options.Add('--skip-registry=standard');
end;
if other.isNotEmpty then
CommandToList(other, options);
end;