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

lplupdate: better message

Browse Source 
git-svn-id: trunk@40285 -
This commit is contained in:
mattias 2013-02-12 22:30:24 +00:00
parent 138e5595d8
commit f91219158f
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tools/lplupdate.lpr
View File

@ -392,8 +392,12 @@ begin
Link:=Links[i]; Link:=Links[i];
Pkg:=Packages.FindByName(Link.PkgName); Pkg:=Packages.FindByName(Link.PkgName);
if (Pkg=nil) then begin if (Pkg=nil) then begin
if not (Quiet and WriteCommands) then if not (Quiet and WriteCommands) then begin
writeln('Dead link ',ExtractFileNameOnly(Link.LPLFilename),' to missing '+CreateRelativePath(Link.PkgFilename,PkgDir)); if CompareText(Link.PkgName,ExtractFileNameOnly(Link.ExpFilename))=0 then
writeln('Dead link ',ExtractFileNameOnly(Link.LPLFilename),' to missing '+CreateRelativePath(Link.PkgFilename,PkgDir))
else
writeln('Wrong link ',ExtractFileNameOnly(Link.LPLFilename),' to '+CreateRelativePath(Link.PkgFilename,PkgDir));
end;
if WriteCommands then begin if WriteCommands then begin
writeln('svn rm ',CreateRelativePath(Link.LPLFilename,LazarusDir)); writeln('svn rm ',CreateRelativePath(Link.LPLFilename,LazarusDir));
end; end;