paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-27 17:34:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fppkg: Try to guess the correct fppkg-settings from the path to the compiler executable

Browse Source 
git-svn-id: trunk@59969 -
This commit is contained in:
joost 2019-01-01 16:50:29 +00:00
parent 68276150e1
commit b7986e28cf
1 changed files with 88 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

125
components/fppkg/src/fppkg_initializeoptionsfrm.pas
View File

@ -8,6 +8,8 @@ uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls, EditBtn, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls, EditBtn,
ButtonPanel, ButtonPanel,
fpTemplate, fpTemplate,
// IDEIntf
IDEOptionsIntf,
// fppkg // fppkg
pkgglobals, pkgFppkg, pkgoptions, pkgUninstalledSrcsRepo; pkgglobals, pkgFppkg, pkgoptions, pkgUninstalledSrcsRepo;
@ -43,6 +45,8 @@ type
procedure OnLazarusButtonClick(Sender: TObject); procedure OnLazarusButtonClick(Sender: TObject);
private private
function IsVersionStr(AString: string): Boolean; function IsVersionStr(AString: string): Boolean;
class function IsValidFPCLocation(APath: string; out Message: string): Boolean;
class function GuessFPCLocationFromCompilerExecutable(AnExecutablePath: string): string;
public public
class function CheckInitialConfiguration: Boolean; class function CheckInitialConfiguration: Boolean;
class function RecreateFppkgConfiguration: Boolean; class function RecreateFppkgConfiguration: Boolean;
@ -61,47 +65,36 @@ implementation
procedure TInitializeOptionsForm.FPCDirectoryEditChange(Sender: TObject); procedure TInitializeOptionsForm.FPCDirectoryEditChange(Sender: TObject);
var var
SR: TSearchRec;
Dir: string;
Prefix, s: RawByteString; Prefix, s: RawByteString;
Message: string;
Dir: string;
begin begin
Dir := IncludeTrailingPathDelimiter(FPCDirectoryEdit.Text); if IsValidFPCLocation(FPCDirectoryEdit.Text, Message) then
if not DirectoryExists(Dir) then begin
FPCDirValidationLabel.Caption := 'Directory does not exist' Dir := IncludeTrailingPathDelimiter(FPCDirectoryEdit.Text);
FPCDirValidationLabel.Caption := '';
s := ExtractFileName(ExcludeTrailingPathDelimiter(Dir));
Prefix := ExtractFilePath(ExcludeTrailingPathDelimiter(Dir));
if IsVersionStr(s) then
PathEdit.Text := Prefix + '{CompilerVersion}' + PathDelim
else
PathEdit.Text := Dir;
Prefix := ExtractFilePath(ExcludeTrailingPathDelimiter(Prefix));
Prefix := ExtractFilePath(ExcludeTrailingPathDelimiter(Prefix));
PrefixEdit.Text := Prefix;
s := ConcatPaths([Prefix, 'bin', 'fpc'+ExeExt]);
if FileExists(s) then
CompilerEdit.Text := s
else
CompilerEdit.Text := ExeSearch('fpc'+ExeExt,GetEnvironmentVariable('PATH'));
end
else else
begin begin
if FindFirst(Dir+'ppc*'+ExeExt, faAnyFile-faDirectory, SR) = 0 then FPCDirValidationLabel.Caption := Message;
begin
FindClose(SR);
if FileExists(Dir+'units') and FileExists(Dir+'fpmkinst') then
begin
FPCDirValidationLabel.Caption := '';
s := ExtractFileName(ExcludeTrailingPathDelimiter(Dir));
Prefix := ExtractFilePath(ExcludeTrailingPathDelimiter(Dir));
if IsVersionStr(s) then
PathEdit.Text := Prefix + '{CompilerVersion}' + PathDelim
else
PathEdit.Text := Dir;
Prefix := ExtractFilePath(ExcludeTrailingPathDelimiter(Prefix));
Prefix := ExtractFilePath(ExcludeTrailingPathDelimiter(Prefix));
PrefixEdit.Text := Prefix;
s := ConcatPaths([Prefix, 'bin', 'fpc'+ExeExt]);
if FileExists(s) then
CompilerEdit.Text := s
else
CompilerEdit.Text := ExeSearch('fpc'+ExeExt,GetEnvironmentVariable('PATH'));
end
else
FPCDirValidationLabel.Caption := 'This location does not seems to contain a valid fpc-installation'
end
else
begin
FPCDirValidationLabel.Caption := 'Compiler not found at given location'
end;
end; end;
FPCButtonPanel.OKButton.Enabled := FPCDirValidationLabel.Caption = ''; FPCButtonPanel.OKButton.Enabled := FPCDirValidationLabel.Caption = '';
end; end;
@ -278,6 +271,7 @@ begin
Frm := TInitializeOptionsForm.Create(nil); Frm := TInitializeOptionsForm.Create(nil);
try try
Frm.FppkgConfigPanel.Visible := True; Frm.FppkgConfigPanel.Visible := True;
Frm.FPCDirectoryEdit.Text := GuessFPCLocationFromCompilerExecutable(IDEEnvironmentOptions.GetParsedCompilerFilename);
if Frm.ShowModal in [mrClose, mrCancel] then if Frm.ShowModal in [mrClose, mrCancel] then
Result := False Result := False
else else
@ -312,5 +306,62 @@ begin
end; end;
end; end;
class function TInitializeOptionsForm.IsValidFPCLocation(APath: string; out Message: string): Boolean;
var
Dir: string;
SR: TRawByteSearchrec;
begin
Result := False;
Message := '';
Dir := IncludeTrailingPathDelimiter(APath);
if not DirectoryExists(Dir) then
Message := 'Directory does not exist'
else
begin
if FindFirst(Dir+'ppc*'+ExeExt, faAnyFile-faDirectory, SR) = 0 then
begin
FindClose(SR);
if FileExists(Dir+'units') and FileExists(Dir+'fpmkinst') then
Result := True
else
Message := 'This location does not seems to contain a valid fpc-installation'
end
else
Message := 'Compiler not found at given location'
end;
end;
class function TInitializeOptionsForm.GuessFPCLocationFromCompilerExecutable(AnExecutablePath: string): string;
var
Dir: string;
SR: TRawByteSearchRec;
Message: string;
begin
Result := '';
if IsValidFPCLocation(ExtractFileDir(AnExecutablePath), Message) then
begin
Result := ExtractFileDir(AnExecutablePath);
Exit;
end;
if ExtractFileName(ExtractFileNameWithoutExt(AnExecutablePath)) = 'fpc' then
begin
Dir := ExtractFileDir(ExtractFileDir(AnExecutablePath));
Dir := ConcatPaths([Dir, 'lib', 'fpc']);
if not DirectoryExists(Dir) then
Dir := ConcatPaths([Dir, 'lib64', 'fpc']);
if DirectoryExists(Dir) then
begin
if FindFirst(IncludeTrailingPathDelimiter(Dir)+AllFiles, faDirectory, SR) = 0 then
begin
repeat
if (SR.Name<>'.') and (SR.Name<>'..') and IsValidFPCLocation(IncludeTrailingPathDelimiter(Dir)+SR.Name, Message) then
Result := IncludeTrailingPathDelimiter(Dir)+SR.Name;
until FindNext(Sr) <> 0;
FindClose(SR);
end;
end;
end;
end;
end. end.