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

IDE: error message if package output directory can not be created

Browse Source 
git-svn-id: trunk@28985 -
This commit is contained in:
mattias 2011-01-13 01:44:21 +00:00
parent a20505c380
commit 958af62b2f
1 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
packager/packagesystem.pas
View File

@ -146,7 +146,8 @@ type
PkgLink: TPackageLink; ShowAbort: boolean): TModalResult;
function DeleteAmbiguousFiles(const Filename: string): TModalResult;
procedure AddMessage(const Msg, Directory: string);
function OutputDirectoryIsWritable(Directory: string): boolean;
function OutputDirectoryIsWritable(APackage: TLazPackage; Directory: string;
Verbose: boolean): boolean;
function CheckIfCurPkgOutDirNeedsCompile(APackage: TLazPackage;
const CompilerFilename, CompilerParams, SrcFilename: string;
CheckDependencies: boolean;
@ -612,17 +613,23 @@ begin
DebugLn(['TLazPackageGraph.AddMessage Msg="',Msg,'" Directory="',Directory,'"']);
end;
function TLazPackageGraph.OutputDirectoryIsWritable(Directory: string
): boolean;
function TLazPackageGraph.OutputDirectoryIsWritable(APackage: TLazPackage;
Directory: string; Verbose: boolean): boolean;
begin
Result:=false;
debugln(['TLazPackageGraph.OutputDirectoryIsWritable ',Directory]);
//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, '"', #13, APackage.IDAsString]),
mtError,[mbCancel]);
end;
debugln(['TLazPackageGraph.OutputDirectoryIsWritable unable to create directory "',Directory,'"']);
exit;
end;
@ -3043,7 +3050,7 @@ begin
begin
// the last compile was put to the normal/default output directory
OutputDir:=APackage.GetOutputDirectory(false);
if OutputDirectoryIsWritable(OutputDir) then
if OutputDirectoryIsWritable(APackage,OutputDir,false) then
begin
// the normal output directory is writable => keep using it
exit;
@ -3863,17 +3870,20 @@ var
begin
// get output directory
OutputDir:=APackage.GetOutputDirectory;
debugln(['TLazPackageGraph.PreparePackageOutputDirectory OutputDir="',OutputDir,'"']);
//debugln(['TLazPackageGraph.PreparePackageOutputDirectory OutputDir="',OutputDir,'"']);
if not OutputDirectoryIsWritable(OutputDir) then
if not OutputDirectoryIsWritable(APackage,OutputDir,false) then
begin
// the normal output directory is not writable
// => use the fallback directory
NewOutputDir:=GetFallbackOutputDir(APackage);
if (NewOutputDir=OutputDir) or (NewOutputDir='') then exit(mrCancel);
if (NewOutputDir=OutputDir) or (NewOutputDir='') then begin
debugln(['TLazPackageGraph.PreparePackageOutputDirectory failed to create writable directory: ',OutputDir]);
exit(mrCancel);
end;
APackage.CompilerOptions.ParsedOpts.OutputDirectoryOverride:=NewOutputDir;
OutputDir:=APackage.GetOutputDirectory;
if not OutputDirectoryIsWritable(OutputDir) then
if not OutputDirectoryIsWritable(APackage,OutputDir,true) then
begin
debugln(['TLazPackageGraph.PreparePackageOutputDirectory failed to create writable directory: ',OutputDir]);
Result:=mrCancel;
@ -3883,16 +3893,6 @@ begin
StateFile:=APackage.GetStateFilename;
PkgSrcDir:=ExtractFilePath(APackage.GetSrcFilename);
// create the output directory
if (not DirPathExistsCached(OutputDir))
and (not ForceDirectoriesUTF8(OutputDir)) then begin
Result:=IDEMessageDialog(lisPkgMangUnableToCreateDirectory,
Format(lisPkgMangUnableToCreateOutputDirectoryForPackage, ['"',
OutputDir, '"', #13, APackage.IDAsString]),
mtError,[mbCancel,mbAbort]);
exit;
end;
// delete old Compile State file
if FileExistsUTF8(StateFile) and not DeleteFileUTF8(StateFile) then begin
Result:=IDEMessageDialog(lisPkgMangUnableToDeleteFilename,