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

better names for DUB verbosity + fix custom options no well passed

This commit is contained in:
Basile Burg 2018-01-14 16:23:51 +01:00
parent 3274ba2a0d
commit edd6e7eee2
1 changed files with 4 additions and 8 deletions

12
src/ce_dubproject.pas
View File

@ -16,7 +16,7 @@ type
TDubDependencyCheck = (dcStandard, dcOffline, dcNo); TDubDependencyCheck = (dcStandard, dcOffline, dcNo);
TDubVerbosity = (vDefault, vQuiet, vVerbose, vVeryVerbose, vOnlyWarnAndError, vOnlyError); TDubVerbosity = (default, quiet, verbose, veryVerbose, onlyWarnAndError, onlyError);
(** (**
* Stores the build options, always applied when a project is build * Stores the build options, always applied when a project is build
@ -44,7 +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; property verbosity: TDubVerbosity read fVerbosity write fVerbosity default default;
public public
procedure assign(source: TPersistent); override; procedure assign(source: TPersistent); override;
procedure getOpts(options: TStrings); procedure getOpts(options: TStrings);
@ -230,11 +230,6 @@ end;
procedure TCEDubBuildOptionsBase.getOpts(options: TStrings); procedure TCEDubBuildOptionsBase.getOpts(options: TStrings);
const const
vb: array[TDubVerbosity] of string = ( vb: array[TDubVerbosity] of string = (
'', //vDefault,
'--vquiet', //vQuiet,
'-v', //vVerbose,
'--vverbose', //vVeryVerbose,
'-q', //vOnlyWarnAndError,
'--verror'); //vError '--verror'); //vError
begin begin
if parallel then if parallel then
@ -251,7 +246,8 @@ 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 fVerbosity <> TDubVerbosity.default then
options.Add(vb[fVerbosity]);
if other.isNotEmpty then if other.isNotEmpty then
CommandToList(other, options); CommandToList(other, options);
end; end;