paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fpsvnsync: more fixes for copying properties

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@155 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
vsnijders 2007-04-27 21:27:20 +00:00
parent 3b1dfd7245
commit e6c6bc8691
2 changed files with 32 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
applications/fpsvnsync/fpsvnsync.lpi
View File

@ -51,8 +51,6 @@
</Debugging>
</Linking>
<Other>
<CustomOptions Value="-Faheaptrc
"/>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>

50
applications/fpsvnsync/fpsvnsync.lpr
View File

@ -184,16 +184,16 @@ var
procedure ApplyPropChanges;
var
Files: TStrings;
SourcePropInfo: TSvnPropInfo;
DestPropInfo: TSvnPropInfo;
BaseFileName: string;
SourceFileName: string;
SourceFileProp: TSvnFileProp;
DestFileName: string;
DestFileProp: TSvnFileProp;
i: Integer;
function CreatePropInfo(const BaseDir: string): TSvnPropInfo;
var
Files: TStrings;
begin
Result := TSvnPropInfo.Create;
Files := SvnLog.LogEntry[0].GetFileList(BaseDir);
@ -233,26 +233,40 @@ var
begin
SourcePropInfo := CreatePropInfo(FSourceWC);
DestPropInfo := CreatePropInfo(FDestWC);
if SourcePropInfo.FileCount<>DestPropInfo.FileCount then begin
writeln('FileName number mismatch: ',
SourcePropInfo.FileCount, '<>', DestPropInfo.FileCount);
Files := SvnLog.LogEntry[0].GetFileList('');
if SourcePropInfo.FileCount<>Files.Count then begin
writeln('Source FileName number mismatch: ',
SourcePropInfo.FileCount, '<>', Files.Count);
halt(2);
end;
for i := 0 to SourcePropInfo.FileCount-1 do begin
BaseFileName := Copy(SourcePropInfo[i].FileName, length(FSourceWC)+1, 4000);
DestFileName := FDestWC + BaseFileName;
DestFileProp := DestPropInfo.GetFileItem(DestFileName);
if BaseFileName <> Copy(DestFileProp.FileName, Length(FDestWC)+1, 4000) then begin
writeln('FileName mismatch: ',
SourcePropInfo[i].FileName, '<>', DestFileProp.FileName);
halt(3);
end;
CopyFileProp(SourcePropInfo[i], DestPropInfo[i]);
if DestPropInfo.FileCount<>Files.Count then begin
writeln('Destination FileName number mismatch: ',
DestPropInfo.FileCount, '<>', Files.Count);
halt(2);
end;
for i := 0 to Files.Count-1 do begin
SourceFileName := FSourceWC + Files[i];
DestFileName := FDestWC + Files[i];
SourceFileProp := SourcePropInfo.GetFileItem(SourceFileName);
DestFileProp := DestPropInfo.GetFileItem(DestFileName);
if SourceFileProp=nil then begin
writeln('Missing source file properties for ', SourceFileName);
halt(3);
end;
if SourceFileProp=nil then begin
writeln('Missing destination file properties for ', DestFileName);
halt(3);
end;
CopyFileProp(SourceFileProp, DestFileProp);
end;
Files.Free;
SourcePropInfo.Free;
DestPropInfo.Free;
end;