mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-07 12:36:03 +02:00
Svn2RevisionInc: Show at least some warning if svn command is not in path. Patch from Sandro Cumerlato.
git-svn-id: trunk@49236 -
This commit is contained in:
parent
533cb5e719
commit
1fca252176
@ -99,6 +99,25 @@ var
|
|||||||
const
|
const
|
||||||
RevisionIncComment = '// Created by Svn2RevisionInc';
|
RevisionIncComment = '// Created by Svn2RevisionInc';
|
||||||
|
|
||||||
|
function SvnInPath: Boolean;
|
||||||
|
var
|
||||||
|
P: TProcessUTF8;
|
||||||
|
begin
|
||||||
|
Result := True;
|
||||||
|
P := TProcessUTF8.Create(nil);
|
||||||
|
try
|
||||||
|
P.Options := [poUsePipes, poWaitOnExit];
|
||||||
|
P.CommandLine := 'svn --version';
|
||||||
|
try
|
||||||
|
P.Execute;
|
||||||
|
except
|
||||||
|
Result := False;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
P.Destroy;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
function GitInPath: Boolean;
|
function GitInPath: Boolean;
|
||||||
var
|
var
|
||||||
P: TProcessUTF8;
|
P: TProcessUTF8;
|
||||||
@ -549,6 +568,9 @@ begin
|
|||||||
exit;
|
exit;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
if not SvnInPath then
|
||||||
|
debugln('Warning: svn not in path.');
|
||||||
|
|
||||||
Result := True;
|
Result := True;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user