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

aarre: auto fix non UTF-8

Browse Source 
git-svn-id: trunk@41695 -
This commit is contained in:
mattias 2013-06-12 17:57:44 +00:00
parent 1dcfc14560
commit 53729efba4
1 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/aarre/src/aarrepkglist.pas
View File

@ -34,7 +34,8 @@ unit AarrePkgList;
interface
uses
Classes, SysUtils, Laz2_XMLCfg, laz2_DOM, LazLogger, FileProcs;
Classes, SysUtils, Laz2_XMLCfg, laz2_DOM, LazLogger, LazUTF8, LConvEncoding,
FileProcs;
type
TAPackageType = (
@ -187,6 +188,7 @@ const
'RunTime', 'DesignTime', 'RunAndDesignTime', 'RunTimeOnly');
function APackageTypeIdentToType(const s: string): TAPackageType;
function FixUTF8(const s: string): string;
implementation
@ -197,6 +199,17 @@ begin
Result:=aptRunTime;
end;
function FixUTF8(const s: string): string;
var
i: PtrInt;
begin
Result:=s;
if Result='' then exit;
i:=FindInvalidUTF8Character(PChar(Result),length(Result),true);
if i<0 then exit;
Result:=ISO_8859_1ToUTF8(Result);
end;
{ TAPkgDependencies }
function TAPkgDependencies.GetItems(Index: integer): TAPkgDependency;
@ -384,9 +397,9 @@ begin
raise Exception.Create('invalid name ');
PackageType:=APackageTypeIdentToType(xml.GetValue(Path+'Type/Value',
APackageTypeIdents[DefaultPackageType]));
Author:=xml.GetValue(Path+'Author/Value','');
Description:=xml.GetValue(Path+'Description/Value','');
License:=xml.GetValue(Path+'License/Value','');
Author:=FixUTF8(xml.GetValue(Path+'Author/Value',''));
Description:=FixUTF8(xml.GetValue(Path+'Description/Value',''));
License:=FixUTF8(xml.GetValue(Path+'License/Value',''));
Version.Load(xml,Path+'Version/');
NewCount:=xml.GetValue(Path+'RequiredPkgs/Count',0);