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

lplupdate: fix pathdelims for windows

Browse Source 
git-svn-id: trunk@28609 -
This commit is contained in:
mattias 2010-12-03 14:59:06 +00:00
parent 6b5a0784e7
commit 707649715b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tools/lplupdate.lpr
View File

@ -73,7 +73,7 @@ type
Release: integer;
Build: integer;
PkgFilename: string;
ExpFilename: string; // PkgFilename without macros
ExpFilename: string; // full PkgFilename without macros
end;
{ TLinks }
@ -326,7 +326,7 @@ begin
Link.InLazarusDir:=CompareText(copy(Link.PkgFilename,1,length(LazDirMacro)),LazDirMacro)=0;
if Link.InLazarusDir then
Link.ExpFilename:=LazarusDir+copy(Link.PkgFilename,length(LazDirMacro)+1,length(Link.PkgFilename));
Link.ExpFilename:=CleanAndExpandFilename(Link.ExpFilename);
Link.ExpFilename:=CleanAndExpandFilename(SetDirSeparators(Link.ExpFilename));
finally
sl.Free;
end;
@ -348,7 +348,7 @@ begin
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('echo ''$(LazarusDir)/'+StringReplace(CreateRelativePath(Pkg.Filename,PkgDir),'\','/',[rfReplaceAll])+''' > '+LinkFilename);
writeln('svn add '+LinkFilename);
end;
end;