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

lazbuild: EnableDefaultMacroEnvVar use uppercase env var

Browse Source
This commit is contained in:
mattias 2022-04-18 00:15:17 +02:00
parent 835a3a7f52
commit fa5b6be1c0
1 changed files with 6 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ide/buildmanager.pas
View File

@ -310,41 +310,33 @@ procedure TBuildManager.OnMacroSubstitution(TheMacro: TTransferMacro;
Abort: boolean; Depth: integer);
{$IFDEF EnableDefaultMacroEnvVar}
var
VarCnt, i, BestIndex: Integer;
EnvStr: String;
VarCnt, i: Integer;
EnvStr, UpperMacroName: String;
p: SizeInt;
{$ENDIF}
begin
if TheMacro=nil then begin
{$IFDEF EnableDefaultMacroEnvVar}
if s='' then begin
// default: use environment variable
// default: use uppercase environment variable
VarCnt:=GetEnvironmentVariableCountUTF8;
if length(fEnv)<>VarCnt then begin
SetLength(fEnv,VarCnt);
for i:=0 to VarCnt-1 do
fEnv[i]:=GetEnvironmentStringUTF8(i);
fEnv[i]:=GetEnvironmentStringUTF8(i+1);
end;
BestIndex:=-1;
UpperMacroName:=UTF8UpperCase(MacroName);
for i:=0 to VarCnt-1 do begin
EnvStr:=fEnv[i];
p:=Pos('=',EnvStr);
if p<2 then continue;
if (p-1=length(MacroName)) and CompareMem(@MacroName[1],@EnvStr[1],p-1) then
if (p-1=length(UpperMacroName)) and CompareMem(@UpperMacroName[1],@EnvStr[1],p-1) then
begin
// perfect match
Handled:=true;
s:=copy(EnvStr,p+1,length(EnvStr));
exit;
end else if (BestIndex<0) and (UTF8CompareText(MacroName,LeftStr(EnvStr,p-1))=0) then
begin
// case insensitive match -> use and search further
Handled:=true;
BestIndex:=i;
s:=copy(EnvStr,p+1,length(EnvStr));
end;
end;
if Handled then exit;
end;
{$ENDIF}