paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 09:59:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: added macros PrimaryConfigPath, SecondaryConfigPath

Browse Source 
git-svn-id: trunk@28922 -
This commit is contained in:
mattias 2011-01-09 13:56:01 +00:00
parent 564a8a78a9
commit e600f4af83
2 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ide/buildmanager.pas
View File

@ -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

2
ide/lazarusidestrconsts.pas
View File

@ -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';