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

svn2revsioninc: unicode file names

Browse Source 
git-svn-id: trunk@46805 -
This commit is contained in:
mattias 2014-11-12 18:41:41 +00:00
parent 9d0156abcc
commit b4b6a57dd9
2 changed files with 28 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tools/svn2revisioninc.lpi
View File

@ -1,4 +1,4 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
@ -57,8 +57,5 @@
</Debugging>
<LinkSmart Value="True"/>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

53
tools/svn2revisioninc.pas
View File

@ -58,7 +58,7 @@ program Svn2RevisionInc;
uses
Classes, CustApp, SysUtils, Process, UTF8Process, LazFileUtils, LazUTF8,
LazLogger, FileUtil, Dom, XmlRead, GetOpts;
LazLogger, FileUtil, LazUTF8Classes, Dom, XmlRead, GetOpts;
type
@ -308,35 +308,36 @@ var
function GetRevisionFromEntriesTxt: boolean;
var
EntriesFileName: string;
EntriesText: Text;
line: string;
Line: string;
Lines: TStringListUTF8;
i: Integer;
begin
Result:=false;
EntriesFileName:=AppendPathDelim(SourceDirectory)+'.svn'+PathDelim+'entries';
if FileExistsUTF8(EntriesFileName) then begin
try
AssignFile(EntriesText, EntriesFileName);
Reset(EntriesText);
try
// skip three lines
Readln(EntriesText, line);
if line<>'<?xml version="1.0" encoding="utf-8"?>' then begin
Readln(EntriesText);
Readln(EntriesText);
Readln(EntriesText, RevisionStr);
Result := RevisionStr <> '';
end;
finally
CloseFile(EntriesText);
end;
except
// ignore error, default result is false
end;
try
Lines:=TStringListUTF8.Create;
try
Lines.LoadFromFile(EntriesFileName);
// skip three lines
i:=0;
Line:=Lines[i];
if line<>'<?xml version="1.0" encoding="utf-8"?>' then begin
inc(i,3);
RevisionStr:=Lines[i];
Result := RevisionStr <> '';
end;
finally
Lines.Free;
end;
except
// ignore error, default result is false
end;
end;
if Result then
Show('Success retrieving revision with entries file: '+EntriesFileName)
Show('Success retrieving revision with entries file: '+EntriesFileName)
else
Show('Failure retrieving revision with entries file: '+EntriesFileName);
Show('Failure retrieving revision with entries file: '+EntriesFileName);
Show('');
end;
@ -420,14 +421,14 @@ end;
function TSvn2RevisionApplication.IsValidRevisionInc: boolean;
var
Lines: TStringList;
Lines: TStringListUTF8;
begin
Result := FileExistsUTF8(RevisionIncFileName);
if Result then
begin
Lines := TStringList.Create;
Lines := TStringListUTF8.Create;
try
Lines.LoadFromFile(UTF8ToSys(RevisionIncFileName));
Lines.LoadFromFile(RevisionIncFileName);
Result := (Lines.Count = 2) and
(Lines[0] = RevisionIncComment) and
(Copy(Lines[1], 1, Length(ConstStart)) = ConstStart);