paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 08:20:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE, lazbuild: added macro BuildMode

Browse Source 
git-svn-id: trunk@40829 -
This commit is contained in:
mattias 2013-04-16 10:51:43 +00:00
parent 378844986e
commit 0103e5c4cb
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/buildmanager.pas
View File

@ -63,6 +63,8 @@ type
function OnSubstituteCompilerOption(Options: TParsedCompilerOptions;
const UnparsedValue: string;
PlatformIndependent: boolean): string;
function MacroFuncBuildMode(const {%H-}Param: string; const {%H-}Data: PtrInt;
var {%H-}Abort: boolean): string;
function MacroFuncEnv(const Param: string; const {%H-}Data: PtrInt;
var {%H-}Abort: boolean): string;
function MacroFuncFPCMsgFile(const {%H-}Param: string; const {%H-}Data: PtrInt;
@ -270,6 +272,15 @@ begin
GlobalMacroList.SubstituteStr(Result,CompilerOptionMacroNormal);
end;
function TBuildManager.MacroFuncBuildMode(const Param: string;
const Data: PtrInt; var Abort: boolean): string;
begin
if Project1<>nil then
Result:=Project1.ActiveBuildMode.Name
else
Result:='';
end;
constructor TBuildManager.Create(AOwner: TComponent);
begin
EnvironmentOptions := TEnvironmentOptions.Create;
@ -316,6 +327,8 @@ begin
// project
GlobalMacroList.Add(TTransferMacro.Create('Project','',
lisProjectMacroProperties,@MacroFuncProject,[]));
GlobalMacroList.Add(TTransferMacro.Create('BuildMode','',
lisNameOfActiveBuildMode, @MacroFuncBuildMode, []));
GlobalMacroList.Add(TTransferMacro.Create('LCLWidgetType','',
lisLCLWidgetType,@MacroFuncLCLWidgetType,[]));
GlobalMacroList.Add(TTransferMacro.Create('TargetCPU','',

1
ide/lazarusidestrconsts.pas
View File

@ -155,6 +155,7 @@ resourcestring
lisLazarusLanguageID = 'Lazarus language ID (e.g. en, de, br, fi)';
lisLazarusLanguageName = 'Lazarus language name (e.g. english, deutsch)';
lisLCLWidgetType = 'LCL widget type';
lisNameOfActiveBuildMode = 'Name of active build mode';
lisCOVarious = '%s (various)';
lisTargetCPU = 'Target CPU';
lisTargetOS = 'Target OS';