pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpsvnsync: fixed setting svn:eolstyle on files that are not text/plain, needed for lazarus r13688.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@323 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
vsnijders
2008-01-11 23:13:23 +00:00
parent 77f2ea719a
commit e65d145159
2 changed files with 24 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
applications/fpsvnsync/fpsvnsync.lpi
View File

@ -26,10 +26,10 @@
</RunParams>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="FCL"/>
<PackageName Value="svnpkg"/>
</Item1>
<Item2>
<PackageName Value="svnpkg"/>
<PackageName Value="FCL"/>
</Item2>
</RequiredPackages>
<Units Count="1">

32
applications/fpsvnsync/fpsvnsync.lpr
View File

@ -204,7 +204,8 @@ var
procedure CopyFileProp(SourceProp, DestProp: TSvnFileProp);
var
j: integer;
j, pass: integer;
IsSvnEolProp: boolean;
Command: string;
begin
if SourceProp.Properties.Text=DestProp.Properties.Text then exit;
@ -221,13 +222,21 @@ var
writeln('svn ', Command);
writeln('svn result: ', ExecuteSvnCommand(Command));
end;
for j:=0 to SourceProp.Properties.Count-1 do begin
Command := format('propset %s "%s" "%s"',
[SourceProp.Properties.Names[j],
SourceProp.Properties.ValueFromIndex[j],
DestProp.FileName]);
writeln('svn ', Command);
writeln('svn result: ', ExecuteSvnCommand(Command));
// first pass set svn:eolstyle, later it might not be possible
// because of the mime style is non-text.
for pass := 1 to 2 do begin
for j:=0 to SourceProp.Properties.Count-1 do begin
IsSvnEolProp := SourceProp.Properties.Names[j]='svn:eol-style';
if ((pass=1) and (IsSvnEolProp=true)) or
((pass=2) and (IsSvnEolProp=false)) then begin
Command := format('propset %s "%s" "%s"',
[SourceProp.Properties.Names[j],
SourceProp.Properties.ValueFromIndex[j],
DestProp.FileName]);
writeln('svn ', Command);
writeln('svn result: ', ExecuteSvnCommand(Command));
end;
end;
end;
end;
@ -309,8 +318,11 @@ begin
DestRoot := GetRepositoryRoot(FDestWC);
writeln('------');
except
halt(9);
except on E: Exception do
begin
writeln(E.Message);
halt(9);
end;
end;
XmlOutput := TMemoryStream.Create;