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

svn2revisioninc: fixed creating revision.inc in current directory

Browse Source 
git-svn-id: trunk@10187 -
This commit is contained in:
vincents 2006-11-10 14:02:42 +00:00
parent 0e491cac43
commit 9f672f7dab
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tools/svn2revisioninc.pas
View File

@ -188,12 +188,12 @@ function ParamsValid: boolean;
begin
Result := false;
if ParamCount<>2 then exit;
SourceDirectory:=ParamStr(1);
SourceDirectory:=ExpandFileName(ParamStr(1));
if not DirectoryExists(SourceDirectory) then begin
writeln('Error: Source directory "', SourceDirectory, '" doesn''t exist.');
exit;
end;
RevisionIncFileName:=ParamStr(2);
RevisionIncFileName:=ExpandFileName(ParamStr(2));
RevisionIncDirName:=ExtractFilePath(RevisionIncFileName);
if not DirectoryExists(RevisionIncDirName) then begin
writeln('Error: Target Directory "', RevisionIncDirName, '" doesn''t exist.');