paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-23 10:59:31 +01: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 var
i: Integer; i: Integer;
Pkg: TPackage; Pkg: TPackage;
LinkFilename: String;
begin begin
for i:=0 to Packages.Count-1 do begin for i:=0 to Packages.Count-1 do begin
Pkg:=Packages[i]; Pkg:=Packages[i];
if Links.FindLinkWithName(Pkg.Name)=nil then if Links.FindLinkWithName(Pkg.Name)=nil then begin
writeln('Missing link ',Pkg.Name+'-'+Pkg.VersionAsString,' in '+CreateRelativePath(Pkg.Filename,PkgDir)); 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;
end; end;