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

IDE: check compiler: searching fpc.cfg in working directory + fpc.cfg

Browse Source 
git-svn-id: trunk@11557 -
This commit is contained in:
mattias 2007-07-17 22:43:28 +00:00
parent 6d3cb78cf0
commit 6f6f84ff91
1 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
ide/checkcompileropts.pas
View File

@ -179,6 +179,13 @@ var
Dir: String;
Filename: String;
i: Integer;
procedure AddFile(const aFilename: string);
begin
if (CfgFiles.IndexOf(aFilename)<0) and FileExists(aFilename) then
CfgFiles.Add(aFilename);
end;
begin
CfgFiles:=TStringList.Create;
@ -186,17 +193,23 @@ begin
Dir:=SysUtils.GetEnvironmentVariable('HOME');
if Dir<>'' then begin
Filename:=CleanAndExpandDirectory(Dir)+'.fpc.cfg';
if FileExists(Filename) then
CfgFiles.Add(Filename);
AddFile(Filename);
end;
// check compiler path + fpc.cfg
Dir:=ExtractFilePath(CompilerFilename);
Dir:=SysUtils.GetEnvironmentVariable('HOME');
Dir:=ReadAllLinks(Dir,false);
if Dir<>'' then begin
Filename:=CleanAndExpandDirectory(Dir)+'fpc.cfg';
if FileExists(Filename) then
CfgFiles.Add(Filename);
AddFile(Filename);
end;
// check working directory + fpc.cfg
Dir:=ExtractFilePath(Options.BaseDirectory);
Dir:=ReadAllLinks(Dir,false);
if Dir<>'' then begin
Filename:=CleanAndExpandDirectory(Dir)+'fpc.cfg';
AddFile(Filename);
end;
// check /etc/fpc.cfg
@ -205,8 +218,7 @@ begin
Dir:=SysUtils.GetEnvironmentVariable('HOME');
if Dir<>'' then begin
Filename:='/etc/fpc.cfg';
if FileExists(Filename) then
CfgFiles.Add(Filename);
AddFile(Filename);
end;
{$ENDIF}