diff --git a/ide/buildmanager.pas b/ide/buildmanager.pas index 3f5b822bd7..e26627aee3 100644 --- a/ide/buildmanager.pas +++ b/ide/buildmanager.pas @@ -109,6 +109,10 @@ type var Abort: boolean): string; function MacroFuncIDEBuildOptions(const Param: string; const Data: PtrInt; var Abort: boolean): string; + function MacroFuncPrimaryConfigPath(const Param: string; const Data: PtrInt; + var Abort: boolean): string; + function MacroFuncSecondaryConfigPath(const Param: string; const Data: PtrInt; + var Abort: boolean): string; function CTMacroFuncProjectUnitPath(Data: Pointer): boolean; function CTMacroFuncProjectIncPath(Data: Pointer): boolean; function CTMacroFuncProjectSrcPath(Data: Pointer): boolean; @@ -310,6 +314,10 @@ begin lisPathOfTheMakeUtility, @MacroFuncMake, [])); GlobalMacroList.Add(TTransferMacro.Create('IDEBuildOptions','', lisIDEBuildOptions, @MacroFuncIDEBuildOptions, [])); + GlobalMacroList.Add(TTransferMacro.Create('PrimaryConfiPath','', + lisPrimaryConfigPath, @MacroFuncPrimaryConfigPath, [])); + GlobalMacroList.Add(TTransferMacro.Create('SecondaryConfigPath','', + lisSecondaryConfigPath, @MacroFuncSecondaryConfigPath, [])); // codetools macro functions CodeToolBoss.DefineTree.MacroFunctions.AddExtended( @@ -1385,6 +1393,18 @@ begin Result:=''; end; +function TBuildManager.MacroFuncPrimaryConfigPath(const Param: string; + const Data: PtrInt; var Abort: boolean): string; +begin + Result:=GetPrimaryConfigPath; +end; + +function TBuildManager.MacroFuncSecondaryConfigPath(const Param: string; + const Data: PtrInt; var Abort: boolean): string; +begin + Result:=GetSecondaryConfigPath; +end; + function TBuildManager.MacroFuncSrcOS(const Param: string; const Data: PtrInt; var Abort: boolean): string; begin diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas index 7edb32e88c..6b7e836053 100644 --- a/ide/lazarusidestrconsts.pas +++ b/ide/lazarusidestrconsts.pas @@ -4942,6 +4942,8 @@ resourcestring +'directory %s%s%s is not writable.%sSee the Lazarus website for other ' +'ways to install Lazarus.'; lisIDEBuildOptions = 'IDE build options'; + lisPrimaryConfigPath = 'Primary config path'; + lisSecondaryConfigPath = 'Secondary config path'; lisUnableToWriteTheProjectInfoFileError = 'Unable to write the project info ' +'file%s%s%s%s.%sError: %s'; lisBuildMode = 'Build mode';