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