paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 16:40:48 +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 var
SourceDirectory, SourceDirectory,
RevisionIncFileName: string; RevisionIncFileName: string;
RevisionIncDirName: string;
RevisionStr: string = 'Unknown'; RevisionStr: string = 'Unknown';
const const
@ -148,8 +149,6 @@ begin
end; end;
function ParamsValid: boolean; function ParamsValid: boolean;
var
RevisionIncDirName: string;
begin begin
Result := false; Result := false;
if ParamCount<>2 then exit; if ParamCount<>2 then exit;
@ -169,8 +168,10 @@ end;
function CanCreateRevisionInc: boolean; function CanCreateRevisionInc: boolean;
begin begin
Result:=(not FileExists(RevisionIncFileName)) if (FileExists(RevisionIncFileName)) then
or FileIsWritable(RevisionIncFileName); Result:= FileIsWritable(RevisionIncFileName)
else
Result := DirectoryIsWritable(RevisionIncDirName);
end; end;
begin begin