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

IDE: when compiling a package in a readonly, check parent directories

Browse Source
This commit is contained in:
mattias 2023-06-21 17:59:54 +02:00
parent fa2114cc78
commit 28eccc250c
1 changed files with 25 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
packager/packagesystem.pas
View File

@ -1051,27 +1051,38 @@ end;
function TLazPackageGraph.OutputDirectoryIsWritable(APackage: TLazPackage;
Directory: string; Verbose: boolean): boolean;
var
CurDir: String;
begin
Result:=false;
//debugln(['TLazPackageGraph.OutputDirectoryIsWritable ',Directory]);
if not FilenameIsAbsolute(Directory) then
exit;
Directory:=ChompPathDelim(Directory);
if not DirPathExistsCached(Directory) then begin
// the directory does not exist => try creating it
if not ForceDirectoriesUTF8(Directory) then begin
if Verbose then begin
IDEMessageDialog(lisPkgMangUnableToCreateDirectory,
Format(lisPkgMangUnableToCreateOutputDirectoryForPackage,
[Directory, LineEnding, APackage.IDAsString]),
mtError,[mbCancel]);
end;
debugln(['Error: (lazarus) unable to create package output directory "',Directory,'" of package "',APackage.IDAsString,'"']);
exit;
end;
Result:=true;
end else
if DirPathExistsCached(Directory) then begin
// the directory exist => check writable
Result:=DirectoryIsWritableCached(Directory);
exit;
end;
// the directory does not exist => check parent directory for writable
CurDir:=Directory;
repeat
CurDir:=ChompPathDelim(ExtractFilePath(CurDir));
until (CurDir='') or (CurDir=Directory) or DirPathExistsCached(CurDir);
if not DirectoryIsWritableCached(CurDir) then
exit(false);
// the directory does not exist, and its parent is writable => try creating it
if not ForceDirectoriesUTF8(Directory) then begin
if Verbose then begin
IDEMessageDialog(lisPkgMangUnableToCreateDirectory,
Format(lisPkgMangUnableToCreateOutputDirectoryForPackage,
[Directory, LineEnding, APackage.IDAsString]),
mtError,[mbCancel]);
end;
debugln(['Error: (lazarus) unable to create package output directory "',Directory,'" of package "',APackage.IDAsString,'"']);
exit;
end;
Result:=true;
end;
function TLazPackageGraph.GetPackageCompilerParams(APackage: TLazPackage