paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 05:39:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: writing Makefile: skip if directory is not writable

Browse Source 
git-svn-id: trunk@16195 -
This commit is contained in:
mattias 2008-08-23 10:25:02 +00:00
parent b695b0c03c
commit 88e3f9b965
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packager/pkgmanager.pas
View File

@ -1298,6 +1298,17 @@ begin
Result:=mrCancel; Result:=mrCancel;
PathDelimNeedsReplace:=PathDelim<>'/'; PathDelimNeedsReplace:=PathDelim<>'/';
MakefileFPCFilename:=AppendPathDelim(APackage.Directory)+'Makefile.fpc';
if not DirectoryIsWritableCached(APackage.Directory) then begin
// the Makefile.fpc is only needed for custom building
// if the package directory is not writable, then the user don't want to
// custom build
// => silently skip
DebugLn(['TPkgManager.DoWriteMakefile Skipping, because package directory is not writable: ',APackage.Directory]);
Result:=mrOk;
exit;
end;
SrcFilename:=APackage.GetSrcFilename; SrcFilename:=APackage.GetSrcFilename;
MainUnitName:=lowercase(ExtractFileNameOnly((SrcFilename))); MainUnitName:=lowercase(ExtractFileNameOnly((SrcFilename)));
UnitPath:=APackage.CompilerOptions.GetUnitPath(true, UnitPath:=APackage.CompilerOptions.GetUnitPath(true,
@ -1383,8 +1394,6 @@ begin
//DebugLn('TPkgManager.DoWriteMakefile [',s,']'); //DebugLn('TPkgManager.DoWriteMakefile [',s,']');
MakefileFPCFilename:=AppendPathDelim(APackage.Directory)+'Makefile.fpc';
CodeBuffer:=CodeToolBoss.LoadFile(MakefileFPCFilename,true,true); CodeBuffer:=CodeToolBoss.LoadFile(MakefileFPCFilename,true,true);
if CodeBuffer=nil then begin if CodeBuffer=nil then begin
CodeBuffer:=CodeToolBoss.CreateFile(MakefileFPCFilename); CodeBuffer:=CodeToolBoss.CreateFile(MakefileFPCFilename);