paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 09:16:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

lplupdate: commands for svn add

Browse Source 
git-svn-id: trunk@28598 -
This commit is contained in:
mattias 2010-12-02 12:59:16 +00:00
parent c5d2503a56
commit a08c25d004
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tools/lplupdate.lpr
View File

@ -339,11 +339,19 @@ procedure TLPLUpdate.WriteMissingLinks(Packages: TPackages; Links: TLinks);
var
i: Integer;
Pkg: TPackage;
LinkFilename: String;
begin
for i:=0 to Packages.Count-1 do begin
Pkg:=Packages[i];
if Links.FindLinkWithName(Pkg.Name)=nil then
writeln('Missing link ',Pkg.Name+'-'+Pkg.VersionAsString,' in '+CreateRelativePath(Pkg.Filename,PkgDir));
if Links.FindLinkWithName(Pkg.Name)=nil then begin
if not (Quiet and WriteCommands) then
writeln('Missing link ',Pkg.Name+'-'+Pkg.VersionAsString,' in '+CreateRelativePath(Pkg.Filename,PkgDir));
if WriteCommands then begin
LinkFilename:=CreateRelativePath(LinksDir,LazarusDir)+Pkg.Name+'-'+Pkg.VersionAsString+'.lpl';
writeln('echo ''$(LazarusDir)/'+CreateRelativePath(Pkg.Filename,PkgDir)+''' > '+LinkFilename);
writeln('svn add '+LinkFilename);
end;
end;
end;
end;