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

if revision.inc does not exist, make sure the directory is writable before proceeding

Browse Source 
git-svn-id: trunk@9003 -
This commit is contained in:
vincents 2006-03-23 12:48:54 +00:00
parent bfaaefd126
commit e7bdea71ee
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tools/svn2revisioninc.pas
View File

@ -51,6 +51,7 @@ uses
var
SourceDirectory,
RevisionIncFileName: string;
RevisionIncDirName: string;
RevisionStr: string = 'Unknown';
const
@ -148,8 +149,6 @@ begin
end;
function ParamsValid: boolean;
var
RevisionIncDirName: string;
begin
Result := false;
if ParamCount<>2 then exit;
@ -169,8 +168,10 @@ end;
function CanCreateRevisionInc: boolean;
begin
Result:=(not FileExists(RevisionIncFileName))
or FileIsWritable(RevisionIncFileName);
if (FileExists(RevisionIncFileName)) then
Result:= FileIsWritable(RevisionIncFileName)
else
Result := DirectoryIsWritable(RevisionIncDirName);
end;
begin