paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-22 16:29:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

Improves turkish lowercase

Browse Source 
git-svn-id: trunk@32747 -
This commit is contained in:
sekelsenmat 2011-10-07 11:55:17 +00:00
parent 28a437f358
commit 18e81edc2f
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/lazutils/lazutf8.pas
View File

@ -1213,9 +1213,19 @@ begin
// Major processing
case OldChar of
// Latin Characters 0000–0FFF http://en.wikibooks.org/wiki/Unicode/Character_reference/0000-0FFF
$C380..$C39E: NewChar := OldChar + $20;
// $C39F: ß already lowercase
$C481..$C4B6: if OldChar mod 2 = 0 then NewChar := OldChar + 1;
$C481..$C4A9: if OldChar mod 2 = 0 then NewChar := OldChar + 1;
// Turkish capital dotted i to small dotted i
$C4B0:
begin
Result[OutCounter]:='i';
NewCharLen := 1;
CharProcessed := True;
end;
// $C4B1 turkish lowercase undotted ı
$C4B2..$C4B6: if OldChar mod 2 = 0 then NewChar := OldChar + 1;
//$C4B7: ĸ => K ?
$C4B8..$C588: if OldChar mod 2 = 1 then NewChar := OldChar + 1;
//$C589 ʼn => ?
@ -1235,15 +1245,6 @@ begin
Result[OutCounter+1]:= Chr(Lo(NewChar));
CharProcessed := True;
end;
// Special turkish handling
// capital dotted i to small dotted i
if IsTurkish and (AInStr[InCounter] = #$C4) and (AInStr[InCounter+1] = #$B1) then
begin
Result[OutCounter]:='i';
NewCharLen := 1;
CharProcessed := True;
end;
end;
// Copy the character if the string was disaligned by previous changed