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

"DUB Build" options, add a verbosity selector, close #214

This commit is contained in:
Basile Burg 2018-01-07 16:20:48 +01:00
parent 2220f9e070
commit 66886987de
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/ce_dubproject.pas
View File

@ -16,6 +16,8 @@ type
TDubDependencyCheck = (dcStandard, dcOffline, dcNo); TDubDependencyCheck = (dcStandard, dcOffline, dcNo);
TDubVerbosity = (vDefault, vQuiet, vVerbose, vVeryVerbose, vOnlyWarnAndError, vOnlyError);
(** (**
* Stores the build options, always applied when a project is build * Stores the build options, always applied when a project is build
*) *)
@ -26,6 +28,7 @@ type
fLinkMode: TDubLinkMode; fLinkMode: TDubLinkMode;
fCombined: boolean; fCombined: boolean;
fDepCheck: TDubDependencyCheck; fDepCheck: TDubDependencyCheck;
fVerbosity: TDubVerbosity;
fOther: string; fOther: string;
fCompiler: DCompiler; fCompiler: DCompiler;
fShowConsole: boolean; fShowConsole: boolean;
@ -41,6 +44,7 @@ type
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; property dependenciesCheck: TDubDependencyCheck read fDepCheck write fDepCheck;
property verbosity: TDubVerbosity read fVerbosity write fVerbosity default vDefault;
public public
procedure assign(source: TPersistent); override; procedure assign(source: TPersistent); override;
procedure getOpts(options: TStrings); procedure getOpts(options: TStrings);
@ -218,11 +222,20 @@ begin
other:=opts.other; other:=opts.other;
dependenciesCheck:=opts.dependenciesCheck; dependenciesCheck:=opts.dependenciesCheck;
compiler:=opts.compiler; compiler:=opts.compiler;
verbosity:=opts.verbosity;
end end
else inherited; else inherited;
end; end;
procedure TCEDubBuildOptionsBase.getOpts(options: TStrings); procedure TCEDubBuildOptionsBase.getOpts(options: TStrings);
const
vb: array[TDubVerbosity] of string = (
'', //vDefault,
'--vquiet', //vQuiet,
'-v', //vVerbose,
'--vverbose', //vVeryVerbose,
'-q', //vOnlyWarnAndError,
'--verror'); //vError
begin begin
if parallel then if parallel then
options.Add('--parallel'); options.Add('--parallel');
@ -238,6 +251,7 @@ begin
dcNo: options.Add('--skip-registry=all'); dcNo: options.Add('--skip-registry=all');
dcOffline: options.Add('--skip-registry=standard'); dcOffline: options.Add('--skip-registry=standard');
end; end;
options.Add(vb[fVerbosity]);
if other.isNotEmpty then if other.isNotEmpty then
CommandToList(other, options); CommandToList(other, options);
end; end;