paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 14:14:51 +01:00
Code Issues Packages Projects Releases Wiki Activity

lplupdate: write svn mv commands

Browse Source 
git-svn-id: trunk@28595 -
This commit is contained in:
mattias 2010-12-02 12:51:28 +00:00
parent 3e20bda683
commit 6d0ddc1c18
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tools/lplupdate.lpr
View File

@ -384,8 +384,12 @@ begin
or (Link.Minor<>Pkg.Minor)
or (Link.Release<>Pkg.Release)
// ignore build
then
writeln('Version mismatch link ',ExtractFileNameOnly(Link.Filename),' <> ',Pkg.VersionAsString,' in ',CreateRelativePath(Pkg.Filename,PkgDir));
then begin
if not (Quiet and WriteCommands) then
writeln('Version mismatch link ',ExtractFileNameOnly(Link.Filename),' <> ',Pkg.VersionAsString,' in ',CreateRelativePath(Pkg.Filename,PkgDir));
if WriteCommands then
writeln('svn mv ',CreateRelativePath(Link.Filename,LazarusDir),' ',CreateRelativePath(LinksDir,LazarusDir)+Pkg.Name+'-'+Pkg.VersionAsString+'.lpl');
end;
break;
end;
dec(j);
@ -417,6 +421,7 @@ begin
writeln;
writeln('-c, --commands');
writeln(' Write shell commands to fix issues.');
writeln(' Hint: use -q -c to get only the commands.');
writeln;
writeln('-p <directory of lpk files>, --pkgdir=<dir>');
writeln(' The directory where to search for lpk files, including sub directories.');